Office: Abschneiden der Dateiendung

Hallo mal wieder!

Hab ein sicherlich seltsames Problem. Ich würde gerne von einem Dateinamen aus einer Combobox das Dateikürzel z.B .xls abschneiden.

Access erkennt das bei der Benennung der Tabellen nämlich nicht als regulär an.
Kann mir da jemand helfen? *confused.gif*


Hab es schon mit folgenden Code versucht aber der hat nur den Dateinamen verkürzt.

Set Bezeichner = Forms!Import![Kombinationsfeld27]

Bezeichner = Left(Bezeichner, Len(Bezeichner) - 4)

Markus

:)

 

Hallo

Klicke mal auf die 3 .... bei der Datensatzherkunft

Du landest dann im abfrageeditor

Erstelle ein neues Feld

Ausdruck:Links(Deinfeld, Len(Deinfeld) - 4)

 

\@kama

das klappt aber nicht bei Dateiendungen die nicht 3 stellig sind.
Deshalb würde ich lieber mit der InStrRev-Funktion arbeiten und den Punkt ermitteln, solange A00 oder höher existiert, sonst mit der Funktion von Reinhard Kraasch.

 

Dann müßte es so aussehen

Ausdruck:Teilstr(Deinfeld;1;Len(Deinfeld) - Instr(1;deinfeld;".";1)-1)

 

Hallo zusammen!

Danke erst mal das ich euch sofort so eifrig um mein Problem gekümmert habt. Aber aus irgendeinen Grund als ich gestern Abend das Tool noch einmal laufen ließ, klappte es. Keine Ahnung warum? Habe nichts verändert. Vielleicht war das nur eine Laune meines Pc´s.

Trotzdem Danke nochmal!!

Markus