Visitor_OM

مشكور اخي ويعطيك العافية .

على الرحب والسعة

بعد التحية ،،،، اخي العزيز في حقيقة الأمر الكود شغال وما فيه أي خطاء ولكن الخطاء موجود في قاعدة البيانات حيث انك استخدمت كلمة محجوزة لتعبير SQL وهي where لذلك كنت تصادف مشكلة في تنفيذ جملة الاستعلام . ' على كل ،،، قد استبدلت كلمة where إلى dwhere . تفضل البرنا…

على الرحب والسعة اخي الكريم

أخي العزيز في حقيقة الأمر ما فهمت كثير من المطلوب ولكن جرب تضيف السطر التالي مع الجملة المذكورة أعلاه لإخي الفاضل Mr.Said هي / And Table1.ID='" & Trim(Text1.text & "'"

المعذرة أختي الفاضلة ،،،، وإنا في الإنتظار .

' لترتيب البيانات المعروضة في القائمة List توجة إلى الخصائص التابعة للقائمة ثم ابحث عن الخاصية Sorted وغير قيمتها من False إلى True . وتقبل تحياتي

تفضل الملف / qdb_project1.zip

تفضل / SELECT Table1.ID, Table1.Field1, Table2.ID, Table2.Field1 FROM Table1 INNER JOIN Table2 ON Table1.ID = Table2.ID;

شكرا جزيلا أخي الغالي arafa وبارك الله فيك فمرورك على المشاركة يسعدني جدا .

اخي العزيز ابو طالب جرب المثال المرفق .... mbserial.zip

مشكور اخي العزيز وجزاك الله كل خير ,,,,

الملف المرفق / qdb_project.zip

' اخي العزيز بالنسبة لإستدعاء استعلام جاهز في قاعدة البيانات فالطريقة لا تختلف ابدا عن فتح جدول ،،، وقد وضعت مثال في مشروعك حول فتح استعلام معمول مسبقا . اما عن المعلمة او Paramter التي تقصدها ،، فيها قيمة سيتند عليها الاستعلام كتاريخ او اسم او رقم معين فإذا م…

السلام عليكم تفضل اخي لسؤالك الثاني / ' Adodc1.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ App.Path & "YourDatabase.mdb;" Adodc1.RecordSource = "[YourTable]" ' Set DataGrid1.DataSource = Adodc1 ' تحياتي

ألف هلا اخي الغالي osos.bg والله انت إللي وحشتنا . كيفيك وكيف الإمتحانات معاك إن شاء الله ماشي الحال ,،،، ,

عفوا نسيت احط المشروع تفضل / qdb_project.zip

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

السلام عليكم تحية طيبة لإخواني جماعة الاكسس ،،، . هذه محاولة مني اتمنى إن تكون المطلوب . الكود بعد التعديل / ' 'ضع هذا الكود في قسم التصريجات العامة ' Option Compare Database ' Dim MyWK As DAO.Workspace Dim MyDB As DAO.Database Dim MyRS As DAO.Recordset ' 'Com…