jjafferr

🙂

وين ؟

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

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

في النموذج ، اعمل حقل بإسم str_Key ، وضع فيه هذا الكود Private Sub str_Key_KeyPress(KeyAscii As Integer) Debug.Print ChrW(KeyAscii) Me.str_Key = Empty End Sub . او على مستوى النموذج: Private Sub Form_KeyPress(KeyAscii As Integer) Debug.Print ChrW(KeyAscii) End Sub الفرق ان هذا الكود يستعمل KeyAscii ، اي ارقام الحروف ، بينما الكود في المشاركات السابقة يستعمل KeyCode ، اي ارقام ازرار الكيبورد !! جعفر

اعتقد بأن الوندوز يتحمل مسؤولية هذه الفقرة ، ويعطينا الصافي 🙂

أي أي أي , مسكتني من يدي اللي توجعني 🙂 نعم ممكن نعرف اي لغة هي لوحة المفاتيح ، والى هنا وتوقفت ، قبل ان اعمل مشاركتي السابقة 🙂 واللي يجي على بالي ، اننا ممكن نستفيد من جدولك لتحويل الحروف الى اللغة الاخرى (العربية مثلا) ، ولكني اعتقد بأنه لابد من وجود مخرج برمجي بدون الجدول ، واهم من النقطة السابقة هي ليس معرفة لغة الوندوز (اللي نشوفها ايقونتها عند الساعة) ، وانما المشكلة في نوع لوحة المفاتيح ، فهناك عدة لوحات مفاتيح للغة الواحدة ، والحرف ذ (مثلا) قد يكون في مكان مختلف 😁 جعفر

وعليكم السلام 🙂 هذا السطر في الكود يخص تصدير الملف الى pdf ، و مافي شيء في الكود يعمل فلترة/تصفية DoCmd.OutputTo acOutputForm, strForm, acFormatPDF, strFileName, False يجب ان تعمل طريقة لأخذ قيمة حقل فيه قيمة غير متكررة ، ثم تعمل التصفية على اساسها ، ثم تصدر الى pdf 🙂 جعفر

جميل نشوف طرق اخرى في عمل اللازم 🙂