نسخ السجل ولصقه - حسب العدد المحدد - Copy - Paste

[tam74k]

السلام عليكم ورحمة الله

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

مثال :

عند وجود عدد 5 فواتير لعميل واحد لم تسدد وقام بالسداد لجميع الفواتير مرة واحده بشيك واحد والمطلوب ادخال رقم الشيك وتاريخ السداد واسم البنك في كل الفواتير بدون تكرار الكتابة علما بان الفواتير تظهر في نموذج فرعي

ارجو ان اجد الحل عند عباقرة الاكسيس

ولكم جزيل الشكر

[امير عاطف]

ضع الكود التالي عند حدث زر الأمر:

Dim i As Integer
      For i = 1 To Forms!formcriteria!txtnum
          DoCmd.RunCommand acCmdSelectRecord
          DoCmd.RunCommand acCmdCopy
          Me.txtnum.SetFocus
          DoCmd.GoToRecord , , acNewRec
          DoCmd.RunCommand acCmdPasteAppend
      Next i

حيث txtnum هو اسم مربع النص الذي تقوم بكتابة عدد مرات السداد بداخله

و formcriteria هو النموذج المتواجد عليه مربع النص txtnum والذي به حقول ادخال البيانات

حيث لو قمت بكتابة الرقم 4 داخل مربع النص txtnum ثم تقوم بتسجيل عملية سداد واحدة فقط ثم تقوم بالضغط على زر الأمر الذي يقوم بتنفيذ الكود السابق فسوف يقوم بتكرار عملية السداد 4 مرات

[tam74k]

اشكرك اخي

سوف اجرب واوافيك بالنتائج انشاء الله

[tam74k]

اخي امير

كل الشكر والتقدير لك

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

واشكرك مرة اخرى وسوف ارفق مثالا بعد حل مشكلة المرفقات بالمنتدى حتى تعم الفائدة .