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...
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
0