Wie call Form_Load von einem Formular aus ein weiteres Formular in Access VBA

Ich habe eine MS Access-Formular zeigt die Liste der Datensätze im grid . Jede Zeile ist mit einer detail buttton.

Wenn darauf geklickt , es öffnet sich ein neues Formular mit details zum jeweiligen ausgewählten Zeile.

Beim klicken auf schließen Knopf-detail-form , die Werte gespeichert Datenbank.

Nun , beim klicken des schließen -, ich möchte ausführen Formular Laden des Hauptformulars . Dies ist, weil ich aktualisieren einige Werte nach update im detail-Formular

Ich habe versucht, einige Sache wie diese :

Call Forms!frm_Package!Form_Load

Bitte vorschlagen, wie Sie dies bewerkstelligen . Ich habe versucht, verschiedene Möglichkeiten, aber konnte es nicht geklappt.

Bitte lassen Sie mich wissen, wenn irgendwelche weiteren Informationen benötigt werden.

InformationsquelleAutor Sai Avinash | 2015-06-04
  1. 1

    Der Grund, warum Sie könnte nicht "re-call" die Last ist, weil es ein Private Sub und nur, wenn Sie innerhalb des Formulars können Sie den Zugriff auf die Methode.

    Einen Weg, um hack "externen Prozeduraufruf" verschieben Sie den code in das Form Load-in eine Public Sub (in den selben Formular) und dann den Aufruf der neu erstellten Sub von außerhalb der form. Wie,

    Private Sub Form_Load()
    MsgBox "Hello World"
End Sub

    ZU

    Private Sub Form_Load()
    newPubMethod
End Sub

Public Sub newPubMethod()
    MsgBox "Hello World"
End Sub

    Nun werden Sie in der Lage, um diese Public Sub newPubMethod auch von außerhalb der Form mit der rechten Quantoren. 

    Private Sub exitButtonName_Click()
    Forms("CallingFormName").newPubMethod
End Sub
    • Funktionierte perfekt für mich . danke ..angenommen deine Antwort
    • Du bist herzlich willkommen. Vielen Dank und viel Glück 🙂
    InformationsquelleAutor PaulFrancis
  2. 0

    Ich diesen code verwenden, um diese Art von Dingen. Ich Verstecke das Hauptformular, wenn ich öffnen Sie ein popup-Formular ... ich mache meine Arbeit und dann bin ich wieder zurück in das Haupt-Formular.

    Private Sub Form_Open(Cancel As Integer)
If gIsLoaded("mainForm") Then Form_mainForm.Visible = False
End Sub

Private Sub Form_Close()
' -- here you will put the code you need!!!
If gIsLoaded("mainForm") Then Form_mainForm.Visible = True
End Sub

Function gIsLoaded(strName As String, Optional _
                                      lngtype As AcObjectType = acForm) As Boolean
    gIsLoaded = (SysCmd(acSysCmdGetObjectState, _
                        lngtype, strName) <> 0)

End Function
    InformationsquelleAutor John
Schreibe einen Kommentar