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

السلام عليكم لاحظت كثرة الأسئلة حول كيفية البحث بتجاهل أنواع الألف (ا أ إ آ) فقررت إنشاء موضوع أشرح فيه هذه الطريقة مع وضع مثال بسيط. مثلا عندما أبحث عن كلمة أحمد يكفي أن أكتب: احمد فتظهر الأسماء المكتوبة بالهمزة و بغير همزة. و غيرها مع باقي الأنواع. الكود المستعمل: Dim rst As String, x As String, CrtTxt As String Dim i As Integer, RC As Integer Dim homm As String homm = Me.t2.Text Me.t3.Value = homm CrtTxt = "Like ""*" & Me.t3 & "*""" If InStr(1, Me.t3, "أ") > 0 Or InStr(1, Me.t3, "ا") > 0 Or InStr(1, Me.t3, "إ") > 0 Or InStr(1, Me.t3, "آ") > 0 Or InStr(1, Me.t3, "ى") > 0 Or InStr(1, Me.t3, "ي") > 0 Or InStr(1, Me.t3, "ه") > 0 Or InStr(1, Me.t3, "ة") > 0 Then CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Me.t3, "ا", "أ") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Me.t3, "ا", "آ") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Me.t3, "ا", "إ") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Me.t3, "ة", "ه") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Me.t3, "ه", "ة") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Me.t3, "ى", "ي") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Me.t3, "ي", "ى") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "أ"), "ي", "ى") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "آ"), "ي", "ى") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "إ"), "ي", "ى") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "أ"), "ى", "ي") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "آ"), "ى", "ي") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "إ"), "ى", "ي") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "أ"), "ة", "ه") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "آ"), "ة", "ه") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "إ"), "ة", "ه") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "أ"), "ه", "ة") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "آ"), "ه", "ة") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "إ"), "ه", "ة") & "*""" End If rst = ("SELECT * FROM [جدول1] where [الكود] " & CrtTxt & ";") Me.salah.Form.RecordSource = rst Me.salah.Requery و هذا مثال على ذلك: البحث بتجاهل أنواع الألف.rar وهذا رابط فديو شرحت به البرنامج:

اتفضلوا فقط انا اضفت هذه السطور للفانكشن MsgBox IsFontInstalled Exit For Else IsFontInstalled = False MsgBox IsFontInstalled Exit For اليك ملف بعد اضافة Check If a Font Installed.accdb

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

اتفضل اليك القاعدة بعد تعديل برنامج العطاء للعقارات.rar

اتفضل اليك هذا Private Sub Form_Current() If IsNull(Me.ply_id) = False Then Me.ply_nam.Locked = True Else Me.ply_nam.Locked = False If IsNull(Me.fr_id) = False Then Me.fr_nam.Locked = True Else Me.fr_nam.Locked = False End Sub db5_UP.accdb

اليك هذا شو رأيك اذا تغير الاسم سيتغير الكود وبلعكس القي نظرتا اليه db5_UP.accdb

اتفضل اليك هذا =Sum([idd])+Sum([nu]) New Microsoft Access Database.rar

مرحباً @Shivan Rekany السباق دائماً للخير منذ دقائق انتهيت من إعداد طريقة عمل القوائم المعتمدة على بعضها Cascading combobox dependent combobox و الآن إني مشوق لأرى الطريقة التي عملتها .

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

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

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

Private Sub Command112_Click() If IsFontInstalled("Arial") = True Then MsgBox "الخط مثبت على الجهاز" Else MsgBox "الخط غير مسطب على الجهاز" 'Call IsFontInstalled("Anehila") End Sub بالتوفيق

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

أذا سمحت أستاذنا الغالي @Shivan Rekany قمت بأضافة للكود محاولاً لكن .. أعتقد أني لم أصل للمطلوب هل يمكن أن تظيف التالي .. في حالة وجود الخطوط .. ظهور مسج بأن الخطوط موجودة مع اسماء الخطوط ، والخروج من الكود .. في حالة لم توجد واحد منها أو جميعها .. تسطيب الخطوط 3 المرفقة أو الناقص .. وظهور مسج بأسماء الخطوط "تم تنصيب الخطوط (digital-7) و (DS-DIGI) و (Ticking Timebomb BB)" مرفق الملف مع الخطوط إضافة الخطوط للويندوز.rar

جرب هذا DoCmd.OutputTo acOutputQuery, "إحصاء أنواع الصكوك الواردة لكل مفتش بتاريخ محدد", acFormatRTF, "D:\التقارير\إحصاء أنواع الصكوك برقم الوارد لجميع المفتشين بتاريخ محدد.rtf"

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

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

صراحه ما بدري كيف اشكرك استاذ كنا ري فكان انا بدي 'طلب كود صغير مشروط بعلامه الصح الا اعملها انا بالجدول فظرت لي بشي افرحتني فيه كثير اسال الله ان يزيدك علما يحفظك عمل جميل وممتاز وكرم من كريم راح اعمل عليه من اليوم صاعد ولكن لي طلب يالغالي ممكن تعرب لي الاسماء العناصر بالنماذج كي افهمه اكثر اخوك ضعيف بالانجليزي وكيف اذا عمل نماذج كيف اظهرها بنموذج Users Ability عشان اعطيه صلاحيه او لا تحياتي

السلام عليكم ...أنظر المرفق به يوزرين الاول صلاحيات كاملة والاخر بدون فتح النموذج : 1 1 الثاني 2 2 kan1.accdb_2.zip

حبذا لو ادرجت مثالا ليتم التجربة عليه ..... على العموم أنظر هذا الكود ... DoCmd.OpenForm "ab", , , , , acHidden Call Forms("ab").bu100_Click 'نفترض أن النموذج الاول هو ab 'نفترض وجود زر في النموذج الاول لأدراج السجل والتحديث هو b001_Clik

مبهر كالعادة استاذى @Shivan Rekany

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

أسمح لي أستاذي @Shivan Rekany أن أضيف معك.. ومع ماأسلفت .. من حركات البيع والشراء .. أذا كان يوجد كذلك حركات الصيانة ماهي أفضل طريقة لأنشاء الجداول وطريقة التعامل فيما بينهم

أدخل على هذا الرابط سوف تجد العجب:

اتفضل db3.accdb.zip

شكرا إلك كأني دايقتكك ياغالي

شكراً جداً أستاذ ali mohamed ali

تفضل أخى أحمد يوسف ويبقى تحديد رقم الفاتورة للذهاب إليها NO_okk_TEST2.xlsm

اتفضل هذا حسب طلبك f Nz(Me.N1.Text) = Null Then Me.TB.Form.Form.Filter = Null Me.TB.Form.FilterOn = False Else Me.TB.Form.Filter = "[ID_Sanf]&[Sanf] Like '*" & _ Replace(Me.N1.Text, “‘”, "''") & "*'" Me.TB.Form.FilterOn = True End If Me.N1.SetFocus Me.N1.SelStart = Len(Me.N1.Text) البحث_(1).accdb

الاخ ابو زاهر عند كتابه الكود وفيه اسم عربي عند النسخ غير اللغه الى عربي وانسخ وعند كتابه كود اضغط على <> الموجود بجنب خط

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

:: تفضل db5_UP.rar

تفضل 123-1.xlsx

بارك الله فيك وجزاك الله كل خير استاذى الكبير طارق

السلام عليكم ورحمة الله وبركاته اقدم الى المكان الذى لا انسى فضله علي هذا العمل المتواضع تقبل الله منا ومنكم صالح الاعمال . بسم الله ◀مؤشرات قياس الاداء (KPIS) Key Performance Indicators وهو مقياس كمى لقياس هدف الاعمال والتى ترتبط بالاستراتيجية الخاصة بالشركة وهى مقياييس تسمح للاداره بتقييم الاداء بصوره سريعة وهى تستخدم مؤشرات مالية وغير مالية لمقارنة الاهداف الموضوعه . ◀وقد تناولنا فى هذا النموذج الخاص KPI كيفية قياس مدى تحقيق الهدف لمديرى ومشرفين وفريق المبيعات وتكون هذا النموذج من ◀ورقة عمل الهدف الاستراتيجى : وهنا يتم ادخال فترة التطبيق وشكل مؤشرات الهدف ورد الفعل المناسب فى حالة تحققه ◀ورقة عمل من 1 : 20 : وهى بمثابة اجنده شهرية لكل فرد يسجل فيها التارجيت او الهدف واجمالى المتحقق اليومى وهنا سيعرض لك KPI يومى وشهرى وايضا يوجد ملخص عام فى الاعلى ◀ورقة عمل التقرير العام : وهى تشمل قياس الاهداف لكل فرد بشكل يومى وشهرى وهنا يتم طباعة هذه الصفحة وارسالها لمتخذى القرار باى شكل . هذا وماكان من توفيق فمن الله وحده وماكان من خطأ او سهوا او نسيان فمنى ومن الشيطان والله والرسول منه براء ------------------- النموذج متاح للجميع تحميله وكلمة المرور هى 123 نصيحة : يمكنك التعديل على النموذج كما تريد خذ الافكار وطبق على مجال عملك --------------- تحميل الملف http://www.mediafire.com/file/501t47bzv7oh3zh/KPI-2018.xlsm/file ------------------- #خبير_اكسيل #KPI_EXCEL #EXCEL_BI #زكاة_العلم_نشره لاتنسونا بصالح دعاؤك يرجى مشاركة الجميع KPI-2018.xlsm

دوس ctrl الاول ثم shift ثم enter هتلاقى الاجابة ظهرت وعندك محلول مثالين ولازم يكون المدى من 2 إلى 1700 لو المدى من 1 إلى 1700 النتيجة هتكون 0 وهتلاقى هنا فى المنتدى دروس عن المصفوفات مشروحة تدريب عملي - الدوال المنطقية (1).rar

استاذ عبد الرحيم لو ممكن بعد اذن حضرتك تعديل هذا الكود لكى يعمل مضبوط فهو كود لجلب صنف معين بين تاريخين من صفحة الى اخرى جزاك الله كل خير Sub filter_for_ME() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim S_sh As Worksheet: Set S_sh = Sheets("Data") Dim T_sh As Worksheet: Set T_sh = Sheets("Search2") Dim My_Table As Range: Set My_Table = S_sh.Range("A1").CurrentRegion With T_sh .Range("A2").CurrentRegion.EntireRow.Delete .Range("Q2").Formula = _ "=AND(Data!B2>=$B1$1,Data!B2<=$C1$1,Data!E2=$D$1)" My_Table.AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=.Range("Q1:Q2"), _ CopyToRange:=.Range("A2") .Range("q2").ClearContents If .Range("A2").Value <> "" Then .Range("A2").CurrentRegion.Columns("B:E").Delete End If .Columns("B:K").AutoFit Application.Goto .Range("B2") End With With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub Search - Copy.xlsm

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

تشرفت بمرورك أستاذى الغالى ali mohamed ali والله المستعان على طلبك أخى عمر ضاحى

تفضل أخى عمر ضاحى okk_TEST2.xlsm

اهلا بك اخ كريم فى المنتدى لا يوجد صور فى الملف لجلبها

السلام عليكم @Khalf لقد وضعت هذا السؤال عندما كنت في أول الطريق لكني لم أجد إجابة شافية مما جعلني أجتهد و أنشئ موضوعا جديدا به المطلوب و أكثر ليستفيد منه إخوتي. نعم أخي kanory صدقت كلنا فخورين بالإنتماء لهذا الصرح الكبير

تفضلوا إخوتي الكرام البرنامج الآن يعمل على صيغة accde و لا يفتح النموذج في وضع التصميم شريط طباعة accde.rar شريط طباعة.rar

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

السلام عليكم في جزئية مهمة في الكود هذا السطر لا ينفع في الارتباط مع (الاسم المركب) للورقة يعني لما يكون اسم الورقة اكثر من كلمة واحدة SubAddress:=sht.Name & "!a1" وعلشان يرتبط مع الكل هكذا يكون SubAddress:="'" & sht.Name & "'!a1" تحياتي

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

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

السلام عليكم الشكر واصل للاخ الحبيب/ يحي مارايك لو يمسح النتائج احسن من الرسالة تعديل بسيط في كود اخي يحي المرفق اكسل 2003 السلف1.rar