jjafferr

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

السلام عليكم 🙂 انا اعتبر المنتدى بيتي الثاني ، وفيه التقي مع اخواني الاعضاء (والذين معظمهم حتى لا اعرف اسمائهم الحقيقية)، وانادي كل منكم بأخي فلان ، ونتشارك بالمعلومة والنكات 🙂 فريق الموقع لهم صلاحيات في تنظيم عمل الموقع ، وهنا احب ان آخذ برأيكم في هذه الصلاحيات ، بحيث نريد لبقية الاعضاء ان يكون المنتدى بالفعل بيتهم الآخر ولا يكون عندهم ما يضايقهم اثناء مشاركتهم في مواضيعه. ونريد ان نتوسع في التفكير ، فالقصد ليس فقط الابقاء على الاخوة الموجودين في المنتدى ، وانما جذب اخواننا من خارج المنتدى كذلك 🙂 الاستاذ @محمد طاهر عرفه له يد مشهودة في تطوير هذا الصرح الكبير ، وارى من واجبنا ان نمد له اليد والمشورة للإرتقاء اكثر 🙂 جعفر ------------------------------ ملخص الاقتراحات من واقع مشاركات الاعضاء : 1- عدم اغلاق المواضيع ، 2- عدم تحرير المشاركات.

السلام عليكم 🙂 تأكد من اعدادات الوندوز : . ثم . جعفر

هل هذا صحيح !! جعفر

وكذلك كود اخوي موسى بطريقتي : If Len(Me.nox & "") = 0 Then Exit Sub جعفر

شكرا جزيلا اخوي ابو احمد 🙂 شرح وافي وواضح 🙂 جعفر

الحمدلله اني افهم شوي في الاكسس 🙂 ارسل له هذه الصورة من البرنامج ، لما اردت فتح وحدة نمطية ، والرسالة بكل وضوح تقول: لا يمكن استيراد، تصدير، عمل، تغيير، او اعدادة تسمية اي نموذج، تقرير او وحدة نمطية في البرنامج الذي بصيغة ACCDE, MDE او ADE . ولما تفك الضغط لملفك المرفق ، ستلاحظ ان البرنامج بصيغة ACCDE . جعفر

السلام عليكم 🙂 لماذا عملت التقرير بالكود ؟ احد المبرمجين كان يعمل بلغات البرمجة الاخرى ، والتي كان يجب عليه عمل اي شيء بالكود ، فكان يعمل نماذج الاكسس بالكود ، بينما الاكسس يعمل لك الكائنات بأسبط ما يكون ، فرجاء اترك الكود واعمل التقرير بطريقة الاكسس ، ونحن نساعدك 🙂 انت وضعت التقارير الفرعية في القسم الغلط ، يجب ان تكون في قسم "Detail" كما في الصورة : . والنتيجة: . في المرفق ، افتح التقرير rpt مباشرة 🙂 جعفر 1524.SubReports.accdb.zip

انا مو راضي عن طريقة البحث في المنتدى ، فالبحث ما يعطيني اللي اريده بسهوله !! 1. فعندي هذه المدونه اللي كتبت فيها بعض المواضيع ، بس مو كامله : . 2. واستعين ببحث جوجل من خارج المنتدى ، هكذا: jjafferr "لا تبدأ اسم الكائن برقم" site:www.officena.net . 3. ذهبت الى منتدى "Invision Community" والذي منتدانا نسخة منه ، ولكن ما حصلت على طريقة غير الموجود عندنا ، 4. في الفترة الاخيرة فكرت في فكرة ، بس ما عندي وقت لتنفيذها وما ادري ممكن عملها او لا ، وهي ان اعمل محرك بحث في الاكسس كالتالي: أ. استعين بأحد برامج web crawlers ، واجعله يزور جميع صفحات منتدى الاكسس ، ب. استخلص من كل صفحة الكلمات الغير متكررة ، واحفظها في الاكسس في حقل ، وفي حقل آخر يكون رابط المشاركة ، ج. واذا ممكن استخلاص الكود (في المشاركات) وحفظه في حقل آخر ، د. عمل نموذج بحث في الكلمات و الكود ، ومن ثم الرجوع الى المنتدى برابط الموضوع ، هـ. حسب كمية البيانات ، فقد نربط اكثر من برنامج (كل جدول في برنامج) ، ونحصل على النتيجة 🙂 ها ، الظاهر اني رحت بعيد 🙂 جعفر

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

اذا اردت تعديل كود في برنامج ، فالبرنامج يجب ان يكون مفتوح المصدر ، وبدون كلمة سر على الكود

اخي sayed darwish 🙂 برنامجك بصيغة accde ، فهو مقفل ولا يمكن الدخول في الكود وتعديله. جعفر

وعليكم السلام اخوي موسى 🙂 بس انتبه ، لا توجد علاقة بين التقرير الرئيسي والفرعي ، وانما التقرير الفرعي يأخذ بياناته بعد تتم تصفيتها في الاستعلام ، بالحقل IdCbo 🙂 ما شاء الله ، احنا متعودين منك الابتكارات الحلوة 🙂 وكيف تريد ان اعرف الملف الذي اشتغل عليه من بين الملفات !! هي ملفات بتسلسل ، قد اكون استخدمتها للرد ، ويكون للملف تعديل ثاني وثالث ، وقد استخدم الملف للتجربة بدون ان اضع رد في المنتدى 🙂 وفي الفترة الاخيرة صرت احاول اعمل تغيير في إسم الملف ، حتى اذكر الفائدة منه ، ولكن مو دائما 🙂 وكلما بلغ عندي حوالي 100 ملف ، اعزلهم في مجلد خاص بهم ، واواصل التسلسل 🙂 . جعفر

وعليكم السلام اخي محمد 🙂 ارسلت لك رسالة على الخاص 🙂 جعفر

1. وتقدر تستغنى عن كل الاكواد ، بعمل استعلام union ، تجمع فيه الاستعلام الاصل و الاستعلام اللي فيه سجل فارغ ، ويكون هذا الاستعلام هو مصدر بيانات التقرير الفرعي ، ولكن ، دائما سيظهر لك سجل فارغ في الاسفل 😁 2. فكرة ثانية ، وهي عمل "صورة" لمسميات التقرير الفرعي ، فاذا مافيه بيانات ، خلي الصورة تطلع 😁 جعفر

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

الحمدلله 🙂

وعليكم السلام 🙂 ان شاء الله طريقتي تعجبك 🙂 . . Private Sub VeiwReportBtn_Click() On Error GoTo Err_VeiwReportBtn_Click Dim qry_0 As String, qry_1 As String qry_0 = "Select * From qry_Table2_Empty_One_Record" qry_1 = "Select * From qry_Table2" DoCmd.DeleteObject acQuery, "tqry_SubReport" If DCount("*", "Table2", "T1ID=" & Me.IdCbo) = 0 Then CurrentDb.CreateQueryDef "tqry_SubReport", qry_0 Else CurrentDb.CreateQueryDef "tqry_SubReport", qry_1 End If Dim stDocName As String stDocName = "Report1" DoCmd.OpenReport stDocName, acViewPreview, , "[ID]=" & Me.IdCbo Exit_VeiwReportBtn_Click: Exit Sub Err_VeiwReportBtn_Click: If Err.Number = 7874 Then 'query tqry_SubReport does not exist, ignore Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If Resume Exit_VeiwReportBtn_Click End Sub جعفر 1523.ShowReportInNoDate.accdb.zip

وعليكم السلام 🙂 رجاء مراعاة كتابة اسم صحيح للموضوع ، يدل على محتواه 🙂 تفضل طلبك: . جعفر

تم فصل مشاركات اخونا rockjone33 الى موضوع مستقل ، شكرا لك اخوي ابو احمد على ملاحظتك 🙂 جعفر

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

شكرا جزيلا اخوي ابو احمد على التوضيح 🙂 جعفر

تفضل جعفر

شوف مرفقي لوسمحت ، فانا اوقفت هذا الحدث 🙂 جعفر

وعليكم السلام 🙂 تفضل: . وهذا يحدث بهذا الكود: Private Sub Form_Current() Dim rst As DAO.Recordset Dim strFile As String Set rst = Me.tabl2.Form.RecordsetClone rst.MoveFirst Me.lst_Files.RowSource = "" Do Until rst.EOF Debug.Print rst!noid Me.lst_Files.AddItem ">" & rst!noid 'Now lets find how many files we have strFile = Dir(Application.CurrentProject.Path & "\Datapdfx\*" & rst!noid & "*.pdf") Do Until strFile = "" Debug.Print strFile Me.lst_Files.AddItem strFile strFile = Dir() Loop Me.lst_Files.AddItem "" rst.MoveNext Loop End Sub Private Sub lst_Files_DblClick(Cancel As Integer) Dim pdfPath As String If Left(Me.lst_Files, 1) = ">" Then Exit Sub pdfPath = CurrentProject.Path & "\Datapdfx\" & Me.lst_Files Shell "explorer.exe " & pdfPath, vbNormalFocus End Sub جعفر dataPdf.zip