Editato: Argomento staccato da altro analogo e reso autonomo (Admin) |
O si può fare senza una macro?
Grazie
Editato: Argomento staccato da altro analogo e reso autonomo (Admin) |
Codice: Seleziona tutto
SUB Update
DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
DIM oForm AS OBJECT
oDoc = thisComponent
oDrawpage = oDoc.drawpage
oForm = oDrawpage.forms.getByName("MainForm1")
oForm.reload()
oForm = oDrawpage.forms.getByName("MainForm2")
oForm.reload()
END SUB
Codice: Seleziona tutto
Sub RefreshForm (oEvent As Object) 'assign this macro to List Box > Events > Execute
oListBox = oEvent.Source.Model 'create an object model from List Box event
oListBox.commit() 'save the List Box selection to the host data-Form
oForm = oListBox.Parent 'get the host Form object from the List Box model object
oForm.UpdateRow() 'save the data-Form content to the current data-source record
oForm.Reload 'reload the Form to trigger SubForm refresh
End Sub
Codice: Seleziona tutto
OR "t_Filtro"."Anno" = YEAR("t_Proietto"."Data Nascita") ....
Codice: Seleziona tutto
SELECT * FROM "t_Proietto" WHERE ( "Anni" = :Var_ANN OR :Var_ANN IS NULL )
AND ( "Mesi" = :Var_MES OR :Var_MES IS NULL )
AND ( "Giorni" = :Var_GRN OR :Var_GRN IS NULL ) and
(( "Data Nascita" >= :Var_MIN) OR (:Var_MIN IS NULL)) and
(( "Data Nascita" <= :Var_MAG) OR (:Var_MAG IS NULL)) and
(( "Data Nascita" = :Var_ESA) OR (:Var_ESA IS NULL))
Codice: Seleziona tutto
and (( YEAR("Data Nascita") = :Var_ANNO) OR (:Var_ANNO IS NULL))