ich hatte vor wenigen Wochen schon mal einen Beitrag geschrieben bezüglich einer Webabfrage und eines Imports mit Excel/VBA/Access. Da bräuchte ich beim Import nochmal Hilfe.
Folgendes Szenario:
Ich habe eine Excel-Liste mit folgenden Feldern:
BL_ISBN - BL_Hyperlink - BL_Titel - BL_Autor - BL_Datum - BL_PreisNeu - BL_PreisGebraucht - BL_Link
Beim ersten mal wird die Datei über Externe Daten - Excelimport in Access importiert. Dabei wird das Feld Hyperlink nicht mit importiert (es wird in Access nicht gebraucht, ist aber in der Excelliste wichtig). Beim Import gibt man an einen neuen PS von Access hinzuzufügen (dieser wird dann nachher von ID in BL_ID umbenannt). Der Import wird übrigens gespeichert.
Anschließend hat man die fertige Tabelle in Access, soweit ist auch alles gut.
Jetzt soll es ein Formular geben mit einem Button. Wenn man auf den Button klickt, soll der gespeicherte Excelimport von vorher wiederholt werden (sprich wenn man in der Excelliste einen Datensatz hinzugefügt hat, soll dieser in Access importiert werden)
Franz aus dem Forum hier hatte mir da schon einen Teil für den Import geschrieben:
Private Sub btn_Import_Click()
If MsgBox("Daten für die Tabelle ""Buchliste"" jetzt importieren?", vbQuestion + vbOKCancel, _
"Daten-Import") = vbOK Then
Application.DoCmd.RunSavedImportExport "Buchverwaltung2014"
Application.CurrentDb.TableDefs("tbl_Buchliste").Fields("BL_Link").OrdinalPosition = 9
'Application.DoCmd.OpenForm FormName:="Buchliste_Formular", view:=acNormal
End If
End Sub
Allerdings werden hier immer wieder alle Daten neu importiert und die ID wird nicht erkannt, sodass kein Import zustande kommt. :/
Könnte mir vielleicht jemand diesen Import so umschreiben, dass:
1. Nur neue Datensätze die in der Excelliste hinzugefügt wurden, importiert werden
2. Das die ID ausgelesen wird und es danach weitergeht (also Skript erkennt ID ist bei 8 und zählt dann automatisch hoch und fügt NUR den neuen Datensatz ein)
3. Fehlermeldung einbauen, falls etwas nicht geklappt hat
Um eine Lösung wäre ich super dankbar.
Gruß
Melissa