Grabar en BD
Publicado por Socrates (10 intervenciones) el 18/11/2011 21:58:19
Estimados:
Será que me pueden ayudar a corregir. necesito grabar los datos del usuarios en una BD el problema es que consigo que lo haga solamente en el primer registro y luego los demás en blanco.
Gracias de antemano por su acostumbrada ayuda a los que menos sabemos.
Function GrabaDatosEntradaSalidad(Modo As String)
Dim RstControl As DAO.Recordset
'Modo=E es la entrada en la aplicacion
Set RstControl = CurrentDb.OpenRecordset("SELECT * FROM RequisicionesFacturas")
If Modo = "E" Then
With RstControl
.AddNew
!Usuario = Forms("Clave").TxtUsuario.Value
!Contrasena = Forms("Clave").TxtClave.Value
!Maquina = DameNombrePc
!UsuarioMaquina = DameNombreUsuarioMaquina
!HoraFechaEntrada = Now()
.Update
End With
Else
With RstControl
'Salida
.MoveLast
.Edit
!HoraFechasalida = Now()
.Update
End With
End If
RstControl.Close
Set RstControl = Nothing
End Function
Será que me pueden ayudar a corregir. necesito grabar los datos del usuarios en una BD el problema es que consigo que lo haga solamente en el primer registro y luego los demás en blanco.
Gracias de antemano por su acostumbrada ayuda a los que menos sabemos.
Function GrabaDatosEntradaSalidad(Modo As String)
Dim RstControl As DAO.Recordset
'Modo=E es la entrada en la aplicacion
Set RstControl = CurrentDb.OpenRecordset("SELECT * FROM RequisicionesFacturas")
If Modo = "E" Then
With RstControl
.AddNew
!Usuario = Forms("Clave").TxtUsuario.Value
!Contrasena = Forms("Clave").TxtClave.Value
!Maquina = DameNombrePc
!UsuarioMaquina = DameNombreUsuarioMaquina
!HoraFechaEntrada = Now()
.Update
End With
Else
With RstControl
'Salida
.MoveLast
.Edit
!HoraFechasalida = Now()
.Update
End With
End If
RstControl.Close
Set RstControl = Nothing
End Function
Valora esta pregunta
0