bueno nadie lo pide ahora pero lo pudieran nesesitar a y pss mi primera portacion
'crea una base de datos en (mis documentos)con 2 tablas una usu y la otra con agregas un data evirrimont le pones de nombre ab
'los dos testbox k se pones kon la base de datos los pones en no visible y asi komparas sus valores kon los 2 textbox k tu pones y en el k usuario ingresas sus datos
Private Sub Command1_Click()
Dim a As Integer
For a = 1 To 6
If ax1.Text = txtUsuario.Text And ax1.Text <> "" Then 'condiciona primero el usuario despues el pass
If ax2.Text = txtContraseña.Text And ax2.Text <> "" Then
Form3.Show
Unload Me
End If
Else
ab.rsa1.MoveNext
ab.rsa2.MoveNext 'mueve si es falso en registro una vez solo son 6 registros o seguin el for pon los k kieras los registros en las tablas no los dejes vasios ponle lo k kieras
' lo de ab.rsa1.movenext y el otro son para k mueva los dos registro y no compare el mismo con el bucle
End If
Next
ab.rsa1.MoveFirst 'los mueeve al inicio para k
ab.rsa2.MoveFirst
Label1.Caption = "Contraseña Iconrrecta"
End Sub
'en el form 1 los 2 textbox con numeros son los de la base de datos con los k los compara la base de datos solo tiene ese registro
Private Sub Form_Load()
ab.rsa1.MoveFirst
ab.rsa2.MoveFirst
If txtContraseña.Text = "" Then
reg.Visible = True
Else
reg.Visible = False
End If
End Sub
Private Sub reg_Click()
Form2.Show' esto es mmm para el primer login que se introduzca en los 6 esta en blanco pero si contien un valor en el programa ya no aparece
form1.Hide
End Sub
la verdad k no esta muy bn explicado asi k pregunten y si saven diganme komo subir este proyecto para k lo bajen y entiendan mejor