Datenfelder NULL setzen

[Liene]

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.

Code [Auswählen] Erweitern


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

[DF6GL]

Hallo,

was klappt nicht?

Wird die Prozedur ausgelöst?

Wie lautet die Datensatzherkunft des Kombis?

Sind alle Felder ungebunden?

[Liene]

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

[Hondo]

Hallo,
das doppelte Ausrufezeichen hast du gesehen?
Versuche mal statt auf Null zu setzen vbNullString ("")

Code [Auswählen] Erweitern

Private Sub ProjektAuftrag_AfterUpdate()
If Me!ProjektAuftrag = "nein" Then
    Me!ProjektAnfang = vbNullString
    Me!ProjektEnde = vbNullString
End IF
End Sub

Gruß Andreas

[Liene]

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

[DF6GL]

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...

[Hondo]

Oben im Code:
Me!!ProjektEnde = Null

[DF6GL]

Also, ich finde sowas nicht....

Aber vermutlich ist das editiert worden....

Private Sub ProjektAuftrag_AfterUpdate()
If Me!ProjektAuftrag = "nein" Then
    Me!ProjektAnfang = Null
    Me!!ProjektEnde = Null
End IF
End Sub

[MzKlMu]

Hallo,
hier:
Me!!ProjektEnde = Null

[DF6GL]

 

Muss mal meine Brille putzen