[Acces97]Clearen van Textfields in een Form

[Ruidasilva]

Ik heb een form, met daarin textfields zodat je gegevens
kan toevoegen aan de database. Maar als je het from
opstart zie je telkens de laatste toegevoegde gegevens in
de textfields staan. Hoe kan ik de textfields clearen bij
het opstarten van de form, zodat ze leeg zijn?!

Ik heb in VBA dit gemaakt, maar helaas geeft de compiler een error bij de functie Form_Load():

Private Sub Form_Load()
Public Function ClearControls()

Dim ctrl As Control
Dim temp As String

For Each ctrl In Controls
Select Case TypeName(ctrl)
Case "TextBox"
TextBox.Text = vbNullString
Case "ComboBox"
ComboBox.ListIndex = -1
End Select

End Function

[henkleerssen]

1) debuggen kan ook in Access (F9 op sub form_load lijn).. waar precies in form_load zie je de fout?
2) TextBox.Text = vbNullString .. waarom niet gewoon TextBox.Text = ""?

[BtM909]

Dat is een eigenschap van je Formulier

DATA ENTRY op Yes zetten....

edit:
Kosste mij btw 10 seconden met de wizard van Access...

[ Voor 33% gewijzigd door BtM909 op 10-04-2003 11:21 ]

[Ruidasilva]

henkleerssen schreef op 10 April 2003 @ 11:19:
1) debuggen kan ook in Access (F9 op sub form_load lijn).. waar precies in form_load zie je de fout?
2) TextBox.Text = vbNullString .. waarom niet gewoon TextBox.Text = ""?

Hij geeft een 'Expected End Of Sub' error en verwijst dan naar de Form_load regel....

[BtM909]

Read my previous post

[henkleerssen]

BtM909 schreef op 10 april 2003 @ 11:20:
Dat is een eigenschap van je Formulier

DATA ENTRY op Yes zetten....

edit:
Kosste mij btw 10 seconden met de wizard van Access...

Dat zou het ook maar zo kunnen zijn.. Ruidasilva.. luister naar btm...

[KingRichard]

Vier fouten volgens mij:
1. Je kunt geen Function definiëren binnen een Sub
2. vbNullString=Niet hetzelfde als een tekenreeks zonder gegevens (""); wordt gebruikt voor het oproepen van externe procedures (Access Help)
3. In de For Each-loop moet je de Text- en ComboBoxen aanroepen met de naam van de loop.
4. De For Each-loop moet worden afgesloten met Next

Wel goed:

code:

Public Function ClearControls()

Dim ctrl As Control
Dim temp As String

For Each ctrl In Controls
   Select Case TypeName(ctrl)
   Case "TextBox"
      ctrl.Text = Empty
   Case "ComboBox"
      ctrl.ListIndex = -1
   End Select
Next ctrl

End Function

Private Sub Form_Load()

ClearControls

End Sub

Ik heb dit niet gecontroleerd, maar je kunt zo in ieder geval verder, hoop ik.

[Ruidasilva]

Dat is een eigenschap van je Formulier

DATA ENTRY op Yes zetten....

henkleerssen schreef op 10 April 2003 @ 11:25:
[...]

Dat zou het ook maar zo kunnen zijn.. Ruidasilva.. luister naar btm...

Bedankt jongens!!!!!!
Het werkt, en ik maar denken dat ik een VBscript moest maken

[Ruidasilva]

KingRichard schreef op 10 April 2003 @ 11:28:
Vier fouten volgens mij:
1. Je kunt geen Function definiëren binnen een Sub
2. vbNullString=Niet hetzelfde als een tekenreeks zonder gegevens (""); wordt gebruikt voor het oproepen van externe procedures (Access Help)
3. In de For Each-loop moet je de Text- en ComboBoxen aanroepen met de naam van de loop.
4. De For Each-loop moet worden afgesloten met Next

Wel goed:

code:

Public Function ClearControls()

Dim ctrl As Control
Dim temp As String

For Each ctrl In Controls
   Select Case TypeName(ctrl)
   Case "TextBox"
      ctrl.Text = Empty
   Case "ComboBox"
      ctrl.ListIndex = -1
   End Select
Next ctrl

End Function

Private Sub Form_Load()

ClearControls

End Sub

Ik heb dit niet gecontroleerd, maar je kunt zo in ieder geval verder, hoop ik.

Dit heb ik er ook ingegooid en dit werkt ook! Dus ik kan kiezen, wat een luxe....

[BtM909]

Gooit deze code je laatste record niet weg.... Navigeer eens naar een andere record?

[Ruidasilva]

BtM909 schreef op 10 April 2003 @ 11:31:
Gooit deze code je laatste record niet weg.... Navigeer eens naar een andere record?

Nee, het werkt gewoon...