مطلوب تعديل على كود اضافة ليصبح كود تعديل

[عبد الله قدور]

السلام عليكم

اخواني الكرام عندي كود لاضافة البيانات الى جدول النموذج غير مرتبط به وهو

Dim mydb As Database, Q1 As Recordset
   Set mydb = CurrentDb()
   Set Q1 = mydb.OpenRecordset("man")
   Q1.AddNew
   Q1!id = Trim(Me![pid])
  Q1!accname = Trim(Me![paccname])
    Q1!mob = Trim(Me![pmob])
  Q1!note = Trim(Me![pnote])
  Q1.Update

اريد ان استخدم هذا الكود في تعديل سجل ما في الجدول

 

[Shivan Rekany]

حسب فهمي 

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

وبعدين بدل ادد نيو اكتب اديت

[عبد الفتاح كيرة]

كود التعديل

استبدل الأسماء

Dim dbsNorthwind As DAO.Database
Dim rstEmployees As DAO.Recordset

   Set dbsNorthwind = CurrentDb
   Set rstEmployees = dbsNorthwind.OpenRecordset("Employees")

   rstEmployees.MoveFirst
   Do Until rstEmployees.EOF
      If rstEmployees!Title = "Sales Representative" Then
         rstEmployees.Edit
         rstEmployees!Title = "Account Executive"
         rstEmployees.Update
      End If
      rstEmployees.MoveNext
   Loop

 

[عبد الله قدور]

منذ ساعه, عبد الفتاح كيرة said:

كود التعديل

استبدل الأسماء

جزاك الله كل خير اخي عبد الفتاح

الكود يعمل بشكل جيد لكن لاحظت ان الكود يتأكد من كل السجلات الموجودة ولو تطابق الكود في اول مرة يعني ان امر do يكمل عمله ولو وجد القيمة من المرة الاولى او ثانية او الخامسة

اريد ان يتوقف عندما يجد ما التطابق من اول مرة لاني ساستخدم المفتاح الاساسي في البحث عن التطابق

تم تعديل مايو 15, 2017 بواسطه عبد الله قدور

[عبد الفتاح كيرة]

ضع شرطك بجوار  

 =Do Until yourfield 

 

[عبد الله قدور]

26 دقائق مضت, عبد الفتاح كيرة said:

ضع شرطك بجوار  

 =Do Until yourfield 

السلام عليكم اخي الكريم عبد الفتاح

اظن اني قد اثقلت عليك فيها لكني لم استخدم do قبل ابدا ولا اعلم عن الية استخدامها بشرط او بدونه فان كان بالامكان ان تضع الكود كاملا كما في المرة الاولى او التعديل على المرفق التالي

على النموذج addacc بحيث اريد تعديل الاسم بشرط المفتاح الاساسي

 

Database2.zip

[jjafferr]

 السلام عليكم

جرب هذا

jj=0
Do Until rstEmployees.EOF
If jj=1 then exit do
If rstEmployees!Title = "Sales Representative" Then
         rstEmployees.Edit
jj=1
         rstEmployees!Title = "Account Executive"
         rstEmployees.Update

 

جعفر

[jjafferr]

8 ساعات مضت, عبد الله قدور said:

 

Dim mydb As Database, Q1 As Recordset
   Set mydb = CurrentDb()
   Set Q1 = mydb.OpenRecordset("man")

'   Q1.AddNew
Q1.Edit

   Q1!id = Trim(Me![pid])
  Q1!accname = Trim(Me![paccname])
    Q1!mob = Trim(Me![pmob])
  Q1!note = Trim(Me![pnote])
  Q1.Update

اريد ان استخدم هذا الكود في تعديل سجل ما في الجدول

السلام عليكم أخي عبدالله

 

وكما قال الاستاذ شفان ، ولكن مترجما في الكود

 

جعفر

[محمد ايمن]

لماذا لا تستخدم عبارة SQL ؟؟

افضل و اسهل و اسرع