PDA

Vollständige Version anzeigen : Standardwert ändern während Laufzeit


RIDDLER
10.08.2001, 10:55
Hi

Ist es möglich während der Laufzeit eines Formulares den Standardwert einer Spalte in einer Tabelle zu ändern?

Soll heißen:
Der Benutzer hat die Möglichkeit den Standardwert einer Spalte von seinem Arbeitsformular aus zu ändern.

Danke im Voraus

Manuela Kulpa
10.08.2001, 11:27
<font face="Verdana" size="2">Hallo RIDDLER!

Anbei ein kleines Beispiel!

HTH</font>

<FONT SIZE=1 FACE=Courier New><FONT COLOR=#000080>Public</FONT> <FONT COLOR=#000080>Function</FONT> ChangeDefaultValue(sTable <FONT COLOR=#000080>As String</FONT>, _
sField <FONT COLOR=#000080>As String</FONT>, _
sNewDefault <FONT COLOR=#000080>As String</FONT>) <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Boolean</FONT>

<FONT COLOR=#000080>On Error GoTo</FONT> ChangeDefaultValueErr

<FONT COLOR=#000080>Dim</FONT> db <FONT COLOR=#000080>As</FONT> DAO.Database
<FONT COLOR=#008000>' eine kleines TableDef-Objekt</FONT>
<FONT COLOR=#000080>Dim</FONT> defTable <FONT COLOR=#000080>As</FONT> DAO.TableDef
<FONT COLOR=#000080>Dim</FONT> bOK <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Boolean</FONT>

<FONT COLOR=#008000>' Initialisierung</FONT>
bOK = <FONT COLOR=#000080>False</FONT>

<FONT COLOR=#000080>Set</FONT> db = CurrentDb

<FONT COLOR=#008000>' TableDef-Initialisierung</FONT>
<FONT COLOR=#000080>Set</FONT> defTable = db.TableDefs(sTable)

<FONT COLOR=#008000>' Standardwertveränderung</FONT>
defTable.Fields(sField).DefaultValue = sNewDefault

<FONT COLOR=#008000>' Alles OK</FONT>
bOK = <FONT COLOR=#000080>True</FONT>

ChangeDefaultValueExit:
<FONT COLOR=#000080>If</FONT> <FONT COLOR=#000080>Not</FONT> defTable <FONT COLOR=#000080>Is</FONT> <FONT COLOR=#000080>Nothing</FONT> <FONT COLOR=#000080>Then</FONT> <FONT COLOR=#000080>Set</FONT> defTable = <FONT COLOR=#000080>Nothing</FONT>
<FONT COLOR=#000080>If</FONT> <FONT COLOR=#000080>Not</FONT> db <FONT COLOR=#000080>Is</FONT> <FONT COLOR=#000080>Nothing</FONT> <FONT COLOR=#000080>Then</FONT> db.<FONT COLOR=#000080>Close</FONT>: <FONT COLOR=#000080>Set</FONT> db = <FONT COLOR=#000080>Nothing</FONT>
ChangeDefaultValue = bOK
<FONT COLOR=#000080>Exit Function</FONT>

ChangeDefaultValueErr:
MsgBox "Error: " & Err.Number & ". " & Err.Description, , _
"ChangeDefaultValue"
<FONT COLOR=#000080>Resume</FONT> ChangeDefaultValueExit

<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Function</FONT></FONT>