He mandado esta consulta al grupo de Excel, pero más bien estimo que
es para plantearla en éste.
He detectado posteriormente que el problema está en la consulta de SQL
ya que aunque en Excel sí que es correcto el contenido de las
variables éstas no llegan a Access.
Un saludo y gracias por todo.
Compañeros estoy intentando ejecutar una consulta de datos anexados
utilizando DAO. Tras algunos problemas con el código que me daba
errores ahora ya no me da ningún error pero no se actualiza la base de
datos.
¿Podríais ayudarme para saber dónde está la errata?. Gracias por
todo.
Sub MANDAR_ENSAYO()
Dim dbActualizarEnsayos As DAO.Database
Dim qdfConsultaTemporal As DAO.QueryDef
Dim strConsulta As String
Dim i As Integer
Dim IdMúsico As String, Fecha_de_Ensayo As Date, Falta As Boolean,
NOrden As Integer
Dim UltimoMusico As Integer
Set dbActualizarEnsayos = OpenDatabase _
(ThisWorkbook.Path & "\ENSAYOS BANDA.mdb")
Set qdfConsultaTemporal = dbActualizarEnsayos.CreateQueryDef("")
'
UltimoMusico = ThisWorkbook.Sheets("Hoja4") _
.Cells(65536, 3).End(xlUp).Row
For i = 6 To UltimoMusico
NOrden = ThisWorkbook.Sheets("Hoja4").Cells(i, 3)
IdMúsico = ThisWorkbook.Sheets("Hoja4").Cells(i, 4)
Fecha_de_Ensayo = ThisWorkbook.Sheets("Hoja4").Cells(i, 5)
Falta = ThisWorkbook.Sheets("Hoja4").Cells(i, 6)
'
strConsulta = "INSERT INTO [FALTAS DE ASISTENCIA]" & _
" (NOrden, IdMúsico, [Fecha de Ensayo], Falta) " & _
"VALUES (" & NOrden & ", "" & IdMúsico & "", "" & Fecha_de_Ensayo
& "", "" & Falta & "");"
'
'MsgBox Path
With qdfConsultaTemporal
.Sql = strConsulta
.Execute
End With
Next i
End Sub
Leer las respuestas