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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

حبيبى حسام تسلم ايدك كيف اشكرك

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

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

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

معيار البحث سيكون بالاسم وشكرا

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

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

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

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

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

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

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

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

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

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

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

وعليكم السلام ورحمة الله وبركاته تفضل وهذا كود حدث الحالي للنموذج 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

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

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

نعم ضع الكود التالى ملف الورد Option Explicit Sub DeleteAllFilesInAFolder() Dim MyFolder, FSO, FLDR, FileName MyFolder = ActiveDocument.Path & "\Test\" Set FSO = CreateObject("Scripting.FileSystemObject") Set FLDR = FSO.GetFolder(MyFolder) For Each FileName In FLDR.Files FileName.Delete True Next End Sub التطبيق على المجلد Test بتاع أستاذنا ياسر

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

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

أخي وحبيبي في الله أبو يوسف أعانكم الله على البلاء الذي ابتلاكم الله به .. ولا أملك لكم إلا الدعاء لكم أن يفرج الله عنكم ما ابتلاكم به .. وصبراً فمهما طال الليل لابد من بزوغ الفجر مساهمةً مني في الموضوع الرائع الذي بدأته ..سأساهم ولو بالقليل لعل أن يجد صدى ومنفعة لدى جميع الأعضاء أقدم لكم دالة من دوال الإكسيل وما يقابلها في محرر الأكواد الدالة هي CHAR : لمعرفة الحرف أو الرمز المقابل لرقم معين افتح ملف إكسيل وضع الرقم 1 في الخلية A1 وضع الرقم 2 في الخلية A2 ثم .. حدد الخليتين معاً وقم بسحب الخليتين من مقبض السحب .. واسحب الأرقام حتى الصف 255 أي اكتب الأرقام من 1 إلى 255 في الخلية B1 اكتب المعادلة التالية : =CHAR(A1) ثم قم بسجب المعادلة إلى آخر النطاق أي إلى الخلية B255 ستلاحظ وجود علامات ورموز وحروف في العمود الثاني ..هذا يدعى جدول الأسكي ASCII .. على سبيل المثال الأرقام من 0 إلى 9 تأخد الأرقام في جدول الأسكي من 48 إلى 57 الأرقام من 65 إلى 90 الحروف الإنجليزية الكبيرة الأرقام من 97 إلى 122 الحروف الإنجليزية الصغيرة الرقم 10 يمثل سطر جديد الرقم 32 يمثل المسافة (التي تؤخذ بالمسطرة يا باشمهندس) الرقم 44 يمثل الفاصلة , ------------------------------------------------------------------------ الدالة المقابلة للدالة CHAR في محرر الأكواد هي الدالة CHR مثال تطبيقي للاستفادة من الدالة : أنشيء ورقة عمل جديدة وضع النص التالي بهذا الشكل في الخلية A1 Yasser,Ahmed,Khalil,Salem,Baraa غير ارتفاع الصف وخليه 100 لتكون الأسماء واضحة أمامك الفاصلة تفصل بين الأسماء بفاصلة .. والمطلوب أن توضع الأسماء في نفس الخلية في أسطر متتالية أي تكون بهذا الشكل: قم بوضع الكود التالي في موديول .. Sub UseCHR() Dim str As String str = Range("A1").Value str = Replace(str, Chr(44), Chr(10)) Range("A1").Value = str End Sub يتم تعريف المتغير من النوع النصي باسم str ليحمل قيمة الخلية A1 وفي السطر الثالث يتم استبدال الفاصلة Chr(44) بسطر جديد Chr(10) ..بكل بساطة بالتالي أصبح لدينا المتغير الجديد تم فيه استبدال الفاصلة بسطر جديد .. في السطر الأخير يمكنك وضع قيمة المتغير في نفس الخلية A1 أو يمكنك وضعها في خلية جديدة كما ترغب أرجو أن تكون الخاطرة قد أعجبتكم تقبلوا وافر تقديري واحترامي

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

ابدأ في VB.Net http://www.tutorialspoint.com/vb.net/

الاستاذ الفاضل أبو عبدالله استخدم هذا الكود منذ 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

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