[gelöst] Access save und exit mit vba

[froemken]

Hallo zusammen,

ich habe ein Formulat (FRM_Komponenten) mit einem Unterformular (UF_FRM_Ticket) damit ich auf einem Blick sehen kann, was ich wann an welchem PC gemacht habe.

Mit einem Button öffnet sich ein neues Formular, in dem ich dann ein neues Ticket erstellen kann. Dieses Formular enthält momentan 2 Buttons. Einen reinen "Speichern"-Button, den ich mit dem Assistenten erstellt habe und einen zweiten, den ich mit VBA programmiert habe:

Private Sub cmdExit_Click()
    DoCmd.Save acForm, "FRM_Ticket"
    Forms!FRM_Komponenten!UF_FRM_Ticket.Requery
    DoCmd.Close acForm, "FRM_Ticket", acSavePrompt
End Sub

Klicke ich NUR auf meinen VBA-Button, wird der Datensatz zwar gespeichert und das Formular geschlossen, aber mein neues Ticket ist im UF_FRM_Ticket nicht zu sehen. Ich muss erst einen Datensatz nach vorn und wieder zurückblättern, damit ich das Ticket sehe.

Klicke ich allerdings erst auf den Macro-Button und dann auf meinen VBA-Button, dann erscheint auch sofort das Ticket im UF.

Jemand eine Idee, wie ich meinen VBA-Button umprogrammieren muss, damit ich diesen Macro-Save-Button wegschmeißen kann?

Stefan

 

[Mike]

Laut dem Titel von deinem Thread hier suchst du nach "Save und Exit"

das wäre der Befehl

DoCmd.Quit acQuitSaveAll

Falls du aber nur die Aktualisierung des UF meinst, dann reicht normalerweise der Befehl

Forms!FORMULARNAME.Unterformularnahme.REFRESH

kann sein, dass

Forms!FORMULARNAME.REFRESH

bereits ausreicht, je nachdem wo du nach dem Klick auf den Button dich befindest.

mfg

PS: Sollte ich dich komplett falsch verstanden haben, schlag mich

 

[AlienJoker]

...schlag mich

Darf ich das übernehmen?

BTW: Die Lösung klingt gut

 

[froemken]

...und hört sich auch suppi an, aber dann kommt der böse Debugger und schlägt zu, weil er "refresh" nicht kennt.

Meine erste logische Reihenfolge war:
Ticket-Formular speichern
Ticket-Formular schließen
Komponentenformular mit diesem Ticket-UF reloaden/refreshen/requiren wie auch immer, hauptsache die Daten, die ich grad im Ticket-FRM eingetragen habe, erscheinen nun auch im Komponenten-FRM bzw. in diesem Ticket-UF.

Allerdings führt er den Refresh dann nicht mehr aus, weil das Formular ja bereits geschlossen ist (Ticketformular schließen). Deshalb muss der Refresh noch VOR dem Schließen ausgeführt werden.

PS: Warum zeigt mit der VBA-Editor nicht die Möglichkeiten nach dem Punkt an, wenn die Zeile mit "Forms!" anfängt?!?!

Stefan

 

[Mike]

...und hört sich auch suppi an, aber dann kommt der böse Debugger und schlägt zu, weil er "refresh" nicht kennt.

oje - mein fehler .... das ist ja office 2007 bei dir. Moment mal nachsehen am anderen Rechner, was der sagt.
Meine og. VBA-Befehle sind ja von Office 2003

 

[gman24]

...und hört sich auch suppi an, aber dann kommt der böse Debugger und schlägt zu, weil er "refresh" nicht kennt.

refresh kenn ich auch net von access, aber du solltest erfolg haben, wenn du als befehl eingibst frm.blabla.requery

 

[Mike]

refresh ist Datensatzaktualisierung in VBA bis Office 2003.
Hab jetzt nachgesehen

Bei Access 2007 sollte der Befehl repaintobjekt vorhanden sein bzw. repaint

Such einfach in der VBA-Hilfe von Access07 nach repaint für die genaue Schreibweise von dem Befehl

cu

 

[froemken]

Momentan schauts jetzt so aus:

Private Sub cmdExit_Click()
    DoCmd.Save acForm, "FRM_Ticket"
    Forms("FRM_Komponenten").Form.Repaint
    Forms("FRM_Komponenten").UF_FRM_Ticket.Form.Requery
    DoCmd.Close acForm, "FRM_Ticket", acSavePrompt
End Sub

Klappt solange schon Datensätze vorhanden sind. Ist allerdings noch KEIN Ticket vorhanden und ich lege das erste Ticket an, dann zeigt er nix an.

Ganz verstehen tu ich das nicht?!?!

Ihr etwa?

Stefan

 

[Mike]

Ist allerdings noch KEIN Ticket vorhanden, dann zeigt er auch nix an.

?? ist logisch oder, wo nix is, kann nix angezeigt werden

hast du repaint und repaintobject schon versucht?

 

[froemken]

?? ist logisch oder, wo nix is, kann nix angezeigt werden

hast du repaint und repaintobject schon versucht?

Man bist du schnell!!!

Ich hat grad meinen Beitrag geändert, weil genau diese Stelle irgendwie "confused" war. Schau mal auf die Uhrzeit meiner Änderung und deiner Antwort. Beide: 12:35.

Wie du siehst habe ich repaint sogar benutzt. repaintobject kann er allerdings nicht finden.

Stefan

 

[Mike]

Du hast nur auf dem Form REPAINT angewendet und unterhalb requery.

Mach unten auch mal repaint!

 

[froemken]

Objekt unterstützt diese Eigenschaft oder Methode nicht, wenn ich folgendes eingebe:

Private Sub cmdExit_Click()
    DoCmd.Save acForm, "FRM_Ticket"
    Forms("FRM_Komponenten").Repaint
    Forms("FRM_Komponenten").UF_FRM_Ticket.Repaint
    DoCmd.Close acForm, "FRM_Ticket", acSavePrompt
End Sub

Nur bei dieser Möglichkeit meckert er nicht:

Private Sub cmdExit_Click()
    DoCmd.Save acForm, "FRM_Ticket"
    Forms("FRM_Komponenten").Form.Repaint
    Forms("FRM_Komponenten").UF_FRM_Ticket.Form.Repaint
    DoCmd.Close acForm, "FRM_Ticket", acSavePrompt
End Sub

Aber egal wie...Ich muss im Hauptformular (mit diesem UF) erst einen DS vorblättern und wieder zurückblättern, damit mir das gerade erzeugte Ticket im UF angezeigt wird.

Stefan

 

[Mike]

Aber egal wie...Ich muss im Hauptformular (mit diesem UF) erst einen DS vorblättern und wieder zurückblättern,

Dann musst du den Computer hereinlegen mit einem Zusatzbefehl

DoCmd.GoToRecord acDataForm, FormName, acFirst
DoCmd.GoToRecord acDataForm, FormName, acLast

Damit macht er ein manuelles refresh weil er zum ersten und letzten Datensatz springt.

Könnte sein, dass der Befehl in 2007 etwas anders ausschaut. Aber funktionieren tut es sicher

 

[froemken]

Hab deinen Tipp mal umgesetzt:

Private Sub cmdExit_Click()
    DoCmd.Save acForm, "FRM_Ticket"
    DoCmd.Close acForm, "FRM_Ticket", acSavePrompt
    
    If Forms("FRM_Komponenten").CurrentRecord = 1 Then
        DoCmd.GoToRecord acDataForm, "FRM_Komponenten", acNext
        DoCmd.GoToRecord acDataForm, "FRM_Komponenten", acPrevious
    Else
        DoCmd.GoToRecord acDataForm, "FRM_Komponenten", acPrevious
        DoCmd.GoToRecord acDataForm, "FRM_Komponenten", acNext
    End If
End Sub

Musste ich so machen, sonst kachelt der mir beim ersten DS ab.
Außerdem habe ich einen Gedankenfehler gefunden. Dass das "Schließen" erst NACH dem Aktualisieren kommen darf, war bei den Makros NICHT aber bei der Verwendung von VBA.

Da deine Idee anfangs immer noch funktionierte, habe ich den Schließen Befehl jetzt wieder hochgesetzt und siehe da...es funzt.

Ich sollte nun allerdings noch probieren, ob die vorher genannten Lösungen mit dieser Umstellung nun auch funktionieren.

Danke Euch

Stefan

 

[Mike]

Dass das "Schließen" erst NACH dem Aktualisieren kommen darf

Jo, ist mir gar nicht aufgefallen

Mit NEXT und PREVIOUS hast du es natürlich noch eleganter gelöst.

 

[froemken]

Ich sollte nun allerdings noch probieren, ob die vorher genannten Lösungen mit dieser Umstellung nun auch funktionieren.

Und genau das habe ich nun getan...Code schaut so aus und funktioniert

Private Sub cmdExit_Click()
    DoCmd.Save acForm, "FRM_Ticket"
    DoCmd.Close acForm, "FRM_Ticket", acSavePrompt
    Forms("FRM_Komponenten")!UF_FRM_Ticket.Form.Requery
End Sub

Danke Euch

Stefan