ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Все мучаюсь с DEFAULTValue
7 сообщений из 7, страница 1 из 1
Все мучаюсь с DEFAULTValue
    #32126931
Pavel1789
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pavel1789
Гость
Хочу сделать так. Чтобы данные в полях формы с последней записи сохранялись в defaultvalue новой записи. Делаю так: перехожу на последнюю запись, сохраняю значения полей в переменные соответствующих типов, сразу задаю defaultvalue. При переходе на новую запись только в первом поле ставится значение defaultvalue, в остальных пишет "#Имя?". Первое поле - текстовое, второе дата, третье поле со списком. Помогите пожалуйста!!!
...
Рейтинг: 0 / 0
25.03.2003, 23:15
| Ответить | Цитировать | Написать  
Все мучаюсь с DEFAULTValue
    #32126933
MixaCh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MixaCh
Участник
У меня работает....
Что-то типа такого....

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub Form_AfterInsert()
On Error GoTo Err_Form_AfterInsert
    
   If Not IsNull(Me![Dt]) Then
      Me![Dt].DefaultValue = Me![Dt]
   End If
   If Not IsNull(Me![Kt]) Then
      Me![Kt].DefaultValue = Me![Kt]
   End If
   Me![Type_val_Dt].DefaultValue = Me![Type_val_Dt]
   Me![Type_val_Kt].DefaultValue = Me![Type_val_Kt]
   Me![Prov_date].DefaultValue =  "#"  & Format(Me![Prov_date], Format_Local_Date) &  "#"

где Format_Local_Date = "mm\/dd\/yyyy"...хотя может это и лишнее, а вот "#" - обязательны!!!!

а для списков надо задавать значение Связанного столбца...
...
Рейтинг: 0 / 0
25.03.2003, 23:24
| Ответить | Цитировать | Написать  
Все мучаюсь с DEFAULTValue
    #32126936
Pavel1789
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pavel1789
Гость
Попробовал. В поле с датой подставляется совсем другое число, и при редактировании возникает ерунда типа 00:00:00????????
...
Рейтинг: 0 / 0
25.03.2003, 23:40
| Ответить | Цитировать | Написать  
Все мучаюсь с DEFAULTValue
    #32127148
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
incold
Участник
Какая версия Access?
Работаете в режиме mdb или adp?
Третье поле со списком - а тип связанного столбца какой?


Не помню как в mdb, а в adp строка для поля даты даты что-то вроде такого
Me!Field.DefaultValue= """" & Format(Me!field, "dd.mm.yy") & """"
Для mdb скорее всего нужно заменить "" на #
А сам формат поля должен быть такой, какой установлен на форме для этого поля (опять же для adp уверен, а для mdb не помню).
...
Рейтинг: 0 / 0
26.03.2003, 11:03
| Ответить | Цитировать | Написать  
Все мучаюсь с DEFAULTValue
    #32127184
Pavel1789
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pavel1789
Гость
Версия access XP, работаю с MDB. Я сменил поле с датой на текстовое, но все равно. Почему-то defaultvalue ставится только на первое поле
...
Рейтинг: 0 / 0
26.03.2003, 11:28
| Ответить | Цитировать | Написать  
Все мучаюсь с DEFAULTValue
    #32127201
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
incold
Участник
Сделал в Access XP (Eng)
табличку Table1
s1 (Text 50)
s2 date/time
s3 Currency

Сделал мастером ленточную форму
На событие AfterInsert повесил след. код - работает нормально.

Me.s1.DefaultValue = "'" & Me.s1 & "'"
Me.s2.DefaultValue = "'" & Format(Me.s2, "dd.mm.yy") & "'"
Me.s3.DefaultValue = Replace(CStr(Me.s3), ",", ".", 1, -1, vbTextCompare)
...
Рейтинг: 0 / 0
26.03.2003, 11:44
| Ответить | Цитировать | Написать  
Все мучаюсь с DEFAULTValue
    #32127333
Pavel1789
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pavel1789
Гость
Спасибо!!!. Теперь все работает!!! Дело скорее всего было в одинарных кавычках???
...
Рейтинг: 0 / 0
26.03.2003, 14:33
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Все мучаюсь с DEFAULTValue
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?desktop=1&fid=45&tid=1682021]:
 0ms
get settings:
 11ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 76ms
get topic data:
 14ms
get forum data:
 4ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 253ms
total:  434ms
созд. / загр.: 434ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]