Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];

Вниз

Access! rs.FindFirst. Ошибки!   Найти похожие ветки 

 
bartalby ©   (2004-12-15 22:52) [0]

Private Sub Поиск_Click()
On Error GoTo Err_Поиск_Click

Dim stDocName As String
Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("Подрядчик договора", dbOpenDynaset)
If rs.RecordCount = 0 Then
Exit Sub
End If
stDocName = InputBox("Введите номер договора")

rs.FindFirst (stDocName)//Ошибочный аргумент

If rs.NoMatch Then
 MsgBox ("Договор не найден")
Else
 DoCmd.OpenForm ("Подрядчик договора"), acNormal, acEdit
End If

Exit_Поиск_Click:
   Exit Sub

Err_Поиск_Click:
   MsgBox Err.Description
   Resume Exit_Поиск_Click
   
End Sub
Помогите исправить ошибки. Надо в таблице найти запись, в которой поле "Номер договора с подрядчиком" равно stDocName. Пробовал так - rs.FindFirst ("Номер договора с подрядчиком" = stDocName). Не работает. rs.NoMatch всегда true. Как открыть форму только для отобранной записи? Спасибо!


 
sniknik ©   (2004-12-15 23:03) [1]

FindFirst без аргументов, значение поиска задается фильтром (у тебя не выставлено вообще)



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.039 c
1-1104241599
snake_r
2004-12-28 16:46
2005.01.16
Свой хинт для каждого узла дерева


6-1096741145
Ezhik
2004-10-02 22:19
2005.01.16
Server and Client Socket


3-1102832824
able
2004-12-12 09:27
2005.01.16
Получение текущей записи в DBGrid e


6-1096999575
Ezhik
2004-10-05 22:06
2005.01.16
TClientSocket и TServerSocket


14-1103821095
Mike Kouzmine
2004-12-23 19:58
2005.01.16
Ура! Наших освободили!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский