Hallo Zusammen,
ich möchte auf ein paar Felder im Recordset zugreifen. Das funktioniert auch gut, mal abgesehen von zwei Feldern.
Ich habe hier bereits die Namen der Felder ausgelesen die Felder direkt angesprochen. Allerdingsfunktioniert es nicht und ich komm momentan auch nicht weiter.
Hat jmd von euch eine Idee?!
Besonderheit ist evtl. das ich auf eine View im SQL-Server zugreife?!
Public Function DatensatzHinzufuegen(PA_TeileNr As String, SortID As Integer)
Dim db As DAO.Database
Dim dbfill As DAO.Database
Dim rst As Recordset2
Dim fillrst As Recordset2
Set db = CurrentDb
Set rst = db.OpenRecordset("tbl_Sortiment_Artikel", dbOpenDynaset)
Set fillrst = db.OpenRecordset("select PT_ArtName, PT_Size From dbo_view_PT_XML_Main_Exp_MySQL_1 " _
& "where [PA_TeileNr] like " & PA_TeileNr & " and PT_Sprache like 'DE' ")
Debug.Print fillrst!PT_Sprache 'PT Sprache ist Feld 13 nach i = 0!
Debug.Print fillrst.Fields(13) '[font=Verdana]Hier Treten Fehler 3265 auf[/font]
Stop
With rst
.AddNew
!KndID = SortID
!ArtikelID = PA_TeileNr
'Name = fillrst.PT_ArtName
'Stop
!Ausführung = fillrst.PT_Qualitaet '[font=Verdana]Hier Tritt Fehler 438 auf[/font]
!Größe = fillrst.PT_Size
.Update
End With
Set db = Nothing
Set rst = Nothing
Set fillrst = Nothing
Debug.Print "Geschafft"
End Function
Die Fehlermeldung ist:
Laufzeitfehler 3265: Element in dieser Auflistung nicht gefunden!
oder
Laufzeitfehler 438: Objekt unterstützt diese Eigenschaft oder Methode nicht!
Danke schon Mal für jede Unterstützung!!!
Gruß
Tom
Hallo,
was nicht selektiert wird, auf das kann auch nicht zugegriffen werden:
Set fillrst = db.OpenRecordset("select PT_ArtName, PT_Size , PT_Sprache, PT_Qualitaet From dbo_view_PT_XML_Main_Exp_MySQL_1 " _
& "where [PA_TeileNr] like " & PA_TeileNr & " and PT_Sprache like 'DE' ")
Hallo Franz,
thx, bin mittlerweile auch auf den Fehler gekommen.
Vielen Dank!!!
Grüße
Tom