Hola,
Tengo un problema con un formulario de registro que estoy haciendo....
El formulario consta de unos cuantos cuadros de texto para que el cliente se registre (nombre, apellido, email, telefono, login, password, repeticion password).
Hay 2 botones, uno es para Registrarse y el otro (Salir) para volver al formulario principal (donde el cliente introduce su login y password y entra al sistema).
En el boton Registrar tengo que hacer lo siguiente:
1) Ir comprobando que no dejo ningun cuadro de texto vacio. (Hecho)
2) Las password las tengo que comprobar de que son iguales (lo tengo hecho y funciona)
3) Tengo que hacer que el login introducido por el nuevo cliente, el sistema vaya a la tabla que contiene todos los clientes, recorra todos los que haya, y si coincide con alguno, dará un mensaje de que "ya existe login y que pruebe con otro" despues borrara el login, la password y la repeticion de la password que el nuevo cliente introdujo y pondra el foco en el login.
El paso numero 3, no tengo muy claro como hacerlo, y me gustaría que ustedes me ayudasen.
Yo en principio que creado una funcion como esta:
Function login(login As String) As Integer
Dim log As Recordset
Set log = New ADODB.Recordset
log.ActiveConnection = CurrentProject.Connection
log.Open "Usuarios", , adOpenKeyset, adLockOptimistic
log.MoveFirst
Do While log.EOF = False
If log.Fields(0) = login Then
log = log.Fields(5)
End If
log.MoveNext
Loop
End Function
Luego en las comprobaciones de los cuadros de texto donde el cliente introduce sus datos, en el ultimo ElseIf he puesto lo siguiente:
ElseIf login > 0 Then
MsgBox "El usuario que has introducido ya existe. Prueba con otro"
TxtLogin.Value = ""
TxtPassword.Value = ""
TxtRepPassword.Value = ""
TxtLogin.SetFocus
Supongo que lo que he hecho estara en su mayoria mal, ya que me da error....
Me podrían decir que puedo hacer para realizar el paso numero 3 (el de comprobar en la tabla si el login introducido existe)?
Muchas gracias y os agradezco vuestro tiempo dedicado en ayudarme en esto.
