ник: bagdat
Здравствуйте!
Мне нужно назначить значение по умолчанию полю "Дата".
Значение берется из таблицы "SomeTable".
Не получается! Никак!
Помогите пожалуйста. Вот код:
Private Sub Form_Open(Cancel As Integer)
Dim dbs As Database
Dim rst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("SomeTable")
If Not IsNull(rst![TheDate]) Then
Дата.DefaultValue = rst![TheDate]
Else
Дата.DefaultValue = DateTime.Date
End If
rst.Close
Set rst = Nothing
Set dbs = Nothing
End Sub