Hallo Zusammen
Bei meinem Code, in welchem ich das Objekt FileDialog verwende bekomme ich eine Fehlermeldung die sagt: "Laufzeitfehler 13 Typen unverträglich"
Hier der Code:
Dim dlg As FileDialog
Dim strFileVorgabeName As String
Dim varItem As Variant
Set dlg = Application.FileDialog(msoFileDialogOpen)
dlg.AllowMultiSelect = True
If dlg.Show Then
For Each varItem In dlg.SelectedItems
db.Execute "Insert Into tblAnhangHotel (anhangHotel_Text) Values ('" & dlg.SelectedItems(varItem) & "')"
Next varItem
End If
Die Fehlermeldung weißt auf die rote gefärbte Zeile hin.
Wer kann mir weiterhelfen?
Gruss Daniel
Hallo,
db.Execute "Insert Into tblAnhangHotel (anhangHotel_Text) Values ('" & varItem & "')",dbFailOnError