
Option Compare Database
'------------------------------------------------------------
' xxx
'
'------------------------------------------------------------
Function bertoli()
On Error GoTo bertoli_Err
DoCmd.OpenReport "RACCOLTA RAPPORTINI", acViewPreview, "bertoli", "[Data]=[Forms]![bertoli]![nomecontrollo maschera]", acNormal
bertoli_Exit:
Exit Function
bertoli_Err:
MsgBox Error$
Resume bertoli_Exit
End Function
|
