Forums Neueste Beiträge
 

Fehlfunktion bei Ac97

15/04/2010 - 20:00 von Johann Weiss | Report spam
Hallo zusammnen habe mit folgendem Code bei Access 97 das Problem,
das es eine Fehlermeldung gibt.

Code:

Function Fn_GetInitials(InputVal As Variant) As String
On Error GoTo ErrTrap
' Extracts a string of initials
' based upon space separator
Dim Rtv As Variant, Cnt As Long
Dim Txt As String

Txt = ""

If Len(InputVal) > 0 Then
Rtv = Split(InputVal, " ") '<< hier die Fehlermeldung mit
"InputVal"

For Cnt = 0 To UBound(Rtv)
Txt = Txt & Left(Rtv(Cnt), 1) & "."
Next
End If

Fn_GetInitials = Txt

ExitPoint:
On Error GoTo 0
Exit Function

ErrTrap:
MsgBox Err.Number & " - " & Err.Description
Resume ExitPoint
End Function


Das Problem mit Split hab ich schon gelöst.

Ab access 2000 làuft alles bestens.
Hoffe es weis jemand einen Rat.

gruß Johann
 

Lesen sie die antworten

#1 Jörg Ackermann
15/04/2010 - 20:16 | Warnen spam
Hallo Johann,

Johann Weiss meinte:


Hallo zusammnen habe mit folgendem Code bei Access 97 das Problem,
das es eine Fehlermeldung gibt.
...
Rtv = Split(InputVal, " ") '<< hier die Fehlermeldung mit



Split() gibt es in A97 noch nicht.
Verwende das http://vb-tec.de/strsplit.htm als Ersatz

Gruß

Mitglied im DBDEV http://www.dbdev.org
Access-FAQ: http://www.donkarl.com

Ähnliche fragen