نجوم المشاركات

إخوتي الكرام علماء الإكسيل ومحبيه السلام عليكم ورحمة الله وبركاته بادئ ذي بدء تقبلوا تحية محبكم وأحد تلامذتكم الذين يتشرفون بنهل العلم من معين علمكم الواسع كيف يمكن أن أجمع بين رمز النداء ورقم الهاتف في ملف به أسماء عدة ؟ سؤال رأيت مثيله عدة مرات وأحببت أن أشارككم طرحه،فقد بينت بطريقة متواضعة إحدى الطرق للقيام بذلك ويمكنكم طرح الطرق العديدة باستخدام المعادلات أو الأكواد لإثراء هذا الموضوع ليكون مرجعاً لمن يريد... والسلام عليكم. إحدى طرق إضافة النداء إلى رقم الهاتف.rar

السلام عليكم ورحمة الله وبركاته أحبائى فى الله تقبلوا جميعا تحياتى أقدم لكم اليوم كود لعله يفيد Show Picture on Mouse Hover with VBA Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim sh As Worksheet Set sh=Sheet1 If sh.Pictures("Smallman").Visible=False Then 'Smallman is the name of the pic sh.Pictures("Smallman").Visible=True End If sh.Shapes("Label1").Visible=True 'This line is the most important (No Delete) End Sub Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim sh As Worksheet Set sh=Sheet1 If sh.Pictures("Smallman").Visible=True Then 'Smallman is the name of the pic sh.Pictures("Smallman").Visible=False End If sh.Shapes("Label1").Visible=False 'This line is the most important (No Delete) End Sub Private Sub CommandButton1_Click() 'Excel VBA for command button add. MsgBox "Your Macro Here" End Sub Mouse Over the Command Button.rar

الى اساتذتى و من لهم الفضل فى تعليمى الكثير ,,,,,, - بدون رغى كتير علشان مش باعرف أتكلم كتير - بصراحه انا كنت عاوز اهدى الملف دة لبعض الاساتذه بس بصراحه أتكسفت انسى حد علمنى حاجه واكون مكتبتش اسمه ف انا بهديه لكل أوفيسنا بصراحه ده مشروع واحد زميلى فى الشغل وانا مقدرتش امسك نفسى لما شفته عن انى اشارك بيه اصحابى و من من الممكن ان ينتفع به ---- نَحوى نحوى مفيش كلام ------ عباره عن اله حاسبه بصراحه غريبه الاطوار علشان ........... .......... .............................................................. ,,,,, " ما تيجوا نشوف " بصراحه بحاول اقلد أسلوب الاستاذ الكبير ياسر خليل ..... بس مش عارف .... Calculator Version 1.rar

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى يمكنك تصحيح معادلتك في التنسيق الشرطي بحذف الرمز $ في المعادلات من أمام الحرف H في النطاق H$4:$H$88 ليصبح من الشكل H$4:H$88 وستعمل المعادلات بصفة صحيحة في جميع الأعمدة المعنية... والله أعلم أخوك بن علية السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، إذا كنت تريد تحديد القيمة الصغرى في الأعمدة على أن تكون غير معدومة عليك بتغيير الجزئية (MIN(H$4:H$88 من معادلة التنسيق الشرطي الخاصة بأصغر قيمة بالجزئية ((MIN(IF(H$4:H$88<>0;H$4:H$88 بن علية حاجي

وعليكم السلام ورحمة الله وبركاته مشاركة مع زملائي وبالتحديد تفعيل الخيار الضغط عند الاغلاق : انا مع ابو خليل وذلك للاسباب التالية 1. لم ياتي الخيار افتراضيا معمول صح ! معناته يوضع في حالات خاصة وهنا اتوقع انه عندما يكون لديك انشاء كائنات وحذف كائنات في نظامك اي هناك تعديلات في البنية او تركيبة القاعدة فهنا تحتاج بالضرورة لتفعيل هذا الخيار ! اما اذا كانت لحجم البيانات فهنا تستطيع ان تفعل الخيار في اوقات تحددها انت ثم تعيد ازالة الخيار ! فمثلا استطيع ان احدده عند وقت محدد او عند وصول حجم القاعدة الى حجم معين ! 2. لو كان من الافضل وضع الخيار دائما لتم وضع هذا الخيار ضمنيا في الاكسس وبدون خيار صريح للمستخدم لاحظ انه تولدت فكره من سؤالك ولضغط القاعدة الحالية وذلك بتفعيل الخيار ثم الاغلاق ثم الفتح وتعطيل الخيار وذلك من الامر : Application.SetOption "Auto compact", true Application.SetOption "Auto compact", False تحياتي

نعم صحيح ، في النسخة الاولى من اكسس 2007 ، الضغط والاصلاح كان يتلف قاعدة البيانات ، واصلحت مايكروسوفت الوضع بإصدار تحديثات له (ولكن وللأسف الشديد ، هناك مستخدمين يستعملون البرنامج الاصلي ، وبدون اي تحديثات له طول العمر!! فلذلك ، ولهذه النسخ بالذات ، كلامك صحيح 100%) ، بس ما دمنا نتكلم عن التحديثات ، احب ان أضيف هذه المعلومة: اول تحديث للأكسس 2000 ، كان يحتوي على اكثر من 300 تصليح/إضافة. لهذا السبب ، التحديث غاية في الاهمية ، سواء لنظام التشغيل الوندوز او الاوفيس. تم استدعائي لأحد الدول لأنظر في مشكلة برنامجهم الذي كان به بعض المشاكل ، ومن ضمن هذه المشاكل فقد جزء من البيانات ، الكهرباء كانت تنقطع ولم تكن منتظمة ، وقد كانت الشبكة عندهم عبارة عن كمبيوترات لابتوب ، والسيرفر عليه UPS ، فالمبرمج الذي عمل البرنامج والشبكة لهم اخذ في الاعتبار مشكلة عدم انتظام الكهرباء بهذه الطريقة ، ولكني اكتشفت المشكلة ، والتي كانت بسبب انقطاع الكهرباء ، وهي ان المبرمج لم يضع UPS على Switch الشبكة ، فتواصل البيانات ينقطع بين الكمبيوترات والسيرفر عند انقطاع الكهرباء ، وتم حل المشكلة بربط الـ Switch بجهاز UPS اذن في هذه الحالة ، نستطيع ان نعمل التالي: 1. بأمر من الاكسس ، نعمل نسخة إضافية من برنامج الجداول ، 2. نتأكد ان نسخة برنامج الجداول موجوده ، 3. وبأمر آخر نعمل الاصلاح والتعديل ، فاذا لأي سبب تلفت هذه النسخة ، فنستطيع استعمال النسخة الاحتياط. طبعا انا هنا اعطيت البديلبسبب انقطاع الكهرباء جعفر جعفر

اخى الكريم انت عملت اكتر من موضوع لطلبك فضلا لا امرا عليك تلتزم بقواعد المنتدى تكتب موضوعك مره واحده فقط ولو غاب الرد عليك من الاخوة استخدمت تعبير للرفع فقط ويرجى من حضرتك ترفق مثال موضح به ما تريد بالتفصيل عموما جرب المرفق هل هو طلبك تقبل تحياتى الصادر.zip

و عليكم السلام و رحمة الله و بركاته ... حسب معلوماتي ... بالعكس لا يؤثر حتى اثناء التشغيل و ليس فقط عند الاغلاق ... و لننتظر رأي الأساتذة الكرام ...

بارك الله فيك على التّجاوب الطيّب أستاذي القدير ...

كل عام وحضراتكم جميعا بألف خير وصحة وسلامة Calendar.rar

السلام عليكم ,, في الملف المرفق معلومات عن المسافرين بشكل يومي , كيف يمكن عمل ورقة خاصة بكل مسافر بحيث عند اضافة معلومات جديدة الى الورقة الرئيسية يتم التحديث تلقائيا الى الورقة الخاصة بكل مسافر . مع جزيل الشكر traveller analysis.rar

و عليكم السلام و رحمة الله و بركاته تفضل اخي العزيز حسن احد الحلول بالملف المرفق معذرة اخي العزيز ابو عبد الله لم انتبه الى مشاركتك الا الآن لأنني كنت مشغول بالحل و تحرير المشاركة .. بارك الله فيك و جعلك سباقاً الى الخير دائماً . بالتوفيق تواريخ.rar

السّلام عليكم و رحمة الله و بركاته منوّر بوجودك معنا أخي الغالي " ياسر فتحي البنّا " الله وحده يعلم و هو على قولي شهيد .. مجرّد رؤية اسمك هنا بالمنتدى .. أشعر بالرّاحة و الطمأنينة أنّه هنا أخي الغالي جنبي .. فائق إحتراماتي لشخصك الكريم

الله ينور أخى العزيز الغالى / عبد العزيز دائما رائع تقبل تحياتى

السّلام عليكم و رحمة الله و بركاته ألف شكر أستاذنا الغالي " ياسر فتحي البنّا " على الكود الرّائع .. جزاك الله خيرًا و زادك من علمه و فضله لإثراء الموضوع و التّنويع بالملفات .. أقدّم هذا الملف .. حيث بعد انتهاء صلاحيته المحددة سلفًا بتاريخ محدّد مثلما مشار إليه بالسّهم الأحمر سيُطلب منّا كلمة المرور و التي هي 123 .. و هناك العديد من الأمثلة المتنوعة .. إذا أردت الزّيادة .. زدناك أخي الكريم " أبو تيم " فائق إحتراماتي حماية الملف بتاريخ محدد.rar

Protect All Worksheets in Workbook using VBA Sub sbProtectAllSheets() Dim pwd1 As String, pwd2 As String pwd1 = InputBox("Please Enter the password") If pwd1 = "" Then Exit Sub pwd2 = InputBox("Please re-enter the password") If pwd2 = "" Then Exit Sub 'Check if both the passwords are identical If InStr(1, pwd2, pwd1, 0) = 0 Or _ InStr(1, pwd1, pwd2, 0) = 0 Then MsgBox "You entered different passwords. No action taken" Exit Sub End If For Each ws In Worksheets ws.Protect Password:=pwd1 Next MsgBox "All sheets Protected." Exit Sub End Sub Insert a Module for Insert Menu ولحمايته لفترة زمنية كفترة تجريبية Sub workbook_open() If Time >= " 01-01-2016" Then msgbox "the time work of this application is finished" ThisWorkbook.Close False End Sub

حبيبى الغالى الأخ العزيز / عبد العزيز أجمل هديه هو مرورك الدائم على موضوعاتى وتشريفك لها وبعدين أنا من أشد المعجبين بمواضيعك وتفاعلك الدائم مع الإخوة الأعضاء بمساعدتهم جزاك الله خيرا وزادك الله من علمه وفضلة وبعدين إن كان الجو شديد البرودة فالقلب والعقل دائم التفكير فى إعطاء منتدانا العظيم كل ما يقدرنا الله عليه من أعمال تفيد الجميع وفقنا الله وإياكم لما فيه الخير تقبل خالص تحياتى وتقديرى

السّلام عليكم و رحمة الله و بركاته كثرت هداياك أخي الغالي " ياسر فتحي البنّا " .. بالوقت الذي إنكمشنا نحن .. بسبب برودة الجو .. و انكمشتْ أفكارنا .. تمدّدت خلاياكَ أنتَ .. باسم الله ما شاء الله ثقْ أخي العزيز أنّي من هواة متابعة أفكارك و أكوادك و إطلالاتك الفريدة .. جزاك الله خيرًا و زادك من علمه و فضله فائق إحتراماتي و إعجاباتي

أخى الحبيب الغالى أ / سعد عابد يسعدنى ويشرفنى دائما مرورك الكريم تقبل تحياتى أخى الحبيب أستاذى ومعلمى القدير / مختار حسين مجرد مرورك على موضوعاتى شرف لى تقبل خالص تحياتى وتقديرى حبيبى أستاذى الغالى على قلبى / عبد العزيز دائما تسعدنى وتشرفنى بكلماتك الجميلة التى تدل على نبل أخلاقك الكريمة تقبل خالص تحياتى وتقديرى لشخصك الكريم

السّلام عليكم و رحمة الله و بركاته ألف شكر أستاذنا الغالي " ياسر فتحي البنّا " على الأكواد الجميلة و الملفات الرّائعة فائق إحتراماتي

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

أخى الحبيب ياسر فتحى بارك الله فيك ما شاء الله عليك نشاط ملحوظ فى عز البرد !!

تفضل اخى الكريم الملف المرفق من فضلك غير اسم الظهور للغه العربيه طبقا لقواعد المنتدى تقبل تحياتى الصادر.zip

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

تفضل اخى الكريم شاهد المرفق هل هو طلبك تقبل تحياتى عملية الدفع.zip

نموذج البحث اجازات22.rar

اخى الكريم جرب المرفق هل هو طلبك تقبل تحياتى اظهار بيان مواد.zip

استاذى ابويوسف فكره وعمل رائع ابسط الطرق صراحه تقبل تحياتى

عطر الله أيامك وأسعد قلبك وملأك إيماناً ويقيناً وزادك من علمه وفضله ...آمين.

استاذى الحبيب ابويوسف الاجمل والاروع هو مرورك العطر جزاكم الله خيرا تقبل تحياتى

السلام عليكم قمة الروعة والجمال أخي الحبيب الصقر اللهم أدمها نعمة

التاريخ فى f8 و g 8

وعليكم السلام ورحمة الله وبركاته لا يؤثر ، اذا كان البرنامج مقسم ، فجزء الواجهة عادة لا يحتاج الى ضغط واصلاح ، إلا اذا كنت تستخدم الجداول المؤقته فيه ، اما جزء الجداول فيحتاج ، بين فترة واخرى ، بل يعمل عدة عمليات لتعديل وضع الجداول واعادة فهرستها ، وتضبيط الاستعلامات ، والتخلص من السجلات المحذوفة (لأنك لما تحذف سجلات ، الاكسس لا يحذفها مباشرة من البرنامج ، وانما الضغط والاصلاح يحذفها ويسترجع المساحة التي كانت تحتجزه) ولكن قرأت في اوائل اصدارات الاكسس 2007 ، واذا كان برنامجك مقسم الى واجهة وجداول مرتبطة ، كان الضغط والاصلاح يحذف ربط الجداول جعفر

جزاك الله خير وبارك فيك ابا محمد ونفع بك والله كثيرا استفدت من موضوعك وكنت ابحث عن مثال هذا الشرح من زمان لقد انحلت عندي مشاكل كثيره بيسببه وفقك الله ورعاك والى الامام ابا محمد احترامي وتقديري

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

تفضل اخي ش م منفصلين.rar

تسلم حبيبي الغالي م/ياسر اراك شعلة نشاط في المنتدى زادك الله من علمه وبارك الله فيك

وعليكم السلام اخى م/ياسر فتحى كود ممتاز من الممكن استخدامه فى الحماية ان الاكواد تلغى فى حالة فتح الملف بطريقة غير شرعية

اخى الحبيب م/ياسر فتحى اكواد ممتازة ومفيده شكرا لك وفقكم الله

السلام عليكم اذا كان عندك مجموعة استعلامات توحيدية ، فاحد الطرق للتغلب على مشاكلها هو ان تعمل جدول مؤقت ، وتضيف السجلات ، ثم تستخدمه للتقرير ، ولكن انتبه لشغله مهمة وهي ، لأن برنامجك مقسم ، ويستخدمه اكثر من مستخدم ، فاجعل هذا الجدول المؤقت في نسخة البرنامج الاصلي (الواجهة ، وليس في مع بقية الجداول المرتبطة) ، وإلا فستحصل لخبطة بين سجلات المستخدمين جعفر

وعليكم السلام ورحمة الله وبركاته تفضل وهذا كود حدث الحالي للنموذج form1 ، والذي عليه قمت بعملية قراءة النموذج الفرعي: Private Sub Form_Current() On Error GoTo err_Form_Current Me.aa1 = Nz(Int(Me![Text31] / 60), 0) Me.gg = Nz(Int(Me![aa1] / 7), 0) Dim rst As DAO.Recordset Set rst = Me.frm2.Form.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC If Len(rst!datee & "") <> 0 Then If Month(rst!datee) = 1 Then t1 = t1 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 2 Then t2 = t2 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 3 Then t3 = t3 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 4 Then t4 = t4 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 5 Then t5 = t5 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 6 Then t6 = t6 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 7 Then t7 = t7 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 8 Then t8 = t8 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 9 Then t9 = t9 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 10 Then t10 = t10 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 11 Then t11 = t11 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 12 Then t12 = t12 + DateDiff("n", rst![hg1], rst![hg2]) End If rst.MoveNext Next i ' ' we get a write conflict when using this method!! ' rst.MoveLast: rst.MoveFirst ' For i = 1 To RC ' If Len(rst!datee & "") <> 0 Then ' rst.Edit ' If Month(rst!datee) = 1 Then rst!DateSum = t1 ' If Month(rst!datee) = 2 Then rst!DateSum = t2 ' If Month(rst!datee) = 3 Then rst!DateSum = t3 ' If Month(rst!datee) = 4 Then rst!DateSum = t4 ' If Month(rst!datee) = 5 Then rst!DateSum = t5 ' If Month(rst!datee) = 6 Then rst!DateSum = t6 ' If Month(rst!datee) = 7 Then rst!DateSum = t7 ' If Month(rst!datee) = 8 Then rst!DateSum = t8 ' If Month(rst!datee) = 9 Then rst!DateSum = t9 ' If Month(rst!datee) = 10 Then rst!DateSum = t10 ' If Month(rst!datee) = 11 Then rst!DateSum = t11 ' If Month(rst!datee) = 12 Then rst!DateSum = t12 ' rst.Update ' End If ' rst.MoveNext ' Next i ' Forms!form1!frm2.SetFocus Forms!form1!frm2.Form.GoToFirstRecord For i = 1 To RC If Len(Forms!form1!frm2!datee & "") <> 0 Then If Month(Forms!form1!frm2!datee) = 1 Then Forms!form1!frm2!DateSum = t1 If Month(Forms!form1!frm2!datee) = 2 Then Forms!form1!frm2!DateSum = t2 If Month(Forms!form1!frm2!datee) = 3 Then Forms!form1!frm2!DateSum = t3 If Month(Forms!form1!frm2!datee) = 4 Then Forms!form1!frm2!DateSum = t4 If Month(Forms!form1!frm2!datee) = 5 Then Forms!form1!frm2!DateSum = t5 If Month(Forms!form1!frm2!datee) = 6 Then Forms!form1!frm2!DateSum = t6 If Month(Forms!form1!frm2!datee) = 7 Then Forms!form1!frm2!DateSum = t7 If Month(Forms!form1!frm2!datee) = 8 Then Forms!form1!frm2!DateSum = t8 If Month(Forms!form1!frm2!datee) = 9 Then Forms!form1!frm2!DateSum = t9 If Month(Forms!form1!frm2!datee) = 10 Then Forms!form1!frm2!DateSum = t10 If Month(Forms!form1!frm2!datee) = 11 Then Forms!form1!frm2!DateSum = t11 If Month(Forms!form1!frm2!datee) = 12 Then Forms!form1!frm2!DateSum = t12 End If Forms!form1!frm2.Form.GoToNextRecord Next i Forms!form1!frm2.Form.GoToFirstRecord Exit Sub err_Form_Current: If Err.Number = 94 Then 'null Resume Next ElseIf Err.Number = 3021 Then 'No Records Exit Sub Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub وفي النموذج الفرعي ، نتحكم في التنقل بين السجلات: Public Sub GoToFirstRecord() Me.datee.SetFocus 'Go to the first record in the subform. DoCmd.GoToRecord , , acFirst End Sub Public Sub GoToNextRecord() Me.datee.SetFocus 'Go to the next record in the subform. DoCmd.GoToRecord , , acNext End Sub Public Sub GoToLastRecord() Me.datee.SetFocus 'Go to the last record in the subform. DoCmd.GoToRecord , , acLast End Sub جعفر 282.za-Time6.12-UP1.mdb.zip

اخى الكريم جرب الملف المرفق هل هو طلبك تقبل تحياتى بحث اليست بوكس.zip

اعد تعين مدى الطباعه فقط اخرى الكود كالتالي Sub Clear_Sheet4_Data() Dim LastRow As Integer With Sheet4 LastRow = .Range("A" & Rows.Count).End(xlUp).Row .Range("A29:AY" & LastRow).Clear .Range("c8:x27").ClearContents '----------------------------------------------- .PageSetup.PrintArea = .Range("A1:Ay33").Address '----------------------------------------------- End With End Sub

تفضل طلبك ملاحظات وجدت في الجدول انك عامل كل الحقول عبارة عن عملة ونحن نريد ارقام - تم تعديلها حساب البالات.rar

عرفت هذه المعلومة من زميل ، و لم اكن اعرفها سابقا و يبدو أن الاوفيس مازال يخبىء لنا الكثير فى دهاليزه عند كتابة تاريخ في نهاية السطر قد يأتي منقسما فيأتي اليوم فى سطر و باقي الشهر و السنة فى الشهر التالي ، و هذا و ان كان مقبولا ، الا انه ليس وضعا مثاليا و الحل المعتاد قد يكون التغيير فى المسافات او المحاذاة او حجم الخط او خليط بينها و لكن الحل السليم هو اختيار المسافة التالية لمحل الفصل ( بعد ال 28 فى هذه الحالة) ثم ضغط مايلي Ctr+Shift+Space فيصبح الوضع كالتالي:

الاستاذ الفاضل أبو عبدالله استخدم هذا الكود منذ 2012 وعملت به على اكسيس 2010 و2013 واعطى نفس النتيجة الاستاذ الفاضل أزهر جزاك الله خير وشكرا على البرنامج

السلام عليكم ورحمة الله وبركاته يمكنك استخدام الكود التالي ( قم بانشاء ميديول جديد والصق هذا الكود فيه ) Option Compare Database Global Const SW_HIDE = 0 Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Function fSetAccessWindow(nCmdShow As Long) Dim loX As Long Dim loForm As Form loX = apiShowWindow(hWndAccessApp, nCmdShow) End Function نفذ الاجراءات التالية على كل نموذج رئيسي في القاعدة '1- في خصائص النموذج تحت التبويب "تنسيق" (Format) حول خاصية "نمط الحدود" (Border style) الى "مربع حوار" (Dialog). '2- في التبويب "الكل" (All) 'حول الخاصية "منبثق" (Pop up) الى نعم (Yes) 'حول الخاصية "مشروط" (Modal) الى نعم (Yes) 'خلف نموذج البداية Private Sub Form_Open(Cancel As Integer) fSetAccessWindow (SW_HIDE) End Sub

بسم الله الرحمان الرحيم السلام عليكم جمعة مباركة على الجميع اقدم لكم اليوم طريقة سهلة وعملية لتجميل الازرار في الفورم او حتي في الشيت الطريقة و بكل بساطة تعتمد على تغير نوع الخط ونعتد على اربعة انواع من الخطوط لتحقيق هذا وهذه الاخيرة متوفرة على اغلب الاجهزة الخطوط المستعملة هي wingdigs , wingdings 2 , wingdings 3 , webdings تجدون في المرفق امثلة عملية كما يوجد ايضا ملف PDF يحوي على جميع الارقام والحروف والرموز وما يقابلها عند تغير نوع الخط كل ما عليكم اختيار الشكل الذي تحتاجونه في تصميمكم ملاحظة للأمانة فكرة الموضوع منقولة من احد المواقع الاجنبية كل ما فعلته هو التطبيق جميع الرموز والصورة الممكنة.pdf امثلة عملية.rar تحياتي للجميع

كل الشكر الى اساتذتي في المنتدى وعلى رأسهم الاستاذ الكبيراخي الفاضل ..dream works والاستاذ منذر عساج وباقي الاخوان ... هذا مثال بسيط للمبتدئين .. أمثالي .. اقدمه الاخوان .. لعل .. هناك من يستفيد منه ... والمثال عبارة ... استخدام ماكرو ..لحفظ التاريخ والوقت داخل ( مربع نص) في النموذج بحيث اذا حدث أي تعديل لهذا السجل .. يتم كتابة التاريخ والوقت في هذا المربع .. الفكرة بسيطة جدا ... 1- في الجدول الرئيسي يتم اضافة ( حقل ولنسمه مثلا ( آخر تعديل ) ويكون نوعه ( تاريخ طويل ) شامل التاريخ والوقت 2- نضع هذا الحقل الجديد في النموذج الرئيسي بأي مكان وتنسيق الحقل ( تاريخ طويل شامل التاريخ والوقت ). 2-نعمل ( ماكرو ) جديد ونختر SETVALUE في العمود اجراء ...وفي منطقة الوسائط( في الاسفل ) ندخل أ- اسم عنصر التحكم يعني اسم الحقل ( آخر التعديل ) الموجود في النموذج ... شرط (محاطا بقوسين ) ضروري جدا ب- في منطقة الوسيط تعبير ... ندخل التعبير NOW() ( يعني ناو بعدها قوسين بعدها وليس قبلها ) شرط اساسي لا تضع قبلها علامة=4-احفظ الماكرو باي اسم مثلا ( ماكرو اخر تعديل ) 5- ا فتح النموذج الاساسي في عرض التصميم 6- من خصائص ..النموذج .. أقول خصائص النموذج وليس خصائص الحقل آخر تعديل 7- اختر التبويب ( حدث ) والخاصية ( قبل التحديث ) واختر الماكرو السابق 8-احفظ النموذج مع التعديل .. 9- جرب الفكرة . 10- حاول التعديل في السجل في النموذج واخرج ثم ارجع اليه تلاحط وجود تاريخ وساعة والدقيقة التي تم التعديل فيها .. 11- المثال موجود في نموذج ( الجشعمي ) 12- يمكنك جعل هذا الحقل ( غيرممكن ) يعني تغير اعداد التمكين الى ( لا).. 12- ملاحظة : يمكنك اضافة كود برمجة بدلا من الماكرو 13- يوجد مثال مرفق .. وشكرا لكم .... أرجو الاستفادة من هذه الفكرة .. _______.rar

بارك الله فيك أخي الكريم بإمكانك إضافة الإجراء Requery الى الماكرو لتحديث البيانات دون الحاجة الى الخروج