Office: Textfeld Wert zuweisen und aktualisieren

Hallo zusammen,

ich hab da ein problem.

Ich möchte einem Textfeld einen Wert zuweisen, je nachdem welche Kombinationsfelder ausgewählt wurden.

Wenn [MITARBEITERID] NULL dann [ANZAHL_T] = 1
Wenn [MITARBEITERID2] NULL dann [ANZAHL_T] = 2
Wenn [MITARBEITERID3] NULL dann [ANZAHL_T] = 3
Wenn [MITARBEITERID4] NULL dann [ANZAHL_T] = 4

code:
Private Sub MITARBEITERID3_AfterUpdate()
If Me![MITARBEITERID3] Null Then
Me![ANZAHL] = 3
End If
Me.ANZAHL_T.Requery
End Sub

Klappt irgenwie nicht! Keine Anzeige im Textfeld.

Dann hab ich folgendes probiert:

Private Sub MITARBEITERID_AfterUpdate()
Me.ANZAHL_T = DLookup("MITARBEITERID", "tblService", "1")
Me.ANZAHL_T.Requery
End Sub

Hier wird zwar bei der ersten Auswahl das Textfeld aktualisiert, aber bei der Auswahl der nächsten 3 Kombinationsfelder geht der Inhalt vom Textfeld [ANZAHL_T] verloren bzw. wird es nicht aktualisiert.

Hat jemand eine Idee wie es besser geht?

Anbei die DB AOO/WINXP/ZIP

Grüße

Thomas

:)

 

Hi Thomas,

weiss nicht genau wass bei Dir nicht funzt; habe mir Deine mdb geladen und die Textfelder ändern sich wunderbar *confused.gif*

 

Hi Thorsten,

wie meinst Du die Textfelder! ändern sich.

Es soll sich nur "eins" ändern und zwar das "Anzahl der Techniker",
je nachdem welche Kombinations(Text)felder ich ausgewählt habe.
Dort soll sich nach der Auswahl auch ein Text befinden "Name des Techniker".

In dem Feld "Anzahl der Techniker" soll "1", "2", "3" oder "4"
erscheinen. Bei mir geht's nicht.

Kannst Du das bitte noch mal prüfen.

Grüße

Thomas

 

Thomas, ich habe den After Update-Code geändert und es funktioniert - zumindest bei mir.

Franz

 

Hi Franz,

ja super Klasse, das funkt.

Tausend Dank für die schnelle Hilfe!

Ich bin da wohl ein wenig durcheinander gekommen.

Grüße

Thomas

 

Das klappt schon sehr gut, nur ist mir nun aufgefallen, das
keine Abfrage vorhanden ist wenn ein Kombinationsfeld
gelöscht wird. Dann passt die Anzahl wieder nicht.

Ich habs damit versucht,

Private Sub MITARBEITERID4_AfterUpdate()
If Me.MITARBEITERID4 = Null Then
Me.ANZAHL_T = 3
Else
Me.ANZAHL_T = 4
End If
Me.ANZAHL_T.Requery
Me.Refresh
End Sub

aber klappt nicht.

Hat da jemand noch einen Hinweis.

Grüße

Thomas

 

Thomas, ich habe neben die Kombis 2, 3 und 4 Löschbuttons eingefügt, die ein Löschen irrtümlich eingegebener Namen erlauben und glzt. die zahl der Techniker in der Tabelle aktualisieren.

Franz