jjafferr

استعمل هذا الحدث بدل الموجود عندك : Private Sub btn_search_Click() Dim FileDialog As Object With Application.FileDialog(3) .Title = "Please select a File" .Filters.Clear .Filters.Add "extensions", "*.xls, *.xlsx, *.txt" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then Me.path = .SelectedItems(1) End If End With End Sub جعفر

وقمة البلاغة 🙂 شكرا اخوي خالد على المجاذبة الادبية ، بعيدا عن الكود 🙂 جعفر

كلام جميل ، والظاهر لهذا السبب عملوا Super Computer ، علشان يعرفون ماذا يُخَبِّـي لهم في دَفَّتَيْـهِ غَـدُ 🙂 جعفر

انت الآن اشهرت عمرك ، فأهلا وسهلا بك في فريقنا ، والعصوية مدفوعة الثمن من زمان 🙂 جعفر

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

وعليكم السلام 🙂 في الاكسس 2010 ، كل هذه الاعدادات لها دور : . . . جعفر

عليكم السلام 🙂 اسمحوا لي ان اعطي ملاحظاتي : كود اخوي حلبي يحتاج (" " مسافة) قبل And ، لأن لو شفنا النتيجة تحت ، نشوف ان كلمة And ملاصقة للرقم 1 : . واما طريقتي ، فهي تفكيك المعيار الى اجزاء ، واللي سهل عملها : Private Sub BtnRequired_Click() Dim myWhere As String myWhere = "[LetterType]= " & [txtLetterType] myWhere = myWhere & " And" myWhere = myWhere & " [LetterID] LIKE '" & Format([txtDate], "yyyy\*\'") Debug.Print myWhere Me.txtResultRequired = DCount("*", "[tblLetters]", myWhere) End Sub . ولكي يعمل الكود ، يجب عمل مسافة قبل كل امر: . جعفر

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

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

هذه صورة من برنامجي ، اكسس 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 جعفر