| Код |
Private Function CompareAndMove() 'ф-ия сравнить_и_переместить
Dim ans As VbMsgBoxResult
Dim s1$, s2$
s1 = List3.List(List3.ListIndex)
s2 = List4.List(List4.ListIndex)
If IsDate(data.Text) Then
If CDate(Date$) <= CDate(data.Text) Then
ans = MsgBox("Авто " & s1 & " (" & s2 & ") " & " прибыло в автомагазин, добавляем его?", vbQuestion + vbYesNo, "Внимание!")
If ans = vbYes Then
ProgData.Recordset.AddNew
ProgData.Recordset!Part = s1
ProgData.Recordset!Name = s2
ProgData.Recordset!Site = SiteText1.Text
ProgData.Recordset!License = data.Text
ProgData.Recordset!Note = NoteText1.Text
ProgData.Recordset.Update
SiteData.Database.Execute "DELETE FROM Sites WHERE Model='" & s2 & "';"
UpdateProgList "", ""
UpdateSiteList "", ""
End If
Else
MsgBox "Авто " & s1 & " " & s2 & " " & " ещё не прибыл.", vbInformation, "Авто не прибыло!"
End If
End If
End Function
|
Думаю функция в обяснение не нуждается есть data (текстовое поле) и системная дата, почему-то в сентябре эта функция прекрассно работала, а в октябре не хочет. Почему такое происходит? В текстовом поле дата имеет такой формат например 02.10.2004, пробывал и 2.10.2004. Всё равно не работает |
