Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Значение по умолчанию / 25 сообщений из 28, страница 1 из 2
  1  все
10.04.2003, 17:04
    #32137818
SergeyParfenov
SergeyParfenov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Значение по умолчанию
Всем привет еще раз!

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

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

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

Что делать?

Заранее спасибо.[/b]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2003, 17:11
    #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:13
    #32137830
Sfagnum
Sfagnum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Значение по умолчанию
Но лучше используй DCount или DMax, и т.п. , если конечно запрос сохранён
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2003, 17:18
    #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:20
    #32137841
Sfagnum
Sfagnum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Значение по умолчанию
это DAO если надо ADO то не ко мне.
Запрос то сохранённый?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2003, 17:24
    #32137846
SergeyParfenov
SergeyParfenov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Значение по умолчанию
Да запрос сохранен.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2003, 17:28
    #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:32
    #32137857
Senin Viktor
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Значение по умолчанию
Да, еще ошибка: Не DefoultValue, а DefaultValue
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2003, 17:35
    #32137858
Sfagnum
Sfagnum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Значение по умолчанию
Ну уж за это извените, сроду безграмотным был, да и в курсе наверное о чём речь :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2003, 17:50
    #32137883
SergeyParfenov
SergeyParfenov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Значение по умолчанию
Я дико извиняюсь, но где есть что.

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

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

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

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

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

"Type Mismatch"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.04.2003, 10:13
    #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:15
    #32138204
Sfagnum
Sfagnum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Значение по умолчанию
Да говорят же юзай DMax или DMin гемора много меньше
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Значение по умолчанию / 25 сообщений из 28, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 442ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1681844]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 71ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 72ms
get tp. blocked users:
 1ms
others: 251ms
total:  442ms
x
x
Закрыть


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