Wie setzen Sie den Wert ein ungebundenes Textfeld mit dem Standardwert einer leeren Zeichenfolge mit Access VBA

Ich habe eine Datenbank mit Informationen über die Besucher unserer Abteilung. Hier ist mein setup: Ein Benutzer wählt ein Besucher den Namen aus einem Listenfeld. Access weist die Werte aus, die Besucher-Rekord auf temporäre Variablen und öffnet ein ungebundenes Formular, wo diese Variablen sind die Standard-Werte in das Textfeld ein. Ändert ein Benutzer einen Wert in ein Textfeld, ein After_Update-Ereignis verwendet SQL für die Aktualisierung das entsprechende Feld, in das Besucher-Rekord und weist den neuen Wert der temporären Variablen.

After_Update Beispiel:

Dim strRUN As String
strRUN = updateVisitorOnDirty(Me.txtVisitorTravelMethod, "VisitorTravelMethod", 1)
HideWarnings (strRUN)
TempVars!strVisitorTravelMethod = Nz(Me.txtVisitorTravelMethod.Value, "")

"updateVisitorOnDirty" ist eine Funktion, die zurückgibt, SQL update eines Feldes (angegeben im zweiten argument) in der Tabelle mit Besucher-Informationen mit dem ersten argument. (Die Zahl am Ende sagt, es ist ein string.) "HideWarnings" schaltet Warnungen aus, führt die SQL, und dann dreht sich die Warnungen wieder auf.

Mein problem:
Wenn ein Benutzer löscht ein Textfeld, das After_Update-Ereignis ist, das Textfeld zurückzukehren, um es in den früheren Wert.

Ich dachte zuerst, dass vielleicht die ungebundenen Textfeld war das zurücksetzen auf den Standardwert, wenn es gelöscht wurde, aber ich setzte einen Haltepunkt in der sub, der ausgelöst wird, während After_Update:

Wenn ich einen Wert ändern in mytextbox von a nach b zu Debuggen.print zeigt den Wert der mytextbox als b ist. Wenn ich einen Wert ändern in mytextbox aus eine (leere oder leerer string) debug.print zeigt den Wert der mytextbox noch gleich ein.

Mein workaround war eine kleine "x" neben dem Textfeld, das der Benutzer klicken kann, um 1)deaktivieren Sie das Textfeld, 2)aktualisieren der temporären Variablen, und 3)aktualisieren Sie die Tabelle. Es funktioniert gut, aber es scheint, wie sollte es einen besseren Weg. Hilfe?

Bitte lassen Sie mich wissen, wenn Sie weitere Informationen benötigen oder wenn ich sonst re-Wort. Komme ich hier die ganze Zeit nach Antworten, aber dies ist das erste mal, ich habe tatsächlich eingereicht meine eigene Frage. Danke!

(Ich bearbeitet habe, damit der code korrekt angezeigt werden...und nicht verlassen eine Zeile vor.)

InformationsquelleAutor robbins4 | 2011-12-01

Schreibe einen Kommentar