Access - Consulta por fechas Correlativas

 
Vista:
sin imagen de perfil

Consulta por fechas Correlativas

Publicado por Anvient (11 intervenciones) el 19/03/2015 13:27:34
Buenos días, disculpen, pero necesito de su ayuda ¡¡¡Urgente!!!.... Estoy haciendo un proyecto en access 2010 y quisiera poder hacer consultar de mi registros por rango de fechas, como lo hago... Ademas quiero poderhacer una pista de auditoria de los registros eliminados ....

Sobre la pista de auditoria tengo este codigo que me dieron por aca mismo, el cual me funciona pero no se por que, no me da los datos del usuario que elimino el registro...


Option Compare Database

Private Sub Form_AfterUpdate()
Set rs = CreateObject("ADODB.RecordSet")
Set CON = Application.CurrentProject.Connection
C10 = ""
C10 = C10 & " INSERT INTO [cheque_respaldo] ( "
C10 = C10 & " [2CREA/MOD/BOR], "
C10 = C10 & " [2FECHA-MOD], "
C10 = C10 & " 2NUMTORIZADO, "
C10 = C10 & " 2NOMAUTORIZADO "
C10 = C10 & " )"
C10 = C10 & " SELECT "
C10 = C10 & " [cheque].*, "
C10 = C10 & " '" & "DEL" & "' AS Expr1, "
'C10 = C10 & " [cheque].*,'" & "DEL" & "' AS Expr1, "
C10 = C10 & " #" & Format(Now(), "MM/dd/yyyy hh:nn:ss") & "# AS Expr2,"
C10 = C10 & " " & Str(num) & " AS Expr3, "
C10 = C10 & " '" & NOM & "' AS Expr4"
C10 = C10 & " FROM [cheque]"
C10 = C10 & " WHERE ( [cheque].[cod]= " & Str(Me.[cod]) & " )"
consulta = C10

rs.Open consulta, CON
End Sub

Private Sub Form_Delete(Cancel As Integer)
Set rs = CreateObject("ADODB.RecordSet")
Set CON = Application.CurrentProject.Connection
C10 = ""
C10 = C10 & " INSERT INTO [cheque_respaldo] ( "
C10 = C10 & " [2CREA/MOD/BOR], "
C10 = C10 & " [2FECHA-MOD], "
C10 = C10 & " 2NUMTORIZADO, "
C10 = C10 & " 2NOMAUTORIZADO "
C10 = C10 & " )"
C10 = C10 & " SELECT "
C10 = C10 & " [cheque].*, "
C10 = C10 & " '" & "DEL" & "' AS Expr1, "
'C10 = C10 & " [cheque].*,'" & "DEL" & "' AS Expr1, "
C10 = C10 & " #" & Format(Now(), "MM/dd/yyyy hh:nn:ss") & "# AS Expr2,"
C10 = C10 & " " & Str(num) & " AS Expr3, "
C10 = C10 & " '" & NOM & "' AS Expr4"
C10 = C10 & " FROM [cheque]"
C10 = C10 & " WHERE ( [cheque].[cod]= " & Str(Me.[cod]) & " )"
consulta = C10

rs.Open consulta, CON
End Sub


Alguien que me ayude por favor...
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