Релиб / Access / Базы данных / Обновить текущую дату в поле при открытии формы / Latest Posts

RE: Обновить текущую дату в поле при открытии формы

BoNiM — Fri, 20 Apr 2007 14:23:29 GMT

Удалите из базы все не относящееся к проблеме, сожмите ее, а затем сархивировав, выложите базу данных. Так мы с Вами быстрее разберемся.

RE: Обновить текущую дату в поле при открытии формы

pvik1970 — Fri, 20 Apr 2007 13:36:35 GMT

Это сами элементы, где выбираешь дату. Внутри них слева маленькие чекбоксы, а рядом поля Датасоставления и Датаподписания. Когда я ставлю птичку в чекбокс, активируется выбор даты, я выбираю и вижу рядом в поле Датаподписания встала моя дата, но не проапдейтилась в таблицу, при переходе на след поле.

Установил для поля Датаподписания в свойстве "Обновление" след код:

Private Sub Поле28_AfterUpdate()
CurrentDb.Execute "UPDATE [Заказчики и Исполнители] SET [Датасоставления]='" & Me![Датасоставления] & "'"

'CurrentDb.Execute "UPDATE [Заказчики и Исполнители] SET [Датаподписания]=" & Format$(Me![Датасоставления], "\#mm\/dd\/yyyy\#")

End Sub

Тут и ваш код заремирован. Но так и так не апдейтит и все.

Если ставлю на форму само поле, и вбиваю вручную, все работает... А надо через DTPicker дату выбирать... Спасибо.

RE: Обновить текущую дату в поле при открытии формы

BoNiM — Fri, 20 Apr 2007 13:04:49 GMT

[quote][b]pvik1970 (20.04.2007)[/b][hr]Ну, в свойствах CheckBox стоит "да". В значении Value стоит дата и время. Сам ставит. И происходит что? Я запускаю форму, те данные что я вставляю в поля тут же апдейтятся как схожу с поля на другое... То есть нормально. Дохожу до даты, ставлю птичку и выбираю дату, иду на след. поле. А в таблице дата не прописалась. :( Ставлю функцию на обновление пикера. Пробовал и на вход.... Не помогает. Но когда прохожу все поля, он создает в таблице новую запись, повторяет значения всех моих полей и уже с датами. А предыдущая запись, где даты и должны были быть - пустые...... Что неправильно делаю?[/quote]
DTPicker3 и DTPicker6 - это чекбоксы или поля, в которых размещается дата?

RE: Обновить текущую дату в поле при открытии формы

pvik1970 — Fri, 20 Apr 2007 11:36:33 GMT

Ну, в свойствах CheckBox стоит "да". В значении Value стоит дата и время. Сам ставит. И происходит что? Я запускаю форму, те данные что я вставляю в поля тут же апдейтятся как схожу с поля на другое... То есть нормально. Дохожу до даты, ставлю птичку и выбираю дату, иду на след. поле. А в таблице дата не прописалась. :( Ставлю функцию на обновление пикера. Пробовал и на вход.... Не помогает. Но когда прохожу все поля, он создает в таблице новую запись, повторяет значения всех моих полей и уже с датами. А предыдущая запись, где даты и должны были быть - пустые...... Что неправильно делаю?

RE: Обновить текущую дату в поле при открытии формы

BoNiM — Fri, 20 Apr 2007 11:27:15 GMT

В свойство "Значение по умолчанию" чекбокса прописать True

RE: Обновить текущую дату в поле при открытии формы

pvik1970 — Fri, 20 Apr 2007 10:25:46 GMT

Спасибо. Работает и ваш и мой вариант. Но проблема в том, что как открываешь форму у Dtpicker автоматом не стоит галочка в чекбоксе. Поэтому и в таблицу не вставлятся... Как сделать чтобы он автоматом был включен при открытии формы? Ищу в свойствах, вроде нету..... Мож команда какая есть? Спасибо.

RE: Обновить текущую дату в поле при открытии формы

BoNiM — Thu, 19 Apr 2007 17:17:15 GMT

А так?
CurrentDb.Execute "UPDATE [Заказчики и Исполнители] SET [Датасоставления]=" & Format$(Me![DTPicker3],"\#mm\/dd\/yyyy\#")

Обновить текущую дату в поле при открытии формы

pvik1970 — Thu, 19 Apr 2007 15:57:19 GMT

При открытии формы создается запись. Но в поля даты не апдейтится дата. Поля имеют краткий формат даты..

Остальные поля Апдейтятся нормально....

ВОТ ЭТО НЕ СРАБАТЫВАЕТ.

Private Sub DTPicker3_Updated(Code As Integer)
CurrentDb.Execute "UPDATE [Заказчики и Исполнители] SET [Датасоставления]='" & Me![DTPicker3] & "'"
End Sub

Private Sub DTPicker6_Updated(Code As Integer)
CurrentDb.Execute "UPDATE [Заказчики и Исполнители] SET [Датаподписания]='" & Me![DTPicker6] & "'"
End Sub

А ВОТ ТУТ СРАБАТЫВАЕТ НОРМАЛЬНО

Private Sub Номердоговора_AfterUpdate()
CurrentDb.Execute "UPDATE [Заказчики и Исполнители] SET [Номердоговора]='" & Me![Номердоговора] & "' WHERE [Номердоговора]='0'"
End Sub