jjafferr

السلام عليكم 🙂 لماذا عملت التقرير بالكود ؟ احد المبرمجين كان يعمل بلغات البرمجة الاخرى ، والتي كان يجب عليه عمل اي شيء بالكود ، فكان يعمل نماذج الاكسس بالكود ، بينما الاكسس يعمل لك الكائنات بأسبط ما يكون ، فرجاء اترك الكود واعمل التقرير بطريقة الاكسس ، ونحن نساعدك 🙂 انت وضعت التقارير الفرعية في القسم الغلط ، يجب ان تكون في قسم "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

المعذرة ، كنت اريد فقط ان الفت انتباهكم الى مشاركتي في موضوع آخر ، برجاء اذا ممكن القاء نظرة عليه ، فلم اتوصل الى معرفة الطريقة !! جعفر

وعليكم السلام 🙂 انزلت المرفق ، اوقفت الكود ، ولكني لازلت لا ادري من اين/كيف يتم ادخال البيانات في بقية الحقول !! لما تختار من مربع السرد ، يتم ملئ الحقول بالبيانات صحيحة ، ولكن كما قلت ، لا اعرف كيف تتم نقل البينات الى الحقول !! جعفر 1521.Combobox_AfterUpdate.accdb.zip

اللي قبلك كان اشطر منك (انا في هذه الحالة 🙂) ، استعملتها في البداية ، واذا بالحقل "g1s3" يعرض لي تاريخ مال زمان 30/10/1899 ، فاضطررت ان اصطاد اخطاء الكود واضبط تاريخ الحقل 🙂 فكرة جميلة 🙂 جعفر

اهلا وسهلا بك مرة اخرى

وعليكم السلام 🙂 اجعل اسم الزر cmd_clear_fields ، ثم ضع الكود في حدث النقر على الزر: Private Sub cmd_clear_fields_Click() On Error GoTo err_cmd_clear_fields_Click Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then If ctl.Name <> "g1s11" And _ ctl.Name <> "g1s12" And _ ctl.Name <> "g1s13" And _ ctl.Name <> "g1s14" And _ ctl.Name <> "g1s15" Then ctl.Value = "" End If End If Next Exit_cmd_clear_fields_Click: Exit Sub err_cmd_clear_fields_Click: If Err.Number = 2448 Then 'can't change autonumber Resume Next ElseIf Err.Number = 3314 And ctl.Name = "g1s3" Then 'a date must be entered ctl.Value = Date Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If Resume Exit_cmd_clear_fields_Click End Sub جعفر up.zip

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

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