Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Doppelten Wert im Formular verhindern
zurück: Mehrere Tabellen ohne Abfrage? weiter: Unterformular Daten an Tabelle weitergeben 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
valli
Einsteiger


Verfasst am:
11. Jul 2007, 17:42
Rufname:

Doppelten Wert im Formular verhindern - Doppelten Wert im Formular verhindern

Nach oben
       Version: Office 2k (2000)

Hallo,

leidiges Thema, mehrfach im Forum. Habe bereits alles durchstöbert.
Leider funzt hier gefundener und angepasster Code nur bedingt:
Code:
Private Sub AnfrageNr_BeforeUpdate(Cancel As Integer)
    If Not IsNull(DLookup("AnfrageNr", "Versand", _
                          "AnfrageNr = '" & Me!AnfrageNr & "'")) And _
       Me!AnfrageNr <> Nz(Me!AnfrageNr.OldValue) Then
        MsgBox "Versand bereits eingegeben! Formular schliessen."
        Me.Undo
    End If
End Sub
Wenn ich mich im Form Versand befinde und den neuen DS mit doppelten Wert anlegen möchte, funktioniert alles prima. Nur möchte ich aber folgendes.

Ich starte Form Versand aus einem anderen Form und liefere die AnfrageNr mit. In diesem Fall funzt der Code nicht.
Eine Idee woran es liegen kann?
Gruß
Valli
derArb
getting better


Verfasst am:
11. Jul 2007, 17:53
Rufname: derArb
Wohnort: Berlin


AW: Doppelten Wert im Formular verhindern - AW: Doppelten Wert im Formular verhindern

Nach oben
       Version: Office 2k (2000)

hallo,

Me!AnfrageNr bezieht sich immer auf das aktuelle Formular.

versuchs mal mit Forms!DeinAnderesFormular!AnredeNr, also Forms!Versand!AnredeNr

mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
valli
Einsteiger


Verfasst am:
12. Jul 2007, 09:01
Rufname:

AW: Doppelten Wert im Formular verhindern - AW: Doppelten Wert im Formular verhindern

Nach oben
       Version: Office 2k (2000)

Ich bin ja bereits im aktuellen Formular!?!?!
Willi Wipp
Moderator


Verfasst am:
12. Jul 2007, 12:05
Rufname:
Wohnort: Raum Wiesbaden

Re: Doppelten Wert im Formular verhindern - Re: Doppelten Wert im Formular verhindern

Nach oben
       Version: Office 2k (2000)

Hi valli,

wie lieferst Du denn die AnfrageNr mit? Hilft vielleicht an der entsprechenden Stelle ein
Code:
    Call AnfrageNr_BeforeUpdate
' bzw. einfach
    AnfrageNr_BeforeUpdate
' oder pruefen an der Stelle vielleicht doch besser (da OldValue nicht existiert) mit
    If DCount("*", "Versand", "AnfrageNr = '" & Me!AnfrageNr & "'") = 0 Then
        '...
    End If

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)


Zuletzt bearbeitet von Willi Wipp am 13. Jul 2007, 14:57, insgesamt einmal bearbeitet
valli
Einsteiger


Verfasst am:
13. Jul 2007, 14:36
Rufname:

AW: Doppelten Wert im Formular verhindern - AW: Doppelten Wert im Formular verhindern

Nach oben
       Version: Office 2k (2000)

Hallo Willi,
klappt weiter nicht. Ich habe den Code mit Deinem Vorschlag geändert:
Code:
    If DCount("*", "Versand", "AnfrageNr = '" & Me!AnfrageNr & "'") = 0 Then
        '...
    End If
Kommt immer noch ellenlange Windowsmeldung, dass die AnfrageNr existiert und ich komme ab dem Zeitpunkt nicht weiter.
Zu Deiner Frage: Ich liefere AnfrageNr aus einem anderen Formular und zwar:
Code:
    Const cstrFormular  As String = "Versand"
   
' Alle DS
    DoCmd.OpenForm cstrFormular
    DoCmd.GoToRecord acDataForm, cstrFormular, acNewRec
    Forms(cstrFormular)!AnfrageNr = Me!AnfrageNr
Wie bereits geschrieben: wenn ich mich im Form Versand befinde und neue AnfrageNr, die bereits vergeben wurde, anlegen möchte, klappt es mit dem am Threadanfang erwähnten Code.
Noch eine Idee? Wo kann ich die Call Anweisung einpflegen?
Willi Wipp
Moderator


Verfasst am:
13. Jul 2007, 15:01
Rufname:
Wohnort: Raum Wiesbaden

Re: Doppelten Wert im Formular verhindern (II) - Re: Doppelten Wert im Formular verhindern (II)

Nach oben
       Version: Office 2k (2000)

Hi valli,

ich sehe den Code aber nicht an der entsprechenden Stelle Wink
Code:
    Const cstrFormular  As String = "Versand"
   
' Alle DS
    DoCmd.OpenForm cstrFormular
    If DCount("*", "Versand", "AnfrageNr = '" & Me!AnfrageNr & "'") = 0 Then
        DoCmd.GoToRecord acDataForm, cstrFormular, acNewRec
        Forms(cstrFormular)!AnfrageNr = Me!AnfrageNr
      Else 'Existiert bereits ==> gehe zu DS
        Forms(cstrFormular).Recordset.FindFirst "[AnfrageNr] = '" & _
                                                            Me!AnfrageNr & "'"
    End If

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
valli
Einsteiger


Verfasst am:
13. Jul 2007, 15:19
Rufname:


AW: Doppelten Wert im Formular verhindern - AW: Doppelten Wert im Formular verhindern

Nach oben
       Version: Office 2k (2000)

Hat prima geklappt. Es wird direkt beim Start des neuen Formulars geprüft. Hab nur Meldung hinzugefügt:
Code:
      Else 'Existiert bereits ==> gehe zu DS
        MsgBox "Hier ist der Text."
        Forms(cstrFormular).Recordset.FindFirst "[AnfrageNr] = '" & _
                                                            Me!AnfrageNr & "'"
DANKE!
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: Wenn Wert nicht vorhanden nimm den nächsten 2 Ogdo 788 29. Dez 2004, 12:40
Gast Wenn Wert nicht vorhanden nimm den nächsten
Keine neuen Beiträge Access Tabellen & Abfragen: kreuzabfrage ausführen nach vorgeschaltetem formular mit kom 4 Gast 887 21. Dez 2004, 15:17
Gast kreuzabfrage ausführen nach vorgeschaltetem formular mit kom
Keine neuen Beiträge Access Tabellen & Abfragen: Formeln vom Formular, werden in der Abfrage nicht angezeigt 4 maddes 895 23. Nov 2004, 12:38
Skogafoss Formeln vom Formular, werden in der Abfrage nicht angezeigt
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: Aktionsabfrage in Formular -immer nur einen Datensatz ändern 6 blauvogel 1092 08. Okt 2004, 11:43
Skogafoss Aktionsabfrage in Formular -immer nur einen Datensatz ändern
Keine neuen Beiträge Access Tabellen & Abfragen: Zeile der Dateneingabe (*) in einem Formular verschieben 2 Albertus 790 08. Okt 2004, 09:17
Albertus Zeile der Dateneingabe (*) in einem Formular verschieben
Keine neuen Beiträge Access Tabellen & Abfragen: SQL - Abfrage ob ein Wert in der Tabelle enthalten ist 1 notausgang 1301 23. Sep 2004, 09:42
stpimi SQL - Abfrage ob ein Wert in der Tabelle enthalten ist
Keine neuen Beiträge Access Tabellen & Abfragen: Suchfunktion mit mehreren Kriterien aus Formular 5 Danny G. 2218 09. Sep 2004, 11:08
Danny G. Suchfunktion mit mehreren Kriterien aus Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle, Formular, Abfrage...und nun ? 3 Gags 790 29. Aug 2004, 22:05
lothi Tabelle, Formular, Abfrage...und nun ?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragefeld nachträglich in Formular 3 Sebbl 1705 05. Aug 2004, 15:14
mabe38 Abfragefeld nachträglich in Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Löschen von Doppelten Datensätzen 2 wgiesel 684 29. Jul 2004, 13:28
wgiesel Löschen von Doppelten Datensätzen
Keine neuen Beiträge Access Tabellen & Abfragen: Suchen in Formular 1 Sumo_Racer 1092 28. Mai 2004, 21:59
lothi Suchen in Formular
 

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