Extraer Usuario
Publicado por socrates (129 intervenciones) el 13/09/2012 23:01:53
Estimados.
Necesito su ayuda, me podrian ayudar??
Dado el siguiente codigo:
Function GrabaDatos(Modo As String)
Dim RstControl As DAO.Recordset
'Modo=E
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
.MoveLast
.Edit
!HoraFechasalida = Now()
.Update
End With
End If
RstControl.Close
Set RstControl = Nothing
End Function
---Necesito estraer el usuario y la contraseña, para colocarlos en un formulario y así que me queden grabados en la BD.
Agradecimientos anticipados.
Necesito su ayuda, me podrian ayudar??
Dado el siguiente codigo:
Function GrabaDatos(Modo As String)
Dim RstControl As DAO.Recordset
'Modo=E
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
.MoveLast
.Edit
!HoraFechasalida = Now()
.Update
End With
End If
RstControl.Close
Set RstControl = Nothing
End Function
---Necesito estraer el usuario y la contraseña, para colocarlos en un formulario y así que me queden grabados en la BD.
Agradecimientos anticipados.
Valora esta pregunta
0