Update ADO-Datensatz
19.05.2021 23:26:53
Ronald
Da bin ich wieder :-)
Datzensatz aktualisieren will nicht so recht klappen. Ich bekomme die Fehlermeldung: "Laufzeitfehler 3251: Das aktuelle Recordset unterstützt keine Aktualisierung. Hierbei handelt es sich möglicherweise um eine Einschränkung seitens des Providers oder des gewählten LockTypes.".
HIer hatte ich AdLockOptimistic. Bei AdLockPessimistic kommt die selbe Meldung. Ich habe das Gefühl, daß ich sich ein Fehler eingeschlichen hat, der mit dem
Locktype nichts zu suchen hat.
Erst wird auf Änderung geprüft:
Public Sub e_privKD_auf_Aenderung_pruefen()
If frmMain.txtKundennummer_KV.Text = strKundennummer_KV And frmMain.cboStatus_KV.Value = strStatus_KV And frmMain.txtKundeSeit_KV.Text = strKundeSeit_KV _
And frmMain.txtEintragsdatum_KV.Text = strEintragsdatum_KV And frmMain.txtAenderungsdatum_KV.Text = strAenderungsdatum_KV _
And frmMain.txtDomain_KV.Text = strDomain_KV And frmMain.cboKategorie_KV.Value = strKategorie_KV And frmMain.txtFirmenname_KV.Text = strFirmenname_KV _
And frmMain.txtAnrede_KV.Text = strAnrede_KV And frmMain.txtNachname_KV.Text = strNachname_KV And frmMain.txtVorname_KV.Text = strVorname_KV _
And frmMain.txtVorname2_KV.Text = strVorname2_KV And frmMain.txtUID_KV.Text = strUID_KV And frmMain.txtMwStNr_KV.Text = strMwStNr_KV Then
boolAenderung_Form_KV = False
Else
boolAenderung_Form_KV = True
End If
End Sub
...und dann aktualisiert:
Public Sub f_Update_privKD()
With rs
.Fields("fKdNummer").Value = frmMain.txtKundennummer_KV.Text
.Fields("fKdStatus").Value = frmMain.cboStatus_KV.Value
.Fields("fKdKundeSeit").Value = frmMain.txtKundeSeit_KV.Text
.Fields("fKdEintragsdatum").Value = frmMain.txtAenderungsdatum_KV.Text
.Fields("fKdAenderungsdatum").Value = frmMain.txtAenderungsdatum_KV.Text
.Fields("fKdDomain").Value = frmMain.txtDomain_KV.Text
.Fields("fKdKategorie").Value = frmMain.cboKategorie_KV.Value
.Fields("fKdOrt").Value = frmMain.txtOrt_KV.Text
.Fields("fKdAnrede").Value = frmMain.txtAnrede_KV.Text
.Fields("fKdNachname").Value = frmMain.txtNachname_KV.Text
.Fields("fKdVorname").Value = frmMain.txtVorname_KV.Text
.Fields("fKdVorname2").Value = frmMain.txtVorname2_KV.Text
.Update
End With
End Sub
Danke im Voraus.Gruß Ronald