gemme i registreringsdatabasen

Har lige prøvet at lave et lille eksempel:
Dim KnapNavn As String
Dim HentNavn As String


Private Sub Command1_Click()
KnapNavn = Text1.Text
SaveSetting Appname:="NavnPaProgram", Section:="Hent data", Key:="jul", Setting:=KnapNavn
Call Opdatere

End Sub

Private Sub Form_Load()
Call Opdatere

End Sub


Private Sub Opdatere()

Command1.Caption = GetSetting(Appname:="NavnPaProgram", Section:="Hent data", Key:="jul", Default:="Intet Valgt")
End Sub

Du skal bruge 1sta from af navnet Form :)
En textbox af navn Text1
En knap af navnet Command1
Og regbasen