C
carlo.lombardo
Voglio fare in modo che premendo un tasto in una maschera cambi vista
da Tabella a Maschera e viceversa in un asottomaschera della maschera
stessa.
Non so se mi sono spiegato, ho una maschera (form) e una sottomaschera
(subform) all'interno della form. Vorrei creare un pulsante sulla form
per cambiare vista (da tabella a maschera e viceversa) alla subform.
Per adesso ho trovato due metodi che non funzionano:
Metodo 1
Private Sub Visualizza_destinatari_Click()
If Me.Sottomaschera_Destinatari.Form.CurrentView = acCurViewFormBrowse
Then
Me.Sottomaschera_Destinatari.Form.CurrentView = acCurViewDatasheet
Me.Visualizza_destinatari.Caption = "Visualizza destinatari come
maschera"
Else
Me.Sottomaschera_Destinatari.Form.CurrentView = acCurViewFormBrowse
Me.Visualizza_destinatari.Caption = "Visualizza destinatari come
tabella"
End If
End Sub
Metodo 2 - copiato da
http://groups.google.com/group/micr...scoding/browse_thread/thread/6a3bcbe6863aced5
If Me.CurrentView = acCurViewFormBrowse Then
DoCmd.RunCommand acCmdDatasheetView
Else
DoCmd.RunCommand acCmdViewFormView
End If
Grazie per l'aiuto
da Tabella a Maschera e viceversa in un asottomaschera della maschera
stessa.
Non so se mi sono spiegato, ho una maschera (form) e una sottomaschera
(subform) all'interno della form. Vorrei creare un pulsante sulla form
per cambiare vista (da tabella a maschera e viceversa) alla subform.
Per adesso ho trovato due metodi che non funzionano:
Metodo 1
Private Sub Visualizza_destinatari_Click()
If Me.Sottomaschera_Destinatari.Form.CurrentView = acCurViewFormBrowse
Then
Me.Sottomaschera_Destinatari.Form.CurrentView = acCurViewDatasheet
Me.Visualizza_destinatari.Caption = "Visualizza destinatari come
maschera"
Else
Me.Sottomaschera_Destinatari.Form.CurrentView = acCurViewFormBrowse
Me.Visualizza_destinatari.Caption = "Visualizza destinatari come
tabella"
End If
End Sub
Metodo 2 - copiato da
http://groups.google.com/group/micr...scoding/browse_thread/thread/6a3bcbe6863aced5
If Me.CurrentView = acCurViewFormBrowse Then
DoCmd.RunCommand acCmdDatasheetView
Else
DoCmd.RunCommand acCmdViewFormView
End If
Grazie per l'aiuto