title image


Smiley Das geht anders...
z.B. mit dieser Funktion:Function StrHex(S)'' Rückgabewert: Zeichenkette S in Hexadezimaldarstellung wandelnDim I As Integer, Res As StringOn Error GoTo Er If IsNull(S) Then StrHex = Null: Exit Function Res = "" For I = 1 To Len(S) Res = Res & Hex(Asc(Mid(S, I, 1))) Next I StrHex = ResEx: Exit FunctionEr: MsgBox Err.Description Resume ExEnd FunctionWenn es nur um den ersten Buchstaben geht, geht das aber auch einfacher ohne Hex-Konversion:Function FirstIsUpper(S) As Boolean'' Rückgabewert: Erster Buchstabe einer Zeichenkette ist GrossbuchstabeDim I As Integer, Res As StringOn Error GoTo Er FirstIsUpper = False If Nz(S, "") = "" Then Exit Function FirstIsUpper = Asc(Mid(S, 1, 1)) = Asc(UCase(Mid(S, 1, 1)))Ex: Exit FunctionEr: MsgBox Err.Description Resume ExEnd Function"weiter vorne" kann ich leider nicht anfangen. Du packst einfach den obigen Code in ein Modul und verwendest dann die so definierten Funktionen analog zu den eingebauten Funktionen von Access. Mehr gibt es nicht zu tun. (Zum Verständnis solltest du dich natürlich schon mit VBA beschäftigen, aber dabei kann ich dir wenig helfen...)Reinhard


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: