Ari
19 de Julio del 2004

Tengo un problema con el siguiente codigo, a ver si m podeis echar una mano, por favor:

***************************************************************************
Private Sub cmdEntrar_Click()

Dim bd As Database
Dim rsEmp As Recordset
Dim clave As String
Dim enc As Boolean
clave = "99999"
Set bd = OpenDataBase("C:...MiBaseDatos.mdb")
Set rsEmp = bd.OpenRecordSet("select codigo from empleados")
enc = False
While enc = False Or Not rsEmp.EOF
If rsEmp!codigo = "'& txtCod.Text &'" Then
enc = True
Else: rsEmp.Next
End If
Wend
If enc Then
frmEmpleado.Show
ElseIf "'& txtCod.Text &'" = clave Then
frmOpcion.Show
Else: MsgBox "C贸digo incorrecto", vbExclamation, "Mensaje"
End If

End Sub
************************************************************************

Me da un error de compilaci贸n : "no se ha definido el tipo definido por el usuario" en la declaraci贸n de la variable DataBase. Yo creo que me falta alguna librer铆a, estoy en lo cierto? cual?? como la consigo??? el resto esta bien???? Ayyyy!!! Una ayudita por favor!!
Muchas gracias de antemano...

Adrian
19 de Julio del 2004

hola ari:
tienes que acticar en proyecto => referencias Microsoft DAO 3.51 Object Library ...
y a tu consulta le falta un espacio antes del ampersan..
'" & txtCod.text & "' = "clave"

Saludos