عمر ضاحى قام بنشر يوليو 24, 2021 مشاركة قام بنشر يوليو 24, 2021 السلام عليكم بعد اذن حضرتكم كنت محتاج اصلح كود تعديل بيانات فى جدول 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") وشكرا جزيلا رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد أبوعبدالله قام بنشر يوليو 24, 2021 أفضل إجابة مشاركة قام بنشر يوليو 24, 2021 وعليكم السلام وحمة الله وبركاته تفضل اخي الكريم اذا كان حقل NationalID رقم Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblNational WHERE NationalID =" & cbjobNo) اذا كان حقل NationalID نص Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblNational WHERE NationalID ='" & cbjobNo & "'") تحياتي 2 1 رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر يوليو 24, 2021 مشاركة قام بنشر يوليو 24, 2021 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]) 1 1 رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يوليو 24, 2021 الكاتب مشاركة قام بنشر يوليو 24, 2021 طيب لو انا عاوز اخلي الكود يحذف السجل اغير فقط السطر ده من rs.Edit الى rs.Delete ? رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر يوليو 24, 2021 مشاركة قام بنشر يوليو 24, 2021 (معدل) 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 بواسطه محمد أبوعبدالله 1 1 رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر يوليو 24, 2021 مشاركة قام بنشر يوليو 24, 2021 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 لانه ربما بالخطأ يمسح السجل التالي رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يوليو 24, 2021 الكاتب مشاركة قام بنشر يوليو 24, 2021 25 دقائق مضت, Eng.Qassim said: السلام عليكم استاذ ابو عبد الله هل ضروري وضع جملة rs.MoveNext لانه ربما بالخطأ يمسح السجل التالي يمكن استبدالها ب rs.Update ولا ايه رأيك استاذ @محمد أبوعبدالله رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر يوليو 24, 2021 مشاركة قام بنشر يوليو 24, 2021 56 دقائق مضت, Eng.Qassim said: هل ضروري وضع جملة rs.MoveNext لانه ربما بالخطأ يمسح السجل التالي لا ليس ضروري ولكن وضعته للانتقال للسجل التالي 29 دقائق مضت, عمر ضاحى said: يمكن استبدالها ب rs.Update ضعها بعد امر الحذف ولكن ليس بديل عنه تحياتي 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.