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

في هذة الحالة اعمل مدويل جديد وانسخ فيه هذا Public dayli As Date Function Next_Seq(T As String) As String 'T = Type نوع السند 'A = بيع 'M = بيع اجل 'S = شراء نقدي 'G = شراء اجل 'K = مرتجع بيع 'B = مرتجع بيع اجل 'Y = مرتجع شراء نقدي 'P = مرتجع شراء اجل 'R = سند قبض 'U = سند صرف 'L = عرض سعر myGroup = "A = بيع" & vbCrLf & _ "M = بيع" & vbCrLf & _ "L = شراء" & vbCrLf & _ "S = شراء" & vbCrLf & _ "G = شراء" & vbCrLf & _ "B = مرتجع بيع" & vbCrLf & _ "K = مرتجع بيع اجل" & vbCrLf & _ "Y = مرتجع شراء نقدي" & vbCrLf & _ "P = مرتجع شراء اجل" & vbCrLf & _ "R = سند قبض" & vbCrLf & _ "U = سند صرف" If Len(T & "") = 0 Then MsgBox "يجب ان يكون نوع السند" & vbCrLf & "A او M او S او G او K او B او Y او P او R او U اوL" & vbCrLf & vbCrLf & myGroup Exit Function ElseIf T <> "A" And T <> "M" And T <> "S" And T <> "G" And T <> "K" And T <> "B" And T <> "Y" And T <> "P" And T <> "R" And T <> "U" And T <> "L" Then MsgBox "يجب ان يكون نوع السند" & vbCrLf & "A او M او S او G او K او Bاو Y او P او R او U اوL" & vbCrLf & vbCrLf & myGroup Exit Function Else Next_Seq = Nz(DMax("Mid([Rjmfatwra], 2)", "AfwtIar", "Mid([Rjmfatwra], 1, 1) = '" & T & "'"), 0) Next_Seq = T & Format(Next_Seq + 1, "00000") End If End Function وعند الاضافه استدعيه هكذا Me.[Rjmfatwra] = Next_Seq("A")

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

السلام عليكم أصدقاء المنتدى الكرام أقدم لكم ملف جاهز لتحويل التاريخ من الميلادى إلى التاريخ الهجرى ...أتمنى أن ينال إعجابكم بارك الله لكم جميعا برنامج تحويل التاريخ.xlsm

السلام عليكم ورحمة الله وبركاته مساء الخير أحبتي رواج مملكة الأكسس والوورد أعتذر عن انقطاعاتي الكثيرة وماذاك الا الانشغال مع جدتي شفاها الله وعافها ولا أراكم مكروها اليوم كُنت في محل نظارات وهو محل تابع لمؤسسة معروفة لها أكثر من فرع لاحظتهم يستخدمون برنامج في كل فروعهم فأردت أُشبِع فُضولي حيث سألت مدير الفرع عن البرنامج الذي يستخدموه فقال لي أنه برنامج مُصمم بالأكسيس فاستأذنته بالاطلاع للتأكد وفعلاً وجدته ملف أكسيس ولكن من صممه أبدع كثيراً في تصميمه حتى أني لم أتوقع حينها أنه بالأكسيس , الذي صَدمني أكثر هو أنه تم شراء البرنامج بقيمة 500 ألف ريال على حد قول مدير الفرع ولم أصدقه مبدأياً حتى استرسل وفٌصل في الموضوع إذ تم شراء نسخة لكل فرع ومازلت حقوق البرنامج للمُبرمج ولم تُعطى للمؤسسة !! الموضوع بِرمته رسالة لمن يستهين بالأكسيس : ) لكم وافر التقدير والاحترام ومساءكم سعادة ,, الموضوع منقول من منتدي مملكة الاكسس والورد

أخواني واخواتي أعضاء صرحنا العظيم اوفيسنا **************** وجد ان موضوع مستحقات نهاية الخدمة بالاخص في السعودية يشغل بال الكثيرون من المهتمين بالمجال نظرا لما فيه من حقوق واعباء ففكرت في عمل النموذج حتي لا تضيع الحقوق علي اصحابها نتيجة خطأ في تطبيق قاعدة في قانون العمل او لائحة الشركة راعيت في النموذج قوانين مكتب العمل التي نظمت حقوق العامل عند نهاية العقد او الاستغناء عنه او الاستقالة بحالتها المختلفة 1- اذا كانت فترة العامل اقل من سنتين 2- اذا كانت فترة العامل مابين السنتين والخمس سنوات 3- اذا كانت فترة العامل مابين 5 :10 سنوات 4- اذا كانت فترة العامل اكبر من عشر سنوات وكذلك في الادخال بما يتناسب مع سياسة الشركة اوعقد العامل مثال علي ذلك بدل السكن ( بعض الشركات لاتدخله) ضمن راتب المكافأة وشركات اخري تحسبه بما يقابل راتب شهرين عن سنة واخري تحسبه بما يقابل ثلاثة شهور وكذلك راعيت بدل الاجازة السنوية (30 يوم عن كل سنة لكامل الفترة ) او( 21 يوم للخمس سنوات الاولي ومازاد عنها 30 يوم ) طرق ادخال التاريخ عن طريق الفورم لعدم الاخطاء استخدام التقويم الميلادي او الهجري - ام القري في الحساب تم تخصيص ملاحظات تحت كل حساب يظهر العمليات والقوانين التي اتبعت في الحساب وتناولت الموضوع بفكرة جديدة *********** فورم اخري اسميته الادخال السريع ********************* لضمان عدم الاخطاء في الادخال حيث ان كل مرحلة في الفورم لابد من تعبئتها ليمكنك الانتقال للخطوة التالية الي جانب طباعة النموذج بشكله النهائي الشكل الاخير بعد معالجة المدخلات كالتالي انا جعلت موضوع الفورم جزء من قاعدة شئون الموظفيين الجديدة بشكل جديد ان شاء الله قريبا سوف يتم طرحها لكم وارفقت قوانين العمل حسب مكتب العمل السعودي لتكون مرجع في حالة عدم وجود مرجع ثابت او لائحة منظمة لذلك داخل الشركة ويمكنك الاطلاع علي شروط واحكام الحساب عند ضغطك علي خيار " أحكام حساب المستحقات باسفل الفورم ) كما ان بعض الشركات لاتقوم بابرام عقود للعمال فيكون المرجع الاساسي (قانون مكتب العمل ) أدعوا الله سبحانه وتعالي ان اكون وفقت في عملي هذا (( وَمَا أَسْأَلُكُمْ عَلَيْهِ مِنْ أَجْرٍ إِنْ أَجْرِيَ إِلَّا عَلَى رَبِّ الْعَالَمِينَ )) الشعراء/109. ولكنني اطمع بصالح دعائكم بظهر الغيب مستحقات نهاية الخدمة.rar

السلام عليكم ورحمة الله وبركاته اساتذتي الكرام غبت عن المشاركات الا ان قلبي معكم واكيد اني لا استغني عن طلب المساعدة منكم فاليكم مسالتي عملت قاعدة بيانات وتمت مشاركتها عبر الشبكة لاكثر من قسم واقوم بالتعديل على البرنامج حسب الطلب والحاجة ولاجبار المستخدمين على تحديث النسخ لديهم استخدمت الفكرة التالية في فورم تسجيل الدخول وضعت ليبل مخفي به رقم النسخة وفي حدث التحميل يتم فحص رقم النسخة من جدول اسمه النسخة فاذا تطابق الرقمين يفتح عادي والا ظهرت رسالة للمستخدم بان نسخته اصبحت قديمه ويجب التحديث للنسخة الاحدث ويظهر في الرسالة خطوات التحديت بطريقة يدوية مع كثرة التعديلات ودخول مستخدمين جدد لا يستطيعون عمل التحديث بسلاسة حاولت ان اجعل التحديث تلقائي فقمت بما يلي: ١. عملت ملف اكسس جديد اسميته Updt به جدول وقمت بوضعه في ملف في البارتشن C ٢. في ملف القاعدة وفي حدث تحميل فورم الدخول وضعت كود تشغيل استعلام الحاقي ليلحق مسار قاعدة البيانات الحالية في الجدول الموجود في Updt ثم فتح ملف Updt واغلاق القاعدة الرئيسية. ٣. في الملف Updt وضعت فيه فورم وفي حدث التحميل وضعت كود حذف لقاعدة البيانات التي تم الحاق مسارها في الجدول ثم نسخ قاعدة البيانات المحدثة ووضعها بنفس اسم ومسار قاعدة البيانات المحذوفة ثم يتم حذف بيانات الجدول و بعدها يتم اغلاق التطبيق. هذه كانت فكرتي الا انه عند تطبيقها وجدت انه يعلق وتطول العمليه جدا فهل هناك فكرة افضل من هذه ليتم تحديث قاعدة البيانات تلقائيا اي بمعنى نسخ القاعدة الحديثة الموجودة في ملف ثابت على الشبكة واستبدالها مكان النسخة القديمة ولكم جزيل الشكر لم استطيع ارفاق ملف لكبر الحجم ولم استطع اقتباس الاكواد لاني اكتب من الهاتف فاعذروني

و عليكم السلام و رحمة الله وبركاته كما فهمت تريد التقريب للربع الأدنى بمعنى مضاعفات 0.25 جرب هذه الداله =CEILING($A$1-0.2;0.25) حيث ان الدالة CEILING تقرب للأعلى لذلك نخصم من الرقم 0.2 لكي يقرب الى الأعلى و نصل للنتيجة المطلوبة

استبدل الكود بهذا مع مراعاة وضع الخلايا من الصفحة(سند قبض) في اماكنها الصحيحة في المرة المقبلة ابتعد قدر الامكان عن عدو الاكواد الأول (أقصد الخلايا المدمجة) تم بالخطأ مسح اسماء البنايات (يمكن اعادة ادراجها بالقائمة المتسدلة) Option Explicit Sub Salim() Dim my_sh As Worksheet: Set my_sh = Sheets("سندات القبض") Dim Sanad As Worksheet: Set Sanad = Sheets("سند قبض") Dim x% x = my_sh.Cells(Rows.Count, 2).End(xlUp).Row + 1 Dim i%, s With my_sh.Range("b" & x) For i = 0 To 14 Select Case i Case Is = 0: s = Sanad.[h3].Value: Sanad.[h3].Value = vbNullString Case Is = 1: s = Sanad.[d5].Value: Sanad.[d5].Value = vbNullString Case Is = 2: s = Sanad.[f7].Value: Sanad.[f7].Value = vbNullString Case Is = 3: s = Sanad.[c7].Value: Sanad.[c7].Value = vbNullString Case Is = 4: s = Sanad.[a7].Value: Sanad.[a7].Value = vbNullString Case Is = 5: s = Sanad.[i9].Value Case Is = 6: s = Sanad.[d10].Value: Sanad.[d10].Value = vbNullString Case Is = 7: s = Sanad.[a10].Value: Sanad.[a10].Value = vbNullString Case Is = 8: s = Sanad.[i9].Value: Sanad.[i9].Value = vbNullString Case Is = 9: s = Sanad.[i12].Value: Sanad.[i12].Value = vbNullString Case Is = 10: s = Sanad.[i13].Value: Sanad.[i13].Value = vbNullString Case Is = 11: s = Sanad.[i14].Value: Sanad.[i14].Value = vbNullString Case Is = 12: s = Sanad.[i15].Value: Sanad.[i15].Value = vbNullString Case Is = 13: s = Sanad.[i16].Value: Sanad.[i16].Value = vbNullString Case Is = 14: s = Sanad.[i17].Value: Sanad.[i17].Value = vbNullString End Select .Offset(0, i) = s Next End With End Sub الايجارات.xlsm

الف الف شكر وتسلم على مجهودك

السلام عليكم و رحمة الله وبركاته شكرا لك و جزاك الله خيرا عمل رائع الله لا يحرمك اجره

جزاك الله خيرا اخي الكريم تقبل خالص تحياتي

تسلم اخي kaser906 بارك الله فيك انا استخدم برنامج Setup Factory 9 ولكن كان سوالي للاخ cudi عشان السائل يوصل للمطلبه اكرر شكري لك ولكل اعضاء المنتدى على روح التعاون

وجدتها لك يا بو احمد اولا دعنا نسمي : 1-الامامية 2- الخلفية لقواعد البيانات الواجهات والجداول حتى يسهل فهم الشرح بنفس فكرتك وتكون كالتالي : 1- عمل جدول محلي داخل الأمامية يحتوي على حقل واحد نضع فيه رقم التحديث 2- استخدام دائم لواجهة في بداية التشغيل وسيطة مرتبطة بالأمامية الجديدة التي ستضعها على السيرفر 3- يكون عمل هذه الوسيطة هي التأكد من رقم التحديث هناك 4- اذا كان الرقم اكبر من المحفوظ في الوسيطة يتم استبدال الامامية الحالية بالامامية التي على السيرفر ثم تشغيلها وغلق الوسيطة 5- اذا كان الرقم مساويا يتم تشغيل الامامية الحالية فقط وغلق الوسيطة

السلام عليكم و رحمة الله وبركاته ThisWorkbook ThisWorkbook هذا الملف الحالي - زتستخدم لكي لا يتم تشغيل الكود على ملف آخر Worksheets("Step Up Feature") اسم الورقة المطلوب العمل عليها او الرجوع لها Loop Until كرر العملية المذكورة سابقا الى ان يتحقق الشرط - ويذكر الشرط بعدها وهنا ذكر الشرط مع OR اي انه تتكرر العملية الى ان يتحقق واحد من الشروط التالية اتمنى ان اكون اوضحت لك المطلوب

تمام اعتقد طريقتك الاولى جيدة ، ولكن امنحني بعض الوقت اجرب عليها _ يامجرب _ لعلي استطيع تحويلها آليا

مرفق ملف اكسل اشهر و اهم اختصارات الاكسل الي ممكن تحتاجها و ممكن تتابعنا ع الفيسبوك : https://www.facebook.com/groups/164745377424519/ و اليوتيوب : https://www.youtube.com/channel/UChAVGy_JEXajXGMcyK-WJtA?view_as=subscriber #excel_castle اختصارات الاكسل.xlsx

مرحبا بك فى المنتدى نورتنا واهلا وسهلا بك- ملف رائع بارك الله فيك

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

جرب هذا الملف (بعد اذن اخي به علية) تم تغيير اسماء الصفحات لحسن عمل الكود الكود Option Explicit Sub get_data() Dim i%, m%: m = 9 Dim Sh As Worksheet: Set Sh = Sheets("Final_Year") Dim Th As Worksheet: Set Th = Sheets("Natija") Dim x%: x = Application.Match(Th.Range("d2"), Sh.Rows(7), 0) Dim My_Rg_To_Copy As Range: Set My_Rg_To_Copy = Sh.Range("a8").CurrentRegion.Columns(x) Dim last_row%: last_row = My_Rg_To_Copy.Rows.Count + 6 Dim Nisba# Th.Range("a8").CurrentRegion.Offset(1).ClearContents If Not IsNumeric(Th.Range("e4")) Or Th.Range("e4") = vbNullString Then Nisba = (65 / 100) * My_Rg_To_Copy.Cells(2) Else Nisba = (Th.Range("e4") / 100) * My_Rg_To_Copy.Cells(2) End If For i = 9 To last_row If Sh.Cells(i, x) >= Nisba Then Th.Cells(m, 2).Resize(1, 6).Value = Sh.Cells(i, 2).Resize(1, 6).Value Th.Cells(m, 1) = m - 8 m = m + 1 End If Next Set My_Rg_To_Copy = Nothing: Set Sh = Nothing: Set Th = Nothing End Sub الملف مرفق Get data Salim.xls

السلام عليكم و رحمة الله وبركاته شكرا لك و جزاك الله خيرا عمل رائع الله لا يحرمك اجره

السلام عليكم الحل بالمعادلات في المرفق.... بن علية جلب بيانات من ورقة عمل أخرى.xlsx

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

آمين واياك تعديل ممتاز و في مكانه

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

جرب هذا الملف اعدادى Salim.xls

السلام عليكم الاخ الكريم / mostafa_27 بارك الله فيك بعد اذن اخي الاستاذ الحبيب / سليم حاصبيا .. جزاه الله خيرا وعلي حسب فهمي لطلبك وباستخدام الكود المقدم من الاستاذ / سليم .. يكون الكود بالشكل التالي Private Sub CommandButton1_Click() CommandButton1.Caption = IIf(CommandButton1.Caption = "Hide", "Show", "Hide") If CommandButton1.Caption = "Hide" Then Range("H:I,K:K,N:N").EntireColumn.Hidden = True Else If CommandButton1.Caption = "Show" Then Range("H:I,K:K,N:N").EntireColumn.Hidden = False End If End If End Sub واليك ملف مرفق مطبق به الكود تقبل خالص تحياتي امرين مختلفين في زر وراحد - اظهار & اخفاء.rar

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

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

الكود Sub hide_col() Range("B:C,F:G,J:J").EntireColumn.Hidden = True End Sub

السلام عليكم ورحمة الله وبركاته لا تستغرب اخي الكريم ولا تستهن بالاكسس لا يمكن الاستغناء عن قواعد البيانات مهما كثرت لغات البرمجة :: تحياتي

السلام عليكم الملف لم يعمل على 2003 هل ممكن نسخة على 2003

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

أخي الكريم أولا لا ينبغي ذكر تفاصيل عن المؤسسة أو الشركة لأن ذلك قد يفضي الى معرفتها خصوصا أنك ذكرت أنها شركة نظارات و لها تسعون فرع في المملكة و لذلك سيسهل جدا معرفتها , و قد يلحق ضررا بها و بعلاقتها مع شركة البرمجة التي باعت البرنامج لها ثانيا : هذه العملية لا تسمى شراء نسخة , بل هي عبارة عن رسوم المستخدم و بالتالي تكون رسوم رخصة كل فرع = 500 ألف ريال / 90 فرع = 5,555 ريال للفرع الواحد و كما قلت لاتستيهنوا بالأكسس , بل أنا وجدت برامج ضخمة قاعدة بياناتها اكسل و لكل مجتهد نصيب

الأخ الفاضل / محمد الريفى جزاك الله كل خير

أخي الحبيب الأستاذ // مجدي يونس أخي الحبيب الأستاذ// سعد عابد أخي الكريم الأستاذ// محمد يوسف محمد أخي الكريم الأستاذ// باسم سعيد اخي الحبيب الأستاذ// أبوحنين أخي الحبيب الأستاذ// حمادة عمر أخي الكريم الأستاذ// سمير حسين أخي الحبيب الأستاذ// محمد مصطفي أبوحمزة أخي الكريم الأستاذ// مرعي السيد الأخت الفاضلة // أم عبدالله الأخ الفاضل // رائد 1982 اخي الفاضل // محمد توبة أخي الفاضل // ابراهيم الشال أخي الفاضل // الطائر الحنان ((مع حفظ الألقاب والترتيب)) مروركم شرفني وشرف الموضوع جزاكم الله خيرا وبارك الله فيكم وادعوا الله ان اكون عند حسن ظنكم في تقبل الله منا ومنكم الصالحات تقبلوا تحياتي جمعيا

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

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

وهذا ملف آخر أيضاً عن الإستعلامات CreateMultiSelectQuery.zip

بارك الله فيك .... أخي أبوسليم ومشكور على هذا المجهود .........

أخوتي الأفاضل : أ رفق لكم اليوم 3 أمثلة برمجية فيها فائدة كبيرة : 1- المثال الأول picture2k.zip يحتوي على كيفية إضافة صورة الى نموذج . 2- المثال الثاني picturereport.zip يحتوي على كيفية إضافة صورة الى التقرير . 3- أما المثال الثالث subformreference2k.zip فهو من أهم الأمثلة : حيث يحتوي على معظم الأمور التي تتعلق بالنماذج الفرعية من إاضفة بيانات على النموذج الفرعي أو حذفها أو تحديدها أو ما شابه ذلك . مع الشكر ، ، ، picture2k.zip picturereport.zip subformreference2k.zip

أخوتي الاعزاء : إليكم الأمثلة التي أخترتها لكم اليوم ، على أمل أن تنال إعجابكم جميعاً بإنتظار ردودكم ، ، ، مع الشكر ، ،، BoilerPlate.zip ChangingColorFields.zip CleanFileHTML97.zip CharacterScramble.zip ComboChoosesRecord.zip

براك الله فيك وننتظر منك المزيد وجزاك الله كل خير

شكراً لك أخي عابر القارات ، و أتمنى لك كل خير و للجميع أيضاً في هذا المنتدى الحبيب

المثال رقم 3 الخاص بالإستعلامات CreateQueries2.zip

والله معلم والله يعطيك العافية ويقويك

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

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