jjafferr

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

السلام عليكم 🙂 اليكم طريقتي . وهذا هو الكود ، ولكن تذكر ان تحذف السطر الذي لا تريده : Dim ID As Long Dim ID As String ID = Me.txtID Me.Requery Me.RecordsetClone.FindFirst "[ID]=" & ID Me.RecordsetClone.FindFirst "[ID]='" & ID & "'" Me.Bookmark = Me.RecordsetClone.Bookmark . وهذه الطريقة اعلاه ، ولكنها غير مختصرة : . وهذا هو الكود ، ولكن تذكر ان تحذف السطر الذي لا تريده : Dim rst As dao. Recordset Dim ID As Long Dim ID As String ID=Me.txtID Me.Requery Set rst = Me.RecordsetClone rst.FindFirst "[ID]=" & ID rst.FindFirst "[ID]='" & ID & "'" Me.BookMark=rst.RecordsetClone.BookMark جعفر

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

شوف هذا الرابط ، قد يفيدك 🙂 جعفر

تفضل 🙂 . جعفر

اليك الرابطين التاليين : . جعفر

هذا شيء غريب وعجيب ، لأن لغات برمجة صفحات الانترنت تعمل على جميع المتصفحات الجديدة 🙂 رجاء ترفق هذا الرابط 🙂 جعفر

وهذه طريقتي 🙂 انا تعمدت وخليت التقرير طويل ، علشان يبان الجمع لأكثر من صفحة ، وطبعا انت لاحقا اعمله بالحجم اللي يناسبك 🙂 . . والنتيجة : الصفحة 1 ومجموعها : . والصفحة 2 ومجموعها + مجموع ما قبلها: . جعفر 1189.الكمية444.accdb.zip

اخي jo 🙂 انت عندك موضوع اكبر من اللي اخبرتنا عنه 🙂 فجواب سؤالك: '1 Private Sub AA_AfterUpdate() Me.BB = -1 End Sub '2 Private Sub AB_Click() Me.AA = -1 End Sub . جعفر

اخي الفاضل 🙂 للتوضيح : . بالنسبة لـ نعم / لا او صح / خطأ او تشغيل / إيقاف تشغيل : فهو ليس زر ، وإنما اختيار ، وهناك 3 اشكال له (كما هو واضح من الصورة اعلاه) ، والكود عادة نضعه على الحدث "بعد التحديث" ، ويكون في حالتين ، عند اختياره تكون قيمته تساوي -1 ، وعند عدم الاختيار تكون قيمته صفر (وهناك حالة ثالثه خاصة لهم ، وهي حالة Null) ، عند وضع المعيار (في الاستعلام مثلا) ، وبسبب ان الكائن ممكن يكون في 3 حالات (حالة الصفر وحالة Null معناهما انه لم يتم الاختيار) ، لذا ، فالافضل هو ان نستعمل: اذا كنا نريد الحقول المختارة ، فيكون الاختيار -1 ، بينما اذا اردنا الحقول الغير مختارة ، فيكون الاختيار <>-1 جعفر

وعليكم السلام اخي رضا 🙂 اهلا وسهلا بك في المنتدى 🙂 رجاء استخدام خاصية البحث في المنتدى ، وسترى الكثير والكثير من المواضيع ذات الصلة بطلبك 🙂 قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف يُغلق. جعفر

هذا ليس التقرير الذي عملته انا وارفقته في مشاركتي اعلاه ، هذا تقريرك انت القديم !! انا عملت التقرير الجديد الذي اسمه Report1 ، وهذا شكله : . رجاء افتح التقرير اللي اسمه Report1 ، وبدون تعديل ، وشوف النتيجة. جعفر

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

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

خلينا نتأكد : 1. انت استعملت التقرير Report1 ، صح ؟ 2. في عندك بيانات في التقرير ، صح ؟ 3. سابقا كنت تقدر تطبع التقرير ، ولكن بدون تظليل : . اما الآن : . جعفر

هممم في هذه الحالة ، خلينا نجمع جميع العمليات مع بعض ، الحشو ، التنظيف ، الخلع ، .... بحيث لما تنقر مرتين على الضرس ، ويعمل البرنامج سجل جديد ، فيجب ان يكون هناك كومبوبوكس يختار الدكتور العمل الذي يقوم به على الضرس (الحشو ، التنظيف ، الخلع) ، وعلى حسب الاختيار (رقم الضرس ونوع العمل على الضرس) نخفي الضرس ، او نجعل لونه ازرق ، تبدأ من آخر سجل وتنتهي بأول سجل 🙂 مخمخها في دماغك ، بحيث يكون عندك في النموذج الفرعي سجل كامل بأسنان الزبون ، وطبعا لاحقا في المستقبل ، اكيد ستزيد حقول النموذج الفرعي ، حتى تتأقلم وطلبات الدكتور 😁 جعفر

تفضل 🙂 تم تعديل النموذج والكود ليشمل جميع كائنات A و P ، التعديلات في مشاركتي السابقة على الحقول A ، تم تنفيذها على الحقول P ، كود الحالي اصبح : Private Sub Form_Current() On Error GoTo err_Form_Current Dim rst As DAO.Recordset Dim i As Integer 'un Select the Selected option buttons For i = 11 To 48 Me("A_" & i) = 0 Me("A_" & i).Visible = True Next i For i = 51 To 85 Me("P_" & i) = 0 Me("P_" & i).Visible = True Next i 'Hide the Removed teeth Set rst = Me.sfrm_All_P.Form.RecordsetClone rst.MoveLast: rst.MoveFirst: RC = rst.RecordCount For i = 1 To RC Select Case rst!Tooth_Number Case 11 To 48 Me("A_" & rst!Tooth_Number).Visible = False Case 51 To 85 Me("P_" & rst!Tooth_Number).Visible = False End Select rst.MoveNext Next i Exit_Form_Current: Exit Sub err_Form_Current: If Err.Number = 3021 Then 'when there is NO Record Resume Exit_Form_Current ElseIf Err.Number = 2465 Then 'the numbers are 11 to 28, then 38 to 48 'so instead of doing another loop, we'll ignor the error Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . والوحدة النمطية اصبحت : Public Function f_Remove_a_Tooth() Dim frm As String Dim fld As String frm = Screen.ActiveForm.Name fld = Screen.ActiveControl.Name 'add a new Record, and add the Tooth number in to Forms!All_P.SetFocus Forms!All_P!sfrm_All_P.SetFocus DoCmd.GoToRecord , , acNewRec Forms!All_P!sfrm_All_P!DDate = Now() Forms!All_P!sfrm_All_P!Tooth_Number = Replace(Replace(fld, "A_", ""), "P_", "") Forms!All_P!sfrm_All_P!Remarks.SetFocus 'now hide the tooth Forms(frm)(fld).Visible = False End Function جعفر 1188.Dental.accdb.zip

سيدي الفاضل 🙂 1. تم حذف جميع هذه الكائنات : . 2. تم حذف النموذج Tooth ، 3. تم اخذ الصور وبقية الكائنات كجزء من النموذج الرئيسي All_P ، 4. هذه الكائنات اصبحت غير مرتبطة بجدول : . 5. عند النقر المزدوج ، جميع هذه الكائنات تنادي الوحدة النمطية f_Remove_a_Tooth : . 6. هناك جدول فرعي جديد stbl_All_P ، يرتبط بالجدول All_P ، عن طريق الحقل PCode ، وفيه الحقول التالية : dDate ، Tooth_Number ، Remarks ، 7. هناك نموذج فرعي sfrm_All_P (نموذج مستمر) والذي يأخذ بياناته من الجدول stbl_All_P ، وعمل هذا الجدول تسجيل الضرس/الاضراس التي يتم قلعها ، بالوقت والملاحظات ، بحيث يبقى هذا كتاريخ لجميع الاضرس التي قلعها الدكتور ، 8. عند النقر مرة على الضرس ، يتم تحويل لونه الى اللون الازرق ، وعند النقر مرتين على الضرس ، فالوحدة النمطية f_Remove_a_Tooth تقوم بعمل التالي : أ. عمل سجل جديد ، ويكتب في السجل رقم الضرس ، والوقت ، ويقف التركيز على حقل الملاحظات ، ب. اخفاء الضرس من الصورة ، 9. يمكن اضافة اي عدد من الاضراس في النموذج الفرعي ، 10. في حدث الحالي للنموذج الرئيسي ، فأنه بقراءة الاضراس المقلوعة من النموذج الفرعي ، ويقوم بإخفاء هذه الضروس من الصورة ، Private Sub Form_Current() On Error GoTo err_Form_Current Dim rst As DAO.Recordset Dim i As Integer Set rst = Me.sfrm_All_P.Form.RecordsetClone rst.MoveLast: rst.MoveFirst: RC = rst.RecordCount For i = 1 To RC Me("A_" & rst!Tooth_Number).Visible = False rst.MoveNext Next i Exit_Form_Current: Exit Sub err_Form_Current: If Err.Number = 3021 Then Resume Exit_Form_Current Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub والنتيجة: . 11. تم العمل على الصورة التي على اليمين ، ويجب ان تعمل نفس الشيء للصورة على اليسار ، 12. الوحدة النمطية f_Remove_a_Tooth : Public Function f_Remove_a_Tooth() Dim frm As String Dim fld As String frm = Screen.ActiveForm.Name fld = Screen.ActiveControl.Name 'add a new Record, and add the Tooth number in to Forms!All_P.SetFocus Forms!All_P!sfrm_All_P.SetFocus DoCmd.GoToRecord , , acNewRec Forms!All_P!sfrm_All_P!DDate = Now() Forms!All_P!sfrm_All_P!Tooth_Number = Replace(fld, "A_", "") Forms!All_P!sfrm_All_P!Remarks.SetFocus 'now hide the tooth Forms(frm)(fld).Visible = False End Function . جعفر 1188.Dental.accdb.zip

رجاء تشرح هذه وبالتفصيل ، وبمثال ، وبأسماء الحقول 🙂 جعفر

بغير فارزه . وبغير فواصل . جعفر

اخي بشاردو :) اخوي خالد قصده ، اختر الاجابة الافضل لك ، وليس قصده ان تختار اجابته 🙂 جعفر

يا لطيف !! اعدادات الجقل في الجدول . والنتيجة بدون تنسيق . . وطبعا تقدر تغير طريقة العرض بإستخدام التنسيق Format ، وبإستخدام: . النتيجة: . جعفر

او عند تمرير الفأرة على الكائن في النموذج: جعفر

هذا بسبب ان الحقل غير مضمن (اي غير مرتبط بحقل في جدول/استعلام) ، في نموذج مستمر 🙂 جعفر

السلام عليكم 🙂 المرفق من :https://www.msaccesstips.com/2009/02/controltip-text-and-time-delay.html افتح النموذج MainSwitchBoard ، وضع الفأرة على اي من الكائنات في النموذج 🙂 هو مثل مثال اخوي ابو آمنه ، ولكنه متطور 🙂 جعفر ControlTip2K.zip