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

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

قام بنشر

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

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

تقبلوا فائق التحية

144.rar

قام بنشر

عزيزي

هل سيتم تكرار الثلاث حقول فقط الظاهرة في النموذج ! ام كل الحقول الباقية والتي بالجدول المصدر ك  p_t,m1,m2,3   الخ !

وهل تريدها كنقرة زر مكتوب عليه تكرار

ومارايك ان يكون التكرار حسب السجل الحالي ! فلو تريد الاخير ضع المؤشر في السجل الاخير

ومارايك ان يكون هناك ادخال لعدد التكرار قبل التنفيذ!

ومارايك ان تشرح برنامجك لان مسالة التكرار اشوفها مبدئيا بها نوع من الخطأ والظلم لقواعد البيانات فقد نصل للحل الافضل !

 

تحياتي

قام بنشر (معدل)

يسعدك ربي استاذ رمهان

اليك شرح الفكرة من التكرار 

1/ يهمني الحقول الثلاث فقط ...

2/ العادة يتم تكرار حقل الاسم والقسم معا احيانا الى اكثر من 30 اسبوع مثلا 
محمد علي ......... الساحه .......... الاسبوع الاول

محمد علي .......... الساحه ......... الاسبوع الثاني

محمد علي ............ الساحه .......... الاسبوع الثالث

وهكذا

ويكون تعديل الاسبوع فقط اسهل من كتابة كامل السجل ( اسم وقسم واسبوع )

وهل تريدها كنقرة زر مكتوب عليه تكرار

ومارايك ان يكون التكرار حسب السجل الحالي ! فلو تريد الاخير ضع المؤشر في السجل الاخير

لو كانت نقرة بزر قد تكون اجمل  .............. وعموما اي طريقة منها ... اترك لك الخيار

 

تحياتي الك

تم تعديل بواسطه alzahrani2014
قام بنشر

ويكون تعديل الاسبوع فقط اسهل من كتابة كامل السجل ( اسم وقسم واسبوع )

ماذا لو تم زيادة اسبوع في كل سجل جديد وطبعا بداً من الاسبوع باخر سجل ! وطبعا عند الاسبوع 8 يعود للاسبوع الاول وهكذا حتى 30 سجل !

والا انا فاهم غلط ؟

 

تحياتي 

قام بنشر

سلامة فهمك استاذ رمهان

فكرة البرنامج

عندنا فترة عمل طولها تقريبا 30 اسبوع قد تزيد وقد تنقص ..... ولدينا تقريبا 100 موظف 

يعني سيكون لدينا تقريبا 3000 سجل ...... كل موظف مرتبط ب ال30 اسبوع ... كتابة 3000 سجل مضنية جدا .... فلو نظرت الى النموذج نحن نحتاج تكرار الاسم والقسم والاسبوع ... حقل الاسبوع سهل اني اغيرة من 1 الى 30 .... اي اسهل من ان نكتب اسم الموظف والقسم والاسبوع.... فقط نحتاج زر ( مثلا ) او اي طريقة اخرى ... يقوم بتكرار اخر سجل في النموذج 

 

شاكرا لك اهتمامك ( محتاج جدا لهذه العملية لانها ستسهل علينا عملية الادخال ) 

تحياتي الك

قام بنشر

تفضل وبلصق هذا الكود خلف زر امر على النموذج ولعله ماتريد

DoCmd.GoToRecord , , acLast
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
For i = 1 To 30
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
Next i

بالتوفيق

  • Like 1
قام بنشر (معدل)

سلمت الايادي استاذ رمهان

رائع جدا جدا .....

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

تحياتي الك .... الف الف شكر :clapping::wavetowel:

تم تعديل بواسطه alzahrani2014
قام بنشر

حياك الله اخوي الزهراني

وتعمدت تنفيذه بهذه الاوامر لانها كلها اوامر جاهزة وسهلة ! 

اذهب لاخر سجل > حدد السجل > انسخ > (اذهب لسجل جديد > حدد السجل > الصق ) وتلاحظ مابين الاقواس هو مانحتاج تكراره 30 مرة فوضعناه داخل جملة دوران!

 

بالتوفيق

قام بنشر

شكرا لك حبيبي

لدي اضافة اذا ممكن كحركة جمالية وهي

قبل تنفيذ الامر اريد ان تظهر نافذة تحذيرية او تأكيدية بالموافقة من عدمها .... كيف يتم ذلك

تحياتي لك

قام بنشر

اضف هذا السطر في اول الكود السابق

If MsgBox("استمرار ؟", vbYesNo) = vbNo Then: Exit Sub

بالتوفيق

  • Like 1
قام بنشر

استاذي الفاضل 

جائتني فكرة .... يظهر ان الافكار تأتي تباعا

كيف بالامكان ان نجعل عدد التكرار اختياري .... بمعنى ان تظهر نافذة قبل التنفيذ تسأل كم مرة تريد تكرار السجل ؟

اسف على كثرة الاسئلة

تحياتي لك ايها المبدع

قام بنشر

غير الرقم 30  الى:

inputbox("ادخل عدد التكرار")

بالتوفيق

  • Like 1
قام بنشر

اضف في اول الكود :

On Error GoTo 10

وفي اخر الكود

10:

بالتوفيق

قام بنشر

في لغات البرمجمة يتم تنفيذ الاسطر واحدا تلو الاخر مالم يكن هناك تحكم في التسلسل بعبارات تحكم او بالامر goto  ثم عنوان السطر ! تتم كتابة عنوان السطر باي تعبير نصي مقبول ثم نقطتين هكذا : 

وفي الكود السابق اسميت السطر المراد الانتقال له ب 10 ثم نقطتين حسب القاعدة ليصبح اسم السطر او عنوانه  :10   

وتلاحظ انه استخدم الجملة on error  ولها اشكال عدة ومعناتها لو حصل خطأ ويعقبها تعبيرات عدة ومنها اذهب الى goto   ثم عنوان السطر المراد الانتقال له 

وتلاحظ انه لايوجد سطر ينفذ عند العنوان 10 لانني اريد الذهاب الى نهاية الكود ومعناته عدم تنفيذ اي سطر 

فالملخص لو حصل خطأ اذهب الى نهاية الكود قافزاً جميع الاوامر (الاسطر البرمجية )  والخطأ يحصل عند اختيار الغاء من مربع الادخال !

بالتوفيق

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