ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Значение по умолчанию
25 сообщений из 28, страница 1 из 2
  1  все
Значение по умолчанию
    #32137818
SergeyParfenov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeyParfenov
Гость
Всем привет еще раз!

Устал бороться.

В поле, по умолчанию, надо вставить либо значение из таблици, либо результат запроса по условию, а как вот это вопрос.

Если вписываешь Date(), например, все здорово или "Вася", тоже катит.

Что делать?

Заранее спасибо.[/b]
...
Рейтинг: 0 / 0
10.04.2003, 17:04
| Ответить | Цитировать | Написать  
Значение по умолчанию
    #32137827
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
на Load формы поставь что то в этом роде
Код: plaintext
1.
2.
3.
4.
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset(strSQL)
  If Not (rst.EOF And rst.BOF) Then [ТвойКонтрол].DefoultValue = rst.Fields(FieldName)
  rst.Close
Set rst = Nothing
...
Рейтинг: 0 / 0
10.04.2003, 17:11
| Ответить | Цитировать | Написать  
Значение по умолчанию
    #32137830
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
Но лучше используй DCount или DMax, и т.п. , если конечно запрос сохранён
...
Рейтинг: 0 / 0
10.04.2003, 17:13
| Ответить | Цитировать | Написать  
Значение по умолчанию
    #32137837
SergeyParfenov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeyParfenov
Гость
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset(strSQL)
If Not (rst.EOF And rst.BOF) Then [Поле74].DefoultValue = rst.Fields(FieldName)
rst.Close
Set rst = Nothing

Ответ: Method or datemember not found
...
Рейтинг: 0 / 0
10.04.2003, 17:18
| Ответить | Цитировать | Написать  
Значение по умолчанию
    #32137838
SergeyParfenov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeyParfenov
Гость
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset(strSQL)
If Not (rst.EOF And rst.BOF) Then [Поле74].DefoultValue = rst.Fields(FieldName)
rst.Close
Set rst = Nothing

Ответ: Method or datamember not found
...
Рейтинг: 0 / 0
10.04.2003, 17:18
| Ответить | Цитировать | Написать  
Значение по умолчанию
    #32137841
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
это DAO если надо ADO то не ко мне.
Запрос то сохранённый?
...
Рейтинг: 0 / 0
10.04.2003, 17:20
| Ответить | Цитировать | Написать  
Значение по умолчанию
    #32137846
SergeyParfenov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeyParfenov
Гость
Да запрос сохранен.
...
Рейтинг: 0 / 0
10.04.2003, 17:24
| Ответить | Цитировать | Написать  
Значение по умолчанию
    #32137851
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
Для ADO:

Dim rst As Adodb.Recordset
set rst=new adodb.recordset

rst.open strSQL, CurrentProject.Connection

If Not (rst.EOF And rst.BOF) Then
[Поле74].DefoultValue = rst.Fields("ИмяПоля").Value
else
' [Поле74].DefoultValue=vbNullString ' очистим от старого вефаулта
end if

rst.Close
Set rst = Nothing
...
Рейтинг: 0 / 0
10.04.2003, 17:28
| Ответить | Цитировать | Написать  
Значение по умолчанию
    #32137852
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
Тогда оптимально использывать DMax or DMin на твой выбор к тому же они гарантирую уникальность значение вернее то что оно будет как максимум одно как применять RTFM да и чуть раньше я объяснял
...
Рейтинг: 0 / 0
10.04.2003, 17:28
| Ответить | Цитировать | Написать  
Значение по умолчанию
    #32137857
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
Да, еще ошибка: Не DefoultValue, а DefaultValue
...
Рейтинг: 0 / 0
10.04.2003, 17:32
| Ответить | Цитировать | Написать  
Значение по умолчанию
    #32137858
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
Ну уж за это извените, сроду безграмотным был, да и в курсе наверное о чём речь :)
...
Рейтинг: 0 / 0
10.04.2003, 17:35
| Ответить | Цитировать | Написать  
Значение по умолчанию
    #32137883
SergeyParfenov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeyParfenov
Гость
Я дико извиняюсь, но где есть что.

Где имя запроса писать и почему выступает 2 поля а не одно.
...
Рейтинг: 0 / 0
10.04.2003, 17:50
| Ответить | Цитировать | Написать  
Значение по умолчанию
    #32137898
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
SergeyParfenov писал:Где имя запроса писать и почему выступает 2 поля а не одно.

Вы про что конкретно?
...
Рейтинг: 0 / 0
10.04.2003, 18:00
| Ответить | Цитировать | Написать  
Значение по умолчанию
    #32137909
SergeyParfenov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeyParfenov
Гость
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset(strSQL)
If Not (rst.EOF And rst.BOF) Then [ТвойКонтрол].DefoultValue = rst.Fields(FieldName)
rst.Close
Set rst = Nothing

В этом коде
strSQL
FieldName
...
Рейтинг: 0 / 0
10.04.2003, 18:08
| Ответить | Цитировать | Написать  
Значение по умолчанию
    #32137918
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
strSQL - SQL-запрос, но не имя а само тело
FieldName - имя поля из запроса

Да забей ты на это если у тебя сохранёный запрос иди по второму варианту меньше вероятность натолкнуться на глюк
...
Рейтинг: 0 / 0
10.04.2003, 18:15
| Ответить | Цитировать | Написать  
Значение по умолчанию
    #32137925
SergeyParfenov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeyParfenov
Гость
Хорошо, а во втором варианте strSQL тоже тело запроса или имя.
...
Рейтинг: 0 / 0
10.04.2003, 18:18
| Ответить | Цитировать | Написать  
Значение по умолчанию
    #32137935
SergeyParfenov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeyParfenov
Гость
Dim rst As Recordset

Set rst = CurrentDb.OpenRecordset("SELECT zzz.xxx FROM zzz WHERE (((zzz.ccc)=Date()))")
If Not (rst.EOF And rst.BOF) Then [aaa].DefaultValue = rst.Fields(xxx)
rst.Close
Set rst = Nothing

Все равно ругается на Type Mismatch
...
Рейтинг: 0 / 0
10.04.2003, 18:25
| Ответить | Цитировать | Написать  
Значение по умолчанию
    #32137941
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
В котором месте?
...
Рейтинг: 0 / 0
10.04.2003, 18:29
| Ответить | Цитировать | Написать  
Значение по умолчанию
    #32137944
SergeyParfenov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeyParfenov
Гость
Set rst = CurrentDb.OpenRecordset("SELECT zzz.xxx FROM zzz WHERE (((zzz.ccc)=Date()))")
...
Рейтинг: 0 / 0
10.04.2003, 18:31
| Ответить | Цитировать | Написать  
Значение по умолчанию
    #32137951
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
Set rst = CurrentDb.OpenRecordset("SELECT zzz.xxx FROM zzz WHERE (((zzz.ccc)=" & Format(Date(),"нужный формат") & "))")
ну и вообще посмотри как даты вставляються в выражение я на вскидку не помню, да и до сих пор не понял с DAO работаешь или ADO
...
Рейтинг: 0 / 0
10.04.2003, 18:35
| Ответить | Цитировать | Написать  
Значение по умолчанию
    #32137961
SergeyParfenov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeyParfenov
Гость
Если честно, то не знаю. Надо про это доп. почитать. Просто работаю и все.
Если бы знал, наверное проще бы было.
А в 2-х славах можешь объяснить?
...
Рейтинг: 0 / 0
10.04.2003, 18:42
| Ответить | Цитировать | Написать  
Значение по умолчанию
    #32137966
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
в REference посмотри что выше то и работает
...
Рейтинг: 0 / 0
10.04.2003, 18:45
| Ответить | Цитировать | Написать  
Значение по умолчанию
    #32138176
SergeyParfenov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeyParfenov
Гость
Помогите плз.

Ругается и ругается

Set rst = CurrentDb.OpenRecordset("SELECT sss.неделя FROM sss")

"Type Mismatch"
...
Рейтинг: 0 / 0
11.04.2003, 09:52
| Ответить | Цитировать | Написать  
Значение по умолчанию
    #32138198
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
2 SergeyParfenov

Исправь ссылку с ADO на DAO или воспользуйся моим примером для ADO/

У тебя бардак в Reference. Выставь ссылки на то с чем рабоатешь (DAO или ADO)/ Если рабоатешь и с тем и с другим, то пиши в DIM явно Dim rst As DAO.Recordset Или Dim rst As ADODB.Recordset
...
Рейтинг: 0 / 0
11.04.2003, 10:13
| Ответить | Цитировать | Написать  
Значение по умолчанию
    #32138204
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
Да говорят же юзай DMax или DMin гемора много меньше
...
Рейтинг: 0 / 0
11.04.2003, 10:15
| Ответить | Цитировать | Написать  
25 сообщений из 28, страница 1 из 2
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Значение по умолчанию
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32137851&tid=1681844]:
 0ms
get settings:
 8ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 27ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 241ms
total:  334ms
созд. / загр.: 334ms
x
x
Закрыть


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