Estoy migrando (manualmente claro esta) una base de datos de MSAcces a LibreOffice Base y
Tengo una funcion para leer buscar un registro determinado en una tabla y me saca el error:
Error #1523 (Error SQL, instrución SQL = ‘SELECT * FROM _MensajesCuadros WHERE (Secuencia = 3);’) ocurrido en una llamada a la función ‘Database.OpenRecordset’
La verdad NO entiendo que significa este error y desde luego como corregisrlo menos!.
Esta es la funcion (la tabla es muy sencilla: 3 columnas: secuencia (Indice), MTitulo y MTexto
Function cgULeeTextoMensaje(optional seq As Long, titulo, mensaje)
'lee tabla _Mensajes de 3 columnas: Secuencia, Mtitulo, Mtexto
Dim omiTabla As Object
Dim omiBD As Object
Dim miSQL As String
On Error goTo Err_Sub
if isMissing(seq) then seq = 3
Set omiBD = Application.CurrentDb()
miSQL = "SELECT * FROM _MensajesCuadros WHERE (Secuencia = “ & seq & “);”
Set omiTabla = omiBD.OpenRecordset(miSQL)
If omiTabla.RecordCount > 0 Then
omiTabla.MoveFirst
titulo = "(" & seq & ") " & omiTabla.MTitulo()
mensaje = omiTabla.MTexto()
msgbox titulo & chr(13) & mensaje
else
titulo = ""
mensaje = "(" & seq & ")" & " Sin mensaje"
msgbox titulo & chr(13) & mensaje
End If
Exit_Sub:
omiTabla.Close
Set omiBD = Nothing
exit function
Err_Sub:
MsgBox Err & Chr(13) & Error
Resume Exit_Sub
End Function