title image


Smiley Re: AccSampleBildverweise --> NUR BILDNAME NICHT PFAD SPEICHERN?
Erstelle ein neues Modul mit folgendem Inhalt:







Public Function Filename(Fullpath As String) As String

Dim Drive As String, DirName As String

Dim I As Integer, F As String, found As Integer

  Drive = ""

  DirName = ""

  Fullpath = Trim$(Fullpath)

  If Mid$(Fullpath, 2, 1) = ":" Then

    Drive = Left$(Fullpath, 2)

    Fullpath = Mid$(Fullpath, 3)

  End If

  F = ""

  found = False

  For I = Len(Fullpath) To 1 Step -1

    If Mid$(Fullpath, I, 1) = "\" Then

      F = Mid$(Fullpath, I + 1)

      DirName = Left$(Fullpath, I)

      found = True

      Exit For

    End If

  Next I

  If Not found Then

    F = Fullpath

  End If

  Filename = F

End Function







Code eingefügt mit Syntaxhighlighter 4.0







Der Aufruf erfolgt dann z.B. so:



call Filename(Me.Fullpath)



Gruß aus Wuppertal

Gruß aus Wuppertal
Stefan

-------------------------------------------------------------------------------
Soweit nicht anders angegeben, beziehen sich meine
Antworten auf WinXP SP2 und Access2003.
-------------------------------------------------------------------------------

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: