Access - No me actualiza

   
Vista:

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