jjafferr

اخي الفاضل ، رجاء توضيح المطلوب ، وبالتفصيل ، لأني ما فهمت قصدك !!

وعليكم السلام 🙂 الاكسس يأخذ هذه المعلومة من نظام الوندوز : . . Metric معناه قياس السنتيمتر. وبعد حفظ هذه الاعدادات ، الاكسس سيظهر لك القياس بالسنتيمتر 🙂 جعفر

تفضل 🙂 تم تغيير نوع الحقل A1 في الجدول StuSce من نوع مذكرة الى نوع رقم، حتى يتم الربط بين الجدولين برنامج متابعة غياب طلاب الفراغات.zip

الله يسامحك ، صار لي كذا ساعة وانا محتار ، الاستعلام qry_SubSt ما يعطيني نتائج !! واذا بالبيانات اللي انت وضعتها لليوم والحصة في جدول SubSt ، كلها تبدأ ب مسافة فارغة Space !! على العموم تفضل 🙂 جعفر برنامج متابعة غياب طلاب الفراغات.zip

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

اخي الفاضل ، مرفقك الاصل مافيه بيانات في الجدول SubSt لهذا السبب طلبت منك ان تضيف بيانات في الجدول SubSt وترفقه ، ولايزال هذا طلبي 🙂 انت عندك علاقة بين جدولي Table1 و SubSt ، فإذا مافي بيانات في الجدول SubSt ، فما تظهر لك بيانات في حقل الطالب. إلا اذا انا اصلا فهمي كله كان خطأ جعفر

وارفقه هنا 🙂

اختار اليوم والحصة ، وبعدين اختار اسم الطالب ، وارفقه هنا 🙂 جعفر

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

الظاهر اني فهمتك خطأ !! لوسمحت تنسخ هذه المعادلات وتضعها في الاستعلام ، بدلا عن اللي موجودة حاليا: دائن: IIf([المبلغ]>0,[المبلغ],0) مدين: IIf([المبلغ]<0,[المبلغ],0) جعفر

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

بس اقتراحي ما فيه تغيير في النماذج ، وبالعكس المفروض سهل عمله 🙂 جرب اقتراحي في نموذج او اثنين ، وعليه اتخاذك للقرار يكون افضل 🙂 جعفر

السلام عليكم شباب 🙂 ابو بهاء مو علوم وخبر 🙂 خلونا ننسى طلب ابو بهاء ، ونشوف عمل النموذج التالي: 1. عندي جدول ، 2.1. عملت استعلام 1 لهذا الجدول qry_1 ، لأدخال البيانات ، 2.2. عملت استعلام 2 لهذا الجدول qry_2 ، للبحث ، بحيث يكون هناك معيار/معايير لحقول البحث ، وهذه المعايير تشير الى حقول النموذج ، مثل (Forms!frm_1!ID) 3. عملت نموذج يأخذ بياناته من هذه الاستعلامات ، حسب صلاحيات المستخدم: أ.1. للمستخدم العادي ، نفتح النموذج بالطريقة العادية: docmd.openform "frm_1" أ.2. لمستخدمي البحث ، نفتح النموذج للقراءة فقط: docmd.OpenForm "frm_1",,,,acFormReadOnly ب. ممكن اعمل سجل جديد ، بدون مشاكل ، بإستخدام qry_1 ج. علشان البحث ، استخدم qry_2 د. اعمل على حدث فتح النموذج ، الكود التالي: if user_Group=1 then me.recordsource=qry_1 elseif user_Group=2 then me.recordsource=qry_2 end if اعتقد ممكن استعمال هذه الطريقة لأخونا ابو بهاء 🙂 جعفر

وعليكم السلام 🙂 حسب فهمي للموضوع ، هناك طريقتين: 1. تضيف كلمة true في معيار الحقلين : . او 2. . جعفر

وعليكم السلام ابو عبدالله 🙂 سؤالك غير واضح ، يا ريت تعمل مثال من بياناتك في ورقة اكسل/وورد مثلا 🙂 جعفر

حياك الله 🙂 على راسي ، ولكن شروط المنتدى لا تسمح لأكثر من سؤال في موضوع واحد 🙂 رجاء ارفاق رابط بالموضوع ، او تعمل موضوع جديد ، وترفق الرابط هنا 🙂 جعفر

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

السلام عليكم 🙂 اذا تسمحوا لي بالمشاركة 🙂 لإصطياد رقم الخطأ ، يجب علينا ان نستعمل حدث "on error" ، في النموذج الذي نحصل فيه على الخطأ ، وفي حالتنا ، فهو النموذج الفرعي ، هكذا: Private Sub Form_Error(DataErr As Integer, Response As Integer) MsgBox DataErr End Sub وعند التجربة ، نحصل على هذا: الآن وقد عرفنا رقم الخطأ ، اصبح من السهل التعامل معاه ، هكذا مثلا: Private Sub Form_Error(DataErr As Integer, Response As Integer) 'MsgBox DataErr If DataErr = 3314 Then Response = acDataErrContinue strMsg = "لا يمكن ترك الحقل التالي فارغ " & vbCrLf & _ "المنصرف بالوحدة الصغرى" MsgBox strMsg End If End Sub ونلقى هذه الرسالة الآن: جعفر 1110.Market.accdb.zip

السلام عليكم 🙂 رجاء من الجميع الالتزام بقوانين المنتدى ، والاهم حُسن استعمال الالفاظ ، وبدون تجريح لأحد 🙂 جعفر

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

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

ممتاز ، ولكن ناقصك ، اذا كان في اخطاء اخرى غير 7847 ، فعليك عمل الكود هكذا : On Error GoTo MyErr ثم الكود MyErr: If Err.Number = 7847 Then MsgBox " هذا الملف موجود سابقا ", vbInformation, " : عنوان الرساله " else msgbox err.number & vbcrlf & err.description end if جعفر

الامر On Error Resume Next جدا خطير ، ويجب ان يُستعمل في حالات جدا خاصة 🙂 بينما كود اصطياد الخطأ الذي وضعته انا ، جدا مرن ، ويستوعب اي عدد من الاخطاء ، ويمكن معالجة كل نوع منها بطريقة خاصة 🙂 شوف مثلا اصطياد هذه الاخطاء ، وهذا كود من احد برنامجي : Exit Sub ProcError: Select Case Err Case 7874 'could not find QueryDef Resume Next Case 9 'Worksheet doesn't exist objXLWb.Worksheets.Add Set objXLSheet = objXLWb.ActiveSheet objXLSheet.Name = strWorkSheet Resume Next Case 1004 'Workbook doesn't exist, make it objXLApp.Workbooks.Add Set objXLWb = objXLApp.ActiveWorkbook objXLWb.SaveAs strWorkBook, FileFormat:=strSaveAs Resume Next Case 53 'file not found Resume Next Case 3270 'Field Caption not found, use field name objXLCell(, i + 1) = rs.Fields(i).Name Resume Next Case 3061 'too few parameters, expected 1 or more 'this error occurs when trying to run a query which needs its parameters from a Form, 'the Form should be open with the parameter, then this code take the values properly Dim qdf As QueryDef Dim prm As Parameter 'Set qdf = CurrentDb.QueryDefs("strSql") Set qdf = CurrentDb.CreateQueryDef("NewQueryDef", strSql) For Each prm In qdf.Parameters prm.Value = Eval(prm.Name) Next prm Set rs = qdf.OpenRecordset(dbOpenDynaset) DoCmd.DeleteObject acQuery, "NewQueryDef" Resume Next Case Else DoCmd.Hourglass False MsgBox Err.Number & " " & Err.Description 'Stop 'OkNotOk = "NotOk" Exit Sub Resume 0 End Select End Sub جعفر

في الواقع يمكننا ان نتوسع في كود الصور اكثر ، حتى نخفي الصوره الغير موجودة : Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) on error goto err_Detail_Format dim int_Which_Picture int_Which_Picture=1 Me![ImageFrame1].Picture = Me![Picture1] int_Which_Picture=2 Me![ImageFrame2].Picture = Me![Picture2] int_Which_Picture=3 Me![ImageFrame3].Picture = Me![Picture3] int_Which_Picture=4 Me![ImageFrame4].Picture = Me![Picture4] Exit_Detail_Format: exit sub err_Detail_Format: if err.number=2220 then if int_Which_Picture=1 then Me![ImageFrame1].Picture ="" elseif int_Which_Picture=2 then Me![ImageFrame2].Picture ="" elseif int_Which_Picture=3 then Me![ImageFrame3].Picture ="" elseif int_Which_Picture=4 then Me![ImageFrame4].Picture ="" endif resume next else msgbox err.number & vbcrlf & err.description endif End Sub جعفر

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