Compile Error: ByRef argument type mismatch

type mismatch er normalt forkert erklæring af variabler.

Jeg har lige klippet din kode over i en lille testbase (og oprettet tabellen) - og det kører helt fint! Meget mystisk ??!!!??

Min kode:

Option Compare Database
Option Explicit

Function Importer_Ark(Filnavn As String) As Boolean
On Error GoTo Err_Handle
Dim rsFIL As New ADODB.Recordset

    rsFIL.Open "IMPORT_FILER", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
    rsFIL.AddNew
    rsFIL("Filnavn") = Filnavn
    DoCmd.TransferSpreadsheet acImport, 8, "IMPORT", Filnavn, True, "outputPDT!A1:AR2"
    Importer_Ark = True
    rsFIL("Importeret") = True
       
Exit_Function:
    rsFIL.Update
    rsFIL.Close: Set rsFIL = Nothing
    Exit Function
   
Err_Handle:
    Importer_Ark = False
    rsFIL("Importeret") = False
    Resume Exit_Function

End Function

Sub Test()
  Dim Fil_Importfejl As Integer
  Dim strFiler As String
  strFiler = "EnFil"
 
  Fil_Importfejl = 0
  If Not Importer_Ark(strFiler) Then
    Fil_Importfejl = Fil_Importfejl + 1
  End If
  MsgBox Fil_Importfejl
End Sub

Har fundet en anden løsning på problemet

Selv tak