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

السلام عليكم لاحظت كثرة الأسئلة حول كيفية البحث بتجاهل أنواع الألف (ا أ إ آ) فقررت إنشاء موضوع أشرح فيه هذه الطريقة مع وضع مثال بسيط. مثلا عندما أبحث عن كلمة أحمد يكفي أن أكتب: احمد فتظهر الأسماء المكتوبة بالهمزة و بغير همزة. و غيرها مع باقي الأنواع. الكود المستعمل: 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

الاخوة الافاضل , الموضوع: لدي دالة للتأكد هل الخط مسطب في النظام ام لا. المطلوب من فضلكم هو: اضهار رسالة اذا كانت اجابة نتيجة الدالة ايجابية (True). او اضهار رسالة اخرى اذا كانت نتيجة اجابة الدالة سلبية (False). مع الشرح بعد التعديل اذا امكن. وشكرا. Check If a Font Installed.accdb

السلام عليكم أعزائي.. كنت قد شاركت سابقا في منتدانا الرائع هذا بمشاركة عن طريقتي لحماية البرامج والبيانات من العبث والتلصص.. المشاركة هنا واليوم اضع بين ايديكم تطبيقا لهذه الطريقة في الملف المرفق حماية ابوأسد.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

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

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

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

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

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

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

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

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

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

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

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

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

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