Hallo,
ich habe in einem SuchFormular die Felder ProjektAuftrag (Kombifeld, ja, nein, offen), ProjektAnfang u. ProjektEnde. ProjektAnfang u. ProjektEnde sind mit bestimmten Standardwerten belegt.
Im Falle Projektauftrag = nein sollen die Standardwerte entfernt werden. Mein Codeversuch klappt leider nicht.
Private Sub ProjektAuftrag_AfterUpdate()
If Me!ProjektAuftrag = "nein" Then
Me!ProjektAnfang = Null
Me!!ProjektEnde = Null
End IF
End Sub
Wo ist mein Fehler?
Vielen Dank von Liene
Hallo,
was klappt nicht?
Wird die Prozedur ausgelöst?
Wie lautet die Datensatzherkunft des Kombis?
Sind alle Felder ungebunden?
Hallo und Danke für die Antwort
Alle Felder sind ungebunden.
Die Datensatzherkunft des Kombifeldes ist eine Werteliste Ja, Nein, Offen
Die Prozedur wird ausgelöst, wenn ich einen Wert im Kombifeld auswähle, deshalb habe ich des Ergebnis AfterUpdate für das Kombifeld gewählt. Die Felder werden nicht NULL gesetzt
Gruß Liene
Hallo,
das doppelte Ausrufezeichen hast du gesehen?
Versuche mal statt auf Null zu setzen vbNullString ("")
Private Sub ProjektAuftrag_AfterUpdate()
If Me!ProjektAuftrag = "nein" Then
Me!ProjektAnfang = vbNullString
Me!ProjektEnde = vbNullString
End IF
End Sub
Gruß Andreas
Hallo und sorry,
ich will programmieren und kann nicht den einfachen Code richtig lesen!
Sorry, das ich mit meiner Dummheit Euch beschäftigt habe
Gruß Liene
Hallo,
versteh ich jetzt nicht...???
Wo sind doppelte Ausrufezeichen?
Und vbNullString würde ich eher auch nicht nehmen. Bei einer späteren Prüfung des Textfeldinhaltes kann das zu Irritationen führen.
Bei mir läuft der von Liene gepostete Code anstandslos...
Oben im Code:
Me!!ProjektEnde = Null
Also, ich finde sowas nicht....
Aber vermutlich ist das editiert worden....
ZitatPrivate Sub ProjektAuftrag_AfterUpdate()
If Me!ProjektAuftrag = "nein" Then
Me!ProjektAnfang = Null
Me!!ProjektEnde = Null
End IF
End Sub
Hallo,
hier:
Me!!ProjektEnde = Null
;D ;D ;D ;D
Muss mal meine Brille putzen 8)