jjafferr

اخي اباعمرو 🙂 اول مرة تستعمل البرنامج على كمبيوتر جديد : 1. اعمل تصدير ، 2. اعمل حذف (هذه الخطوة مو ضرورية ، ولكن لو لم تعملها سيكون عندك تكرار عند عمل استيراد) ، 3. اعمل توريد/استيراد الآن الاستعلامات ممكن ان تفتحها في وضع التصميم ، وتعدل فيها ، لأنها اخذت المسار الصحيح لملفات الاكسل 🙂 جعفر

اما انا ، فلازلت ما قادر اوصل للزر U ، إلا في وضع التصميم ، رجاء ترفق مرفق يعمل بكل ازراره ، وبدون اخطاء 🙂 جعفر

السلام عليكم 🙂 لوسمحت تعبئ بيانات في الجداول ، ثم تستخدم ازرار النموذج لعمل اللازم ، ووافنا بالنتيجة 🙂 لا تفتح الاستعلام قبل ان تستورد ، وبعد ان تستورد لأول مرة ، يمكنك فتح الاستعلام في وضع التصمي 🙂 جعفر 1506.2.Export catiopns to excel.mdb.zip

وعليكم السلام 🙂 هذه طريقة اخرى جعفر

نعم ، وهذه هي الطريقة الصحيحة في العمل 🙂 اذا كان اسم النموذج frm_Main واسم التاريخ من: Date_From ، والتاريخ الى: Date_To في الاستعلام ، نكتب المعيار التالي: between Forms!frm_Main!Date_From and Forms!frm_Main!Date_To جعفر

🙂

وين ؟

123.accdb

الحدث الذي يقوم بعمل المطلوب هو "عند التغيير" ، ولكن ، وبما ان الحقل (aa2 مثلا) يكون في وضع "تعديل" لما تكتب فيه ، والقيمة اللي فيه لا تكون محفوظه في الحقل بعد ، فلا يمكن استعمال قيمته بعد ، لذا ، يجب الاستعانه بحقل آخر (aa22 مثلا ، كما في الصورة التالية ، باللون البرتقالي ، ومخفي) ، بحيث يأخذ قيمة Text. الحقل aa2 ، وهكذا الحال للحقل الثاني bb2 ، . . عليه تصبح المعادلات: Private Sub Form_Load() Me.aa2 = Empty Me.bb2 = Empty Me.ee2 = Empty Me.aa22 = Empty Me.bb22 = Empty End Sub Private Sub aa2_Change() Me.aa22 = Me.aa2.Text Call Calc_ee2 End Sub Private Sub bb2_Change() Me.bb22 = Me.bb2.Text Call Calc_ee2 End Sub Sub Calc_ee2() Me.ee2 = Val(Nz(Me.aa22, 0)) + Val(Nz(Me.bb22, 0)) End Sub جعفر 1512.Add fields.accdb.zip

يعني خلاص تم حل طلبك ؟

استعمل العمود اللي على اليمين او اللي في الوسط ، واخبرنا النتيجة 🙂

وعليكم السلام 🙂 موجود في الاستعلام . والاستعلام جاهز للعمل 🙂 جعفر

الحقول اللي تصدرها ، تريد استيرادها ، فما فرقت ، التصدير يصير من الجدول او الاستعلام ، فالخطأ سيظل نفسه !! هناك حل انك تستعمل جداول مؤقته تستورد فيها من ملف الاكسل ، ثم تلحقها بالجدول الصحيح ، ثم تحذف بيانات الجدول المؤقت: اذا كانت هذه الجداول المؤقته في نفس البرنامج ، فسيكبر حجم قاعدة البيانات ، لهذا السبب احبذ هذه الطريقة ، ولكن ممكن ان نجعل هذه الجداول المؤقته في قاعدة بيانات خارجية ، بحيث نصنعها عند الحاجة ، ثم نحذفها عند الانتهاء من عملها !! الحل الآخر هو جلب البيانات عن طريق الكود ، وفي الكود نلحق البيانات للحقول الصحيحة ، والحل الأخير ، وقد يكون الاسهل ، وهذا يعتمد على ان مجلد واسماء الملفات تظل مثل ما هي ولا تتغير (يجب عليك تعديلها لأول مرة فقط) ، وعليه نستطيع عن طريق الاستعلام ان نستورد البيانات الى الجدول الصحيح 🙂 في انتظار ردك 🙂 جعفر

وعليكم السلام 🙂 يعني تريد الاستعلام "append query customer account sub dollar" يضيف ارقام الفواتير الغير موجودة في الجدول "customer account sub dollar" ؟ عندك طريقتين: 1. في الجدول "customer account sub dollar" اجعل حقل "رقم الفاتورة" مفهرس وغير قابل للتكرار ، وتشغل الاستعلام كما هو ، او 2. نخبر الاستعلام ان يأتي بقيم ارقام الفواتير من الجدول "customer account sub dollar" : Select [رقم الفاتورة] From [customer account sub dollar] . . ثم في الاستعلام ، في معيار حقل "رقم الفاتورة" ، نطلب منه فلترة ارقام فاتورة الجدول وعدم عرضها Not In : . . جعفر 1513.Not in.accdb.zip

يعني وجدت الحل لسؤال الموضوع ؟

وعليكم السلام 🙂 ما يفرق اذا كان الحقل منظم او لا ، المهم القيمة 🙂 هذا الموضوع يناقش نفس الفكرة ، وبعده طازه 😁 جعفر

السلام عليكم 🙂 الاكسس يخبرنا عن الكثير من الاشياء ، فقط بالنظر اليها ، مثلا: 1. محاذاة حقل الرقم : من الجانب الايمن من الحقل ، 2. محاذاة حقل النص : من الجانب الايسر من الحقل ، 3. محاذاة حقل التاريخ : من الجانب الايمن من الحقل ، انظر الى هذا الجدول الآن ، وتقدر تعرف نوع كل حقل فقط من النظر اليه ، بغض النظر عن اسمه : . خلينا نشوف الحقول التالية في نموذجك . 1. العمود الاول من اليسار : نص + نص = نص 2. العمودالثاني : نص + نص = رقم 3. العمود الاول من اليمين : رقم + رقم = نص هذه معادلاتهم: . فيجب ان يعرف الاكسس ان عليه ان يجمع ارقام (مع ان الحقول نص) ، وهذه بعض الطرق 🙂 جعفر 1512.Add fields.accdb.zip

ما شاء الله اخوي حسين ، هاي برنامج كامل ، مو بحث فقط 🙂 دائما فيك الخير والبركة ، كما عودتنا بأفضالك 🙂 جعفر

شكرا على المعلومة 🙂 جعفر

ما يحتاج تعديل ، فالكود عمل تنسيق لجانبي المعادلة 🙂 جربه كما هو واخبرنا بالنتيجة لوسمحت 🙂 جعفر

دكتور @الحلبي ، معذرة اننا خطفنا هذا الموضوع منك ، وانتقلنا بالترحيب لصديق حميم قديم 🙂 والآن ، عدنا اليك 🙂 جعفر

ولا يهمك ، تفضل يا سيدي: Dim mySQL As String mySQL = "SELECT * " mySQL = mySQL & " FROM tbl_Employ" mySQL = mySQL & " WHERE Format([Startdate],'yyyymmdd') Between '" & Format(Me.TxtStartDate, "yyyymmdd") & "' And '" & Format(Me.TxtEndDate, "yyyymmdd") & "'" Me.ListData.RowSource = mySQL او على سطر واحد Me.ListData.RowSource = "SELECT * FROM tbl_Employ WHERE Format([Startdate],'yyyymmdd') Between '" & Format(Me.TxtStartDate, "yyyymmdd") & "' And '" & Format(Me.TxtEndDate, "yyyymmdd") & "'" . الامر Format يغير ما ما يحتويه من رقم او تاريخ ، الى نص ، والفضل في هذه المعادلة يعود لأخي @رمهان ، حيث قال : جعفر

اللي قبلك كان اشطر 😁 حاولت وما قدرت ، في منتديات سابقة 🙂 لما نشوف شيء نقدر نساعد فيه ، فما ممكن إلا ان نمد يد المساعدة ، وكما قالت العرب الطبع يغلب التطبّع 🙂 جعفر

وعليكم السلام 🙂 طرفي التاريخ يجب ان يكون لديهم نفس التنسيق ، مثلا: . جعفر 1510.SearchFormatListBox.accdb.zip

ابا عمرو تصدير البيانات الى الاكسل يكون "بتسمية الحقول" ، لا بإسم الحقل ، فكيف تريد ان تستورد من نفس ملف الاكسل ، والذي يحمل "مسميات الحقول" ولا يحمل اسماء الحقول !! هذه مشكلتك !! جعفر