title image


Smiley Re: Verzeichnisname feststellen
Hallo Nilsz.B. so:Public Function DatenbankPfad()Dim cpfad As StringDim ipos As IntegerDim itpos As Integercpfad = CurrentDb.Nameitpos = 0ipos = InStr(1, cpfad, "\")Do Until ipos = 0If ipos > 0 Then itpos = ipos End If ipos = InStr(itpos + 1, cpfad, "\") Loop cpfad = Left(cpfad, itpos) DatenbankPfad = cpfadEnd FunctionGrußMichaela

Rechtschreibfehler sind geistiges Eigentum des Authors und dürfen ohne schriftliche Genehmigung weder kopiert, noch veröffentlicht werden!

 

Möchtegern-Profi: "Bei Linux gibt es wenigstens keinen BlueScreen"

Echter Profi: "Stimmt! Dort ist er schwarz und heißt Kernel-Panic!"

 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: