For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then ctl = Null If ctl.ControlType = acComboBox Then ctl = "" If ctl.ControlType = acCheckBox Then ctl = False If ctl.ControlType = acOptionButton Then ctl = 1 Next ctl
Så skriver den 'tekst 30' kan ikke helt finde ud af hvad der er galt.
Ser således ud:
Private Sub Form_Open(Cancel As Integer) Dim ctl As Control
For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then ctl = Null If ctl.ControlType = acComboBox Then ctl = "" If ctl.ControlType = acCheckBox Then ctl = False If ctl.ControlType = acOptionButton Then ctl = 1 Next ctl
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.