Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Me.textfeld.Undo funktioniert bei Fehlerbehandlung nicht
zurück: rechnen im Formular? weiter: Zyklus Unterformulare... Bitte um Hilfe!! 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
derbesteschmitt
Lernend und fasziniert von den Möglichkeiten


Verfasst am:
08. Jun 2011, 09:17
Rufname: Klaus
Wohnort: Vorderpfalz

Me.textfeld.Undo funktioniert bei Fehlerbehandlung nicht - Me.textfeld.Undo funktioniert bei Fehlerbehandlung nicht

Nach oben
       Version: Office 2003

Hallo, Razz

ich habe ein Formular zum Bearbeiten von Datensätzen.

Mit einem "Speichern" Button werden die Eingaben geprüft.

Ein Feld der Tabelle ist indiziert ohne Duplikate
Ist in dem Formularfeld ein Duplikat, dann tritt ein Fehler beim Speichern auf. Err.number = 3022 dann möchte ich, dass das gebundene Feld auf den Ursprungswert (=Wert der nach dem Laden des DS angezeigt wird) zurückgesetzt wird.

Ich habe es mit
Code:
    Me!txt_xNummer.Undo
' und
    Me.txt_xNummer.Undo
versucht.

Beide Befehle werden ohne Fehlermeldung ausgeführt, doch der Ursprungswert erscheint nicht.

Seltsamerweise funktioniert die Rücksetzung auf den Ursprungswert wenn das gesamte Formular mit
Code:
    Me.Undo
zurückgesetzt wird.

Alternativ könnte ich den Ursprungswert nach dem Laden des Formulars in eine Variable schreiben, doch das erscheint mir sehr umständlich.

Hat jemande eine Idee?

Gruß

Klaus
KlausMz
Moderator Access


Verfasst am:
08. Jun 2011, 09:22
Rufname:
Wohnort: Irgendwo in der Pfalz


AW: me.textfeld.undo funktioniert bei Fehlerbehandlung nicht - AW: me.textfeld.undo funktioniert bei Fehlerbehandlung nicht

Nach oben
       Version: Office 2003

Hallo,
Codeschnippsel helfen nicht besonders.
Bitte zeige die vollständige Sub, mit Kopf.

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
derbesteschmitt
Lernend und fasziniert von den Möglichkeiten


Verfasst am:
08. Jun 2011, 09:45
Rufname: Klaus
Wohnort: Vorderpfalz

AW: me.textfeld.undo funktioniert bei Fehlerbehandlung nicht - AW: me.textfeld.undo funktioniert bei Fehlerbehandlung nicht

Nach oben
       Version: Office 2003

Code:
Private Sub cmd_speichern_Click()
On Error GoTo Err_cmd_speichern_Click
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    DoCmd.Close
Exit_cmd_speichern_Click:
    Exit Sub
Err_cmd_speichern_Click:
    Select Case Err.Number
      Case 3022
        MsgBox "Sie haben eine Behälternummer eingegeben die bereits " _
             & "schon existiert" & vbCrLf _
             & "Die Behälternummer wird auf den alten Wert zurückgesetzt"
        Me!txt_Behaelter_Nummer.Undo
        'Me.Undo
      Case Else
        MsgBox "Fehlernummer " & Err.Number & vbCrLf & Err.Description
        Resume Exit_cmd_speichern_Click
    End Select
End Sub
MissPh!
Office-VBA-Programmiererin


Verfasst am:
08. Jun 2011, 10:04
Rufname:
Wohnort: NRW

AW: me.textfeld.undo funktioniert bei Fehlerbehandlung nicht - AW: me.textfeld.undo funktioniert bei Fehlerbehandlung nicht

Nach oben
       Version: Office 2003

Hallo,
Zitat:
Alternativ könnte ich den Ursprungswert nach dem Laden des Formulars in eine Variable schreiben
das brauchst du nicht, dazu gibt es die Eigenschaft OldValue.
_________________
Gruß MissPh!
derbesteschmitt
Lernend und fasziniert von den Möglichkeiten


Verfasst am:
08. Jun 2011, 10:18
Rufname: Klaus
Wohnort: Vorderpfalz

AW: me.textfeld.undo funktioniert bei Fehlerbehandlung nicht - AW: me.textfeld.undo funktioniert bei Fehlerbehandlung nicht

Nach oben
       Version: Office 2003

Hallo,

vielen Dank für die Hilfe.
Mit oldValue funktioniert es.

Interessehalber würde mich trotzdem interessieren warum es mit
Code:
    Me!txt_Behaelter_Nummer.Undo
nicht funktioniert.
Wo ist mein Denkfehler?
Hier der Code mit oldValue der nun funzt:
Code:
Private Sub cmd_speichern_Click()
On Error GoTo Err_cmd_speichern_Click
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    DoCmd.Close
Exit_cmd_speichern_Click:
    Exit Sub
Err_cmd_speichern_Click:
    Select Case Err.Number
      Case 3022
        MsgBox "Sie haben eine Behälternummer eingegeben die bereits " _
             & "schon existiert" & vbCrLf _
             & "Die Behälternummer wird auf den alten Wert zurückgesetzt"
        Me.txt_Behaelter_Nummer.Text = Me.txt_Behaelter_Nummer.OldValue
      Case Else
        MsgBox "Fehlernummer " & Err.Number & vbCrLf & Err.Description
        Resume Exit_cmd_speichern_Click
    End Select
End Sub
MissPh!
Office-VBA-Programmiererin


Verfasst am:
08. Jun 2011, 10:22
Rufname:
Wohnort: NRW

AW: me.textfeld.undo funktioniert bei Fehlerbehandlung nicht - AW: me.textfeld.undo funktioniert bei Fehlerbehandlung nicht

Nach oben
       Version: Office 2003

Ich weiß auch (noch) nicht, woran es scheitert, aber OldValue funktioniert natürlich nicht bei einem neuen Datensatz, das wäre noch zu berücksichtigen.
_________________
Gruß MissPh!
derbesteschmitt
Lernend und fasziniert von den Möglichkeiten


Verfasst am:
08. Jun 2011, 10:28
Rufname: Klaus
Wohnort: Vorderpfalz


AW: me.textfeld.undo funktioniert bei Fehlerbehandlung nicht - AW: me.textfeld.undo funktioniert bei Fehlerbehandlung nicht

Nach oben
       Version: Office 2003

Hallo MissPH,

danke für den Hinweis.
Ich prüfe mit
Code:
    If Me.NewRecord = True Then .....
ob ein neuer DS angelegt wurde.

Gruß

Klaus
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: Beziehung mit verknüpfter Tabelle funktioniert nicht 4 Thom@s 680 09. Dez 2006, 16:15
Thom@s Beziehung mit verknüpfter Tabelle funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Inhalt Textfeld durch Aktualisierung löschen 2 Blume 904 30. Nov 2006, 13:15
Blume Inhalt Textfeld durch Aktualisierung löschen
Keine neuen Beiträge Access Tabellen & Abfragen: Aktualisierungsabfrage funktioniert nicht. 1 Lady_S 622 18. Sep 2006, 19:10
rita2008 Aktualisierungsabfrage funktioniert nicht.
Keine neuen Beiträge Access Tabellen & Abfragen: Summe funktioniert nicht 15 NotoriousOTW 1380 13. Sep 2006, 00:16
Willi Wipp Summe funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage über Textfeld in einem Formular steuern 1 feynman 1083 17. Aug 2006, 17:14
tania63 Abfrage über Textfeld in einem Formular steuern
Keine neuen Beiträge Access Tabellen & Abfragen: Exel Textfeld mit Access verbinden 3 GAST711 672 08. Aug 2006, 12:44
SGast Exel Textfeld mit Access verbinden
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage Kriterium funktioniert nicht... 3 mirco 776 21. März 2006, 15:46
lothi Abfrage Kriterium funktioniert nicht...
Keine neuen Beiträge Access Tabellen & Abfragen: Count() Funktion in Abfrage funktioniert nicht 1 Nike 889 31. Jan 2006, 19:44
jens05 Count() Funktion in Abfrage funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage funktioniert nicht 2 TheRealKing 603 13. Jan 2006, 17:06
TheRealKing Abfrage funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: DatTeil("yyyy"; [Datum]) funktioniert nicht? 2 Paddy 13071 10. Jan 2006, 18:42
Paddy DatTeil("yyyy"; [Datum]) funktioniert nicht?
Keine neuen Beiträge Access Tabellen & Abfragen: #Name? in Textfeld 1 cmd 2136 02. Jan 2006, 21:20
jens05 #Name? in Textfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Zeilenumbruch bei Textfeld 3 F1 1616 01. Jan 2006, 15:19
F1 Zeilenumbruch bei Textfeld
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP Forum