Hallo an alle,
ich bin Neueinsteiger in der Access/VBA-Programmierung und habe ein Problem, das ich trotz Hilfe/Literatur/zahlreicher Code-Beispiele auf meinem Rechner nicht lösen kann:
Folgender Code…
>>
Sub AddNewPerson()
Dim dbsIOD As Database
Dim rstXREF As Recordset
’ Dim bla As Recordset
Dim strAKT_ID As String
Dim strRefIOD_ID As String
Set dbsIOD = CurrentDb
Set rstXREF = dbsIOD.OpenRecordset(„XREF_AKT_RefIOD“)
’ Set bla = dbsIOD.TableDefs(„XREF_AKT_RefIOD“).OpenRecordset()
strAKT_ID = „12“
strRefIOD_ID = „12“
With rstXREF
.AddNew
!AKT_ID = strAKT_ID
!RefIOD_ID = strRefIOD_ID
.Update
’ .Bookmark = .LastModified
Debug.Print "Neuer Datensatz: AKT_ID: " & !AKT_ID & "; RefIOD_ID: " & !RefIOD_ID
End With
rstXREF.Close
dbs.Close
End Sub
Verweise nicht markiert (=installiert?) war. Deshalb wurde das Database-Objekt in der Variablendeklaration nicht erkannt (*das* geht jetzt aber).
Auch werden in den Dim-Zeilen nach wie vor die Objekttypen „Database“ und „Recordset“ nicht mit blauer Schrift markiert.
Ich hoffe sehr auf Eure Hilfe und würde mich über einen Tipp oder eine Lösung freuen. Ansonsten muss ich es am Wochenende mal auf meinem Privat-PC versuchen.
Viele Grüße aus Frankfurt,
Jörg Müller