طلب اصلاح كود التعديل

[عمر ضاحى]

السلام عليكم 

بعد اذن حضرتكم

كنت محتاج اصلح كود تعديل بيانات فى جدول

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblNational WHERE NationalID = cbjobNo")
        rs.Edit
        rs.Fields(ArNatiName) = [txtArJobName]
        rs.Fields(EnNatiName) = [txtEnJobName]
        rs.Update
    
    rs.Close
    Set rs = Nothing

الخطأ بيحيبه لى فى السطر

Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblNational WHERE NationalID = cbjobNo")

وشكرا جزيلا

[محمد أبوعبدالله]

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

تفضل اخي الكريم

اذا كان حقل NationalID رقم

Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblNational WHERE NationalID =" & cbjobNo)

اذا كان حقل NationalID نص

Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblNational WHERE NationalID ='" & cbjobNo & "'")

تحياتي

[Eng.Qassim]

1 hour ago, عمر ضاحى said:

السلام عليكم 

بعد اذن حضرتكم

كنت محتاج اصلح كود تعديل بيانات فى جدول

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblNational WHERE NationalID = cbjobNo")
        rs.Edit
        rs.Fields(ArNatiName) = [txtArJobName]
        rs.Fields(EnNatiName) = [txtEnJobName]
        rs.Update
    
    rs.Close
    Set rs = Nothing

الخطأ بيحيبه لى فى السطر

Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblNational WHERE NationalID = cbjobNo")

وشكرا جزيلا

جرب هذه

Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblNational WHERE NationalID =" [cbjobNo])

 

[عمر ضاحى]

طيب لو انا عاوز اخلي الكود يحذف السجل 

اغير فقط السطر ده من

rs.Edit

الى 

rs.Delete

?

[محمد أبوعبدالله]

17 دقائق مضت, عمر ضاحى said:

طيب لو انا عاوز اخلي الكود يحذف السجل 

سيكون بالشكل التالي

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblNational WHERE NationalID =" & cbjobNo)
        rs.Delete
        rs.MoveNext
    rs.Close
    Set rs = Nothing

تحياتي

تم تعديل يوليو 24, 2021 بواسطه محمد أبوعبدالله

[Eng.Qassim]

21 minutes ago, محمد أبوعبدالله said:

سيكون بالشكل التالي

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblNational WHERE NationalID =" & cbjobNo)
        rs.Delete
        rs.MoveNext
    rs.Close
    Set rs = Nothing

تحياتي

 

السلام عليكم استاذ ابو عبد الله

هل ضروري وضع جملة rs.MoveNext لانه ربما بالخطأ يمسح السجل التالي

[عمر ضاحى]

25 دقائق مضت, Eng.Qassim said:

 

 

السلام عليكم استاذ ابو عبد الله

 

هل ضروري وضع جملة rs.MoveNext لانه ربما بالخطأ يمسح السجل التالي

 

يمكن استبدالها ب 

rs.Update

ولا ايه رأيك استاذ @محمد أبوعبدالله

[محمد أبوعبدالله]

56 دقائق مضت, Eng.Qassim said:

هل ضروري وضع جملة rs.MoveNext لانه ربما بالخطأ يمسح السجل التالي

لا ليس ضروري ولكن وضعته للانتقال للسجل التالي

29 دقائق مضت, عمر ضاحى said:

يمكن استبدالها ب 

rs.Update

ضعها بعد امر الحذف ولكن ليس بديل عنه

تحياتي