Getal uit reeks met tekst en getallen halen

Status
Niet open voor verdere reacties.

marka

Gebruiker
Lid geworden
14 jul 2009
Berichten
333
Ik heb straatnamen + huisnummers die in 1 veld staan en waar ik alleen het getal van wil hebben (+eventuele toevoeging).

Ik heb eerder zo'n vraag gesteld, maar uit de antwoorden van daar kom ik niet tot een oplossing.
Hoe kan ik enkel de getallen + toevoeging uit de reeks halen?

Functie zou dan nadat er een getal is gevonden nog moeten kijken of er een letter staat.
 
Met deze twee functies kun je een adres splitsen in Straatnaam en Huisnummer.
Met een beetje goede wil kun je hem zelf wel zodanig verbouwen, dat je eventueel de Toevoeging er ook nog uit kan distilleren...

Code:
Public Function HuisNummer(Tekst As String) As String
Dim i As Integer, x As Integer, y As Integer
Dim tmp As String
i = 1
Do Until Not IsNumeric(Mid(Tekst, i, 1))
    i = i + 1
Loop
For x = i To Len(Tekst)
    If Not IsNumeric(Mid(Tekst, x, 1)) Then
        y = x
    Else
        Exit For
    End If
Next
HuisNummer = Mid(Tekst, y, Len(Tekst) - y + 1)
End Function
Code:
Public Function StraatNaam(Tekst As String) As String
Dim i As Integer, x As Integer, y As Integer
Dim tmp As String
i = 1
Do Until Not IsNumeric(Mid(Tekst, i, 1))
    i = i + 1
Loop
For x = i To Len(Tekst)
    If Not IsNumeric(Mid(Tekst, x, 1)) Then
        y = x
    Else
        Exit For
    End If
Next
StraatNaam = Trim(Left(Tekst, y))
End Function
 
Dank je er staat nu nog een spatie voor het huisnummer hoe kan ik deze eruit krijgen?
 
Door de laatste regel te vervangen door deze:
HuisNummer = Trim(Mid(Tekst, y, Len(Tekst) - y + 1))
 
Ik maak nu een combinatie van postcode en huisnummer. Ik wil hierop groeperen, maar access geeft de melding "Gegevens komen niet overeen in criteriumexpressie". Wat kan ik hieraan doen?
 
Hoe probeer je de velden te combineren? Want normaal gesproken zijn zowel Postcode als Huisnummer een tektsveld, gezien dat je in Huisnummer ook de toevoeging wilt hebben.
 
Eigenlijk door niet meer dan onderstaand te doen.

Postcode Huisnummer: [postcode] & [huisnummer]
 
Probeer je te groeperen in een rapport, of in een query? En als het een query is, kun je dan de SQL posten?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan