Saludos
amigo
Bueno con ado no te puedo dar la mano pero con el codigo antiguo o tradicional si hay te va :
Private Sub Salir()
Dim Mensaje, Estilo, Título, Ayuda, Ctxt, Respuesta, MiCadena
Mensaje = "¿Deseas salir" & " " & Login.Text1 & " del Sistema?"
Estilo = vbYesNo + 48 + vbDefaultButton2
Título = "Sistema de Administracion y Control (Sac)"
Ayuda = "DEMO.HLP"
Ctxt = 1000
Respuesta = MsgBox(Mensaje, Estilo, Título, Ayuda, Ctxt)
If Respuesta = vbYes Then
Unload Me
End
MiCadena = "Sí"
Else
MiCadena = "No"
Login.Show
End If
End Sub
Private Sub Form_Activate()
Text3.Text = date
'Combo1.SetFocus
Call LIMPIAR
'On Error Resume Next
'Do While Not Data1.Recordset.EOF
' Combo1.AddItem Data1.Recordset.Fields(1)
'Data1.Recordset.MoveNext
'Loop
End Sub
Private Sub LIMPIAR()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_Unload(Cancel As Integer)
'Men = MsgBox("Advertencia : Usted a Salido del Sistema", 0 + 64, "Sistema de Administraciòn y Control (Sac)")
'aqui es lo del registro
'On Error Resume Next
' acceso_sist.Recordset.AddNew
' acceso_sist.Recordset.Fields("cargo") = Combo1.Text
' acceso_sist.Recordset.Fields("usuario") = Text1
' acceso_sist.Recordset.Fields("password") = Text2
' acceso_sist.Recordset.Fields("dia_acceso") = Text3
' acceso_sist.Recordset.Fields("hora_acceso") = Label5.Caption
' acceso_sist.Recordset.Fields("hora_salida") = Label5.Caption
' acceso_sist.Recordset.Update
' acceso_sist.Refresh
'aqui finaliza
'Unload Me
'End
End Sub
Private Sub Cargo()
'Data1.Recordset.FindFirst "cargo = '" & Text1 & "'"
Label3.Visible = True
Text4.Visible = True
Text4 = Data1.Recordset.Fields("cargo")
End Sub
Private Sub Graba_Registro_Inicio()
'On Error Resume Next
acceso_sist.Recordset.AddNew
acceso_sist.Recordset.Fields("cargo") = Text4
acceso_sist.Recordset.Fields("usuario") = Text1
acceso_sist.Recordset.Fields("password") = Text2
acceso_sist.Recordset.Fields("dia_acceso") = Text3
acceso_sist.Recordset.Fields("hora_acceso") = Label5.Caption
' acceso_sist.Recordset.Fields("hora_salida") = Label5.Caption
acceso_sist.Recordset.Update
acceso_sist.Refresh
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
'On Error Resume Next
If KeyAscii = 13 Then
Conteo = Conteo + 1
'If Data1.Recordset.RecordCount > 0 Then
Data1.Recordset.MoveFirst
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
Data1.Recordset.FindFirst "usuario = '" & Text1 & "'"
If Data1.Recordset.NoMatch Then
Men = MsgBox("¿Usted Quiere Continuar", vbYesNo + 64, "Error de Usuario")
' Men = MsgBox("Este Programa se Cerrara", 48, "Error de Aplicacion....")
If Men = vbYes Then
Text1 = ""
Text1.SetFocus
If Conteo = 3 Then
Men = MsgBox("Lo sentimos pero Usted no Puede Ingresar", 0 + 48, "Error de Usuario....")
Unload Inicio
Unload Me
End
End If
Else
End
End If
Else
Call Cargo
Text2.SetFocus
End If
End If
End Sub
Private Sub text2_keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text2.Text = Data1.Recordset.Fields(3) Then
Call Graba_Registro_Inicio
'Unload Me
Login.Hide
Principal.Show
Else
Conteo = Conteo + 1
Men = MsgBox("¿Usted Quiere Continuar", vbYesNo + 64, "Error de Contraseña")
If Men = vbYes Then
Text2.Text = ""
Text2.SetFocus
If Conteo = 3 Then
Men = MsgBox("Lo sentimos pero Usted no Puede Ingresar", 0 + 48, "Error de Contraseña....")
Unload Inicio
Unload Me
End
End If
Else
If Men = "vbNo" Then
End
End If
End If
End If
End If
End Sub
Private Sub Timer1_Timer()
Label5.Caption = Format(Time, "hh:mm:ss Am/Pm")
End Sub
Este es un buen cogido completo para accesar al sistema, generandote 3 entradas si fallas en las 3 te bota del sistema y ademas queda guardado como reporte el acceso al mismo.
Muy simple y tradicional pero operativo y no genera erores de conexion ni de compilacion.
Espero haberte ayudado
alek.
