jjafferr

بس للعلم ، كود تغيير الاسم فيه شئ جميل للنظر فيه ، فالسؤال هو : اذا فتحت ملف اكسس مثلا ، فهل تستطيع ان تغير اسمه وهو مفتوح؟ الجواب لا ، فهنا انا ، غيرت اختيار الصورة (يعني كأنّي كبست على صورة ثانية) 'select another file in the listbox, so that this file is no longer in-use عندها ، طلبت من الاكسس ان لا يسمح لك ان ترى ما يحدث (يعني لما اكبس الزر لرؤية صورة اخرى ، فالمفروض ترى صورة اخرى في النموذج ، مما قد يربك المستخدم) ، وذلك بعدم تغيير آخر شكل للنموذج ، والامر هو Me.Painting = False ، وعندها عملت التغييرات ، ولما خلصت ، طلبت من اكسس ان يعرض الشكل الصحيح للنموذج Me.Painting = True للعلم جعفر

ذكرتني بأيام زمان والايام اللي تبعته ما كنت ادري انك تشوف المستخبري كمان ، لازم اخلي بالي المرات الجاية الكود اصبح: Option Compare Database Private Sub clase_form_Click() DoCmd.Close End Sub Private Sub cmd_open_a_File_Click() 'open the file outside the program Application.FollowHyperlink Me.lst_Files.Tag & Me.lst_Files.ItemData(Me.lst_Files.ListIndex) End Sub Private Sub cmd_Rename_Click() newpathANDname1 = InputBox("Please insert a new name") If Len(newpathANDname1 & "") = 0 Then Exit Sub newpathANDname = Me.lst_Files.Tag & newpathANDname1 & ".jpg" oldpathANDname = Me.lst_Files.Tag & Me.lst_Files.ItemData(Me.lst_Files.ListIndex) 'make a copy of the fie, with the new name FileCopy oldpathANDname, newpathANDname 'select another file in the listbox, so that this file is no longer in-use For i = 0 To lst_Files.ListCount - 1 If lst_Files.Column(0, i) <> newpathANDname1 Then Me.lst_Files.Selected(i) = True Exit For End If Next i 'now delete the old file name Kill oldpathANDname 'don't refresh the Form Me.Painting = False 'read the folder files Call Form_Current 'select the same file name For i = 0 To lst_Files.ListCount - 1 If lst_Files.Column(0, i) = newpathANDname1 Then Me.lst_Files.Selected(i) = True Exit For End If Next i 'refresh the Form Me.Painting = True 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. ما عملها ، حيث الصورة تُعرض في النموذج بدون الزر ، 2. يعني انتشر الخبر اني عُماني وساحر وبدون برمجة جعفر

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

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

حياك الله

السلام عليكم وبعد جهد جهيد ، وللتحدي فقط الاستعلام الرئيسي الذي يقوم بكل شي هو 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-اختيار-اسم-الطابعة-عند-طباعة-تقرير/ جعفر