jjafferr

حياك الله البارحة لما نظرت الى الكود ، قلت في نفسي ان هذا الكود لي ، فهي طريقتي في البرمجة (يعني عرفت اميّز خط يدي ) ، وبنفس طريقة التنسيق التي اتبعها جعفر

حياك الله

السلام عليكم وبعد جهد جهيد ، وللتحدي فقط الاستعلام الرئيسي الذي يقوم بكل شي هو qry_Certificate_ALL2 ، ولكنه لا يعمل بدون النموذج الرئيسي frm_Certificate رجاء لا تمسح ولا استعلام فيه كلمة Certificate ، فكلهم مهمين اما الشكل النهائي للنموذج ، فاتركه لك تعمله بالطريقة التي تريد شكل النموذج الفرعي ، وهذه معاني مسميات المواد: 1= محصلة1 ، 2= نصفي ، 3= محصلة2 ، 4= نهائي ، T= المجموع وتستطيع ان تبحث باي فصل شئت ، ولما حقل الفصل الدراسي يكون فاضي ، فهذا معناه جميع المراحل جعفر 294.المعلم اليمني2.mdb.zip 294.المعلم اليمني2.mdb.zip

وعليكم السلام لم اكن اعرف اسم حقل نعم/لا ، فاسميته Field_Yes_No رجاء غيّره باسم الحقل الاصلي في النموذج جعفر

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

وعليكم السلام ايش رايك ، حذفت حقل مسار الصورة: . وحذفت زر فتح الصورة: . وهذا هو كود النموذج كاملا: Option Compare Database Private Sub clase_form_Click() DoCmd.Close End Sub Private Sub Form_Current() Dim imagepath As String '1 imagepath = Application.CodeProject.Path '2 imagepath = imagepath & "\Photo\" 'if the photo Dir dose not exist, creat it If Dir(imagepath, vbDirectory) = "" Then MkDir imagepath End If '3 imagepath = imagepath & [E_number] & "\" 'if the [code] Dir dose not exist, creat it If Dir(imagepath, vbDirectory) = "" Then MkDir imagepath End If 'Place the imagepath in the listbox tag Me.lst_Files.Tag = imagepath 'cleaning up Me.lst_Files.RowSourceType = "Value List" Me.lst_Files.RowSource = "" Me.imageframe.Picture = "" 'Directory file to the listbox strFile = Dir(imagepath & "*.*") Do Until strFile = "" Me.lst_Files.AddItem Item:=strFile strFile = Dir() Loop End Sub Private Sub lst_Files_Click() 'show the picture Me.imageframe.Picture = Me.lst_Files.Tag & Me.lst_Files End Sub جعفر 296.imageListBox.accdb.zip

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

الظاهر ان الاخ كرار شغال على الموضوع ، فصبر جميل العمل لازم يكون كالتالي: 1. عمل استعلام مجاميع (تستطيع عمل نسخة من الاستعلام qry_Data_Entry) ، وفيه الشروط المطلوبة من العام الدراسي والمدرسة وووو ، 2. عمل استعلام جدولي من الاستعلام السابق (الاستعلام الجدولي يغير السجلات الافقية الى عمودية) ، 3. ثم تعمل استعلام ثالث ، حيث تربط الاستعلام الاول بالثاني ، وتحصل على الصيغة النهائية للمطلب طبعا هالكلام على الهواء المباشر كرؤوس اقلام ، وبدون ورقة وقلم وبرمجة ، فلازم يكون في تعديلات في التفاصيل جعفر

حياك الله الحقول المحسوبة عادة لا نخزنها في الجدول ، فهي دائما تحتاج تحديث (لاحظ العمل اللي عملناه للحقل Total) ، وانما نستخدم استعلام/معادلة لحساب هذا الحقل وقت الحاجة ، في حقل غير مضمن جعفر

وعليكم السلام اخي كريمو تفضل: On Error GoTo Err_إجازة_سنوية_Click if me.Field_Yes_No<>-1 then msgbox "Please select the Yes/No field first" exit sub endif Dim stLinkCriteria As String جعفر

تفضل يا سيدي Private Sub Adad_R_AfterUpdate() DoCmd.RunCommand acCmdSaveRecord DoCmd.SetWarnings False DoCmd.OpenQuery "Q1" DoCmd.SetWarnings True End Sub Private Sub Al_adad_AfterUpdate() DoCmd.RunCommand acCmdSaveRecord DoCmd.SetWarnings False DoCmd.OpenQuery "Q1" DoCmd.SetWarnings True End Sub جعفر 295.المثال.mdb.zip

السلام عليكم أخي كرار اعمل كل ما قلته عن العلاقات في الاستعلام ، وستكون سهل التعامل معها ان شاء الله للعلم ، انا لم انزل المرفق فلا اعرف مافيه جعفر

أخوي ابو خليل رحم الله والديك دنيا وآخرة ، كنت اريد ابحث عنها جعفر وتمت التجربة بنجاح وان شاء الله استخدم هذه الطريقة في مرفق الرابط: http://www.officena.net/ib/topic/67205-هل-من-حل-شافى-لمشكلة-اختلاف-اعدادات-اللغة-بالويندز-على-الأجهزة-المختلفة/?do=findComment&comment=437551 وبهذه الطريقة يتكامل الموضوع اكثر جعفر

وعليكم السلام الكود في برنامجك مغلق بكلمة سر جعفر

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

وعليكم السلام ابش رايك في Enhanced Msgbox (هو اصلا نموذج ، ولكن معمول خصيصا لعمل Msgbox ) ، وجاهز للتحميل المجاني هذه بعض الاشكال والالوان التي تستطيع ان تعملها ، وطبعا اللغة كذلك . وفي نسخته العاشرة هذا رابط الموقع ، وجميل النظر الى ملاحظات القرّاء: http://blog.nkadesign.com/2008/ms-access-enhanced-message-box-replacement/ ولتحميل البرنامج: http://blog.nkadesign.com/wp-content/uploads/2008/05/EnhancedMsgBoxv1.10.zip جعفر

حسب علمي انك لا تستطيع ، فهما موجودان في نافذة/امر واحد

السلام عليكم انت لم تقل بانك تريد تحديث حقل في جدول آخر هناك طريقتين على بالي: 1. في النموذج الفرعي Al_Mawad ، غير قيمة الحقل Total بدل =[Adad_S]-[Al_adad] الى =nz([Adad_S],0)-nz([Al_adad],0) على حدث "بعد التحديث" للحقل Adad_S والحقل Al_adad ، اكتب هذا الكود: docmd.runcommand accmdsaverecord docmd.openquery "Q1" وبهذه الطريقة لن تحتاج لزر التحديث ، حيث سيتم تحديث الباقي تلقائيا ، كلما تم تغيير الرصيد او العدد في النموذج 2. وهي كود لزر التحديث ، ولكني لا احبذه ، فقد ينسى المستخدم استعمال هذا الزر ، وتصير الكارثة كما اننا نستطيع ان نجعل هذا الكود على حدث "اغلاق النموذج" ، وسيتم تلقائيا ، ولكنه سيعمل مشكلة اذا استخدمت قاعدة البيانات في شبكة ، وكان هناك اكثر من شخص يستخدمون البرنامج يعني بالعربي ، ما بيفيدك هالكود جعفر

ارفق النموذج والاستعلام والجدول (وبهم بيانات) ، فانا اعتقد بأن الموضوع ابسط بكثير من هذه العملية ، ويمكن تبسيطه جعفر

السلام عليكم لماذا لا تضع قائمة باسماء الطابعات في النموذج ، ويجب عليه اختيار الطابعه قبل الطباعة؟ هذا الرابط به عدة مرفقات وروابط اخرى ، وفيها الطريقة: http://www.officena.net/ib/topic/49802-اختيار-اسم-الطابعة-عند-طباعة-تقرير/ جعفر

عفوا أخي ، اختلط عليّ الامر هناك طريقتين: 1. Msgbox ، حيث ان الرسالة لما تظهر ، فانها توقف الكود ، فاستعملها هكذا: . . 2. Timer ، هذا الكود يجعل الكود يتأخر الوقت المطلوب: . . ولكن السؤال هو: لما هذه العملية؟ لماذا لا تضع قائمة باسماء الطابعات على النموذج ، ويجب عليه اختيار الطابعه قبل الطباعة؟ هذا الرابط به عدة مرفقات وروابط اخرى ، وفيها الطريقة: http://www.officena.net/ib/topic/49802-اختيار-اسم-الطابعة-عند-طباعة-تقرير/ جعفر

السلام عليكم في الجدول TBL2 عندك نسختين من كل حقل ، مثلا Type (النوع) و Type1 (النوع) ؟ فايهم تستعمل للحساب؟ جعفر

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

ولكن جعفر