Office: Standardwerte per VBA ändern

Hallo liebe Accessgemeinde,

in meiner Acc 97-DB habe ich ein Steuerelement, bei dem ich im Eigenschaftsfenster einen Standardwert ("123") zugeordnet habe.
Die Steuerelementeigenschaft 'gesperrt' ist ebenfalls eingestellt, damit der User hier im Normalfall keine Eingabe tätigen kann.

Ausnahmen bestätigen aber die Regel!

Wenn also der User den vorgegebenen Standardwert ändern soll, möchte ich das so realisieren, ohne dass das Form in der Entwurfsansicht geöffnet werden muss, sondern irgendwie per VBA.
Man kann z.B. die Eigenschaft: gesperrt per locked = True aufheben, aber wie geht es dann weiter?
Der Wert, der dann im Steuerelement eingetragen wird, soll dann dort auch permanent stehen bleiben, also als Standardwert.
Kann mir jemand weiter helfen?

Grüße aus dem schönen Münsterland

Winni

:)

 

Code:

Code:

 

Mit
Me!MeinFeld.Locked=False
kannst Du die Sperre aufheben

und nach Aktualisierung des Feldes:

Private Sub MeinFeld_AfterUpdate()
Me!MeinFeld.DefaultValue=Chr(34) & Me!MeinFeld & Chr(34)
End Sub

Allerdings bleibt der Standardwert so nicht erhalten. D.h. beim nächsten Öffnen des Formulares ist wieder der im Entwurf gültige Standardwert eingestellt.

 

Hallo,

Du kannst den Wert mittels DAO in der Tabelle ändern, aber nicht im gleichen Formular, da die Tabelle dann in Benutzung ist.

Code:

damit müsste es gehen. Es wird der Standardwert für das Feld in der Tabelle geändert, aber dann darf im Formular kein Standardwert eingetragen sein, da dieser dann Vorrang hätte.

 

Danke erstmal an alle!

Eure Vorschläge funktionieren auch so, wie von euch beschrieben, aber wie auch festgestellt wurde, wird der fix im Steuerelement vorgegebene Standardwert z.B. beim nächsten Start wieder angezeigt.

Ich habe ein ungebundenes Steuerelement. Gut, ich könnte natürlich eine Tabelle als Datenherkunft nutzen, aber ich hatte gehofft, dass man evtl. den Eintrag auch so manipulieren und manifestieren kann.
Vielleicht kennt ja jemand eine Lösung?

hand

Winni *cool.gif*

 

Dann müsstest Du den Standardwert in eine Parametertabelle schreiben und beim Öffnen des Formulares wieder auslesen. Eine Parameterverwaltung gibt es bei Reinhard: Parameter: Parameter verwalten, laufende Nummern

 

Code:

 

Moin!

Hier gibt's ja echt fast zu jedem Thema bereits einen Thread... *Smilie


Ich habe nun ein ähnliches "Problem", nämlich, dass ich über eine Eingabemaske Default-Werte ändern muss.

Ich kopierte den obigen Code und fügte ihn in einem neuen Modul ein:

Code:

Der Aufruf im Formular sieht wie folgt aus:

Code:

Doch hier ^^^ kommt jedesmal eine Fehlermeldung: "Fehler beim Kompilieren: Syntaxfehler"

*confused.gif*

DANKE!


PS: Beim obigen Code: Set tdf = dbs.TableDefs!table .... erkennt er da "table" als Parameter, oder muss ich ihm das irgendwie anders klarmachen (dereferenzieren oder was auch immer?)....


PPS: Ich habs übrigens auch mit dem Listing aus http://www.ms-office-forum.net/forum...dwert+%E4ndern versucht, allerdings kommt die selbe fehlermeldung beim Aufruf?!