Не срабатывает код в одном текстовом поле - VB

Формулировка задачи:

Ребята подскажите что можно сделать? в этом коде не срабатывает код (подчеркнул) только если закоментароваь код один изних работает.

                    Листинг программы
                
 
                        
                          
                    
Private Sub Spin1_SpinUp()
dDate = Date
    lEndMonthDay = Day(DateSerial(Year(dDate), Month(dDate) + 1, 0)) 'последний день месяца dDate
    If Spin1.Value > lEndMonthDay Then Spin1.Value = 1
     [U]Text6.Text = Text6.Text + 1
     Text6.Text = Spin1.Value[/U]
End Sub

Решение задачи: «Не срабатывает код в одном текстовом поле»

textual
                            Листинг программы 
                        
Private Sub Spin1_SpinUp()
dDate = Date
    lEndMonthDay = Day(DateSerial(Year(dDate), Month(dDate) + 1, 0)) 'последний день месяца dDate
       If Spin1.Value > lEndMonthDay Then Spin1.Value = 1: Text6.Text = Spin1.Value: Exit Sub
             Text6.Text = Text6.Text + 1
         
End Sub

Оцени полезность:

9 голосов , оценка 3.778 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы