jjafferr

في شيء في الحياة اسمه تجربة/تجارب ، في كثير من الاوقات تكون باهضة الثمن ، مو مبالغ فقط جعفر

السلام عليكم 🙂 اما انا فاستخدم البرنامج المجاني: وهذا ما تم اصلاحه: جعفر

هذه صورة من برنامجي ، اكسس 2010 ، والمكتبة اصبحت Miscrosoft Access xx Object Library : . وانا لا احب ان استعمل المكتبة ، لأنها لها علاقة بنسخة الاكسس ، واختيار المكتبة تسمى بـالربط المسبق Early Binding (مع ان هذه الطريقة اسرع ، ويساعدك الاكسس في اعطائك المتغيرات المتوفرة للأمر عند عمل: مسافة او نقطة او فتح قوس)، فإذا تمت البرمجة على النسخة الاقدم ، وتم استعمال البرنامج على النسخة الاحدث ، فيقوم البرنامج تلقائيا بتغيير المكتبة للأحدث ، واما اذا تمت البرمجة على النسخة الاحدث ، وتم استعمال البرنامج على النسخة الاقدم ، فلن يعمل البرنامج ، وسيعطيك خطأ !! ولتفادي هذه المشكلة ، فيمكننا عمل ربط متأخر Late Binding بتعريف المتغير بـ Object ، هكذا : Dim FileDialog As Object With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Add "Pic Files", "*.jpg ; *.bmp" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then Open_a_File = .SelectedItems(1) End If End With جعفر

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

وعليكم السلام 🙂 جرب الامر بهذه الصيغة : جعفر

الحمدلله 🙂 بس يا ريت تخبرنا وين كانت المشكلة ، او كيف تم حلها ؟ احنا كذلك نريد ان نستفيد من اخطائنا 🙂 جعفر

اخوي مسفر 🥰 اعتذر عن التأخر في كتابة هذه الكلمات ، شكرا جزيلا على جميل قولك ، ولا اهانك الله 🙂 جعفر

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

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

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

1. ابداً لا تستعمل On Error Resume Next ، إلا في حالات جدا جدا ضيقة ، وكودك ليس من هذه الحالات ، 2. يجب ان تعرض علينا الخط الذي يتوقف عليه الكود حتى نعرف المشكلة ، 3. اذا لم تكن قد خلطت اكواد اخرى مع آخر كود اعطيتك ، فالمفروض ان الكود يعمل ، لأني جربته. واما اذا عملت تغيير/اضافة عليه ، فرجاء ارفاق الكود كاملا ، 4. من المشاركات السابقة ، يتضح ان الخطأ يكون في المسار. جعفر

اعمل موضوع جديد ، وضع فيه رابط/الاشارة الى هذا الموضوع ، ثم ارجع الى هذا الموضوع ، وضع فيه رابط/الاشارة الى الموضوع الجديد ، بهذه الطريقة الجميع يعرف 🙂 جعفر

وعليكم السلام 🙂 1. نعطي الحقلين اسماء واضحة : . 2. من المهم جدا ان نعمل الحدث "عند التنسيق" للقسم الصحيح الذي فيه الحقول التي نريدها: . 3. بهذا الكود نأخذ او قيمة في مصدر بيانات التقرير ، ثم ننتقل الى نهاية السجلات ، ونأخذ آخر قيمة : Private Sub رأس_التقرير_Format(Cancel As Integer, FormatCount As Integer) Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset(Me.RecordSource) Me.First_on_the_List = rst![اسم التلميذ] rst.MoveLast Me.Last_on_the_List = rst![اسم التلميذ] rst.Close: Set rst = Nothing End Sub . والنتيجة: . جعفر 1372.امتحانات.mdb.zip

في الواقع انا طول عمري اعملها يدويا (من شب على شيء، شاب عليه 🙂 ) : اعمل نسخة من البرنامج ، واعطيه اسم البرنامج منتهيا بـ BE ، مثل: Abc_BE.accdb ، ثم احذف جميع كائناته ما عدا الجداول ، واحفظه في الشبكة في مسار تراه جميع الكمبيوترات ، والنسخة الاصل اعطيه اسم البرنامج منتهيا بـ FE ، مثل: Abc_FE.accdb ، ثم احذف جميع جداوله ، ثم من خلال قائمة البيانات الخارجية، اختار الـ BE واختار ربط ، واختار الجداول التي اريدها من BE ، ثم اضع على كمبيوتر كل مستخدم نسخة من هذا الملف 🙂 جعفر طبعا اخوي ابوخليل ، انت تدري ، مو انت المقصود من هذا الشرح 🙂

نصيحتي لك هي ان تجمع جميع افكار الخبراء (واقعا هذه الكلمة قليلة في حق هؤلاء الكرماء) اعلاه وتخرج بفكرة وبرنامج افضل 🙂 هكذا تحصل على رسالة بأن الملف موجود مسبقا (قمت بعمل بحث في مساعد الاكسس بكلمة msgbox ، وفي اسفل الشرح كان هذا الكود, والذي استعمله في برامجي) : Dim X As String 'X = Environ("USERPROFILE") & "\Desktop" 'Desktop path X = "C:\Users\arapo\Documents\Reports" X = X & "\" & Me.m_name & ".pdf" If Dir(X, vbNormal) = "" Then DoCmd.OutputTo acForm, "frm_data_main", acFormatPDF, X, True, , , acExportQualityPrint Else Dim Msg, Style, Title, Response Msg = "الملف موجود مسبقا، هل تريد النسخ عليه" ' Define message. Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons. Title = "الرجاء الانتباه" ' Define title. ' context. ' Display message. Response = MsgBox(Msg, Style, Title) If Response = vbYes Then ' User chose Yes. DoCmd.OutputTo acForm, "frm_data_main", acFormatPDF, X, True, , , acExportQualityPrint Else ' User chose No. MsgBox "تم الغاء عملية الحفظ" End If End If جعفر

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

تفضل 🙂 عملت لك نموذج للتصدير 🙂 جعفر 1371.حفظpdf.accdb.zip

انا عملت نسخ ولصق للكود الذي وضعته ، وكان فيه شيء خطأ ، وفيه خطأ من جانبي كذلك ، وتم تصحيحهم 🙂 فجرب هذا : If DCount("MODELS", "MARKA", "[MODELS]= '" & Trim(Me.MODELS) & "'") > 0 Then MsgBox "هذه الماركة مسجل مسبقاً", vbCritical + vbDefaultButton1 + 1572864 cancel=true Me.Undo End If جعفر

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

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

وعليكم السلام 🙂 استعمل حدث "قبل التحديث" 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 جعفر

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

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