[gedo]

السلام عليكم ورحمة الله وبركاته

إقتباس :RS.AddNew لإضافة جديد.
RS.Edit للتعديل على سجل بعد تحديده بـ WHERE في جملة الاستعلام.
ضع البيانات المطلوبة، مع ملاحظة أنه في حالة Edit لن تحتاج للسطر (RS!code = Trim(TxtCode.Text.
RS.Update تكون للـ AddNew و Edit بعد وضع البيانات المطلوبة.

شكرا لك اخوى على الرد ولكن انت تقصد RS.EditMode لانى لايوجد عندى RS.Edit

ثانى شىء انا حليت المشكلة بالنسبة للطريقة الثانية الى كتبها اخوى ناجى ابراهيم والى هى :

كود :

Private Sub ...

    On Error GoTo Save_Err

    RS.Close
    RS.Open "SELECT * FROM TB1", DB, adOpenDynamic, adLockOptimistic
    RS.AddNew
    RS("Name") = Trim(Txtname.Text)
    RS("code") = Trim(TxtCode.Text)
    RS.Update
    Exit Sub

Save_Err:
    RS.CancelUpdate
    MsgBox "خطأ..." & vbCrLf & Err.Description & vbCrLf & "لم يتم حفظ السجل"
End Sub

باقى فقط حل مشكلة الطريقة الاولى والمشكلة هى :

no value given for one or more required parameters

وشكرا لكم جميعا وبارك الله فيكم وجزاكم الله كل خير