jjafferr

وعليكم السلام ايش رايك بواحده من هذه الطرق / الحركات : البرنامج على الرابط التالي: http://hitechcoach.com/index.php?option=com_docman&task=doc_details&gid=44&Itemid=19 جعفر

. وهنا بداية جديدة للمرحلة التالية ، ونريد افكارك كذلك : http://www.officena.net/ib/topic/67564-علاج-تراكم-عدد-النسخ-الاحتياطي/ جعفر

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

وعليكم السلام عندي مجموعة اشياء في اعلا القائمة ، ومحتاج اخلصها ، وبعدين اشوف مسقط التقارير بس للعلم ، ارفق لك جزء قمت به ، وليس متكاملا لإختيار الخطوط . جعفر

حياك الله أخوي رمهان زين الحمدلله طلّيت علينا انا كذلك كان عندي تجربة اخرى مع Echo ، وهي عند كتابة ملاحظات على Status Bar في اسفل النموذج ، وكذلك استخدمت بديل له ، وهو: DoEvents Call SysCmd(acSysCmdSetStatus, "HI THERE!!") DoEvents . و الامر DoEvents جدا مهم ، وهو لإخبار الكود بأن يعمل الامر هذا ، ويواصل العمل للخطوة التالية اما عن اغلاق المواضيع ، فانا اقوم بإغلاق مواضيعي ، وذلك بعد ان يسأل صاحب الموضوع سؤال لا علاقة له بالموضوع ، فأضطر عمل هذا حتى لا يتشعب الموضوع جعفر

آسف ياشباب نسيت اخبركم ، انا عملت موضوع مستقل لمثال عن Me.Painting على الرابط التالي: http://www.officena.net/ib/topic/67520-تجديد-تحديث-النموذج-mepainting/ جعفر

تسلم أخي كرار ، على السطرين الاخيرين جعفر

وعليكم السلام اليك هذاالكود من احد برامجي: ونفترض ان اسم الحقل (سواء في الاستعلام او في النموذج) strText ، فكود تغيير الاسم يكون: في النموذج Me.strText = Characters_Windows_Refuse (Me.strText) في الاستعلام A: Characters_Windows_Refuse ([strText]) و الوحدة النمطية Function Characters_Windows_Refuse(str_Name As String) As String 'check if the file name is correct, 'and it does not incluse the characters windows refuse 'usage: 'Me.strText = Characters_Windows_Refuse (Me.strText) ' Dim Correct_To As String Correct_To = "-" str_Name = Replace(str_Name, "\", Correct_To) str_Name = Replace(str_Name, "/", Correct_To) str_Name = Replace(str_Name, ":", Correct_To) str_Name = Replace(str_Name, "*", Correct_To) str_Name = Replace(str_Name, "?", Correct_To) str_Name = Replace(str_Name, Chr(34), Correct_To) str_Name = Replace(str_Name, "<", Correct_To) str_Name = Replace(str_Name, ">", Correct_To) str_Name = Replace(str_Name, "|", Correct_To) 'return this value to the field Characters_Windows_Refuse = str_Name End Function جعفر

حياك الله ولي الشرف ان يستفيد الشباب من تجاربي جعفر

يا واد انت جعفر

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

السلام عليكم اعتقد مهم ان اعطيكم مثال على 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