PDA

Vollständige Version anzeigen : Standartwert ändern per klick


Paul1965
24.10.2003, 12:28
Moin,
Frage an Comunity= ich möchte bei drucken das Standartwert von "abknr" ändern das gelingt auch aber bei neu öffnen des Formulars ist das alte wert wieder da.
Hat jemand eine Idee wie ich das Standartwert auch speichern kann ?
Anbei mein code:




Private Sub Befehl132_Click()
On Error GoTo Err_Befehl132_Click

' drucken
abknr.SetFocus
abknr.DefaultValue = Str(CLng(abknr.DefaultValue + 1))
abknr.Value = abknr.DefaultValue
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.PrintOut acSelection, PageFrom:=1, PageTo:=1, Copies:=1
DoCmd.Save acDefault, abk

Exit_Befehl132_Click:
Exit Sub

Err_Befehl132_Click:
MsgBox Err.Description
Resume Exit_Befehl132_Click

End Sub


Grüße

Manuela Kulpa
24.10.2003, 14:06
Hi Paul,

die Eigenschaft lässt sich grundsätzlich nur im Entwurf des Formulars "fest" speichern. Als Alternative: setzt doch den "neuen" Standardwert im Form_Load()- (Beim Laden) bzw. Form_Open()-Ereignis (Beim Öffnen). Oder du arbeitest hier an der Stelle mit einer Parametertabelle, die du dann entweder über DLookup (oder einer selbst geschriebenen Methode) ausliest.

Gruß