Office: Operation wird für diesen Objekttyp nicht unterstützt / Recordset

dreamweaver · 13. Februar 2006

Hallo,

ich sitz gerade in einer Sackgasse fest und weiß nicht so recht weiter.
Folgenden Code habe ich:

Code:

Private Sub Btn_NeuerFarbton_Click()
Dim farbton_check As Integer
Dim new_colorcode As Integer
Dim rs As ADODB.Recordset
Dim stdNR As String
Dim sql As String

Set rs = New ADODB.Recordset
rs.Open "Fenster", CurrentDb.Connection, adOpenDynamic, adLockOptimistic, adCmdTable

farbton_check = DCount("[color-code]", "Fenster", "[collection] = '" & Me!Komb_Kollektion & "' AND [colorcode] = '" & Me!txt_Farbtonbezeichnung & "'")
new_colorcode = DLast("[color-code]", "Fenster")
new_colorcode = new_colorcode + 1

If farbton_check > 0 Then
If MsgBox("Datensatz besteht schon! Trotzdem anlegen?", vbCritical + vbYesNo) = vbNo Then
Exit Sub
Else
rs.AddNew
rs.Fields("color-code").Value = new_colorcode
rs.Fields("color-node").Value = "MS"
rs.Fields("collection").Value = Me!Komb_Kollektion.Column(0)
rs.Fields("collection-type").Value = Me!Komb_Kollektion.Column(1)
rs.Fields("collection-valid-type").Value = Me!Komb_Kollektion.Column(2)
rs.Update
rs.Close
End If
Else
If MsgBox("Wirklich anlegen?", vbQuestion + vbYesNo) = vbNo Then
Exit Sub
Else
rs.AddNew
rs.Fields("color-code").Value = new_colorcode
rs.Fields("color-node").Value = "MS"
rs.Fields("collection").Value = Me!Komb_Kollektion.Column(0)
rs.Fields("collection-type").Value = Me!Komb_Kollektion.Column(1)
rs.Fields("collection-valid-type").Value = Me!Komb_Kollektion.Column(2)
rs.Update
rs.Close
End If
End If

Set rs = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn ich den Button drücke gibt er mir die Fehlermeldung:
(Auf der markierten Zeile im Code bleibt er stehen)

Laufzeitfehler 3251
Operation wird für diesen Objekttyp nicht unterstützt.

Was mach ich da falsch? Der Verweis für ADO müsste richtig gesetzt sein.
Zumindest schlägt er mir im Visual-Basic-Editor die passenden Befehle vor.

*entsetzt

:)

J_Eilers · 14. Februar 2006

Hi,

versuchs mal so:

Code:

Dim rs As New ADODB.Recordset

With rs
.ActiveConnection = CurrentProject.Connection
.LockType = adLockOptimistic
.CursorType = adOpenDynamic
.Open "Fenster"
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

dreamweaver · 14. Februar 2006

So klappts. Aber wo ist jetzt der Unterschied?

J_Eilers · 14. Februar 2006

Das kann ich dir leider auch nicht sagen. Aber ich hatte das Problem selber schon und deswegen initialisiere ich die ADO.Recordsets lieber auf diese Weise. Irgendwas scheint da beim Open nicht ganz zu laufen.

dreamweaver · 14. Februar 2006

Seltsam. An manchen Stellen klappts bei mir und bei manchen wieder nicht. Danke für
deine Hilfe.

Office: Operation wird für diesen Objekttyp nicht unterstützt / Recordset

Operation wird für diesen Objekttyp nicht unterstützt / Recordset

Operation wird für diesen Objekttyp nicht unterstützt / Recordset

Operation wird für diesen Objekttyp nicht unterstützt / Recordset

Operation wird für diesen Objekttyp nicht unterstützt / Recordset - Similar Threads - Operation Objekttyp unterstützt

Die Reihenfolge, in der Excel Operationen in Formeln ausführt

Operation wird für Objekttyp nicht unterstützt

Operation muss eine aktualisierbare Abfrage verwenden

operation muss eine aktualisierbare Abfrage verwenden

Syntaxfehler in JOIN-Operation

Unzulässige Operation

Excel VBA :: Klassenmodul für Textboxen :: Unterschiedliche Operationen je Textbox