error en usuario y contraseña

[dorde]

Hola tengo el siguente script:


Private Sub cmdnuevo_Click()
Dim u(1 To 10) As String
Dim c(1 To 10) As String
Dim i, n As Integer
u(1) = "juancorrales"
u(2) = "jose juan"
u(3) = "manuel"
c(1) = "corrales"
c(2) = "jose"
c(3) = "meme"
For i = 1 To 10
u(i) = Val(txtusuario.Text)
For n = 1 To 10
c(n) = Val(txtcontraseña.Text)
If u(i) = "juan corrales" And c(n) = "corrales" Then
CLIENTES.Show
Else
MsgBox "Error de datos...", vbCritical, "Mensaje"
'Call CmdLimpiar_Click
Exit Sub
End If
Next n
Next i
End Sub

y cuando lo corro , me marca error... alguien puede decirme que estoy haciendo mal...

se los agradezco mucho......

[elbano66]

bueno pana yo lo hago de esta manera


Private Sub Command1_Click()
If Len(Trim(txtUsuario)) = 0 Then
txtUsuario.SetFocus
ElseIf Len(Trim(txtContraseña)) = 0 Then
txtContraseña.SetFocus
ElseIf txtUsuario = "jose" And txtContraseña = "movilnet01" Then
Form5.Show
ElseIf txtUsuario = "jose1" And txtContraseña = "movilnet02" Then
Form5.Show
Unload Me
Else
MsgBox "Usuario o clave incorrecta", vbCritical, "Advertencia"
txtContraseña.SelStart = 0
txtContraseña.SelLength = Len(Trim(txtContraseña))
txtContraseña.SetFocus
End If

End Sub

analizalo aver si te sirve hy solo tiene ingreso dos usuario puede colocar trez cuatro...

[c_keeper]

Código:

For i = 1 To 10
  u(i) = Val(txtusuario.Text)
  For n = 1 To 10
    c(n) = Val(txtcontraseña.Text)
    If u(i) = "juan corrales" And c(n) = "corrales" Then
       CLIENTES.Show
    Else
       MsgBox "Error de datos...", vbCritical, "Mensaje"
       'Call CmdLimpiar_Click
       Exit Sub
    End If
  Next n
Next i

Toda ésta parte no la veo bien >_<

Haces asignaciones sobreescribiendo los datos anteriormente guardados, pero además, pasas el contenido de las cajas de texto (que serán cadenas de caracteres) a valores númericos (función VAL), eso en principio te devolveria 0 en el caso de introducir uno de esos nombres.

Creo que debería ser algo así:

Código:

For i = 1 To 10
    If u(i) = txtusuario.Text And c(i) = txtcontraseña.Text Then
       CLIENTES.Show
    Else
       MsgBox "Error de datos...", vbCritical, "Mensaje"
       'Call CmdLimpiar_Click
       Exit Sub
    End If
Next i

Debes usar un sólo indice ya que la contraseña del usuario que está en la posición 1 del array U está en la misma posición del array C.

Espero no haberme confundido y haber sido de ayuda.
Saludos