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

بعد متابعتي للاستاذ والمراقب العام ((أبو آدم )) في مشاكته التي كان عنونها (( كشكول VBA ... متجدد )) ولاهميتها قمت بتجميعها في ملف واحد وبشكل مرتب اتمنى ان اكون قد قمت بما ينال رضا الله واستحسان جميع المشاركين اقدم شكري الجزيل للاستاذ القدير (( أبوآدم )) على هذا الكم الهائل من الاوامر التي غمرتنا بالفائدة ولكل المتهمين بالاعضاء الجدد في المنتدى كشكول.zip

ضع المسار في الصورة على الشكل التالي .\img\image1.ico بحيث النقطة تدل على مكان قاعدة البيانات img اسم مجلد جانب قاعدة البيانات image1.ico اسم الايقونة مع امتدادها تحصل على نفس نتيجة الكود

هذا رابط القي نظرة اخ عبدالله وقبل كل شي

ههههههههههههه دى وصفة هايله بس للاسف الاستاذ ابو نادر عنده ويندو 10 تقريبا وفى خاصية تعمل بتثبيت التطبيق على شريط المهام pin api الاكسس عموما اذا كان تم عمل تثبيت له عند فتح اى قاعدة بيانات تم تغيير الرمز لها سواء بالكود او بما تفضلتم لن تظهر الايكونة الا اذا تم عمل ازالة للاكسس من شريط لمهام

اخي العزيز ارفع المرفق لكي الجماعة بيكدر يساعدك بقدر مستطاع مع تحيات شفان ريكاني

ولو أردنا أن نكتب الإجمالي في نهاية السطر فنضيف إليها الكود التالي: r = 4 Sum = 0 Do While Cells(r, 1) <> "" Sum = Sum + Cells(r, 4) r = r + 1 Loop Cells(r, 3) = "الإجمالي" Cells(r, 4) = Sum شاهد طريقة الربط في المرفق do_while_03.rar إلى هنا انتهى درسنا لهذه الدالة، وترقبوا مني أمثلة للأفكار الذكية في استخدام هذه الدوال والتي تزيد من توسيع مدارككم بها، وتقبلوا تحياتي

اصدقائي الاكارم تحية طيبة التطبيق التالي ينفذ عمليتي النسخ الاحتياطي و الاستعادة لقاعدة بيانات SQL طبعا تم التجريب على نسخة SQL 2005 ارجو التجريب وايفاد النتائج النسخ الاحتياطي لقاعدة بيانات SQL.rar

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

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

هديه‌ الى كل اعظاء المنتدى اوفيسنا . تحريك عنوان فورم او moving caption بكود وبسيط جدا ويجب ان يستخدم اوفيس 2010 او اكثر Moving caption.rar

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

مشاركة مع اخي ابا جودي وبعد اذنه يمكن بعمل التنسيق الشرطي لنفترض اسم مربع التسلسل لديك t1 اذهب لمربع الاسم ثم اختر تنسيق شرطي وتعبير اشرط يكون =t1<=5 ثم اختر التنسيق المناسب وليكن تضليل بلون رمادي ثم تطبيق وموافق بالتوفيق

تم اضافة كود اسماء الشهور بالطريقة الرمهانية

اهلا اهلا بالمسات الرمهانية

بانتظار النتائج اخي محمد

ايش رايك في التعبير التالي ومشاركة مع الاحبة امسح كل الاكواد ضع التعبير التالي في مربع اليوم =Choose(Weekday([day_date]),"الاحد","الاثنين","الثلاثاء","الاربعاء","الخميس","الجمعه","السبت") وعليك بعمل مربع الشهر بالتوفيق

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

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

وايش تيجى الافكار جنب اللمسات الرمهانية

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

وهذه فكرتى المتواضعة لاستعراض البيانات لنفس المرفق السابق بعد التعديل عليه SQLdemo_up.rar عود احمد استاذ رمهان وبحضور المعلم الجليل كما تعلمنا فى دروس الفقه اذا حضر الماء بطل التيمم فلا يفتى والاستاذ رمهان فى اوفيسنا

اتفضل يا استاذ عبد الله هذه احد الافكار كذلك ممكن عمل كود vba ووضع اكثر من مصدر البيانات من خلال sql كود كما تريد من خلال اوبشن جروب او كمبوبوكس او كما تشاء حسب خيالك انت SQLdemo.rar Dim task RecordSource = task task = "جملة sql" او ممكن task = " اسم استعلام" يعنى انت شكل وتخيل الطريقة المثلى التى تتماشى مع احتياجاتك

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

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

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

اعتقد اخى الحبيب ابو نادر حضرتك عاوز تسأل السؤال بالطريقة دى لعباقرة الأكواد : هل ممكن عمل كود عند فتح الشاشة الرئسية للبرنامج تكون مهمته ... ازالة تثبيت اكسس في شريط المهام ... ثم عند الاغلاق تثبيت اكسس مرة اخرى على شريط المهمام ؟

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

ممكن حضرتك تعمل مرلع اختيار وتعمل معيار داخل استعلام للتحكم فى ظهور واخفاء سجلات التقرير بناء على مربع الاختيار فكرة متواضعة

يجب ان تعرف المتغير x كمتغير public Public x as string مثلا نوع نصي

اتفضل في البداية ادخل البيانات وحاول حين تدخل خلي بينتهي العقد لكم اشخاص وبعدين حين تفتح النموذج الرئيسية اذا بينتهي العقد لشخص او لاكثر من شخص راح يظهر الرسالة وبيقولك ان انتهى عقد ل ( ) اشخاص هل تريد تتابع اذا بيقول نعم راح يفتح نموذج خاص (ASMEND) للمنتهىي العقود مالهم واذا تقول لا ما راح يير شي شو ووافيني بالنتيجة اذا هذا كان طلبك خلي اشرح لك العمل مع تحياتي شفان ريكاني PSDB - Copy.rar

تحية طيبة اخي ابا جودي غير القيمة الافتراضية لحقل ( اسم السيرفر ) الى اسم جهاز السيرفر get time1.rar

تفضل عملت لك دالة لاسم اليوم وأخرى لاسم الشهر طبعا ضروري التفريق بينهما كما هو المتبع في اي لغة برمجية Public Function mnthNm(txtDate As Date) Dim tx As String Select Case Month(txtDate) Case 1: tx = "جنجر" Case 2: tx = "فبرر" Case 3: tx = "مرس" Case 4: tx = "أبرول" Case 5: tx = "مي" Case 6: tx = "يون" Case 7: tx = "يول" Case 8: tx = "طسطس" Case 9: tx = "سبت" Case 10: tx = "أكت" Case 11: tx = "نوف" Case 12: tx = "ديس" End Select mnthNm = tx End Function Public Function dyNm(txtDate As Date) Dim tx As String Select Case Weekday(txtDate) Case 1: tx = "احد" Case 2: tx = "اثنين" Case 3: tx = "ثلاثاء" Case 4: tx = "ربعاء" Case 5: tx = "خميس" Case 6: tx = "جمعة" Case 7: tx = "سبت" End Select dyNm = tx End Function dayname2.rar

السلام عليكم ورحمة الله انسخ هذا الكود وضعه فى موديول ثم انشئ ورقة عمل جديدة وسمها "تذكير" ثم خصص زر لهذا الكود Sub Remember() Range("A11:Z500").ClearContents Dim sh As Worksheet For Each sh In ThisWorkbook.Worksheets For R = 11 To 100 If sh.Name <> "اسماء العملاء" Or sh.Name <> "اقفال" Or sh.Name <> "تذكير" Then LR = Range("M" & Rows.Count).End(xlUp).Row + 1 If sh.Range("M" & R) = Date Then sh.Range("B" & R & ":Z" & R).Copy Range("B" & LR).PasteSpecial xlPasteValues Range("B" & LR).PasteSpecial xlPasteFormats Range("A" & LR) = LR - 10 End If End If Application.CutCopyMode = False Next Next End Sub

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

عادة تستخدم الدالة do while في القيام بعملية مكررة في عمود محدد، فمثلا نستخدمها في عمليات الجمع كما في المثال التالي r = 4 Do While Cells(r, 1) <> "" Cells(r, 4) = Cells(r, 2) * Cells(r, 3) r = r + 1 Loop المرفق: do_while_02.rar الشرح في السطر الأول حددنا رقم الصف الذي ستبدأ منه الدالة والسطر التالي أعطيناه أمر بأن يعمل ضمن الشرط الذي يكون فيه العمود الأول غير فارغ ومن ثم أدخلنا معادلة الإجمالي والسطر الأخير يعني أن ينتقل صف واحد للبحث عن الشرط

3- الدالة Do while loop الغرض من ذلك هو تكرار مجموعة معينة من البيانات طالما أنه يحقق الشرط، فإذا خالف الشرط فعندها يتم إنهاء الحلقة التكرارية.. وهي عكس Do until فمثلاً لو طُلب منك بأن تكتب أرقام متسلسلة في العمود الأول وتضع شرطاً بأن ينفذ الأمر عندما يكون الرقم أصغر من 11، فعندها سيكون الكود كالتالي : i = 1 Do While i < 11 Cells(i, 1) = i i = i + 1 Loop لاحظ النتيجة وقارن بينها وبين أول مثال من do until i = 1 Do Until i = 11 Cells(i, 1) = i i = i + 1 Loop فهما يؤديان إلى نفس النتيجة شاهد المرفق do_while_01.rar

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

الإجابة: Dim i As Integer i = 0 Do i = i + 1 Loop Until Cells(i, 1).Value = "" MsgBox "Cell A" & i & " is blank!" لاحظ بأن until كُتبت بعد Loop ، وهذا طريقة أخرى للترتيب، وقد استخدمت لأن الشرط يعتمد على نتيجة خلية. وهذه طريقة أخرى اعتمدت على شرط أنه إذا كانت الخلية فارغة فأعطها true Dim BlankFound As Boolean Dim x As Long 'Loop until a blank cell is found in Column A Do Until BlankFound = True x = x + 1 If Cells(x, "A").Value = "" Then BlankFound = True End If Loop 'Report out first blank cell found in Column A MsgBox "Cell A" & x & " is blank!" إلى هنا انتهت الحلقة الثانية ودمتم سالمين وهذا هو الملف المرفق first_blank.rar

السلام عليكم اخي محمد ممتاز شاهد المطلوب الاول من العمل واخبرني عن رايك اقبل تحياتي واحترامي شؤون الموظفين بند 1 محمد ممتاز.rar

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله اول مشاركة لي في البرنامج لي سؤال لم اصل معه لحل اولا ما هي الطريقة لجعل دالة تحويل من التاريخ الهجري الي التاريخ الميلادي في خلية اخري ثانية كيف اقوم بوضع دالة تقرا من تاريخ الي تاريخ وتقوم بتوزيع مبلغ معين علي اشهر في خلايا متتالية مثلا عندي ايجار 100000 سنوي اولا بقوم بتحويل تاريخ بداية الايجار وانتهائه من هجري الي ميلادي ثم بقوم بتوزيع قيمة الايجار علي السنة الميلادية حسب عدد الايام اي القيمة المحسوبة 1000000/ عدد ايام السنة الهجرية ولكن بتاريخ ميلادي (355) ثم توزيعها علي الاشهر واستخراج الايجار السنوي لاقوم بعمل قيود الاستحقاق محمد رجب الشيخ