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

الاصدقاء الاكارم تحية طيبة جميعنا يعرف كيفية انشاء ساعة في برنامجه و التطبيق اليوم ليس بتطبيق جديد الجديد فيه هو نوع الخط المستخدم فهو نفس شكل الساعة الرقمية Digital اترككم مع المرفق Digital Clock.rar

أعتقد أنا هذا الكود سوف يقوم بالمطلوب ولكن قد يكون هناك شيء أفضل والعلم عند الله Sub row_col() Dim Col As Long Dim Row As Long For Col = 1 To 4 For Row = 1 To 20 Step 3 Cells(Row, Col).Interior.Color = RGB(200, 200, 200) Next Row Next Col End Sub

الجواب سيكون في هذا الكود السهل الممتنع: Dim i As Integer j = 1 For i = 1 To 16 Cells(j, 1) = i i = i + 1 j = j + 1 Next i الحلقة التكرارية4.rar

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

إنشاء جداول اكسس بالأكواد ♥ craet table with hard code ☺ craet table with hard code ☺.rar

السلام عليكم أخي الكريم اليك احد المعادلات من كثيرة يمكنها تنفيذ المطلوب =VLOOKUP($B2,CHOOSE({1,2},اعتمادية3!$F$2:$F$100,اعتمادية3!$B$2:$B$100),2,0) نقل اسم المالك.rar

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

وعليكم السلام أخي الكريم جرب الكود التالي لاختبار شرط التاريخ مطابق لتاريخ اليوم Sub Test() If DateSerial(Year(Date), 10, 27) = Date Then MsgBox "OK. Do It", 64 Else MsgBox "Not Required Date", vbExclamation End If End Sub قم بتغيير الأرقام 10 إلى 12 (شهر ديسمبر) ، وغير اليوم 27 إلى 30 أو 31 آخر يوم في ديسمبر .. هذا مجرد نموذج يمكنك التعديل عليه ليناسب احتياحاتك .. المهم في الكود أن تتعلم كيف تضع شرط لتطابق تاريخ مع تاريخ اليوم

العفو، بالخدمة دوماً

شكر وجزاك الله كل خير

إذا كان هناك مكان مخصص للورق الصغير بيكون أفضل لكي لا يعلق بالماكينة.

Dim mydb As Database, Q1 As Recordset Set mydb = CurrentDb() Set Q1 = mydb.OpenRecordset("man") Q1.Edit Q1!id = Trim(Me![pid]) Q1!accname = Trim(Me![paccname]) Q1!mob = Trim(Me![pmob]) Q1!note = Trim(Me![pnote]) Q1.Update استخدمت هذا الكود في التعديل وقد اخذته من المنتدى قديما ولا ادري هل هو dao or ado واتنمى منك شرح كلا الحالتين وايهما افضل في الاستخدام

وهذه طريقة أخرى لاحظ بأن تلوين السطر غير محدد.. فـ سؤالنا التالي: أعد كتابة الكود بحيث يظهر لنا في نطاق محدد من a1:d20 كالتالي:

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

انا استخدم التحزيم بالوينرار لكن هذا البرنامج غير محزم امتداد البرنامج accdb

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

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

سؤالنا التالي: ما هو الكود المناسب لتلوين الأسطر من 1 إلى 100 لتحصل على هذه النتيجة : علماً بأن كود التلوين هو : Rows(i).Interior.Color = RGB(200, 200, 200)

هل من الممكن تطبيق الدالة على متتالية معينة، مثلا بأن يتم تطبيقها كل سطر أو سطرين وهكذا؟ جاءت دالة step لتحل هذه الإشكالية.. وسنوضح ذلك في الأمثلة التالية.. ترقبونا. فمثلاً لو أردنا أن نظهر نتيجة جمع الأعداد الفردية من 1 إلى 1000 فسيكون الكود بهذا الشكل: Dim Total As Double Dim Cnt As Long Total = 0 For Cnt = 1 To 1000 Step 2 Total = Total + Cnt Next Cnt MsgBox Total المرفق: count_odd.rar

السلام عليكم اخي الكريم جرب هذا الكود واخبرني عن النتيجة يتم وضع الكود في ThisWorkbook (Private sub Workbook_BeforeClose(Cancel as Boolean Application.DisplayAlerts=False ThisWorkbook.save Application.Quit End sub

السلام عليكم اخي الكريم شاهد المرفق اي تكرار في اي عامود يتم مسحة تلقائي اقبل تحياتي واحترامي تعديل 1عدم السماح بتكرار نفس البيانات مرتين.rar

في شي انت مسويه وانا لا ... هل حزمت البرنامج ؟ واصبح تنفيذي ؟ انا لازم اتعلم طريقة هالتحزيم ...

تحية طيبة اخي عبد الله الوحدة النمطية تقوم بفتح قاعدة بيانات الخلفية و ليس جدول محدد و بالتالي لا يوجد اي تاثير يذكر اما بالنسبة الى عبارات SQL فهي الافضل كما تفضلت وهي تتلافى مشكلة تضارب البيانات هل استخدمت DAO ام ADO ؟؟؟

تفضل أخي لعله المطلوب عن طريق المعادلات =MID(A2;FIND(":";A2)+1;FIND("-";A2;FIND(":";A2)+1)-FIND(":";A2)-1) mother-name.rar

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

تحية طيبة اخي محمد اسم قاعدة البيانات لن يظهر في حال عدم اختيار السيرفر من المفترض ظهور كلمة ( local ) بشكل دائم اضافة الى اسماء السيرفرات الاخرى في حال تنصيب اكثر من نسخة على الجهاز

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

السلام عليكم اخي الكريم نفذ هذا الكود ()Sub mom1 Columns("A:A").Select Selection.Copy Columns("C:C").Select ActiveSheet.Paste '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Columns("A:B").Select Selection.ClearContents End Sub تحديد.rar

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

فيك وفينا اجمعين

وعليكم السلام ورحمه الله وبركاته جرب هذا الكود اخى الحبيب اضف زر جديد وضع فى حدث عن النقر هذا الكود - قم بتغيير TABLE NAME الى اسم الجدول المطلوب DoCmd.OutputTo acOutputTable, "TABLE NAME", acFormatXLSX, "AL HOSAM .xlsx", True

السلام عليكم اخي الكريم عليك الذهاب الى تبويب التحقق من صحة البيانات 1- تحدد المدى المراد عدم تكرار البيانات بدخلة 2- تفتح قائمة التحقق من صحة البيانات وتختار منها الخيار مخصص وتكتب المعادلة التالية 3- لنفرض ان المدى هو A1:A5 نكتب CountIf($A$1:$A$5;A1)=1=ونكتب رسالة الخطأ المراد بها ان تظهر 4- اشارة الدولار لتثبيت المدى بعد تحديد المدى اضغط على F4

السلام عليكم اخي الكريم شاهد المرفق واخبرني عن رايك اقبل تحياتي واحترامي salon lamsat.rar

الشكر لله وحدة اخي رشيد الحمد لله الذي تم الامر على خير اقبل تحياتي واحترامي

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

السلام عليكم اخي رشيد الفكرة كما هي تكتب اسم الشيت وتنسخ الرابط بشكل طبيعي حيث ان العامود الذي يحتوي على الارتباط التشعبي تم اخفاءه وبعدها من خلال الكمبوبوكس تسطيع البحث عن اي ملف وتفتحة مباشرة عن طريق زر فتح الملف وبهذا تكون قد انشأت فهرسة لجميع ملفاتك بشكل مرتب وانيق بعيد عن مشاهده منظر الارتباط التشعبي. اقبل تحياتي واحترامي banamjتعديل 1.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل / عبدالله باقشير و لا تنسونا من صالح الدعاء Invoice (عبدالله باقشير).rar

لسة مصممه حالا اتفضل لو عجبك اضغط like شئون موظفين بسيط.rar

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

Book1.rarاخواني تحياتي ........ أنا اليوم مش طبيعي ... مخي مسكر مو راضي يشتغل لذلك بترجاكو تساعدوني بأقرب وقت ممكن وهيدا الملف المرفق يوضح المطلوب مع كل شكري و تقديري أخوكم وائل سلامي