ник: час
Да спасибо!!!
Я допёр 
Я вот ищу продукт по штрихкоду в таблице, но когда продукта нет запись - не найдена говорят и ошибочка вылетает.
Как мне предупредить вываливание
Sub GetProducts()
Set rs = New ADODB.Recordset ' набор записей
Set con = New ADODB.Connection ' подключение
' Открывает подключение
strSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\VB-DB\NOMENKLATURA.mdb"
con.Open strSQL
' Открывает Recordset
rs.ActiveConnection = con ' = OpenRecordset("NOMENKLATURA_TBL")
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockPessimistic
rs.Open "SELECT NOMENKLATURA_TBL.* From NOMENKLATURA_TBL Where (((NOMENKLATURA_TBL.Штрихкод) = '" & Me!Текст1.Text & "')) WITH OWNERACCESS OPTION;"
'"NOMENKLATURA_TBL"
'rs.MoveFirst
If IsNull(rs!Наименование) = True Then
MsgBox "Товар не найден"
GoTo Exit_:
End If
If rs!Наименование = "" Then
MsgBox "Товар не найден"
GoTo Exit_:
End If
' Добавляет в список
Set mItem = usfODE.lsvODE.ListItems.Add()
mItem.Text = rs!Наименование
mItem.SubItems(1) = CCur(rs!Цена)
mItem.SubItems(2) = rs!Штрихкод
' Определяет, какой значок увязать с ListItem
mItem.SmallIcon = 2
'rs.MoveNext Получает следующую запись
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
Exit Sub
Exit_:
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
End Sub
|
Так не подходит
If rs!Наименование = "" Then
MsgBox "Товар не найден"
GoTo Exit_:
End If
|
Так не находит
If IsNull(rs!Наименование) = True Then
MsgBox "Товар не найден"
GoTo Exit_:
End If
|
Выкручиваюсь вот так
If rs.EOF = True Then
MsgBox "Товар не найден"
GoTo Exit_:
End If
|