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
Code: Select all
SQL=SELECT TOP1 'Denominacion' AS 'TEMP48341' FROM 'piezas' WHERE 'Codigo'='K57M411200'
Database type: MySQL (JDBC) 5.7.11 x86
Database Engine: MyISAM
Server: 5.7.11 - MySQL Community Server (GPL)
LibreOffice: 5.1.4.2