anoniem Geplaatst: 16 oktober 2004 Delen Geplaatst: 16 oktober 2004 Hallo allemaal, Klein vraagje, Ik heb een soort van kasboek gemaakt. Via een formulier vul ik een bedrag in die na een druk op de knop "Invullen" het bedrag plaatst in het werkblad. Met deze code converteert hij het getal in het tekstvak naar een valuta (Currency) [code:1:324d065804]curBedrag1 = CCur(bedrag1.Text)[/code:1:324d065804] Nu wil ik in de vba code van de knop "Invullen" een extra controle toevoegen die kijkt of de waarde in het tekstvak ook daadwerkelijk een getal is. Dus wanneer je daar tekst invoert moet hij een waarschuwing geven. Nu wanneer ik er tekst invoer loopt het programma helemaal vast, omdat de typen niet overeen komen (logisch) Heb het al geprobeerd met verschillende if- vormen maar kom er niet uit. Misschien dat iemand anders mij kan helpen? Alvast bedankt Quote Link naar reactie
anoniem Geplaatst: 16 oktober 2004 Auteur Delen Geplaatst: 16 oktober 2004 SkyWalker, De functie IsNumeric is waarschijnlijk geschikt. Je had natuurlijk ook een [code:1:d9130b5ccd]on error goto label[/code:1:d9130b5ccd] kunnen gebruiken... Ik hoop dat je er wat aan hebt. Groeten, Maarten. Quote Link naar reactie
anoniem Geplaatst: 17 oktober 2004 Auteur Delen Geplaatst: 17 oktober 2004 Bedankt voor je reactie. Heb verschillende mogelijkheden geprobeerd met de opties die je gaf. Maar helaas werkt het niet. Hoe zou ik dat moeten formuleren? Quote Link naar reactie
anoniem Geplaatst: 17 oktober 2004 Auteur Delen Geplaatst: 17 oktober 2004 Hallo anonieme walker, Lukt dus ook de code [code:1:c887ddc307]if IsNumeric(bedrag1.Text) then curBedrag1 = CCur(bedrag1.Text) else goto NogMaarEenPoging[/code:1:c887ddc307] niet? (Opm.: de code uit de losse pols geschreven...) Laat even weten wat hiermee je resultaat is. Groeten, Maarten. Quote Link naar reactie
anoniem Geplaatst: 18 oktober 2004 Auteur Delen Geplaatst: 18 oktober 2004 Hey Maarten, nogmaals bedankt voor je reactie. Ik heb het inmiddels voor elkaar. Ik zat inderdaad ermee dat het werkte wat jij in je vorige bericht zei dat hij daarna het numerieke getal niet kon converteren naar een currency (valuta). Heb het inmiddels opgelost. Dit heb ik gedaan in het tekstvak zelf dus niet in de code voor de knop "Invullen". De code voor het tekstvak: [code:1:9c13b5c03f]Dim bedrag As Currency bedrag = IsNumeric(bedrag1.Text) If bedrag1.Text = "" Then bedrag = True End If If bedrag = False Then MsgBox ("Geen correcte waarde") bedrag1.Text = "" End If[/code:1:9c13b5c03f] Nu kan het knop Invullen gewoon zijn werk doen en het getal converteren. Wanneer je al één letter typt in het tekstvak dan geeft hij de melding. Ik zat ook met het probleem dat wanneer het tekstvak leeg is hij ook die melding geeft omdat de waarde dan niet numeriek is, dat heb ik opgelost met het eerste if stukje. Ik wil je nogmaals bedanken voor je hulp en reacties. Groetjes Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen