jjafferr

انا لا اتكلم عن منبثق او غيره ، وانما طريقة عرض التقرير: . جرب واخبرني النتيجة 🙂 جعفر

في النموذج على حدث "الحالي" ، اجعل استعلام او تقرير يأخذ قيمة من هذا السجل ، ويعمل تصفية سجلات للإستعلام او التقرير او حتى نموذج آخر فردي ، واستعمل اسم هذا الكائن في الامر اللي عندك ، الموضوع في غاية السهولة 🙂 جعفر

وعليكم السلام 🙂 استعمل حدث "قبل التحديث" BeforeUpdate 🙂 If DCount("MODELS", "MARKA", "[MODELS]'= '" & Trim(Me.MODELS) & "'") > 0 Then MsgBox "هذه الماركة مسجل مسبقاً", vbCritical + vbDefaultButton1 + 1572864 Me.cancel Me.Undo End If جعفر

الحمدلله وصلنا الى حل 🙂 الله يطول عمرك ان شاء الله ، الاكسس ما عنده امر بحفظ سجل فقط بين سجلات !! فيا تعمل نموذج لسجل واحد فقط (وتستعمل acForm في امر الطباعة) ، او تقرير acReport ، او استعلام acQuery ، وبعدين تستعمل الامر اعلاه وتصدر الملف 🙂 والخيار بين ايدكم سيدي 🙂 جعفر

جرب هاي التعديل Dim X As String X = "C:\Users\arapo\Documents\Reports" X = X & "\" & Me.m_name & ".pdf" DoCmd.OutputTo acForm, Me.name, acFormatPDF, X, True, , , acExportQualityPrint جعفر

السؤال هنا، شو الكائن اللي تريد حفظه ، هل هو تقرير او استعلام او نموذج !!

الآن عرفت ليش التقرير لا يعمل في وضع معاينة طباعة !! لأن هذه الحقول مرتبطة بجداول غير موجودة في المرفق 🙂 . جعفر

وعليكم السلام 🙂 يجب ان تكتب مسار حفظ الملف على الكمبيوتر ، مجرد اسم العميل لا يكفي 🙂 مثلا: Dim X As String X = Environ("USERPROFILE") & "\Desktop" 'Desktop path X = X & "\" & Me.m_name & ".pdf" DoCmd.OutputTo acSelection, X, acFormatPDF جعفر

. . جعفر

كل شيء شغال تمام ، ولكن اعمل ضغط واصلاح وجرب 🙂 ولكن اذا ممكن تشرح بالضبط وين المشكلة اللي تواجهها !! مافي مشكله مع تقرير منبثق ، ولكن هناك خطأ في وضع معاينة التقرير !! جعفر

وعليكم السلام اخوي ابوخليل 🙂 عيدكم مبارك جميعا وايامكم سعيدة ان شاء الله 🙂 لو تعيد رفع المرفق ، قد استطيع ان ادلو بدلوي مع اخوي kanory ، خصوصا اني اعمل على اكسس 2010 🙂 جعفر

هذا الموضوع يذكرني في مشاركة لي في منتدى اجنبي: صاحب الموضوع وضع شرح طويل عن مشكلته ، وقامت خبيرة بالرد على سؤاله بسطر واحد ، وعلى سبيل المزاح قلت لها: حرام ان صاحب الموضوع يكتب هذا الكم من الكلمات ويحصل على اجابة سطر واحد !! ثم وضعت كود بعدة اسطر (ولم يكن افضل من كود السطر) وقلت لصاحب الموضوع لا تزعل وتفضل اجابة بكود اطول 🙂 والذي استغربت منه هو ، ان صاحب الموضوع قام بإختيار طريقتي كأفضل حل !! ولما قلت له اني كنت امزح في وضع الحل ، وان الحل الافضل هو كود السطر الواحد ، رد عليّ قائلا: يتم الدفع لي على البرمجة بعدد الاسطر التي اكتبها 😬 وطبعا اخوي خالد انت عرفت بأن هذا السطر كان مزحة 🙂 اخوي ازهر ، عدد الاسطر الحقيقية لهذا الكود هي: R = Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace("y0372023r0b9g0v5", "q", ""), "w", ""), "e", ""), "r", ""), "t", ""), "y", ""), "u", ""), "i", ""), "o", ""), "p", ""), "a", ""), "s", ""), "d", ""), "f", ""), "g", ""), "h", ""), "j", ""), "k", ""), "l", ""), "z", ""), "x", ""), "c", ""), "v", ""), "b", ""), "n", ""), "m", "") وعلشان يكون الكود اوضح للفهم والقراءة ، فيصبح: R = Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace("y0372023r0b9g0v5", "q", "") _ , "w", "") _ , "e", "") _ , "r", "") _ , "t", "") _ , "y", "") _ , "u", "") _ , "i", "") _ , "o", "") _ , "p", "") _ , "a", "") _ , "s", "") _ , "d", "") _ , "f", "") _ , "g", "") _ , "h", "") _ , "j", "") _ , "k", "") _ , "l", "") _ , "z", "") _ , "x", "") _ , "c", "") _ , "v", "") _ , "b", "") _ , "n", "") _ , "m", "") جعفر

وعليكم السلام 🙂 معذرة اخوي خالد ، بدل ما يستعمل اخوي ازهر كودك ابو 8 اسطر ، انا اقدم له حل ابو سطر واحد فقط ، ويشتغل في الكود والاستعلام Remove_Letters: Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace("y0372023r0b9g0v5", "q", ""), "w", ""), "e", ""), "r", ""), "t", ""), "y", ""), "u", ""), "i", ""), "o", ""), "p", ""), "a", ""), "s", ""), "d", ""), "f", ""), "g", ""), "h", ""), "j", ""), "k", ""), "l", ""), "z", ""), "x", ""), "c", ""), "v", ""), "b", ""), "n", ""), "m", "") جعفر الحروف على تسلسل لوحة المفاتيح 🙂

السلام عليكم 🙂 اليك طريقة نقل كائنات المرفق الى برنامجك ، لأن نقل الوحدة النمطية التي في Class من برنامج الى آخر يجب ان يتم بطريقة خاصة : هذه المشاركة الاصل ، وفيها المرفق بصيغة 2003 🙂 جعفر

وعليكم السلام 🙂 لا اعرف ولم اسمع بأنه يمكن استخراج الكود من الملفات صيغ mde و accde ، غير موقع واحد من احد مبرمجي الاكسس المحترفين اصحاب ثقة ، يمكنك رفع ملفك الى الموقع التالي: MDE to MDB Conversion - Retrieve VBA code from your MDE/ADE Databases (everythingaccess.com) وعليه اذا كان فيه امكانية لإسترجاع برنامجك الى صيغة accdb ، فالموقع سيثبت لك ذلك (عن طريق الايميل وبعد يوم او اكثر) ، وفي مقابل مبلغ من المال (يبدأ بمبلغ 450 دولار) ، وبعد التأكد بأنك صاحب البرنامج حقا ، سيعملون المطلوب ويرجعون لك البرنامج بصيغة accdb ويمكنك التعديل عليه 🙂 واذا اتخذت هذا الطريق ، فياريت تكتب لنا هنا مؤكدا ما جرى 🙂 جعفر

عفوا ، رجاء التوضيح !! جعفر

وعليكم السلام 🙂 1. اعمل استعلام حذف : . 2. في الواقع انت محتاج الى استعلام الحاقي ، ولكن بالبيانات من الجدول الآخر ، فيصبح الاستعلام هكذا : . ملاحظات مهمة على برنامجك ، حتى حتى لا تحصل على مشاكل في المستقبل : 1. لا تستعمل Lookup في الجدوال ، وانما استعمل استعلام ربط بين جدولين للحصول على المطلوب ، 2. لا تستخدم علامات او ارقام كأسمات لكائناتك ، وبالذات العلامات والاسماء المحجوزة للاكسس ، 3. لا تستعمل اسماء بحروف عربية في كائناتك ، 4. لسرعة عمل الجدول ، يجب عمل حقل المعرّف (مفهرس وترقيم تلقائي) ، والحقل الذي تعتمد عليه كمعيار للنمييز بين السجلات , حقل الاسم (يجب ان يكون مفهرس) : جعفر 1369.نسخ البيانات.mdb.zip

عيدكم مبارك وايامكم سعيدة ان شاء الله 🙂 جعفر

وعليكم السلام 🙂 طريقة الاخ خالد هي الصحيحة ، ولكن وبما انك طلبت هذه الطريقة الاخرى ، فاليك الطريقة: 1. اعمل استعلام لجدول الذكور ، وأخر لجدول الاناث ، ثم استعلام لجدول الطلبة ، 2. في الاستعلام ، نطلب منه ان يستخرج لنا الاسم الاول من الاسم الكامل ، كما نراه في الحقل F ، 3. نعمل حقل اضافي لتعريف نوع الجنس ، واسمه G : . وهذه النتيجة: . 4. نعمل استعلام لتحديث اسماء الذكور ، وآخر لتحديث اسماء الاناث ، 5. الرابط بين الاستعلامات هو الاسم الاول : . والنتيجة: . تم تحديث جميع الاسماء الموجودة في جدولي الذكور والاناث ، اما الاسماء الغير موجودة ، فيكون الحقل فيها فارغ ، لذلك ارجع واقول: طريقة الاخ خالد هي الصحيحة 🙂 جعفر 1368.if-name-set-gendre.mdb.zip

السلام عليكم 🙂 وعيدكم مبارك ان شاء الله 🙂 اخي ابوحسان ، هل لازلنا نعمل في حدود قوانين المنتدى وهو سؤال واحد لكل موضوع؟ انا اعرف ان اخي الدكتور حسين لا يمل من الاجابة ، ومن اخلاقة انه يستحي ان يقول لا 🙂 جعفر

وعليكم السلام 🙂 اخذت نسخة من النموذج اليومي ، وابدلته من نموذج مستمر الى نموذج فردي ، ثم عملت استعلام ينادي وحدة نمطية لأخذ البيانات من الجدول tblAppointments 🙂 وعملت تعديل للمكتبات لتعمل على النواتين 32بت و64بت 🙂 جعفر 1367.NA_Calendar.mdb.zip

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

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

جميل اذا كان ممكن ان القي الضوء على الملف ، ولكن بمزاجي 🙂 جعفر

عملت ماكرو ضمني ، وما عملت له طريقة يتعامل مع الاخطاء ، فالاكسس يعمل جدول للاخطاء (جدول واحد) وكلما صار خطأ ، اضاف الاكسس سجل في هذا الجدول ، وكلما حذفت الجدول ، قام الاكسس بعمل جدول جديد للسجلات الجديدة 🙂 والحل كان بأن اصلح الماكرو الضمني بجعله يتجاهل اي خطأ 🙂 جعفر