كود التالي لحقل غير منتظم بالنموذج

[النجاشي]

السلام عليكم احبتي 

المطلوب

عند ادخال رقم الصنف بحقل البحث

واعمل حفظ التعديل واستمرار

اريد يظهر لي رقم الصنف التالي بحقل البحث

تحياتي احبتي

التالي.rar

[النجاشي]

للرفع

[jjafferr]

وعليكم السلام 🙂

 

هذ التغيير الذي عملته في الكود ، والباقي لم المسه 🙂

On Error Resume Next
'تعديل سجل موجود في الجدول
'  W = ""
 
   Set rs = CurrentDb.OpenRecordset("Alsnaf")
   'البحث عن رقم السجل المعدل

   'اذا وجد السجل
    rs.FindFirst "[ID_Sanf] =" & ID_Sanf
    
    'تحريره
        rs.Edit
            rs!ID_Sanf = ID_Sanf
            rs!Sanf = Sanf
            rs!Alwsf = Alwsf
            rs!Price_Bought = Price_Bought
            rs!Price_Sales = Price_Sales
            rs!Almwka = Almwka
            rs!Albdil = Albdil
            rs!Albdil2 = Albdil2
            rs!Albdil3 = Albdil3
            rs!rsdaolalmdh = rsdaolalmdh
            rs!Source = Source
            rs!Packing = Packing
            rs!ASRKA = ASRKA
            rs!A2 = A2
         rs.Update
         
         rs.MoveNext
         Me.txt_2 = rs!ID_Sanf
         
   If rs.NoMatch Then
      MsgBox "لم يتم العثور على السجل"
      Exit Sub
   End If

'   MsgBox "تم الحفظ"
'End If

.

ولكن يا ابو زاهر ، في طريقة جدا اسهل من طريقتك ، فالاكسس يقوم بكل هذا تلقائيا وتقريبا بدون كود ، وخصوصا اشوف انك داخل في غياهب الـ Recorset 

 

اجعل النموذج مصدر بياناته استعلام ومصدر بيانات الاستعلام الجدول Alsnaf ، وحقل البحث يكون غير منتظم ، والاستعلام يكون فيه معيار البحث من النموذج ،

والاكسس يواصل عمله من هنا تلقائيا ، سواء بالحفظ او الحصول/عدم الحصول على سجل البحث ، وبدون كود تقريبا 🙂

 

جعفر

1137.التالي.accdb.zip

[النجاشي]

10 ساعات مضت, jjafferr said:

 

On Error Resume Next
'تعديل سجل موجود في الجدول
'  W = ""
 
   Set rs = CurrentDb.OpenRecordset("Alsnaf")
   'البحث عن رقم السجل المعدل

   'اذا وجد السجل
    rs.FindFirst "[ID_Sanf] =" & ID_Sanf
    
    'تحريره
        rs.Edit
            rs!ID_Sanf = ID_Sanf
            rs!Sanf = Sanf
            rs!Alwsf = Alwsf
            rs!Price_Bought = Price_Bought
            rs!Price_Sales = Price_Sales
            rs!Almwka = Almwka
            rs!Albdil = Albdil
            rs!Albdil2 = Albdil2
            rs!Albdil3 = Albdil3
            rs!rsdaolalmdh = rsdaolalmdh
            rs!Source = Source
            rs!Packing = Packing
            rs!ASRKA = ASRKA
            rs!A2 = A2
         rs.Update
         
         rs.MoveNext
         Me.txt_2 = rs!ID_Sanf
         
   If rs.NoMatch Then
      MsgBox "لم يتم العثور على السجل"
      Exit Sub
   End If

'   MsgBox "تم الحفظ"
'End If

ولكن يا ابو زاهر ، في طريقة جدا اسهل من طريقتك ، فالاكسس يقوم بكل هذا تلقائيا وتقريبا بدون كود ، وخصوصا اشوف انك داخل في غياهب الـ Recorset 

 

اجعل النموذج مصدر بياناته استعلام ومصدر بيانات الاستعلام الجدول Alsnaf ، وحقل البحث يكون غير منتظم ، والاستعلام يكون فيه معيار البحث من النموذج ،

والاكسس يواصل عمله من هنا تلقائيا ، سواء بالحفظ او الحصول/عدم الحصول على سجل البحث ، وبدون كود تقريبا 🙂

 

جعفر

1137.التالي.accdb.zip 212.29 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 6 downloads

الله ينور عليك استاذي الفاضل 

الكود يعطينا التالي لاول مره اضغط فيه زر الحفظ والاستمرارالاستاذ جعفر.accdbالاستاذ جعفر.accdb بعدها لايظهر التالي

اذا ممكن التعديل على القاعد المرفقه كما قلت لي اسهل الطرق

لااننا صراحه لم استطع اكمل فيه لانه الحقول غير منتظم

تحياتي يالغالي

 

الاستاذ جعفر.accdb

[jjafferr]

وعليكم السلام 🙂

 

رجاء توضح شوية زيادة ، واعخبرني على واقع حال البيرنامج و بياناته :

ايش ادخل في البحث (عطني مثل) ، ثم ايش لازم يطلع ، ثم ....

 

ما اريد كلام ، اريد بيانات من البرنامج لوسمحت 🙂

 

جعفر

[النجاشي]

استاذي@jjafferr حاولت اعمل مثال مختصر

الشرح

عندي عده اصناف مثلا اريد ان اقوم بعمليه تعديل لاسماء الكمبوترات جمعيا او اصناف اخري 

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

بعدها عملت حفظ التعديل واستمرار

اي المقصود بعد ما تتم عمليه حفظ التعديل لرقم 111 

المطلوب يعطينا الرقم التالي 112 بحقل البحث واحفظ يعطينا الذي بعده رقم الصنف113 وهكذا الي اخر السجلات

ان شاء الله وصلتك الفكره

تحياتي

مثال.rar

[النجاشي]

للرفع

[ابو ياسين المشولي]

جرب هذا 

مثال (1).rar

[kha9009lid]

يا ابا ياسين

عند حفظ ينتقل للسجل التالي ولكن لا يحفظ التعديل ويتوقف عند اخر سجل في الرقم المدخل

مثلا الرقم المدخل 1111 واخر رقم 1115 ولا ينقل للسجلات 2000 وهكذا

تم تعديل نوفمبر 10, 2019 بواسطه kha9009lid

[ابو ياسين المشولي]

بدايه الغيث قطرة

بعد العصر ان شاء الله بنشوف له حل

تم تعديل نوفمبر 10, 2019 بواسطه ابو ياسين المشولي

[jjafferr]

تفضل 🙂

 

التعديل الآن شمل النموذج بالكامل تقريبا ، فرجاء ان تنظر في كل جزئية من الكود 🙂

 

ولكن يا ابو زاهر ، ايش لك في البحر واهواله ، و رزق الله على السيف 🙂

 

هذه الطريقة انت تعرفها حق المعرفة ، ومافي اسهل منها ، بينما الـ Recordset بحر بحد ذاته ، جدا سهل للي يعرفه 🙂

في ٩‏/١١‏/٢٠١٩ at 11:41, jjafferr said:

ولكن يا ابو زاهر ، في طريقة جدا اسهل من طريقتك ، فالاكسس يقوم بكل هذا تلقائيا وتقريبا بدون كود ، وخصوصا اشوف انك داخل في غياهب الـ Recorset 

 

اجعل النموذج مصدر بياناته استعلام ومصدر بيانات الاستعلام الجدول Alsnaf ، وحقل البحث يكون غير منتظم ، والاستعلام يكون فيه معيار البحث من النموذج ،

والاكسس يواصل عمله من هنا تلقائيا ، سواء بالحفظ او الحصول/عدم الحصول على سجل البحث ، وبدون كود تقريبا 🙂

 

جعفر

1137.1.مثال.accdb.zip

[ابو ياسين المشولي]

جاك المتدد يا ابو زاهر الاستاذ جعفر جاب طلبك بالضبط

شكرا للاستاذ jjafferr

شكرا للمنتقذ

[jjafferr]

هذه الطريقة اللي كنت اتكلم عنها 🙂

الافضل والاسهل 🙂

 

جعفر

1137.2.مثال.accdb.zip

[kha9009lid]

منذ ساعه, jjafferr said:

هذه الطريقة اللي كنت اتكلم عنها 🙂

الافضل والاسهل 🙂

 

جعفر

1137.2.مثال.accdb.zip 212.97 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download

روعة ويمكن تعديله وتجزئته

[النجاشي]

استاذي جعفر تسلم يديك

 بارك الله فيك نعم هو المطلوب المرفق الاول جربته فعلا رائع  المرفق الثاني اروع واسهل كما قلت

استاذي ابو ياسين بارك الله فيك مشكور على المشاركه فكرتك كانت قريبه من المطلوب 

و اجاء الينا الاستاذ جعفر كالفراري الله يحفظه يمكن يتذكر موضعها قبل سنه او سنتين ههههه

اعجبتني جاك المدد من طيبك ما تقصرون ربي يحفظكم احبتي يعلم الله اني احبكم فيه

فكلنا هون اخوان يد واحده نكمل بعضنا البعض ونفيد ونستفيد

ولا ننسي  ان نقدم الشكر لاخونا الاستاذ اعتقد انه ليس بغريب عليا اليت يعدل االلقب كي نقدر نناديه باسمه بالمشاركه الاخيره 

مشكورين احبتي 

راح استخدم الاسهل  كما قال لي الاستاذا جعفر 

المرفق الاخير له 

تحياتي

ما بدي ادخل في بحر واهواله 

تسلمي يديك ابو الجعافر

 

 

تم تعديل نوفمبر 10, 2019 بواسطه ابو زاهر

[jjafferr]

وهذه طريقة اخرى 🙂

مثل سابقتها ، ولكن بطريقة تختلف قليلا ، وبدون Recordset للانتقال للسجل التالي 🙂

 

جعفر

1137.3.مثال.accdb.zip

59 دقائق مضت, ابو زاهر said:

ولا ننسي  ان نقدم الشكر لاخونا الاستاذ

قصدك الاستاذ خالد 🙂

[النجاشي]

54 دقائق مضت, jjafferr said:

وهذه طريقة اخرى 🙂

مثل سابقتها ، ولكن بطريقة تختلف قليلا ، وبدون Recordset للانتقال للسجل التالي 🙂

 

جعفر

1137.3.مثال.accdb.zip 213.59 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 5 downloads

قصدك الاستاذ خالد 🙂

بارك الله فيك تسلموووووو

تحرجنا بطيبك استاذي الغالي

مشكوررررر

نعم ركزت علي الاسم الاستاذ خالد شغلتني الارقام بين الحروف ههههه

تحياتي اليك يالحبيب