Help Vba

[Tinas]

HI,

Ik hoop dat iemand mij kan helpen met het volgende probleem.
ik heb de volgende code ( VBA) gebruikt om een formulier ( In Access) te verversen als je de uitvalpercentage wijzigd:


Private Sub txtUitval_Change()
btn_Bereken_Click
Me.Refresh
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End Sub

Nu is het zo dat het percentage wel wijzigd maar ik kan alleen maar hele getallen invoeren, dus bv 3,5 gaat dus niet.

Hoe kan ik dit verhelpen?

 

[ingmar01]

Oplossing

De declaratie van de variabel is waarschijnlijk niet goed.
Moet zijn SINGEL of VARIANT

 

[beheer25]

Het onChange event vuurt af TIJDENS het wijzigen van de waarde in een veld. Dus na het intikken van het eerste karakter vuurt het event al af. In dit geval moet je het After Update event gebruiken, die vuurt af na het bijwerken van het veld.

Als je ergens op het formulier een veld hebt staan dat gebruik maakt van het veld "txtUitval" dan kun je ook nog overwegen om alleen dat veld bij te werken.


Grtz,