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

[عمر ضاحى]

السلام عليكم 

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

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

    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]

  في 24‏/7‏/2021 at 12:47, عمر ضاحى 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")

وشكرا جزيلا

Expand  

جرب هذه

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

 

[عمر ضاحى]

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

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

rs.Edit

الى 

rs.Delete

?

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

  في 24‏/7‏/2021 at 13:57, عمر ضاحى said:

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

Expand  

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

    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]

  في 24‏/7‏/2021 at 14:15, محمد أبوعبدالله 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

تحياتي

Expand  

 

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

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

[عمر ضاحى]

  في 24‏/7‏/2021 at 14:36, Eng.Qassim said:

 

 

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

 

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

 

Expand  

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

rs.Update

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

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

  في 24‏/7‏/2021 at 14:36, Eng.Qassim said:

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

Expand  

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

  في 24‏/7‏/2021 at 15:03, عمر ضاحى said:

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

rs.Update

Expand  

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

تحياتي