استعلام عن طريق VBA

[نبراس كاظم]

السلام عليكم 

 

عندي جدول وعملت استعلام له وعملت نموذج للاستعلام لكن حاولت ان اربط عن طريق 

VBA

Dim dbs As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim rst As DAO.Recordset
    
    Set dbs = CurrentDb
    
    'Get the parameter query
    Set qdf = dbs.QueryDefs("qryMyParameterQuery") هنا اسم الاستعلام
    
    'Supply the parameter value
    qdf.Parameters("EnterStartDate") = Date هنا توجد المشكلة ماذا يعني 
    qdf.Parameters("EnterEndDate") = Date + 7 وهنا ايضا 
    
    'Open a Recordset based on the parameter query
    Set rst = qdf.OpenRecordset()

 

وهل توجد طريقة اسهل من هذه الطريقة وجزاكم الله خير 

[jjafferr]

وعليكم السلام 🙂

 

اخبرنا شو اللي تريد الوصول اليه ، حتى نقدر نساعدك بطريقة افضل 🙂

 

جعفر

[نبراس كاظم]

استعلام عن طريق 

VBA  

ما ابي اخلي مصدر البيانات جاهزة 

لاحظ نموذج 

Add_new_company

 

bb - Copy.rar

[jjafferr]

في الرابط التالي ، تم مناقشة طلبك ، وبعدة طرق ، ومنها مشاركة مني 🙂

اذا احببت ، ابدأ من مشاركة اخوي ابو ابراهيم الغامدي الى مشاركتي ، ولكن قراءة الموضوع كاملا له منفعة اخرى :

 

 

جعفر

[نبراس كاظم]

3 hours ago, jjafferr said:

في الرابط التالي ، تم مناقشة طلبك ، وبعدة طرق ، ومنها مشاركة مني 🙂

اذا احببت ، ابدأ من مشاركة اخوي ابو ابراهيم الغامدي الى مشاركتي ، ولكن قراءة الموضوع كاملا له منفعة اخرى :

 

استاذ جعفر العزيز انا طالب VBA not SQL

انا محتاج استعلام عن طريق  VBA

الموضوع تبع الاستاذ هو تقسيم الجداول على حدة والنماذج على حدة 

جعفر

 

[jjafferr]

11 دقائق مضت, نبراس كاظم said:

انا محتاج استعلام عن طريق  VBA

هل قرأت مشاركتي هناك ؟

هي بالصبط ما تريد 🙂

 

جعفر

[نبراس كاظم]

On 12/1/2020 at 3:00 PM, jjafferr said:

هل قرأت مشاركتي هناك ؟

هي بالصبط ما تريد 🙂

 

جعفر

استاذنا العزيز قرأءة الموضوع تبعك المشكلة هي ان الجداول مفصولات اما في مثالي الجداول بنفس الملف وغير مقسمة 

توصلت الى حل اخر وهو كما في الملف لكن المشكلة هنا 

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

SQL

لكن الجداول ليست منقسمة اريدها بنفس الملف 

bb - Copy.rar

تم تعديل ديسمبر 5, 2020 بواسطه نبراس كاظم

[jjafferr]

وعليكم السلام 🙂

 

ارجو ان يكون هذا قصدك :

.

والكود عند تحميل النموذج :

Private Sub Form_Load()

    Dim DBDAO As DAO.Database
    Dim mySQL As String
    
    mySQL = "Select * From aa"
    Set DBDAO = CurrentDb
    Set Me.Recordset = DBDAO.OpenRecordset(mySQL, dbOpenDynaset)
   
End Sub

.

والنتيجة :

.

جعفر

bb - Copy.zip

[نبراس كاظم]

اولا مشكور لحضرتك كونك تعبت معي كثير 

ثانيا عملت النموذج غير منتظم حتى استطيع جلب البيانات وعند التعديل عليها لاتخزن تلقائي الا بعد وضع زر التحديث او الحفظ من قبلي 

اما الان في هذه الحالة اصبح الحقل مرتبط بمصدر ويمكن التعديل علية دون زر حفظ او تعديل 

الغاية هي عمل نموذج غير منتظم الحقول يجلب الجدول او الاستعلام وحين التعديل على المعلومات لا يتم التعديل عليها في الجدول الاساسي الا بعد زر الحفظ او التحديث 

ارجوا ان تكون الفكرة صحيحة 

كما انا عامل في النموذج Add

يمكن ان يكتب ويمسح ولا يحفظ شي في الجدول الا بعد زر الحفظ 

[jjafferr]

وعليكم السلام 🙂

 

جرب نفس النموذج الان ، والتفاصيل لما ارجع ان شاء الله 🙂

 

جعفر

bb - Copy.zip

[نبراس كاظم]

الحمد لله ان شاء الله تكون نافعة معي 

تسلم استاذ زحمتك وياية