Hallo Everyone,
I am not able to add values (imported file names "fn" to the column "file_name") pls help me
Code:
Public Function selectFile()
DoCmd.SetWarnings False
Dim crrs As DAO.Database
Dim cr As DAO.Recordset
Set crrs = CurrentDb
On Error GoTo go1
DoCmd.DeleteObject acTable, "qry_import"
go1:
On Error GoTo beenden
Dim fdialog As FileDialog
Dim sFolder As String
Set fdialog = Application.FileDialog(msoFileDialogFilePicker)
Dim pth As Variant
With fdialog
.InitialFileName = "S:\Automotive\CO\DE\AKMP\22_Procurement\04 Kennzahlen\03_Werkzeugmanagment\Archiv\"
If .Show = -1 Then
sFolder = .SelectedItems(1)
fn = Dir(sFolder)
End If
End With
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "qry_import", sFolder, True, "A:N"
Set fldnew = CurrentDb.TableDefs("qry_import").CreateField("file_name", dbLong)
CurrentDb.TableDefs("qry_import").Fields.Append fldnew
Set cr = crrs.OpenRecordset("qry_import")
cr.Fields.Refresh
cr.AddNew
cr!file_name = fn
DoCmd.OpenQuery "WZDB_anfügen"
beenden:
DoCmd.SetWarnings True
End Function
Thank you for your Help!