winder1479 | |
| 2009-11-09 01:13 - Respuestas: 0 - Tema nº: 2634514
Windows XP Profesional pentium 3, memoria 256mb.
quiero consultar por nombre o numero y no se como hacerlo, es una consulta sencilla es como una busque directa como consultar un cliente ingresando es nombre. me gustaria q me ayudaran con eso gracias... como ejemplo tengo esto pero no me funciona:
Private Sub Command2_Click()
Dim db As Database
Dim rst As Recordset
Dim Buscar As Variant
Set db = OpenDatabase("C:\Documents and Settings\Administrador\Mis documentos\visual\BIBLIO.MDB")
Set rst = db.OpenRecordset("SELECT * FROM Authors")
Buscar = InputBox("Ingrese el Nro de factura a buscar.", "Buscando Informacion")
If Trim$(Buscar) = "" Or Buscar = 0 Then
If Buscar = cancelar Then
Exit Sub
Else
MsgBox ("No Existen Registros vacioas o Iguales a 0"), vbCritical, ("mensaje de Advertencia")
Exit Sub
End If
Else
With rst
.MoveFirst
While Not rst.EOF
If rst.Fields("Au_ID") = Buscar Then (creo q el problema esta aqui)
Form1.Show
Unload Me
Exit Sub
End If
.MoveNext
Wend
End With
End If
MsgBox ("Este registro No existe")
Form1.Show
End Sub
| |
|
|