Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Formular beim schliessen leeren
zurück: Fehlermeldung bei Formular mit Bild weiter: Markierung Textfeld Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Welde
Im Profil kannst Du frei den Rang ändern


Verfasst am:
11. Apr 2011, 11:52
Rufname:

Formular  beim schliessen leeren - Formular beim schliessen leeren

Nach oben
       Version: Office 2003

Servus,

ich möchte per Button (im Hauptformular) Datensätze aus einem Unterformular entfernen; so das sie beim schliessen nicht gespeichert werden - das Unterformular quasi leeren vor dem verlassen.
Wie kann das bewerkstelligt werden?
Code:
Private Sub Exit_ohne_Speichern_Click()
    FRM_Vernichtungsbeleg_anlegen!UFO_Vernichtungsbeleg_bearbeiten Me.Undo
End Sub

NACHTRAG:
Code:
    Dim msg                     
   
    msg = MsgBox("Daten speichern?", vbYesNo)
    If msg = vbNo Then
        Me.Undo
    End If
    DoCmd.Close '- Schließt Formular
wie muss der Code bei Me.Undo umgeschrieben werden, damit beide Formulare vor dem schliessen geleert werden?

Hauptformular:
FRM_Vernichtungsbeleg_anlegen
Unterformular:
UFO_Vernichtungsbeleg_bearbeiten

Danke

Gruß
Welde
Fritzerich
Gast


Verfasst am:
11. Apr 2011, 14:47
Rufname:


AW: Formular  beim schliessen leeren - AW: Formular beim schliessen leeren

Nach oben
       Version: Office 2003

Hallo Welde!

Wenn Dein UFo mehrere Datensätze anzeigt, die Du entweder speichern oder verwerfen willst, dann möchte ich Dir empfehlen mit einer temporären Tabelle als Basis für das UFo zu Arbeiten.
Beim Öffnen des UFos füllst (oder leerst-je nach Bedarf) Du die temp. Tabelle.
Beim Schließen löscht Du die Sätze wieder.
z.B. (UFo)
Code:
Private Sub Form_Unload(Cancel As Integer)
On Error GoTo L_Error
    Cancel = CInt(True)
    CurrentDb().Execute "DELETE * FROM TempTable"
    Cancel = CInt(False)
L_Exit:
    Exit Sub
L_Error:
    MsgBox Err.Description
    Resume L_Exit
End Sub
Beim Schließen des Hauptformulars kannst Du, je nachdem ob der Benutzer es möchte oder nicht, die Daten aus Deiner tempTabelle in die Zieltabelle übertragen oder nicht,
z.B. (HFo)
Code:
Private Sub Form_Unload(Cancel As Integer)
On Error GoTo L_Error
    Cancel = CInt(True)
    Select Case MsgBox("Daten speichern?", vbYesNoCancel)
      Case vbYes:    'speichern
        CurrentDb().Execute "INSERT INTO ZielTabelle (Feld1, Feld2, ...)" _
                         & " SELECT Feld1, Feld2, ..." _
                           & " FROM TempTable"
      Case vbNo:     '... dann eben nicht
      Case vbCancel: '... Formular doch nicht schließen
                     GoTo L_Exit
    End Select
    Cancel = CInt(False)
L_Exit:
    Exit Sub
L_Error:
    MsgBox Err.Description
    Resume L_Exit
End Sub
In einer Mehrbenutzerumgebung mußt Du freilich mit mehreren temp. Tabellen oder einem eindeutigen Key für die Benutzer-Session arbeiten, damit Du nicht einem anderen Benutzer die Daten aus der tempTabelle löscht.

Weitere Unterstützung dazu gibt's bei Bedarf,
Fritzerich
Welde
Im Profil kannst Du frei den Rang ändern


Verfasst am:
11. Apr 2011, 16:25
Rufname:

AW: Formular  beim schliessen leeren - AW: Formular beim schliessen leeren

Nach oben
       Version: Office 2003

Hallo Fritzerich,

Danke für Deine Antwort.
Im Prinzip soll nur der aktuelle Datensatz bzw. die BuchungsbelegID aus zwei Tabellen gelöscht werden -> 01_tbl_Vernichtungen und 00_tbl_Buchungsbeleg.

Ich habe noch ein wenig recherchiert und folgenden code geschrieben:
Code:
Private Sub btn_FRM_schliessen_Click()
    If MsgBox("Möchten Sie die Eingaben speichern?", vbYesNo) = vbNo Then
        DoCmd.SetWarnings False
        DoCmd.RunCommand acCmdDeleteRecord
        DoCmd.SetWarnings True
    End If
End Sub
Allerdings bekomme ich bei dem Ausdruck DoCmd.RunCommand acCmdDeleteRecord immer eine Fehlermeldung?
Woran kann das liegen?

Danke

Gruß
Welde
Fritzerich
Gast


Verfasst am:
11. Apr 2011, 16:53
Rufname:

AW: Formular  beim schliessen leeren - AW: Formular beim schliessen leeren

Nach oben
       Version: Office 2003

Hallo Welde!
1. Welche Fehlermeldung ???
2. DoCmd meide ich, darum kann ich Dir damit jetzt nicht weiterhelfen
Trotzdem
TIPP: Wenn Du eine Relation mit Löschweitergabe zwischen Deinen Tabellen festlegst, brauchst Du Dich um das Löschen des Satzes im UFo gar nicht kümmern, wenn Du den Hauptsatz aus Deinem HFo löschst.
Viel Erfolg,
Fritzerich
Welde
Im Profil kannst Du frei den Rang ändern


Verfasst am:
11. Apr 2011, 17:11
Rufname:


AW: Formular  beim schliessen leeren - AW: Formular beim schliessen leeren

Nach oben
       Version: Office 2003

Hallo Fritzerich,

Danke für Deinen Tipp mit der Löschweitergabe.
Damit habe ich mein Problem gelöst Smile
Danke

gruß
Welde
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage von Formular zu mehreren Tabellen gleichzeitig 5 Friedel 1237 22. Mai 2005, 11:06
jens05 Abfrage von Formular zu mehreren Tabellen gleichzeitig
Keine neuen Beiträge Access Tabellen & Abfragen: Formular --> Tabelle ? 6 AlexisM 835 27. Apr 2005, 10:56
AlexisM Formular --> Tabelle ?
Keine neuen Beiträge Access Tabellen & Abfragen: Formular: Groesse? 1 Gast 732 24. März 2005, 13:35
Sanne Formular: Groesse?
Keine neuen Beiträge Access Tabellen & Abfragen: Feld wird nicht in Formular angezeigt 1 Chef_1 528 12. März 2005, 21:27
stpimi Feld wird nicht in Formular angezeigt
Keine neuen Beiträge Access Tabellen & Abfragen: Automatische Aktualisierung von generiertem Wert im Formular 9 GandalfTCM 1041 09. Feb 2005, 17:40
lothi Automatische Aktualisierung von generiertem Wert im Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Verknüpfte ODBC-Tabelle nimmt keine leeren Felder an 5 Crash 1035 04. Feb 2005, 11:17
lothi Verknüpfte ODBC-Tabelle nimmt keine leeren Felder an
Keine neuen Beiträge Access Tabellen & Abfragen: Wert übernehmen von einem Formular in das andere 2 mactoolz 1244 03. Feb 2005, 17:46
ralphkr Wert übernehmen von einem Formular in das andere
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit Formular gestalten 3 HBurmei 1977 03. Dez 2004, 22:17
mapet Abfrage mit Formular gestalten
Keine neuen Beiträge Access Tabellen & Abfragen: Formular für mehrere Abfragen benutzen 2 Oli aus Bonn 1262 21. Nov 2004, 01:30
Oli aus Bonn Formular für mehrere Abfragen benutzen
Keine neuen Beiträge Access Tabellen & Abfragen: Wert eines Feldes aus Formular in Tabelle speichern 18 kave78 13710 16. Okt 2004, 13:40
Ming Wert eines Feldes aus Formular in Tabelle speichern
Keine neuen Beiträge Access Tabellen & Abfragen: Standardwert in Formular aus einer Abfrage? 3 Gast 1777 04. Okt 2004, 12:53
Pfobeman Standardwert in Formular aus einer Abfrage?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage bei Tabelle mit leeren Zellen (?) 2 Gast 1045 23. Jun 2004, 15:14
lothi Abfrage bei Tabelle mit leeren Zellen (?)
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe