No me actualiza
Publicado por Sandra Verónica (203 intervenciones) el 16/11/2007 20:33:18
Hola a todos, necesito que se actualice una tabla y no lo logro. El código sería el siguiente
y lo que me pide es que introduzca el valor del parametro de FECHA1 y FECHA2.
Alguien podria ayudarme, Por Favor!!!!!!!!
Saludos
Sandra!
*************************************************************************
Private Sub Comando0_Click()
Dim rst As DAO.Recordset
Dim rst1 As DAO.Recordset
Dim rst2 As DAO.Recordset
Dim fso As New FileSystemObject
Dim f As File
Dim s As File
Dim SQL As String
Dim Fecha1 As Date
Dim Fecha2 As Date
Set rst = CurrentDb.OpenRecordset("SELECT Name, DateUpdate FROM MSysObjects WHERE Name='Deuda_Actualizada_Al'")
Set rst1 = CurrentDb.OpenRecordset("SELECT Name, DateUpdate FROM MSysObjects WHERE Name='Deuda_Sap'")
Set rst2 = CurrentDb.OpenRecordset("SELECT * FROM [Actualizaciones]")
Set f = fso.GetFile("S:\Deuda Diaria al DIA.xls")
Set s = fso.GetFile("S:\DeudaSap.xls")
Fecha1 = LEFT(f.DateLastModified,10)
Fecha2 = LEFT(s.DateLastModified,10)
SQL = "Update Actualizaciones " & _
"SET Actualizaciones.FechaAct = Date(), " & _
"FechaXlsMC = Fecha1, " & _
"FechaXLSSap = Fecha2"
DoCmd.SetWarnings False
DoCmd.RunSQL SQL
DoCmd.SetWarnings True
End Sub
y lo que me pide es que introduzca el valor del parametro de FECHA1 y FECHA2.
Alguien podria ayudarme, Por Favor!!!!!!!!
Saludos
Sandra!
*************************************************************************
Private Sub Comando0_Click()
Dim rst As DAO.Recordset
Dim rst1 As DAO.Recordset
Dim rst2 As DAO.Recordset
Dim fso As New FileSystemObject
Dim f As File
Dim s As File
Dim SQL As String
Dim Fecha1 As Date
Dim Fecha2 As Date
Set rst = CurrentDb.OpenRecordset("SELECT Name, DateUpdate FROM MSysObjects WHERE Name='Deuda_Actualizada_Al'")
Set rst1 = CurrentDb.OpenRecordset("SELECT Name, DateUpdate FROM MSysObjects WHERE Name='Deuda_Sap'")
Set rst2 = CurrentDb.OpenRecordset("SELECT * FROM [Actualizaciones]")
Set f = fso.GetFile("S:\Deuda Diaria al DIA.xls")
Set s = fso.GetFile("S:\DeudaSap.xls")
Fecha1 = LEFT(f.DateLastModified,10)
Fecha2 = LEFT(s.DateLastModified,10)
SQL = "Update Actualizaciones " & _
"SET Actualizaciones.FechaAct = Date(), " & _
"FechaXlsMC = Fecha1, " & _
"FechaXLSSap = Fecha2"
DoCmd.SetWarnings False
DoCmd.RunSQL SQL
DoCmd.SetWarnings True
End Sub
Valora esta pregunta
0