اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

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

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

مثال :

عند وجود عدد 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 مرات

قام بنشر

اخي امير

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

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

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

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