13/05/2002, 14:18
|
| | | Fecha de Ingreso: mayo-2002
Mensajes: 4
Antigüedad: 22 años, 10 meses Puntos: 0 | |
| Re: Sistema de user password con access
Hola
esto es lo que yo hago
Private Sub habilitar_Click()
Dim vcont, buscar
vcont = Text1.Text
With Rcontraseñas
vbuscar = "contraseñas ='" & vcont& "'"
.MoveFirst
.Find vbuscar
If .EOF = True Then
MsgBox "Clave invalida, intente de nuevo"
Text1.Text = ""
Text1.SetFocus
Else
Frmprincipal.Text2.enable = true
Unload contras
End If
End With
End Sub
espero te sirva de algo |