اذهب الي المحتوي
أوفيسنا

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


النجاشي
إذهب إلى أفضل إجابة Solved by jjafferr,

الردود الموصى بها

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

المطلوب

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

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

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

تحياتي احبتي

التالي.rar

رابط هذا التعليق
شارك

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

 

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

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 :biggrin2:

 

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

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

 

جعفر

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

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

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 :biggrin2:

 

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

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

 

جعفر

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

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

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

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

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

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

 

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

رابط هذا التعليق
شارك

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

 

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

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

 

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

 

جعفر

  • Like 1
رابط هذا التعليق
شارك

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

الشرح

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

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

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

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

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

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

تحياتي

مثال.rar

رابط هذا التعليق
شارك

يا ابا ياسين

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

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

تم تعديل بواسطه kha9009lid
  • Like 1
رابط هذا التعليق
شارك

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

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

تم تعديل بواسطه ابو ياسين المشولي
  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

تفضل 🙂

 

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

 

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

 

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

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

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

 

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

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

 

جعفر

1137.1.مثال.accdb.zip

  • Like 1
  • Thanks 2
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

تحياتي

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

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

 

 

تم تعديل بواسطه ابو زاهر
  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

 

جعفر

1137.3.مثال.accdb.zip

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

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

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

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

 

جعفر

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

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

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

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

مشكوررررر

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

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

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information