Hallo,
ich habe ein echtes Anfängerproblem mit Access VBA!
Ich habe zwei geöffnete Formulare. Das eine ist ein Suchformular für Kundendaten und heisst "frm_Kundensuche". Das Suchergebnis wird in einem Formular "frm_ErgebnisKundensuche" angezeigt. Aufgerufen wird "frm_ErgebnisKundensuche" durch Klicken der Schaltfläche "cmd_Suchen" im Formular "frm_Kundensuche".
Wenn nun das Formular "frm_ErgebnisKundensuche" angezeigt wird, soll das Suchformular "frm_Kundensuche" geschlossen werden, da es nicht mehr benötigt wird.
Folgende Varianten habe ich probiert und stehen als Sub-Routinen unter dem Formular "frm_Kundensuche":
(1)
Private Sub cmd_suchen_Click()
DoCmd.OpenForm "frm_ErgebnisKundensuche"
DoCmd.Close
End Sub
Führt dazu, dass "frm_ErgebnisKundensuche" wieder geschlossen wird.
(2)
Private Sub cmd_suchen_Click()
DoCmd.OpenForm "frm_ErgebnisKundensuche"
DoCmd.Close "frm_Kundensuche"
End Sub
Führt zum Laufzeitfehler '13' =Typen unverträglich
(3)
Private Sub cmd_suchen_Click()
DoCmd.OpenForm "frm_ErgebnisKundensuche"
Unload frm_Kundensuche
End Sub
Fürst zum Laufzeitfehler '424' = Objekt erforderlich
Ich bin mit meinem Latein am Ende. Wie lautet denn der richtige Syntax?
Gruß
Sascha
ich habe ein echtes Anfängerproblem mit Access VBA!
Ich habe zwei geöffnete Formulare. Das eine ist ein Suchformular für Kundendaten und heisst "frm_Kundensuche". Das Suchergebnis wird in einem Formular "frm_ErgebnisKundensuche" angezeigt. Aufgerufen wird "frm_ErgebnisKundensuche" durch Klicken der Schaltfläche "cmd_Suchen" im Formular "frm_Kundensuche".
Wenn nun das Formular "frm_ErgebnisKundensuche" angezeigt wird, soll das Suchformular "frm_Kundensuche" geschlossen werden, da es nicht mehr benötigt wird.
Folgende Varianten habe ich probiert und stehen als Sub-Routinen unter dem Formular "frm_Kundensuche":
(1)
Private Sub cmd_suchen_Click()
DoCmd.OpenForm "frm_ErgebnisKundensuche"
DoCmd.Close
End Sub
Führt dazu, dass "frm_ErgebnisKundensuche" wieder geschlossen wird.
(2)
Private Sub cmd_suchen_Click()
DoCmd.OpenForm "frm_ErgebnisKundensuche"
DoCmd.Close "frm_Kundensuche"
End Sub
Führt zum Laufzeitfehler '13' =Typen unverträglich
(3)
Private Sub cmd_suchen_Click()
DoCmd.OpenForm "frm_ErgebnisKundensuche"
Unload frm_Kundensuche
End Sub
Fürst zum Laufzeitfehler '424' = Objekt erforderlich
Ich bin mit meinem Latein am Ende. Wie lautet denn der richtige Syntax?
Gruß
Sascha