Nulstil formular

Lav en knap på en formular med navnet reset og indsæt denne kode

Private Sub reset_Click()
Dim frm As Form, ctl As Control
Set frm = Screen.ActiveForm
   
    For Each ctl In frm
        If ctl.ControlType = acTextBox Then
            ctl = ""
        End If
    Next ctl
   
End Sub

Brian_d :o)

Ovenstående er mit svar

brian_d :o)

Knappen skal også nulstille radio-buttons og dropdown-menuer, det klarer ovenstående vist ikke.

Kan man ikke lave noget i stil med DoCmd.Requery?

Der findes forskellige controltyper, denne kode tager hensyn til de controltyper du snakker om.

Private Sub reset_Click()
Dim frm As Form, ctl As Control
Set frm = Screen.ActiveForm
   
    For Each ctl In frm

Select Case ctl.ControlType
       
            Case acTextBox
                ctl = ""
            Case acComboBox
                ctl = ""
            Case acListBox
                ctl = ""
            Case acOptionGroup
                ctl = Null
            Case acCheckBox
                ctl = Null
            Case acOptionButton
                ctl = Null       

    Next ctl
   
End Sub

docmd.requery genforspørger kun på de underliggende data


Brian_d :o)