| |
|
|
| | Здравствуйте!
Мне нужно назначить значение по умолчанию полю "Дата".
Значение берется из таблицы "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 | |
| |
| |
| |
|
|
| | Дата - поле в форме? А так
Дата = rst![TheDate] | |
| |
| |
| |
|
|
| | Да, это поле в форме, связано с полем типа "Краткая дата" в таблице.
У поле "TheDate" такой же тип. | |
| |
| |
| |
|
|
| | Me.Data.DefaultValue = "Date()"
вот такая конструкция работает!!!!
а вот такая Me.Data.DefaultValue = Date - балалайка | |
| |
| |
| |
|
|
| | думаю так
Дата.DefaultValue = "#" & rst![TheDate] & "#"
или
Дата.DefaultValue = "#" & Format(rst![TheDate] ,"mm\/dd\/yyyy") & "#"
чтоб с датами не напророть | |
| |
| |
| |
|
|
| | Спасибо kot_k_k !
Заработало! | |
| |
| |
| |
|
|
| | В режиме конструктора в этом св-ве поля укажите:
=NZ(DLookup("[TheDate]";"SomeTable");Date()) | |
| |
| |
| |
|
|
| | нужны "#" - с обох сторон и форматирование
проверил тока что
= "#" & Date & "#"
дает ошибку а в defaulvalue пишет #09.08.2011#
= "#" & Format(Date, "mm\/dd\/yyyy") & "#"
дает нормальный результата и в defaulvalue пишет #09/08/2011#
если просто
=Date
то тож фигня а defaulvalue = 09.08.2011
как всегда с датами у Акса сложности (или у нас с Аксом  ) | |
| |
| |
| |
|
|
| |  у аксса
| |
| |
| |
| |
|
|
| | Kot_t_t а у тебя чего дата по америкоски стоит
седня 8 сентября - 08.09.2011 | |
| |
| |
| |
|
|
| | не знаю у меня дата аксовая
там же формат - вот и получается в результатет строка #09/08/2011# в Defaultvalue
а в поле пишет 08.09.2011 - все ОК
Me.Data.DefaultValue = "#" & Format(Date, "mm\/dd\/yyyy") & "#"
Me.Data.DefaultValue = "#" & Format(Date, "dd\/mm\/yyyy") & "#"
два вариант а выводят одну и туж дату но при обрабтке этот Акс первую воспринимает правильно
08.09.2011
а второй вариант получим 09.08.2011 так что в дефаулт надо загонять пиндосовскую дату.
п.с. хорошо было в Клиппере - написал при загрузке
Set Date German
и все на все время работы даты воспринимаются в нашем формате и не морочим мозк | |
| |
| |
| |
|
|
| | У меня прекрасно работает конструкция
Me.DataBegin = "01.01." & CStr(Year(Date))
Me.DataEnd = "31.12." & CStr(Year(Date))
Но! Это в форме.
При ипользовании в запросах надо форматировать или исп. BuildCriteria | |
| |
| |
