Foro de elhacker.net

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.

1. Usa el sistema GeSHI para colorear el código.
2. No sé como se realiza un sistema de validación si esta de por medio una base de datos en access, pero siempre lo hago realizando consultas SQL a la base de datos. Así:

Set RecordSet1 = dbBaseDatos.OpenRecordSet ("SELECT * FROM tblUsuarios WHERE (user = " & txtUser.Text & ") AND (pass = " & txtPass.Text & ")")

gracias, lo voy a tener en cuenta lo de GeSHI.

el problema no es la validación, ya que el code funciona bien para eso.
el problema viene si agrego algun user, y no cierro el programa.
hasta que no cierre y vuelva a abrir, no me registra el user como para validarlo...
gracias

Solucionado.

metiendo todo el code en un solo formulario (ya que usa 1 solo control data) lo solucioné....
ahora me queda la duda de como hacer que teniendo 2 controles data la app vea los cambios realizados en la tabla...