Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Pflichtfeld, wenn Bedingung erfüllt
zurück: Dateneingabe im Endlosformular weiter: Textfeld immer sortiert 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
anian
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Mai 2012, 11:16
Rufname:

Pflichtfeld, wenn Bedingung erfüllt - Pflichtfeld, wenn Bedingung erfüllt

Nach oben
       Version: Office 2003

Guten Tag liebe Access-Profis

Ich habe im Formular meiner Access-Lösung folgendes Problem. Ich habe diverse Eingabefelder. Zwei davon sind die Felder "Agentur" und "Aussenstelle". Nun möchte ich via VBA-Code programmieren, dass das Feld Agentur ein Pflichtfeld wird bzw. zwingend auszufüllen ist, sobald das Feld Aussenstelle befüllt ist.

Ich habe folgenden Code produziert. Leider funktioniert er aus mir nicht erfindlichen Gründen nicht.

Ich danke allen herzlich, die mir weiterhelfen können, wie ich den Code verbessere. Besten Dank im Voraus!
Code:
Private Sub Agentur_BeforeUpdate(Cancel As Integer)
    If Me.[Agentur] Then
        If Nz(Me.Aussenstelle) > "" Then
            MsgBox "Bitte Agentur eintragen"
            Me.Agentur.SetFocus
            Cancel = True
        End If
    End If
End Sub
KlausMz
Moderator Access


Verfasst am:
30. Mai 2012, 11:23
Rufname:
Wohnort: Irgendwo in der Pfalz


AW: Pflichtfeld, wenn Bedingung erfüllt - AW: Pflichtfeld, wenn Bedingung erfüllt

Nach oben
       Version: Office 2003

Hallo,
versuche es mal so:
Code:
Private Sub Agentur_BeforeUpdate(Cancel As Integer)
    If Nz(Me.Aussenstelle) <> "" Then
        If Nz(Me.[Agentur].Text, "") = "" Then
            MsgBox "Bitte Agentur eintragen"
            Cancel = True
        End If
    End If
End Sub

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
lleopard
IT Datenbankentwickler


Verfasst am:
30. Mai 2012, 12:03
Rufname: leo

AW: Pflichtfeld, wenn Bedingung erfüllt - AW: Pflichtfeld, wenn Bedingung erfüllt

Nach oben
       Version: Office 2003

moin @all

wäre es nicht besser statt Vor Aktualisierung des Feldes, gleich bei Taste zu prüfen?
Und fehlt in der Zeile nicht was?
Code:
    If Nz(Me.Aussenstelle) <> "" Then
Müßte doch so aussehen:
Code:
    If Nz(Me.Aussenstelle, "") <> "" Then

_________________
Gruß Leo

Honnit soit qui mal y pense!
KlausMz
Moderator Access


Verfasst am:
30. Mai 2012, 18:56
Rufname:
Wohnort: Irgendwo in der Pfalz

AW: Pflichtfeld, wenn Bedingung erfüllt - AW: Pflichtfeld, wenn Bedingung erfüllt

Nach oben
       Version: Office 2003

Hallo,
@Leo
Code:
    If Nz(Me.Aussenstelle) <> "" Then
funktioniert auch ohne "".
Access denkt da mit und interpretiert richtig.
Das funktioniert auch:
Code:
    If Nz(Me.Aussenstelle) <> 0 Then
Aber im Regelfall gebe ich es auch an, habe es nur hier vergessen.
_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
anian
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Jun 2012, 09:52
Rufname:

AW: Pflichtfeld, wenn Bedingung erfüllt - AW: Pflichtfeld, wenn Bedingung erfüllt

Nach oben
       Version: Office 2003

Hallo zusammen

Besten Dank für die Hilfe. Wenn ich den Code wie folgt anpasse, dann klappt es.
Code:
Private Sub Aussenstelle_AfterUpdate()
    If Nz(Me.Aussenstelle, "") <> "" Then
        If Nz(Me.[Agentur], "") = "" Then
            MsgBox "Bitte Agentur eintragen"
            Me.[Aussenstelle].SetFocus
            Cancel = True
        End If
    End If
End Sub
KlausMz
Moderator Access


Verfasst am:
04. Jun 2012, 10:02
Rufname:
Wohnort: Irgendwo in der Pfalz


AW: Pflichtfeld, wenn Bedingung erfüllt - AW: Pflichtfeld, wenn Bedingung erfüllt

Nach oben
       Version: Office 2003

Hallo,
wieso setzt Du den Fokus auf "Aussenstelle" wenn die Agentur eingegeben werden soll?
Das .Text ist meiner Meinung nach notwendig, sonst hast Du nicht den wirklichen Inhalt von "Agentur", denn Du fragst ja vor Aktualisierung ab.

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
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: Gruppieren mit Bedingung ohne Doppelung 0 PeBe 809 24. März 2010, 13:34
PeBe Gruppieren mit Bedingung ohne Doppelung
Keine neuen Beiträge Access Tabellen & Abfragen: Fehler in Bedingung 2 Anna9999 196 08. Jan 2010, 22:16
MissPh! Fehler in Bedingung
Keine neuen Beiträge Access Tabellen & Abfragen: Bedingung in Abfrage liefert null Datensätze 6 wschmittw 900 18. Jan 2009, 21:23
wschmittw Bedingung in Abfrage liefert null Datensätze
Keine neuen Beiträge Access Tabellen & Abfragen: Max Wert von Datum Abfragen mit Bedingung 1 NoBody20013 1802 12. Jan 2009, 09:27
stpimi Max Wert von Datum Abfragen mit Bedingung
Keine neuen Beiträge Access Tabellen & Abfragen: Feldinhalt nur Anzeigen wenn die Bedingung stimmt 0 CyberKater 899 09. Dez 2008, 16:46
CyberKater Feldinhalt nur Anzeigen wenn die Bedingung stimmt
Keine neuen Beiträge Access Tabellen & Abfragen: Löschen bestimmter Datensätze wenn Bedingung erfüllt 1 Matthias1234 587 13. Okt 2008, 10:32
JörgG Löschen bestimmter Datensätze wenn Bedingung erfüllt
Keine neuen Beiträge Access Tabellen & Abfragen: Union als Bedingung zerstört Möglichkeit einer Aktualisierun 0 SimFirehawk 397 24. Apr 2008, 01:02
SimFirehawk Union als Bedingung zerstört Möglichkeit einer Aktualisierun
Keine neuen Beiträge Access Tabellen & Abfragen: Summe berechnen wenn bedingung erfüllt 2 corona 3015 10. März 2008, 09:28
corona Summe berechnen wenn bedingung erfüllt
Keine neuen Beiträge Access Tabellen & Abfragen: Aktualisierungsabfragen mit Bedingung und Join 8 Falcon 1909 03. März 2008, 16:57
Falcon Aktualisierungsabfragen mit Bedingung und Join
Keine neuen Beiträge Access Tabellen & Abfragen: doppelte Datensätze löschen, aber mit Bedingung ? 2 TorstenVE 1301 16. Jan 2008, 19:11
rita2008 doppelte Datensätze löschen, aber mit Bedingung ?
Keine neuen Beiträge Access Tabellen & Abfragen: Wo baue ich bei einem Insert Befehl die Where Bedingung ein? 5 Steffen29 502 07. Dez 2007, 15:05
Willi Wipp Wo baue ich bei einem Insert Befehl die Where Bedingung ein?
Keine neuen Beiträge Access Tabellen & Abfragen: SQL -> Spalte doppelt zu weisen wenn bestimmte bedingung 1 Speedy@Web 1215 08. Nov 2007, 19:59
rita2008 SQL -> Spalte doppelt zu weisen wenn bestimmte bedingung
 

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