jjafferr

السلام عليكم اعتقد مهم ان اعطيكم مثال على Me.Painting ، فالتوضيح في الرابط التالي يحتاج الى توضيح http://www.officena.net/ib/topic/67464-المساعدة-في-فتح-صورة-من-listbox/?do=findComment&comment=438833 النموذج Form1 ، كل ثانية ، اللون الاصفر ينزل الى الحقل التالي (اي بمعنى ان النموذج يجدد شكل النموذج باستمرار ، وعليه نرى الالوان تنتقل من حقل الى آخر): الكود: Function Change_Colors(F) Me(F).BackColor = RGB(225, 225, 0) 'yellow Me(F) = F DoEvents PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop Me(F).BackColor = RGB(255, 255, 255) 'white Me(F) = "" End Function Private Sub cmd_Start_Coloring_Click() Call Change_Colors("q1") Call Change_Colors("q2") Call Change_Colors("q3") Call Change_Colors("q4") Call Change_Colors("q6") Call Change_Colors("q7") End Sub . والنتيجة: . اما النموذج Form2 ، فهو نسخة من النموذج السابق Form1 ، إلا اني طلبت في الكود ان: اللون الاصفر يلون الحقل الاول والثاني ، ثم اعطيت الامر بعدم تجديد شكل النموذج بالامر Me.Painting=False فاللون الاصفر ظل على الحقل الثاني للنموذج ، بينما الكود استمر في عمله في تلوين الحقل الثالث والرابع ، ولكن دون ان يُظهر لنا النتيجة على النموذج ، ثم اعطيت الامر Me.Painting=True ، فاللون الاصفر اختفى من الحقل الثاني ، وظهر لآخر حقلين ، والكود هو: Function Change_Colors(F) Me(F).BackColor = RGB(225, 225, 0) 'yellow Me(F) = F DoEvents PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop Me(F).BackColor = RGB(255, 255, 255) 'white Me(F) = "" End Function Private Sub cmd_Start_Coloring_Click() Call Change_Colors("q1") Call Change_Colors("q2") Me.Painting = False Call Change_Colors("q3") Call Change_Colors("q4") Me.Painting = True Call Change_Colors("q6") Call Change_Colors("q7") End Sub . والنتيجة: . طيب ، ما الفائدة عمليا من هذا الكود؟ انا استخدمت هذا الامر مرات جدا قليلة في برامجي ، والبرنامج اعلاه (في تغيير اسم الملف) هو احدهم ، اما البرنامج الآخر فهو: برنامج فيه آلاف السجلات ، وهناك صور للسجلات ، فكنت اريد ان اعرض النموذج بطريقة معينة ، بحيث باختيار اسم الموظف تصل الى معلوماته ، ولكني اردت ان اسمح لهم ان يروا بقية السجلات ايضا ، فالاكسس كان يعرض اول سجل وصورة ، ثم ينتقل الى السجل المطلوب ، وانا لم ارد للمستخدم ان يرى اول سجل وصورته ، وانما اردته ان يرى سجل وصورة الموظف الذي تم اختياره ، فاستخدمت هذه الطريقة في اخفاء السجل الاول وصورته (بعدم تجديد الشاشة) ، وعندما حان موعد ظهور السجل المطلوب وصورته ، اعطيت الامر بإظهار وتجديد شاشة الاكسس ، والنتيجة كانت مرضية لي جعفر 297.Me.Paint.accdb.zip

الرابط التالي فيه وحدة نمطية تصلح المشكلة : http://allenbrowne.com/ser-40.html جعفر

السلام عليكم اي نسخة من الاكسس تعمل عليها؟ وهل قمت بعمل جميع التحديثات على الاكسس؟ لو سمحت تتأكد ان حقل "الترقيم التلقائي" في الجدول فيه هذه الاعدادات (وهكذا يجب ان تكون في كل الاحوال) : 1. نوع الحقل ، ترقيم تلقائي ، 2. علامة المفتاح يجب ان تكون عليه ، 3. انه رقم طويل ، 4. رقم تدريجي (وليس عشوائي) ، 5. نعم للفهرسة ، ولا للتكرار. . وبعد هذا اعمل الضغط والاصلاح جعفر

وعليكم السلام جرب الضغط والاصلاح جعفر

بس للعلم ، كود تغيير الاسم فيه شئ جميل للنظر فيه ، فالسؤال هو : اذا فتحت ملف اكسس مثلا ، فهل تستطيع ان تغير اسمه وهو مفتوح؟ الجواب لا ، فهنا انا ، غيرت اختيار الصورة (يعني كأنّي كبست على صورة ثانية) '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 جعفر