Al intentar modificar una tabla me da error...
Código: Seleccionar todo
Sub AtendidosEntreFechas (Evento)
Dim BotonLabel As String
Dim oConsulta As Object
Dim sSQL As String
Dim oForm as Object
Dim Fecha_Inicio As String
Dim Fecha_Fin As String
Dim oStat As Object
Dim oRes As Object
oForm = Evento.Source.Model.Parent
Fecha_Inicio = oForm.ctFechaInicio.Text
Fecha_Fin = oForm.ctFechaFin.Text
'Comprobar formato fechas
If IsDate(Fecha_Inicio)=False OR IsDate(Fecha_Fin)=False OR Fecha_Inicio="" OR Fecha_Fin="" OR Format(Fecha_Inicio,"YYYY-MM-DD")>Format(Fecha_Fin,"YYYY-MM-DD") Then
msgbox ("Fecha de Inicio o Fin inválida")
Exit Sub
End If
' Damos valor NULL a fadesde en la tabla datosninos
sSQL = "UPDATE datosninos SET fadesde = NULL WHERE IDNINOS > 0"
oStat=ThisDatabaseDocument.CurrentController.ActiveConnection.CreateStatement()
oRes=oStat.executeUpdate(sSQL)
....................
Saludos y gracias por vuestar paciencia.