Hola, como hago para que los cambios realizados en la base se ven reflejados en la aplicacion??
ejemplo:
Private Sub cmdAgregar_Click()
x = MsgBox("agregar user??", vbYesNo + vbQuestion)
If x = vbYes Then
Data1.Recordset.AddNew
Data1.Recordset.Fields("user") = txtUser
Data1.Recordset.Fields("pass") = txtPass
Data1.Recordset.Fields("estado") = txtEstado
Data1.Recordset.Fields("model") = Combo1
Data1.Recordset.Update
MsgBox ("Agregado correactamente")
txtUser = ""
txtPass = ""
txtEstado = ""
txtModel = ""
Combo2.Clear
Combo1 = ""
Call Form_activate
End If
end sub
dentro de ese formulario, que es el de alta de usuarios, el nuevo user se ve dentro del combobox al darle el alta, pero si quiero usar ese user y pass, en la parte de validación, me da como que el user no existe.....
la validación se hace en otro formulario.
en realidad, son dos aplicaciones distintas, pero me hace lo mismo, si uno los form dentro de 1 solo proyecto.
el code de validación es este:
Private Sub cmdConsulta_Click()
bandera = ""
Data1.Recordset.MoveFirst
Do
If txtUser = Data1.Recordset.Fields("user") Then
txtPass = Data1.Recordset.Fields("pass")
txtEstado = Data1.Recordset.Fields("estado")
txtModel = Data1.Recordset.Fields("model")
bandera = "x"
End If
Data1.Recordset.MoveNext
Loop Until Data1.Recordset.EOF
If bandera = "" Then
txtUser = "No existe"
txtPass = "No existe"
txtEstado = "No existe"
txtModel = "No existe"
Exit Sub
End If
end sub
como puedo solucionarlo, o sea, que los users agregados, esten disponibles para la validación sin necesidad de cerrar la aplicacion y volver a abrir.
gracias
upsss, olvidé decir, que los users se ven en el combo2.
o sea, puedo llamarlos desde ahi, o sino completar los text a mano.
pero eso no es lo que importa... solo aclaro por el code subido.