I have migrated an embedded database from HSQLDB to Firebird.
In this database I used the DLookup function of Access2Base and with HSQLDB it worked correctly.
Now with Firebird I get an SQL error when I use the (Access2Base) DLookup function:
Code: Select all
Sub IPF_ActualizarDenominacionComponente ()
Dim sCodigo as string
Dim sDenominacion as string
sCodigo=getValue("Forms!InformePreserieFicha!codigo")
sDenominacion=Application.DLookup("[Denominacion]", "[piezas]","[Codigo]='" & scodigo & "'")
' [Application.]DLookup(expression, domain[, criteria][, orderclause]))
setValue("Forms!InformePreserieFicha!Componente.Value", sDenominacion)
End Sub
LibreOffice Version: 6.1.0.3 (x64)
Firebird embedded
Windows 10