Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Проверка ...

Тема: Проверка в базе по введенному значению

15.06.2007 21:01:56

LionN

7 сообщения

Тема: Проверка в базе по введенному значению

Господа,
подскажите, как проверить значение поля (в свойстве AfterUpdate), есть ли
такое строковое значение в таблице или нет, притом, если уже есть -- вывести
сообщение, если нет, просто сохранить запись?
Делаю вот так:

Private Sub Container_ID_AfterUpdate()
Dim rst As Recordset

Dim strNomer As String
strNomer = "[Container_ID] = ' " & Me.Container_ID & " ' "
Set rst = CurrentDb.OpenRecordset("tbl_data_check ", dbOpenDynaset)
rst.FindFirst strNomer
If rst.RecordCount <> 1 Then
MsgBox "Find records"
'.....
'
'
'
'
End If
rst.Close

End Sub

Не работает :-((
Что делаю не так

P.S. Общие вопросы по модулям
Автор: LionN от 31.01.2002 17:22:43 Источник ...

15.06.2007 21:01:56

All

4316 сообщения

RE: Проверка в базе по введенному значению

Во-первых, rst.RecordCount показывает колличество записей в запросе
Во-вторых, здесь, если rst не находит запись, то остается на первой позиции
В-третьих - зачем мучить recordset:

Dim str As String
str = Nz(DLookup("[Container_ID]", "tbl_data_check", "[Container_ID]='" & Me.Container_ID & "'"), "")
If Len(str) = 0 Then MsgBox "Нету"

P.S. Общие вопросы по модулям
Автор: Николай от 0:00:00 Источник ...

15.06.2007 21:01:56

LionN

7 сообщения

RE: Проверка в базе по введенному значению