jjafferr

العفو ، وضعك المصدر كان كافي ، ولكنه كان لازم نبحث فيه ، وسط بقية الاكواد ، بينما وضع الكود مباشرة ، يسهل الامر على القارئ 🙂 جعفر

السلام عليكم 🙂 عملت بعض الاضافات في مشاركتي السابقة ، وهذه هي الجزئية التي تتأكد ان الحقول مليانة : Private Sub cmd_Update_Click() If (Len(Forms!الرئيسية![44 form]![التسلسل] & "")) = 0 Then MsgBox "حقل التسلسل فارغ" Forms!الرئيسية.Form![44 form].SetFocus Forms!الرئيسية![44 form]![التسلسل].SetFocus Exit Sub ElseIf (Len(Forms!الرئيسية![44 form]![named] & "")) = 0 Then MsgBox "حقل الاسم فارغ" Forms!الرئيسية.Form![44 form].SetFocus Forms!الرئيسية![44 form]![named].SetFocus Exit Sub ElseIf (Len(Forms!الرئيسية![5 form]![تاريخ التولد] & "")) = 0 Then MsgBox "حقل تاريخ التولد فارغ" Forms!الرئيسية.Form![5 form].SetFocus Forms!الرئيسية![5 form]![تاريخ التولد].SetFocus Exit Sub ElseIf (Len(Forms!الرئيسية![8 form]![العمر] & "")) = 0 Then MsgBox "حقل العمر فارغ" Forms!الرئيسية.Form![8 form].SetFocus Forms!الرئيسية![8 form]![العمر].SetFocus Exit Sub ElseIf (Len(Forms!الرئيسية![form1]![المهنة] & "")) = 0 Then MsgBox "حقل المهنة فارغ" Forms!الرئيسية.Form![form1].SetFocus Forms!الرئيسية![form1]![المهنة].SetFocus Exit Sub ElseIf (Len(Forms!الرئيسية![form1]![رقم الموظف] & "")) = 0 Then MsgBox "حقل رقم الموظف فارغ" Forms!الرئيسية.Form![form1].SetFocus Forms!الرئيسية![form1]![رقم الموظف].SetFocus Exit Sub End If ShowBalloonTooltip "رجاء الانتظار ...", "تم تحديث معلومات :" & vbCrLf & "اسم الموظف ورقمه بنجاج", btWarning ' ShowBalloonTooltip "النتائج التي تم حفظها :", "التسلسل: " & Forms!الرئيسية![44 form]![التسلسل] & vbCrLf & _ "اللاسم: " & Forms!الرئيسية![44 form]![named] & vbCrLf & _ "المهنة: " & Forms!الرئيسية![form1]![المهنة] & vbCrLf & _ "رقم الموظف: " & Forms!الرئيسية![form1]![رقم الموظف], _ btWarning End Sub جعفر 1191.1.222.accdb.zip

كيف تبحث عن ملف pdf ، اعطني مثال ؟ وهل بيانات الحقل ImagePath دائما فاضية ؟ ولما تبحث عن ملف jpg ، كيف تبحث ، اريد مثال ؟ واريد صورة شاشة من احد المجلدات اللي فيها ملفات الـ pdf ، وصورة شاشة من احد المجلدات اللي فيها ملفات الـ jpg . جعفر

وعليكم السلام 🙂 الكود يحفظ ملفات jpg و pdf بنفس الطريقة : . والمسار يصير: مجلد قاعدة البيانات / comp1 / ثم E_ID هذه اختيارات comp1 : . وهذا نوع الحقل E_ID . في هذا الرابط انت سألت عن كيف عرض ملف pdf في النموذج : وبالاضافة الى تغيير الكائن في النموذج ، جواب الكود كان: web.Navigate Me![ImagePath] . بينما الكود عندك : Private Sub PicFile_AfterUpdate() On Error Resume Next Me![objIE].Object = Me![PicFile] '<----- End Sub . وقيمة الحقل PicFile . واللي اصلا غير عن: . وكذلك حقل ImagePath في الجدول فارغ !! . لذا ، وبإختصار شديد: شليله و ضايع راسها !! جعفر

وعليكم السلام 🙂 يا ريت تعرض لنا الجواب هنا 🙂 القوائم اعلى النوافذ ، تتحكم في اظهارها / اخفائها بالامر الذي وضعته انت في مشاركتك الاولى ، بينما التحكم في الاطار اسفل النافذة (وهو طلبك) ، فالامر هو : إخفاء Application.SetOption "Show Status Bar", False إظهار Application.SetOption "Show Status Bar", True . ويمكن استعمال هذا الكود اول ما يعمل البرنامج ، فلا يظهر في البرنامج ككل ، واذا اردنا إظهاره في نموذج معين ، ثم اخفائه في بقية النماذج ، فنستعمل كود الاظهار عند فتح النموذج (او عند تنفيذ امر معين) ، ونخفيه عند اغلاق النموذج (او عند الانتهاء من الامر المطلوب) 🙂 جعفر

طريقة العمل: . 1. من برنامجك ، تستورد الوحدتين النمطية ، BalloonTooltip و basBalloonTooltip ، من البرنامج BalloonToolTipSample.mdb ، واذا اردت ان تعمل نسخ ولصق للوحدتين النمطية ، تأكد بأنك تلصق كل وحدة نمطية في مكانها الصحيح : basBalloonTooltip في Module BalloonTooltip في Class Module 2. تشغل برنامج اللي في رابط مشاركتي اعلاه : BalloonToolTipSample.mdb ، ثم تضع النص اللي تريده ، 3. اختار احد الاختيارات ، 4. جربه ، وشوف نتيجته ، 5. ولما تختار من رقم 3 ، انقر على الرقم 5 حتى يعطينا البرنامج الكود الذي نستعمله ، 6. ننسخ الكود في الذاكرة ، ثم نلصقه في برنامجنا : Private Sub cmd_Update_Click() ShowBalloonTooltip "رجاء الانتظار ...", "تم تحديث معلومات :" & vbCrLf & "اسم الموظف ورقمه بنجاج", btWarning End Sub . . وانواع الايقونات هي : btNone btInformation btWarning btCritical . ونستطيع التوسع ، وجعل بيانات معينة تظهر ، مثل: . والذي عملناه بهذا الكود : ShowBalloonTooltip "النتائج التي تم حفظها :", "التسلسل: " & Forms!الرئيسية![44 form]![التسلسل] & vbCrLf & _ "اللاسم: " & Forms!الرئيسية![44 form]![named] & vbCrLf & _ "المهنة: " & Forms!الرئيسية![form1]![المهنة] & vbCrLf & _ "رقم الموظف: " & Forms!الرئيسية![form1]![رقم الموظف], _ btWarning . وهناك كمية معينة من البيانات التي ممكن اظهارها ، وإلا ، فلن يظهر إلا الكم المسموح به فقط 🙂 . الى هنا وينتهي العمل . ---------------------------------------------------------------- اذا عملنا ايقونه خاصه لبرنامجنا ، انا عملت حرف J باللون الازرق : . ومن اعدادات البرنامج ، نختار صورة الايقونه للبرنامج : . فنلاحظ انه تظهر في اعلى يسار الشاشة : . وكذلك ستظهر الايقونه مع الرسالة : . جعفر 1191.222.zip

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

السلام عليكم 🙂 اليكم طريقتي . وهذا هو الكود ، ولكن تذكر ان تحذف السطر الذي لا تريده : 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

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