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

افضل طريقة هي عمل خلفية عن طريق احد برامج الرسومات او البوربوينت ، وتضع هذه الصورة كخلفية ، وباللون الذي تشاء ، هكذا: جعفر 906.BtmSheak.accdb.zip

وعليكم السلام أخي وليد ، وكما لاحظت ، عندما تعطي التفاصيل كاملة ، ففرصة الحصول على الاجابة تكون اسرع قدم لك اخي علاء احد طرق الجمع في الاستعلام ، وهنا اقدم لك طريقة اخرى ، عن طريق النموذج ، والكود يمكن استعماله لأغراض اخرى لفحص الكائنات في النموذج: Private Sub cmd_Count_Click() Dim ctl As Control 'نبدأ بتصفير خانة المجموع Me.[عدد الزيارات الشهرية] = 0 'عمل حلقة لقراءة جميع كائنات النموذج For Each ctl In Me.Controls 'هل الكائن هو حقل اختيار If ctl.ControlType = acCheckBox Then 'هل الحقل به علامة صح If ctl.Value = -1 Then 'اجمع القيم Me.[عدد الزيارات الشهرية] = Me.[عدد الزيارات الشهرية] + 1 End If 'ctl.Value End If 'ctl.ControlType Next End Sub جعفر 905.Database1.accdb.zip

جزاك الله خيرا وكل عام وانتم بخير

السلام عليكم ورحمة الله وبركاته عندما يكون برنامج الاكسس يعمل ، وفجأة بدأ بإعطاء رسائل خطأ وبدون اي تعديل في البرنامج ، او عند عمل تعديل على البرنامج يُغلق الاكسس: . فغالبا المشكلة يمكن حلها بعمل هذه الخطوات: @Echo off Echo decompiling D:\Testing\myDataBase_FE.accdb "C:\Program Files\Microsoft Office\Office14\msaccess.exe" "D:\Testing\myDataBase_FE.accdb" /decompile /cmd shutdown Echo compacting D:\Testing\myDataBase_FE.accdb "C:\Program Files\Microsoft Office\Office14\msaccess.exe" "D:\Testing\myDataBase_FE.accdb" /compact Echo compiling D:\Testing\myDataBase_FE.accdb "C:\Program Files\Microsoft Office\Office14\msaccess.exe" "D:\Testing\myDataBase_FE.accdb" /cmd compile Echo compacting D:\Testing\myDataBase_FE.accdb "C:\Program Files\Microsoft Office\Office14\msaccess.exe" "D:\Testing\myDataBase_FE.accdb" /compact Echo Opening D:\Testing\myDataBase_FE.accdb , and Exiting .bat start "" "C:\Program Files\Microsoft Office\Office14\msaccess.exe" "D:\Testing\myDataBase_FE.accdb" وانا استعمل هذا الملف المرفق ليقوم بالعمل كله: سيفتح البرنامج ، ويجب عليك غلقه ، الى ان لا يفتح تلقائيا مرة اخرى. ولكن ، يجب دائما اخذ الاحتياط وعمل نسخة من البرنامج قبل عمل هذه الخطوات. اقدم لكم شرح بسيط عن الموضوع: في الكثير من الاوقات ، لما نعمل الكود ، نقوم بتعديل وتغيير وتضبيط الكود عدة مرات ، ولكن الاكسس في بعض الاحيان يبقى محتفظ بالكود القديم في ذاكرته !! لذلك : 1. اثناء البرمجة ، وبشكل يومي اقوم بتشغيل هذا الملف المرفق ، 2. وقبل تسليم البرنامج الى الزبون ، اقوم بتشغيل الملف للمرة الاخيرة ، واجهز البرنامج لتسليمه الى الزبون 1Decompile2.zip xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx النسخة رقم 2 ، والتي لا نتعامل مع الكود ، وانما بواجهة فقط 🙂 جعفر

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

الحمد لله رب العالمين

شكرا لك استاذنا الكريم سليم حاصبيا.... انت اكثر من رائع واجاباتك رائعة وكنت في الحقيقة انتضر حلولك التي دائما ً لا تبخل علينا في كرمك . شكرا

ربما ينفع هذا الملف (معادلات) salim_std.xlsm

نعم أخي جعفر لما أشتغل على صفحة الويب المحفوظة لدي يعمل الكود بشكل جيد أما إذا جربتها على الصفحة مباشرة على الأنترنت فلا تعمل معي

الله يحفظك ان شاء الله اخوي حربي اخي صالح ، هكذا عمل عندي الكود

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

ان اشغال اكسس شكلي نشرت الموضوع في قسم الاكسل اشكرك اخي شريف على جهودك نشرت الموضوع في قسم الاكسس

ضع الكود في حدث change لي x2 X1.value =x2.value

شكرًا أخي الفاضل شريف لكرم أخلاقك وبارك الله فيك وزادك علمًا شكرًا أخي الفاضل عبدالقادر محمد مهدي ونحن في انتظار أي استفسارات تطلبها وكل عام أنتم بخير

يجب عليك فحص هذا الخيار في كل ملف وتاكد من عدم وضع علامة صح عليه ثم حفظ الملف من قائمة file - options - advanced ثم من تبويب when caclulating this workbook ازل علامة الصح من use 1904 date system

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

بارك الله فيك وشكرا لكلماتك الطيبة واسال الله العظيم ان ينفعنا بما علمنا انه هو العليم الحكيم تفضل فصل كلمات من سلسلة نصية بدلالة رمز.xlsm

السلام عليكم اتمنى ان يحظى الملف القبول وان يكون به الاجابة على طلبك .. تحياتي حساب عدد الزيارات وتجميع الحقول المؤشر عليها بعلامة صح.accdb بطريقة اخرى اسماء الشهور بالعربي حساب عدد الزيارات وتجميع الحقول المؤشر عليها بعلامة صح - Copy.rar

وعليكم السلام ورحمة الله وبركاتة تفضل ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم SJR tril7777KASeR906.rar

قم بعمل حفظ الملف باسم واختر نوع الحفظ مصنف به وحدات ماكرو ممكنة

وعليكم السلام واهلا وسهلا بك في المنتدى ، رجاء تعطي توضيح ومثال لطلبك ، وباريت على ملف اكسس او اكسل او صورة مثلا ، حتى يفهمه الجميع ويبادر بالمساعدة جعفر

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

تفضل Web.Document.All("iap").focus جعفر

خطوات نسخ فورم إلى ملف آخر افتح الملف الذي به الفورم ثم اضغط مفتاح Alt+F11 يظهر محرر الأكواد اذهب إلى Forms ثم اختر اسم الفورم المراد نسخه ثم اضغط كليك يمين فوقه يظهر قائمة اتبع الخطوات الموجود بالمرفق بعط الخطوة رقم 2 قم بفتح الملف المراد نقل الفورم إليه ثم أكمل باقي الخطوات

تفضل فصل كلمات من سلسلة نصية بدلالة رمز.xlsm

ضع مثالا هنا لنرى المشكلة ونفهم اين الخلل والسلاام

هذا الملف به الأكواد وهذه ايضا صورتين للتوضيح لكيفية وضع الأكواد فى الملف التاريخ والوقت.xlsm

أهلا وسهلا بك فى منتدانا الكريم من الأفضل ارسال الملف للعمل عليه ولكن يمكنك وضع هذه المعادلة فى الخلية التى تريدها لإعطاء الوقت والتاريخ الحاليين =TEXT(TODAY(),"d/m/yyy")&" "&TEXT(NOW(),"hh:mm:ss") وهناك ايضا هذا الكود لجعل الوقت يعمل وشغال بأستمرار Sub Date_Time() On Error Resume Next 1 DoEvents N = Now Range("c13") = Format(N, "[$-F400]h:mm:ss AM/PM") T = T + 1 For r = 1 To 10000000: Next r GoTo 1 End Sub وهذا كود اخر يمكنك اضافته فى حدث الورقة بحيث اذا قمت بتسجيل اى شيء فى العمود B سيضهر لك التاريخ فى العمود C والوقت فى العمود D Private Sub Worksheet_Change(ByVal Target As Range) n = Now If Target.Column = 2 Then If Target = "" Then Cells(Target.Row, Target.Column + 1) = "" Cells(Target.Row, Target.Column + 2) = "" Exit Sub ElseIf Target <> "" Then Cells(Target.Row, Target.Column + 1) = Date Cells(Target.Row, Target.Column + 2) = Time End If End If End Sub بارك الله فيك

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

بعد أذن أخي الحبيب / محمود حل مجرب و نجح يا أخي / وائل و إن شاء الله ينجح معك أيضا و لكن رجاء إتباع التالي للأهمية 1- حمل الملف المرفق 2- استخرج محتويات الملف المضغوط في مجلد اسمه IE-associations (نفس الاسم بالضبط) (لازم تفك ضغط الملفات والا لن يعمل الباتش) 3- اذا تستخدم ويندوز 7 او فستا اضغط باليمين على ملف الباتش واختر Run as Administrator اما اذا تستخدم XP مجرد نقر مزدوج يكفي IE-associations.zip