Enrique Por Favor me ayudas
Publicado por Sandra Verónica (203 intervenciones) el 20/11/2007 14:40:25
Hola Enrique, perdon por molestar pero necesitaria tu ayuda.
Tengo este código con el cual quiero almacenar tres fechas en una tabla que se llama ACTUALIZACIONES, PERO la unica que me almacena es Actualizaciones.FechaAct para las otras dos me pide que ingrese el valor del parametro.
Porque es?
Saludos
Sandra!
*******************************************************************************
Private Sub Comando0_Click()
Dim rst As DAO.Recordset
Dim fso As New FileSystemObject
Dim f As File
Dim s As File
Dim SQL As String
Dim Fecha1 As String
Dim Fecha2 As String
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(), " & _
"Actualizaciones.FechaXlsMC = Fecha1, " & _
"Actualizaciones.FechaXLSSap = Fecha2"
DoCmd.SetWarnings False
DoCmd.RunSQL SQL
DoCmd.SetWarnings True
End Sub
Tengo este código con el cual quiero almacenar tres fechas en una tabla que se llama ACTUALIZACIONES, PERO la unica que me almacena es Actualizaciones.FechaAct para las otras dos me pide que ingrese el valor del parametro.
Porque es?
Saludos
Sandra!
*******************************************************************************
Private Sub Comando0_Click()
Dim rst As DAO.Recordset
Dim fso As New FileSystemObject
Dim f As File
Dim s As File
Dim SQL As String
Dim Fecha1 As String
Dim Fecha2 As String
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(), " & _
"Actualizaciones.FechaXlsMC = Fecha1, " & _
"Actualizaciones.FechaXLSSap = Fecha2"
DoCmd.SetWarnings False
DoCmd.RunSQL SQL
DoCmd.SetWarnings True
End Sub
Valora esta pregunta
0