title image


Smiley Dateiname als Variable in DoCmd.TransferText. So gehts!
Hallo Leute, Hallo Joachim und Thomas.Es funktioniert. Danke! BernhardPrivate Sub Btn_DATA_importieren_Click()On Error GoTo Btn_DATA_importieren_Err'Vorgaben für Comdlg32.ocxWith Me!ActiveXStr0 .DialogTitle = "Wählen Sie die Datei aus,aus der Daten importiert werden sollen" .Filter = "ASCII Dateien(*.none,*.MET,*.txt, *.csv,*.tab)|*.*" .InitDir = "P:\Ruthe2000\Datenbank\Ei_Rohdaten" .ShowOpenEnd With'Wurde eine Datei ausgewählt, dann Subprozedur startenIf Me!ActiveXStr0.FileName "" Then DoCmd.TransferText acImportDelim, "Importspezifikation", _ "TAB_Name", _ Me!ActiveXStr0.FileName, False, "" Else MsgBox "Kein gültiger Pfad ausgewählt.", vbExclamation, "" Me!ActiveXStr0.FileName.SetFocusEnd IfBtn_DATA_importieren_Bye: Exit Sub'Error HandlingBtn_DATA_importieren_Err: If Err.Number = 32755 Then '"Abbrechen" wurde gewählt Resume Btn_DATA_importieren_Bye Else MsgBox Err.Number & ": " & Err.Description Resume Btn_DATA_importieren_Bye End If End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: