تغيير الاكواد الى استعلام تحديث أو ايجاد حل أفضل

[محمد احمد لطفى]

فى هذا البرنامج أقوم بضبط المواعيد 

حيث أقوم بوضع أول تاريخ أريده فى خلية Date_M
ثم عدد المواعيد المحدده 
يبدأ من خلية ( من = no1 الى عدد المواعيد ( عدد = no )) و أيضا أيام التباعد بين كل ميعاد من خلية تباعد التاريخ = no2

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

زرار 1 - تحديد وهو يعمل على التباعد بين كل تاريخ بعدد الايام المختاره من خلية تباعد التاريخ
زرار 2 - شهر وهو يقوم بعمل التباعد بين كل تاريخ شهر
زرار 3 - شهر مخصص وهو يقوم بعمل التباعد بين كل تاريخ بعدد الاشهر المختاره من خلية تباعد التاريخ

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

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

زرار السبت للخميس يأتى بالمواعيد من السبت للخميس و يمنع يوم الجمعة
زرار السبت للاربع يأتى بالمواعيد من السبت للاربع و يمنع باقى الايام
زرار الحد للخميس يأتى بالمواعيد من الحد للخميس و يمنع باقى الايام
زرار الخميس للسبت يأتى بالمواعيد من الخميس للسبت و يمنع باقى الايام
 

البرنامج يعمل جيدأً و لكن فى حالة أن السجلات تكون كثيرة يأخذ وقت كثير 

أريد تغيير الاكود الى استعلام أو  SQL  أو ايجاد حل أفضل 

وجزاكم الله خيراً
 

test120.mdb

[Ezril]

اذا SQL = #Erorr

استخدم داله iif اذاكان اليوم يساوي او يساوي )) اذا كان يعمل على شبكه ضعيفه او على ضغط فستخدم شروط لتجنب الاخطاء لان بعض شغال هيك بيصدم شبكه وقاعده وفي شغلات ما لها داعي مثال تشفير قاعده ارسال نسخه مؤقته على موقع مباشر افضل من اميل 

 

[محمد احمد لطفى]

شكراً أستاذى @Ezril

لا يوجد شبكة 

عند محاولة اتمام مثلا 50 عدد أو أكثر 100 أو 200 

البرنامج يستغرق وقت كثير 

 

[Ezril]

مثال حقل فوق حقل مشروطين بداله iif بدل عن  الاكواد عند  ضغط زر يظهر ويخفي اسرع من هيك 

[محمد احمد لطفى]

حضرتك تقصد كتر الزراير حاضر 

[محمد احمد لطفى]

بسم الله 

أول بداية ادراج عدد سجلات بطريقة سريعة 

 

Dim x As Long
For x = 1 To 10
CurrentDb.Execute "INSERT INTO Q1 ( ID ) VALUES (" & [Forms]![test1]![id1] & ");"
Next
'MsgBox "تمت الإضافة"

DoCmd.RunSQL "UPDATE SUBX SET SUBX.serial = [Forms]![test1]![serial] " & vbCrLf & _
"WHERE (((SUBX.id)=[Forms]![test1]![id1]));"

            
Me.Requery

ولكن عدد السجلات 
For x = 1 To 10
كيف نغيرها الى الفرق من خلية عدد و من أى 3 الى خمسة السجلات الجديدة ثلاث سجلات 

[محمد احمد لطفى]

تحديث
 

Dim x As Integer
For x = Forms![test1]![no1] - 1 To Forms![test1]![no] - 1
CurrentDb.Execute "INSERT INTO Q1 ( ID ) VALUES (" & [Forms]![test1]![id1] & ");"
Next
'MsgBox "تمت الإضافة"

DoCmd.RunSQL "UPDATE SUBX SET SUBX.serial = [Forms]![test1]![serial] " & vbCrLf & _
"WHERE (((SUBX.id)=[Forms]![test1]![id1]));"

            
Me.Requery

تم ضبط عدد السجلات

الان مطلوب اضافة رقم المعاد و التاريخ و هذا من خلال زرار الاول تحديد بالايام

[محمد احمد لطفى]

UP 

[Ezril]

For Number to Number لترقيم Next 

For 1 to Total Record unbt

if date Format (dddd)  =X

ok 

end if 

Next

NextR

خل شاشة فورم تعلق لا تربط اكثر من Next على قليل 2 للشروط ورترقيم لحاله 

وفرق بين دالة  ( IIF)  وكود براميتر  

سؤال يعني في استعلام ويلحقRunSQL وهي  بستعلام لا يلحق! 

خلك DAO Record وبذكرك بكرا بترجع ل و ه 

[محمد احمد لطفى]

أستاذى @Ezril

ممكن تطبيق الفكرة فى الملف بالمشاركة الاولى