Control de Objetos.
Hola!..
¿Cómo puedo hacer que cuando compare un dato contra una consulta de una tabla, por medio de código, pueda controlar que si no encuentra el dato a comparar en la tabla, no truene, sino que mande un mensaje que yo pueda editar?..
O sea.. Tengo este código..
Private Sub tarjcred02_Enter()
Dim Result As Object
Dim Sql As String
Dim Dato
Sql = "SELECT bines, para FROM tcbines WHERE bines = '" & tarjcred01.Value & "';"
Set db = CurrentDb()
Set Result = db.openrecordset(Sql)
Dato = Result!para
Dim Style, Message, Answer, Title As String
Style = vbCritical
Message = "está en la lista....." + Dato + Dato
Title = "-- Verificación de Rechazos --"
Answer = MsgBox(Message, Style, Title)
Result.Close
db.Close
Set Result = Nothing
Set db = Nothing
End Sub
O sea.. Si el dato a buscar que esta registrado en tarjcred01 lo encuentra en la tabla de la que saca la consulta si lo saca bien.. Pero si no lo haya truena.. Creo que me dice que Result! Para no existe.
¿Cómo puedo controlar cuando no lo encuentre?..
MUCHAS GRACIAS de adelantado.. Y saludos a todos!
¿Cómo puedo hacer que cuando compare un dato contra una consulta de una tabla, por medio de código, pueda controlar que si no encuentra el dato a comparar en la tabla, no truene, sino que mande un mensaje que yo pueda editar?..
O sea.. Tengo este código..
Private Sub tarjcred02_Enter()
Dim Result As Object
Dim Sql As String
Dim Dato
Sql = "SELECT bines, para FROM tcbines WHERE bines = '" & tarjcred01.Value & "';"
Set db = CurrentDb()
Set Result = db.openrecordset(Sql)
Dato = Result!para
Dim Style, Message, Answer, Title As String
Style = vbCritical
Message = "está en la lista....." + Dato + Dato
Title = "-- Verificación de Rechazos --"
Answer = MsgBox(Message, Style, Title)
Result.Close
db.Close
Set Result = Nothing
Set db = Nothing
End Sub
O sea.. Si el dato a buscar que esta registrado en tarjcred01 lo encuentra en la tabla de la que saca la consulta si lo saca bien.. Pero si no lo haya truena.. Creo que me dice que Result! Para no existe.
¿Cómo puedo controlar cuando no lo encuentre?..
MUCHAS GRACIAS de adelantado.. Y saludos a todos!
Respuesta de ohmygood
1
Prueba con este
Dim Result As Object
Dim Sql As String
Dim Dato
Sql = "SELECT bines, para FROM tcbines WHERE bines = '" & tarjcred01.Value & "';"
Set db = CurrentDb()
Set Result = db.OpenRecordset(Sql)
If Result.EOF And Result.BOF Then
'no existe ese dato
MsgBox "NO SE HA ENCONTRADO."
Else
Dato = Result!para
Dim Style, Message, Answer, Title As String
Style = vbCritical
Message = "está en la lista....." + Dato + Dato
Title = "-- Verificación de Rechazos --"
Answer = MsgBox(Message, Style, Title)
end if
Result.Close
db.Close
Set Result = Nothing
Set db = Nothing
las unicas lineas que se han añadido son estas
If Result.EOF And Result.BOF Then
'no existe ese dato
MsgBox "NO SE HA ENCONTRADO."
Else
y al final el end if
Dim Result As Object
Dim Sql As String
Dim Dato
Sql = "SELECT bines, para FROM tcbines WHERE bines = '" & tarjcred01.Value & "';"
Set db = CurrentDb()
Set Result = db.OpenRecordset(Sql)
If Result.EOF And Result.BOF Then
'no existe ese dato
MsgBox "NO SE HA ENCONTRADO."
Else
Dato = Result!para
Dim Style, Message, Answer, Title As String
Style = vbCritical
Message = "está en la lista....." + Dato + Dato
Title = "-- Verificación de Rechazos --"
Answer = MsgBox(Message, Style, Title)
end if
Result.Close
db.Close
Set Result = Nothing
Set db = Nothing
las unicas lineas que se han añadido son estas
If Result.EOF And Result.BOF Then
'no existe ese dato
MsgBox "NO SE HA ENCONTRADO."
Else
y al final el end if
