title image


Smiley Re: Verzeichnis, in der sich meine DB befindet ???
Function fDBPfad() Dim intZähler As Integer Dim strPfad As String strPfad = CurrentDb.Name For intZähler = Len(strPfad) To 1 Step -1 If Mid(strPfad, intZähler, 1) = "\" Then fDBPfad = Left(strPfad, intZähler - 1) Exit For End If NextEnd FunctionPitzi

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: