Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

VBA conversie probleem

None
4 antwoorden
  • Wie kan mij een source geven hoe je uit een veld dat text en nummers bevat, het text gedeelte verwijderd?
  • [quote:89c0fc1bce]
    Op 21-02-2002 16:27, schreef J2K:
    Wie kan mij een source geven hoe je uit een veld dat text en nummers bevat, het text gedeelte verwijderd?
    [/quote:89c0fc1bce]
    Uit een tekstveld in een formulier:
    [code:1:89c0fc1bce]
    Sub VerwijderTekst()
    Dim i as Integer
    Dim sResult as String

    For i = 1 To Len(<textboxnaam>.Text)
    If IsNumeric(Mid$(<textboxnaam>.Text,i,1)) Then
    sResult = sResult & Mid$(<textboxnaam>.Text,i,1)
    End If
    Next
    MsgBox sResult

    End Sub
    [/code:1:89c0fc1bce]
  • De code van Eddi is mooi. Maar misschien wil je wel gewoon alleen de numerieke waarde van een string-veld hebben dacht ik. Dan kun je gewoon Val($string) gebruiken. Deze functie stopt met inlezen van de string totdat een niet-numeriek karakter is gevonden en geeft vervolgens het gevonden deel als getal terug.
  • [quote:04bdcb1fc7]
    Op 23-02-2002 15:06, schreef greffov:
    De code van Eddi is mooi.
    [/quote:04bdcb1fc7]
    Dank je wel
    [quote:04bdcb1fc7]
    Dan kun je gewoon Val($string) gebruiken. Deze functie stopt met inlezen van de string totdat een niet-numeriek karakter is gevonden en geeft vervolgens het gevonden deel als getal terug.
    [/quote:04bdcb1fc7]
    En dan krijg je dus 0 terug als de tekst begint met een letter.

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.