Buongiorno,
in un pulsante di una maschera access ho sul click sia un codice, Private sub Comando232_Click, che riporto sotto che un generatore di macro.
In un altro pulsante ho sempre un codice che apre, aggiorna e salva in un file excel delle query, Private sub Excel_Click, che riporto nel 2 step.
Per evitare ai miei colleghi troppi pulsanti volevo inserire il codice del 2 pulsante, Excel_Click, nel 1, Comando232_click.
Ho provato ma nada……suggerimenti?
Private Sub Comando232_Click()
On Error GoTo Err_Comando232_Click
Screen.PreviousControl.SetFocus
DoCmd.RunCommand acCmdFind
Exit_Comando232_Click:
Exit Sub
Err_Comando232_Click:
MsgBox Err.Description
Resume Exit_Comando232_Click
End Sub
Private Sub Excel_Click()
Dim oBook As Object
Dim oSheet As Object
On Error GoTo fine
DoCmd.OpenQuery "QueryRegistroDeiVoliamensile"
DoCmd.OpenQuery "QueryRegistroDeiVoliamensile3"
DoCmd.Close acQuery, "QueryRegistroDeiVoliamensile"
DoCmd.Close acQuery, "QueryRegistroDeiVoliamensile3"
'DoCmd.OutputTo acOutputQuery, "QueryRegistroDeiVoliamensile", acFormatXLSX, True
'DoCmd.OutputTo acOutputQuery, "QueryRegistroDeiVoliamensile3", acFormatXLSX, True
'DoCmd.OutputTo acOutputQuery, "QueryMezziAereiPerA1appartenenti", acFormatXLSX, True
DoCmd.OutputTo acOutputQuery, "QueryRegistroDeiVoliamensile", "Microsoft Excel (*.xlsx)", file_excel, False
DoCmd.OutputTo acOutputQuery, "QueryRegistroDeiVoliamensile3", "Microsoft Excel (*.xlsx)", file_excel, False
oBook.Close
oSheet.Close
fine:
If Err.Number = 2051 Then
Exit Sub
End If
MsgBox "Esportazione in Excel terminata con successo!"
End Sub