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

بعد اذن استاذنا الفاضل محمد هشام كذلك كود الاستاذ العلامة عبدالله باقشيرلا يتعامل مع اسماء اخرى مثل المعتصم بالله الواثق بالله ام كلثوم ام احمد ام الخير ام الهناء واحيانا بالهمز واحيانا لا وغيرها من الاسماء والقاعدة هي اظافة الاسم الثابت بمعنى مثلا فاطمة الزهراء فنضيف الى الكود الزهراء فقط لانه ثابت واي اسم ياتي قبل الزهراء سيتعامل معه الكود كذلك نور الهدى او سيف الهدى فنضيف الى الكود اسم الهدى فقط وهكذا كذلك يمكنك اظافة اي اسم اد جد اسم جديد تعديل الكود Function Father_Name(Name As String, Optional x As Integer = 2) As String Dim K As String Dim S As String Dim N As Integer Dim d As Integer Dim M As Integer Dim r As Integer K = Trim(Name) M = Len(K) S = " " If InStr(1, K, S, 1) = 0 Then Father_Name = "" Exit Function End If If x > 1 Then N = 1 For r = 2 To x d = InStr(N, K, S, 1) + 1 If d = 1 Then Father_Name = "" Exit Function End If N = d Next d = InStr(N, K, S, 1) + 1 If d = 1 Then Father_Name = "" Exit Function End If Father_Name = Mid(K, d, M) Else N = InStr(1, K, S, 1) + 1 d = InStr(N, K, S, 1) + 1 If d = 1 Then Father_Name = "" Exit Function End If If Mid(K, 1, 4) = "عبد " Or _ Mid(K, 1, 4) = "أبو " Or _ Mid(K, 1, 4) = "ابو " Or _ Mid(K, N, 5) = "الله " Or _ Mid(K, N, 6) = "الدين " Or _ Mid(K, 1, 5) = "الهدى " Or _ Mid(K, 1, 6) = "كلثوم " Or _ Mid(K, 1, 7) = "الزهراء " Or _ Mid(K, 1, 3) = "أم " Or _ Mid(K, 1, 2) = "ام " Or _ Mid(K, N, 5) = "بالله " Then Father_Name = Mid(K, d, M) Else Father_Name = Mid(K, N, M) End If End If End Function الملف استخراج اسم الاب من الاسم المركب1.xlsm

عمل رائع للأستاذ عبدالله و بعد إذنه تم إضافة زر لاستدعاء الفورم test2.xlsm

وعليكم السلام ورحمة الله وبركاته اتمنى ان يكون طلبك في هذا الملف test1.xlsm

ينفع ؟؟ تقصد هل يمكن ؟ لأن هل ينفع ؟ توحي بالاستفسار عن الافضلية . ------------------------ طيب شوف التعديل التقرير يفتح على عرض الطباعة .. يعني تمشي الصفحات من الازرار اسفل اطار التقرير ملحوظة : اختر فقط الصف واترك الفصل ( الشعبة ) خالي 2schoolالغياب.rar

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

السلام عليكم ورحمة الله تعالى وبركاته طبعا قد يقول البعض ان الموضوع اتهرس فى ميت فيلم عربى قبل كده لكن على كل حال تم تدارك الكثير من المشاكل ومعالجتها بشكل احترافى - اخفاء اطار لاكسس بالشكل الطبيعى والتقليدى لعرض النموذج كاملا - اخفاء اطار الاكسس وعمل شفافية للنموذج لاظهار صور png او حسب خيال المسخدم - تم ضبط كواد التوسيط للنماذج والتقارير باحترافية ويعمل التوسيط مع الخاصية Pop Up فى اى وضع كانت فى حالة عدم استخدام الاخفاء - تم حل مشكلة عدم ظهور التقاربر عند الاخفاء بتكبير التقرير تلقائيا عند استخدام كود الاخفاء - امكانبة التصغير للتطبيق بجوار الساعة ( System Try ) - عند التصغير بجوار الساعة ممكن الضغط كليك يمين على الايقونة لتظهر قائمة اختيارات - تم ضبط كود تغير ايقونة الاكسس باحترافية وبشكل تلقائى من المسار المحدد او فى حالة عدم وجود الايقونة ترجع ايقونة الاكسس - تم التعامل مع الاكواد بحرفية تامة للعمل على بيئات الأنوية المختلفة سواء كانت 32 , 64 اترككم مع تجربة شيقة ملاحظة هامة : ارضاء للجميع ولاضفاء اكبر قدر ممكن من المرونة المرفق يحتوى على قاعدتان الاولى : تم تجميع كل الاكواد والدوال فى وحدة نمطية عامة واحدة وكلاس موديول واحد لسهولة الاستفادة منها ونقلهم الى اى قاعدة الثانية : فصل اكواد كل وظيفة على حدة فى مديول خاص بها تم اضافة تعديل وتحديث جديد بتاريخ 11/10/2024 رقم اصدار التعديل الاخيــر : 4.8 center and Hid and Tray Minimizer V 30.zip center and Hid and Tray Minimizer V 4.8.rar

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

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

شكراً جزيلاً أبو عبدالله

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

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

وعليكم السلام ورحمة الله تعالى وبركاته جرب هدا Function Father_Name(Name As Variant, Optional x As Variant) As Variant Dim tmp As String, s As String, n As Integer, d As Integer, j As Integer tmp = Trim(Name.Value) j = Len(tmp) s = " " If InStr(1, tmp, s) = 0 Then Father_Name = "" Exit Function End If Select Case True Case Left(tmp, 9) = "نور الهدى" n = InStr(10, tmp, s) + 1 Father_Name = Mid(tmp, n, j) Exit Function Case Left(tmp, 13) = "فاطمة الزهراء" n = InStr(14, tmp, s) + 1 Father_Name = Mid(tmp, n, j) Exit Function End Select If Not IsError(x) Then n = 1 For r = 2 To x n = InStr(n, tmp, s) + 1 Next r d = InStr(n, tmp, s) + 1 Father_Name = Mid(tmp, d, j) Else n = InStr(1, tmp, s) + 1 d = InStr(n, tmp, s) + 1 If Mid(tmp, 1, 3) Like "عبد*" Or Mid(tmp, 1, 3) Like "أبو*" Or _ Mid(tmp, n, 5) Like "الله" Or Mid(tmp, n, 5) Like "الدين" Then Father_Name = Mid(tmp, d, j) Else Father_Name = Mid(tmp, n, j) End If End If End Function استخراج اسم الاب من الاسم المركب.xlsm

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

جرب هذا المرفق لحذف نتائج البحث db3.mdb

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

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

أهلا حنان.. لا، لا يلزمكِ هذا، لأننا نضع الشروط في جملة <Where> قبل أن تظهر البيانات على النموذج.. أما عن شريط التمرير الرأسي [المعيب] الذي يظهر في وضعية النموذج المستمر <Continuous Forms> فيمكن معالجة الأمر بطريقتين -- إما باستخدام النموذج الفرعي، وهذا مألوف ومعروف عند الجميع.. -- وإما باستخدام النموذج في وضعية النموذج المنقسم <Split Form>، وهذا الثاني في نظري أجمل! ؟ هل يؤثر الاستعلام الحرفي في سرعة الاستجابة.. جربت البحث الحرفي على ملف نصي بصيغة <CSV> به [200،000] سجل (موصل Linked) عن طريق الاستعلام ولم أر تأخراً ملحوظاً في الاستجابة.. التعديل التالي به تطبيق للمفاهيم سابقة الذكر.. Search By Characters.zip

مساهمة ثالثة مني إصافة إلى المساهمتين السابقتين لزميلاي. توزيع الطلاب_03.xlsm

على الرحب والسعة نعم ممكن تفضل 3schoolالغياب.rar

الفكرة تم تطبيقها على ملف توزيع الطلاب.xlsb

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

هو التقرير مجاميع فعلا .. هذه لم افهمها !!

العمل الذي تم في الموضوع السابق كان متقنا عند تغيير الجداول والمسميات يختلف الأمر .. وكأنك بدأت التصميم من أول وجديد .. وهذا تفسير فشل محاولتك ومثلك انا اتعب كثيرا حتى ارجع الامور في نصابها دوما انا اتبع طريقة في التصميم .. وهي انه يكون لدي قالب خاص بكل نوع من انواع المشاريع المشاريع المالية او المشتريات والمبيعات او الخدمات والافراد او البرامج المدرسية ، او العسكرية ... الخ عند بداية المشروع اسحب الجداول من القالب .. وقد يتبعه سحب الكثير من النماذج والتقارير وايضا الوحدات النمطية تكون مبنية غالبا على هذه التسميات. وهذ يختصر علي 70% من الجهد والوقت في المشروع الجديد . حاول ان تهتم بان يكون لك قالب معتمد لكل نوع من انواع المشاريع _____------------------------------------------------------------------------------------------ تم تعديل مرفقك حسب الكائنات الجديدة التي ادرجتها آمل ان تتمكن من اكمال مشروعك Data20.rar

بعد استاذ @ازهر عبد العزيز ☕ تعديل المرفق لطلب @فؤاد الدلوي على طريقة الاستاذ @Moosak تحديد كل انواع العناصر وتشغيلها من غير تعديل وكتابة داخل محرر الاكواد Form Table Report Macro Module مع تحرير الاضافة وتعديل سهل Open_Object_Ms_Access.rar

السلام عليكم ورحمة الله وبركاته 🙂 اليوم يسرني أن أقدم لكم فكرة مبتكرة لتصميم :: الصفحة الرئيسية للبرنامج مع قائمة جانبية متمددة :: بألوان جميلة وتصميم راقي وتحكم شامل بعدد عناصر القائمة والقوائم الفرعية لها 👌 وأهم شي استهلاك أقل كمية من البرمجة والأكواد في التصميم ✌ :: وبدون مقدمات نبدأ على بركة الله :: الفكرة الرئيسة للقائمة الجانبية هي : عمل نموذج فرعي مستمر يستمد بياناته من جدول بحيث أن جميع عناصر القائمة الفرعية عبارة عن سجلات هذا الجدول ، ومن خلال هذا الجدول يتم ترتيب مواقع العناصر من خلال الحقل الرقم Order وكذلك يتم تصنيفها إن كانت زر رئيسي أم فرعي من خلال حقل Main or Sub والأيقونات يتم تخزينها في حقل مرفقات ، وأما الأوامر التي ستنفذها الأزرار فهي مخزنة أيضا في الجدول وهي محصورة في الأوامر التالية ( فتح نموذج - فتح نموذج فرعي - فتح تقرير - فتح تقرير فرعي - إظاهر رسالة نصية) .. والخطوة التي تأتي بعد ذالك هي تصميم النموذج الذي سيضم هذه الأزرار ، ويراعي الترتيب + فرز الأزرار الرئيسية والفرعية في الظهور + التنسيق الشرطي الذي يلون الأزرار بالألوان المناسبة لكل حالة + كود لتنفيذ الأوامر الموكلة للأزرار + .... وهكذا ثم بعد ذلك تصميم نموذج شامل للتحكم بالأزرار .. :: وللاستفادة من هذا الملف :: ستحتاج لهذه العناصر فقط ، ( والباقي كله زيادات لغرض الشرح ) : :: وهنا يأتي شرح يوتيوبي كافي وافي مفصل عن التصميم :: وفيه أيضا فوائد إضافية مثل ( طريقة اختيار أيقونات متناسقة ، وإشارة للنماذج المتطورة الأخرى ) :: تحديثات جديدة :: قمت بتطوير النموذج ليحمل أزرار فرعية وأزرار فرعية من الفرعية بناءا على طلب بعض الإخوة 🙂 كما تم إضافة خاصية إمكانية فتح الماكرو للأزرار .. وكذلك مع إمكانية فتح النماذج والتقارير في وضع التكبير Maximize .. وهذه لوحة التحكم : :: وأخيراا ملف التحميل 🙂 :: ‏‏‏‏Modern Main Page With Main Menue And Sub Sub Btns - Moosak -Maximize-Macro.accdb ملاحظة مهمة : قد لا يعمل هذا النموذج بشكل جيد على النسخ القديمة من 2007 وما قبلها . :: ولا تنسونا من صالح دعواتكم الطيبة 🙂 🌹🌷 ::

أخي الكريم muhandes ramadan قمت بعمل معظم المطلوب حسب استطاعتي وهو كالتالي: نموذج فعال جدا في البحث والطباعة طولية وعرضية تقرير حسب المعايير التالية عند اختيار القضاء, الناحية, القرية/المحلة التقرير كل البيانات كما في جدول المشاريع عرضي و ورق A3 والاستعانة بخبراء المنتدي سيحسن من أداء القاعدة يتبع الجدول العام لإدارة المشاريع.rar

اهلا اهلا اهلا استاذى الحبيب طال غيابك مليون مرحب انا باستخدم الكود الاتى فى وحدة نمطية مع مراعاة تغيير البيانات الاتية فى رأس الموديول اسم التطبيق AppName اسم الايقونة بدون الامتداد icoName وتم عمل الكود على ان الايقونة فى نفس مسار القاعدة فى حالة تغيير مكان الايقونة لابد من تغير المسار فى الروتين AppIcon() ويتم استدعاء الروتين من خلال Call Xicon onst AppName = "www.officena.net" Const icoName = "officenaIco" Public Function AppIcon() AppIcon = CurrentProject.Path & "\" & icoName & ".ico" End Function Public Function AccessIcon() AccessIcon = (SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE") Debug.Print AccessIcon End Function Function AddAppProperty(strName As String, _ varType As Variant, varValue As Variant) As Integer Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo AddProp_Err dbs.Properties(strName) = varValue AddAppProperty = True AddProp_Bye: Exit Function AddProp_Err: If Err = conPropNotFoundError Then Set prp = dbs.CreateProperty(strName, varType, varValue) dbs.Properties.Append prp Resume Else AddAppProperty = False Resume AddProp_Bye End If End Function Function Xicon() On Error GoTo ErrHandler Dim dbs As Object Set dbs = CurrentDb() Dim intX As Integer Const DB_Text As Long = 10 ' AppTitle intX = AddAppProperty("AppTitle", DB_Text, AppName) ' AppIcon Dim Chk Dim MyIcon As String Set Chk = CreateObject("Scripting.FileSystemObject") If Chk.FileExists(AppIcon()) = False Then MyIcon = (SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE") Else MyIcon = AppIcon() End If intX = AddAppProperty("AppIcon", DB_Text, MyIcon) dbs.Properties("UseAppIconForFrmRpt") = 1 Application.RefreshTitleBar exitProc: Exit Function ErrHandler: If Err = 3270 Then Resume Next Else MsgBox Err & Err.Description Resume exitProc End If End Function وهذا مرفق للتجربة testIcon.zip