Access - ayuda con un error en mi código

   
Vista:

ayuda con un error en mi código

Publicado por luis silva (2 intervenciones) el 03/04/2013 21:07:27
amigos a ver si me pueden ayudar con este codigo es para enviar con un formulario y me sale error


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Private Sub cmdAceptar_Click()
Dim vUser As Variant
Dim vPass As Variant
vUser = Me.cboUser.Value
vPass = Me.txtPass.Value
If IsNull(vUser) Then
MsgBox "No ha seleccionado ningun usuario", vbInformation, "AVISO"
Me.cboUser.SetFocus
Exit Sub
End If
If IsNull(vPass) Then
MsgBox "No ha introducido ninguna contrseña", vbInformation, "AVISO"
Me.txPass.SetFocus
Exit Sub
End If
 
 
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("TPass", dbOpenSnapshot)
If  rst.RecordCount = 0 Then //aqui me da error
Msbox "No  existen usuarios ", vbinformatión, "Aviso"
GoTo salida
End If
rst.DMoverFist
Do until rst.EOF
Dim tUser,Tpass As String
tUser = rst.fields(0).value
t.pass = rst.Fields(1).Value
if tUser = vUser Then
If tPass = vPass Then
 
 DoCmd.CloseacForm, Me.name
DoCmd.OpenForm "FMenu"
Else
MsgBox "La contraseña introducida  no es correcta", vbInformation, "Incorrecto"
Me.txtPass.setFocus
Me.txtPass.Value = Null
GoTo Salisa
End If
End If
rst.MoveNext
Loop
 
Salida
rst,Close
Set rst = Nothing
end sub



me interesa me ayudes en la parte de arriba donde me señala error e
en realidad soy principiante
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de xve

ayuda con un error en mi código

Publicado por xve (114 intervenciones) el 03/04/2013 21:41:35
Hola Luis, nos puedes indicar exactamente que error te produce?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar