Access - Grabar en BD

   
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder