ارجو مساعدتي في انشاء استعلام داخل VBA

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

كود انشاء وبناء استعلام من خلال الفيجوال بيزيك ابلاليكشن كالتالي

Private Sub Command0_Click()
Dim db As Database
Dim qdif As QueryDef
Set db = CurrentDb
Set qdif = db.CreateQueryDef("Myqry", "Select * from table1")
Application.RefreshDatabaseWindow
Set db = Nothing
End Sub

اتمني ان يكون فيه فائدة

وعليكم السلام اخي azouzeg 

شكرا جزيلا على ردك وجزاك الله خير الجزاء في الدنيا والاخرة 

انا اعتذر لان لم اعرف كيفية ايصال الفكرة .. كان رد الاخ azouzeg جميلا جدا حيث يقوم بانشاء استعلام جديد عن طريق البرمجة ... وهذا جميل جدا 

ولكن مطلبي هو ان اقوم بكتابة كود برمجي يقوم بالاستعلام عن الاسماء وبفترة محددة من والى تاريخ معين ويطبع نتيجة جمع المبالغ في حقل موجود على النموذج .... من دون انشاء استعلام في البرنامج!!!

ومرة اخرى اشكر الاخ azouzeg جزيل الشكر على سرعة الرد ...

 وبالتوفيق ان شاء الله ...

للرفع

وينك يا استاذة زهرة ...... للرفع

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

أولاً: حمل الملف التالي

SqltoVBA.rar

ثانياً:

1- صمم الاستعلام المرغوب بواسطة منشئ الاستعلامات واعمل فيه جميع المعايير التي تريد ثم اختبر الاستعلام حتى يصبح جاهز تماماً.

2- انسخ جملة الـ SQL الخاص بالاستعلام

3- افتح الملف الذي سبق تحميله

4- الصق جملة الـ SQL في البرنامج وضغط على زر بدء التحويل، سيقوم البرنامج بتحويل جملة الـ SQL إلى كود يتناسب مع VBA

5- انسخ الكود الذي يقع بين علامتي التنصيص واستخدمه في برنامجك كالتالي:

DoCmd.RunSQL "xxxx"

الصق الكود بدل xxxx

ان شاء الله تفيدك هذه المشاركة

ولا انسى ان اشكر صاحب الملف المرفق

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

تفضل اخي الكريم

1. تم حذف الإستعلام لأننا لسنا بحاجة له

2. تم استخراج المجموع للحقول المطلوبة بواسطة الدالة DSUM حسب الكود التالي

Private Sub CmdTotal_Click()
Me.total = DSum("[total]", "Table1", "([namee]=[Forms]![frm]![menu]) AND ([issue_date] Between [Forms]![frm]![from] And [Forms]![frm]![to])")
Me.comm = DSum("[comm]", "Table1", "([namee]=[Forms]![frm]![menu]) AND ([issue_date] Between [Forms]![frm]![from] And [Forms]![frm]![to])")
End Sub

za-Dsum-UP.rar

شكرا جزيلا لك استاذة ام عهود... وفقت لكل خير ان شاء الله وجعلها في ميزان حسناتك ..... 

رائع جدا رائع ... يعجز اللسان عن الشكر ..

ويا حبذا لو نعرف اكثر عن كودات الاستعلامات داخل VBA  ... ممكن تدلينا بكتاب او موقع ... شكرا جزيلا لك مسبقا....