Record Right Syntaxis

[Abyss]

Ik heb in access 2000 een kolom met de volgende tekst 08.T.001 t/m 08.T.9999
Nu wil ik via een query alleen de laatste 4 cijfers laten zien dus de 08.T. wil ik in de query niet meer zien.
Ik heb iets geprobeert met Right() maar dit lijkt niet te werken.




Abyss

 

[Guus2005]

Omdat je de ene keer drie en de andere keer 4 cijfers hebt zal het wel misgaan.
Ik gebruik hiervoor deze recursieve functie.

Public Function GetPart(strString As String, strSep As String, intPart As Integer) As String
'Guus2005 - 2006
'Recursive function which returns part "intPart" of "strString" with "strSep" as a separator
   
   Dim intFound As Integer
   Dim intNext  As Integer
   
   intFound = InStr(1, strString, strSep)
   If intFound > 0 Then
      If intPart = 1 Then
         GetPart = Mid$(strString, 1, intFound - 1)
      Else 'intPart > 1
         GetPart = GetPart(Mid$(strString, intFound + 1), strSep, intPart - 1) 'recursive
      End If
   Else 'intFound = 0, no occurence of seperator so return complete string
      GetPart = strString
   End If
   
End Function

enjoy!

 

[Abyss]

Bedankt voor je snelle reactie :thumb:

Ik bedoel meer zo iets als " Tabel1: rechts([Veldnr],4) "
Maar op de een of andere manier doet deze het helemaal niet.

 

[Guus2005]

Bedankt voor je snelle reactie :thumb:

Ik bedoel meer zo iets als " Tabel1: rechts([Veldnr],4) "
Maar op de een of andere manier doet deze het helemaal niet.

Ik ken het statement "rechts" niet. Misschien moet je

Tabel1: right$([Veldnr],4)

proberen?

Maar wat doe je dan als je ".001" terug krijgt?

Als je mijn code opslaat in een module dan kan je er als volgt gebruik van maken

Tabel1: getpart([Veldnr],".",3)

Succes!