como saber si una consulta en visual access tiene registros

10/09/2012 - 05:25 por osga.2002 | Informe spam
Buenas Noches a los integrantes de esta mesa de ayuda.

Reciban un cordial saludo, acudo a su ayuda para saber si una consulta que estoy haciendo en visual access me muestra error entonces quisiera saber si exite una manera de saber si la consulta no da registros, el siguiente es el codigo que tengo:

Private Sub btn_ing_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim userWindows As String

userWindows = Me.usserid
Set db = CurrentDb
SQL = "SELECT nom_usu, passw FROM adm_usu WHERE alias ='" & userWindows & "'"


Dim Cantidad As String
Cantidad.RecordSource = SQL



MsgBox ("Usuarios" & Cantidad)
Set rs = db.OpenRecordset(SQL)

If rs.Fields(0) Is Null Then
MsgBox ("Usuario No Existe")

Else

End If

Etiqueta100.Caption = rs.Fields(0)
Etiqueta101.Caption = rs.Fields(1)
End Sub

Les agradezco de antemano su ayuda.

Atentamente;

OSWALDO GAITAN ARAQUE
Bendiciones!!

Preguntas similare

Leer las respuestas

#1 José Mª Fueyo
10/09/2012 - 09:36 | Informe spam
Hola
Sí un recordset no tiene registros, las propiedades BOF y EOF son true.

Salu2
José Mª Fueyo
[MS MVP Access]
Respuesta Responder a este mensaje
#2 osga.2002
10/09/2012 - 23:10 | Informe spam
Buenas Tardes Jose:

Gracias por su repuesta pero me da error hice el siguiente codigo y no me funciono:

Private Sub btn_ing_Click()
Dim db As Database, r As Recordset
Dim sql As String, salida As String
Dim userWindows As String
userWindows = Me.usserid
Set db = CurrentDb
sql = "SELECT nom_usu, passw FROM adm_usu WHERE alias ='" & userWindows & "'"
Set r = db.OpenRecordset(sql)
r.MoveFirst
Do Until r.EOF
salida = salida & r("nom_usu") & "-"
r.MoveNext
Loop
r.Close
MsgBox salida

End Sub

El error es "Se ah producido el error '3061' en tiempo de ejecución: Pocos parametros. Se esperaba 1.

Gracias de antemano con la ayuda que me pueda brindar es que casi no se de visual en access.

Atentamente;

OSWALDO GAITAN ARAQUE
Bendiciones!!
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida