jjafferr

السلام عليكم استخدم هذا الكود في الحدث "بعد التحديث" ، لحقل رقم الدليل المحاسبي : Private Sub Daleel_Calc_AfterUpdate() Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From TBL2 Where [Daleel_Calc]='" & Me.Daleel_Calc & "'") If rst.RecordCount <> Then Me.Mostnd_Num = rst!Mostnd_Num Me.Mostnd_Date = rst!Mostnd_Date Me.Notes = rst!Notes End If rst.Close: Set rst = Nothing End Sub If rst.RecordCount <> 0 Then جعفر 344.Current_CostProg.mdb.zip

السلام عليكم اخوي بدر ، آخر مشاركة لي في المنتدى كانت مشاركتي السابقة ، وبعدها رحت المطار ، ولازلت على سفر رجاء ارفق برنامجك اللي تريد ان اضيف لك فيه: ويوم الاثنين ان شاء الله انظر فيه جعفر

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

وعليكم السلام أخوي بدر حياك الله ، ان شاء الله تكون بصحة وعافية ، ونحن الحمدلله بخير من نعم الباري علينا وبعد السلام: مافي شئ اسمه طباعة سابقة وطباعة لاحقة ، وانما طباعة سجلات ، لهذا السبب ، اللي حاصل عندك شئ جدا طبيعي ، وبما اننا عملنا معيار الطباعة هو اسم المريض ، والتاريخ ، فطبيعي كل الوصفات تكون في الطباعة بس الظاهر ان سؤالك غير مكتمل ، وانما اعطيتنا جزئية من المشكلة ، فمن غير المنطقي ان نحصل على وصفة اليوم ، ثم يصرفها الصيدلي ، ثم نذهب للدكتور لإعطائنا وصفة اضافية بعدها على طول في نفس اليوم!! اذا اردت تحديد كل وصفة تريد طباعتها (وانا لا انصحك بهذا) ، فيمكنك عمل حقل جديد للوصفة بمسمى Print_This مثلا ، حقل نعم/لا ، ثم تضيفها في نموذج الوصفة ، وتعمل معيار لإستعلام التقرير ، ان سجلات المريض الفلاني ، في اليوم الفلاني ، واللي فيها Print_This = -1 ، اطبعها ، وبعد الطباعة لازم تعمل استعلام تصفية Print_This = -1 الى Print_This = 0 ، حتى تكون مستعد لطباعة اي وصفة جديدة. جعفر

تفضل يا سيدي الفاضل الكود: Private Sub TreeView1_NodeClick(ByVal Node As Object) On Error GoTo err_TreeView1_NodeClick 'lblItemCode.Caption = "" 'If Node.Key <> "Root" Then ' lblItemCode.Caption = Mid(Node.Key, InStr(Node.Key, "_") + 1) 'End If 'lblPath.Caption = Node.FullPath ' Dim colon As Integer ' colon = InStr(Node.Text, ":") ' Me.txt3 = Mid(Node.Text, 1, colon - 1) ' Me.Txt4 = Mid(Node.Text, colon + 1) ' colon = InStr(Node.Child, ":") ' If colon = 0 Then ' Me.txt1 = Val(Mid(Node.Child, 1, colon - 1)) + Node.Children ' Me.txt1 = "" ' Else ' Me.txt1 = Val(Mid(Node.Child, 1, colon - 1)) + Node.Children ' End If If Node.Text = "فتح نموذج frm1" Then DoCmd.OpenForm "frm1" ElseIf Node.Text = "فتح نموذج frm2" Then DoCmd.OpenForm "frm2" End If On Error Resume Next Debug.Print "node.Child; " & Node.Child Debug.Print "node.Children; " & Node.Children Debug.Print "node.Expanded; " & Node.Expanded Debug.Print "node.FirstSibling; " & Node.FirstSibling Debug.Print "node.FullPath; " & Node.FullPath Debug.Print "node.Index; " & Node.Index Debug.Print "node.Key; " & Node.Key Debug.Print "node.LastSibling; " & Node.LastSibling Debug.Print "node.Next; " & Node.Next Debug.Print "node.Parent; " & Node.Parent Debug.Print "node.Previous; " & Node.Previous Debug.Print "node.Root; " & Node.Root Debug.Print "node.Selected; " & Node.Selected Debug.Print "node.Sorted; " & Node.Sorted Debug.Print "node.Tag; " & Node.Tag Debug.Print "node.Text; " & Node.Text Debug.Print "----------------------" Exit Sub err_TreeView1_NodeClick: If Err.Number = 91 Then colon = Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 342.AZ_TreeView_ListBox.accdb.zip

آمين رب العالمين اشكرك على هذا الدعاء الجميل

علينا الدعاء ان شاء الله ، ونسأل الله القبول

حياك الله هذا الرابط به شرح كامل للامر Nz: جعفر

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

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

اذا تريد تريح نفسك من هذه الشغلة كلها ، فالرابط اعلاه فيه برنامج من مايكروسوفت يمكنك انزاله ، وسيقوم بالعملية بطريقة ثانية ، وهذا رابط البرنامج: http://go.microsoft.com/fwlink/?LinkId=263512 اما اذا الجواب عن سؤالك ، فتفضل: 1. . 2. . 3. . 4. . 5. . 6. . 7. . 8. . 9. . 10. . 11. . 12. . 13. . جعفر

السلام عليكم أخي أبوجومانة 1. تم تغيير المعادلة بإضافة الامر NZ ، حتى يتعامل مع الحقول الفارغة Null بطريقة صحيحة ، 2 و 3. استخدم هذا الكود: Private Sub السعر_AfterUpdate() Me.نص17.Requery End Sub Private Sub العدد_AfterUpdate() Me.نص17.Requery End Sub جعفر 341.فاتورة بيع 1.accdb.zip

السلام عليكم أخي مصطفى لرفع برنامجك على المنتدى ، يجب ان يكون البرنامج مضغوطا ب_ Winrar او Winzip جعفر

لمعرفة اذا كان نظام الوندوز عند 32بت او 64بت ، هنا تجد مسار معرفة هذا: . حسب موقع مايكروسوفت: https://support.microsoft.com/en-us/kb/2687441 لتسجيل الاداة (سواء كان نظام التشغيل عندك 32بت او 64بت) ، احفظ هذه الاسطر في ملف واحفظه بصيغة bat ، باسم RegFix.bat مثلا ، ثم انقر على الملف بالفأرة اليمين ، وشغل الملف كمسؤول (وإلا لن يعمل الملف بالطريقة الصحيحة) reg delete hkcr\typelib\{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}\2. /f if exist %systemroot%\SysWOW64\cscript.exe goto 64 %systemroot%\system32\regsvr32 /u mscomctl.ocx /s %systemroot%\system32\regsvr32 mscomctl.ocx /s exit :64 %systemroot%\sysWOW64\regsvr32 /u mscomctl.ocx /s %systemroot%\sysWOW64\regsvr32 mscomctl.ocx /s exit جعفر

وعليكم السلام اذا سمحت لي اشرح لك شئ بسيط عن التقرير: . انا اعطيت كل قسم من اقسام التقرير اعلاه رقم ، علشان اعرف الترتيب الذي يشتغل التقرير (يعني ترتيب تشغيل التقرير) ، وهذه نتيجة الصفحة الاولى: . من هذا نلاحظ ان الاكسس ينتهي من (تنسيق وحسابات وقفل) رأس الصفحة رقم 2 ، ثم يصل الى ذيل الصفحة رقم 4 ويعطي النتيجة ، ولأنه اقفل رأس الصفحة رقم 2 ، فلا يمكن ان نرسل اي معلومة له انا اعتذر ، فلا اعرف طريقة لعمل ما طلبته جعفر

السلام عليكم أخي حلبي اذا ممكن ترفق البرنامج القديم ، والجديد (فقط الجزئية التي لها علاقة بالشجرة) ، وان شاء الله نحاول نلقى لك الحل ، فانا اشتغل على الاكسس 2010. جعفر

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

وعليكم السلام غيّر الكود السابق الى هذا الكود: If Me.PrintCount = 1 Then curTotal = curTotal + nz(Me.الثمن,0) جعفر

وعليكم السلام هذا الكود يقوم بالعمل: Option Compare Database Option Explicit 'Optional, but recommended for every module. Dim curTotal As Currency 'Variable to sum [Amount] over a Page. ' 'From http://allenbrowne.com/ser-11.html ' Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer) Me.PageTotal = curTotal End Sub Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) curTotal = 0 'Reset the sum to zero each new Page. End Sub Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) If Me.PrintCount = 1 Then curTotal = curTotal + Me.السعر End Sub . . . جعفر 339.اجمالي السعر.mdb.zip

هلا والله

وعليكم السلام انا شرحت موضوع الامر NZ بطريقة موسعة شوي: جعفر

أخوي حسين ايش رايك نطلع مثل ما يقولون Out of the Box ، وننظر للموضوع بشكل ابعد من الاكسس فقط ايش رايك بهذا البرواز: . وهكذا عملته: بحثت في الانترنت عن برواز ، وانزلته ، وكان عرضة اطول من طوله ، فاستعملت برنامج رسومات وادرته 90 درجة وحفظته ، ضيّقت الكائنات في التقرير ، علشان البرواز يبين من كل الجهات ، وبس : . وعلشان حجم البرنامج لا يكبر بسبب الصورة ، احفظ الصورة في مجلد البرنامج واربط الصورة ، بدل ان تجعلها مضمنه جعفر 338.2.برنامج الفواتير.mdb.zip

الأسف الشديد ، الاكسس لا يعطيك امكانية مثل الاكسل والورد ، فكل الذي استطعت البحث والوصول اليه: . عن طريق الكود التالي ، للنموذج الرئيسي: Private Sub Report_Page() Me.DrawStyle = 0 '0-4 Me.DrawWidth = 20 '11 ' Draw a border around the page. Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), , B End Sub جعفر 338.1.برنامج الفواتير.mdb.zip