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

السلام عليكم كل عام وانتم الى الله اقرب التطبيق يحتوى على عدد 2 جدول الاول : tblMassagesSetting به اسماء الأزرار والتى يمكن ترجمتها الى اى لغة يريدها المصمصم الثانى : tblMassages وهو الجدول الذى يمكن للمصمم اضافة الرسائل به ليسهل تغير محتوى الرسائل او تعديلها دون الدخول الى وضع التصميم تعريف لمحتويات الجدول tblMassages ( جدول الرسائل ) الحقل IDMasg : معرف الرسالة هنا يتم وضع كود لا يقبل التكرار لكل رسالة ليتم استدعاء الرسالة داخل صندوق الرسائل من خلاله الحقل MasgPrtOne : نص الرسالة (السـطر الأول) هنا يتم كتابة السطر الأول من الرسالة الحقل MasgPrtTow : نص الرسالة (السـطر الثانى) هنا يتم كتابة السطر الثاني من الرسالة الحقل MasgPrtThree : نص الرسالة (السـطر الثالث ) هنا يتم كتابة السطر الثالث من الرسالة الحقل MasgHead : عنوان الرسالة هنا يتم كتابة عنوان الرسالة الحقل MasgType : معرف رمز الرسالة هنا يتم كتابة رقم رمز التى تريد ظهورها مع الرسالة والتى تدل على نوع الرسالة الحقل MsgBtn :معرف عدد الأزرار هنا يتم كتابة رقم عدد الأزرار التى تريد لها الظهور فى صندوق الرسائل يتم استدعاء الرسالة بالسطر الاتى مع تغيير معرف الرسالة الى الرقم الدال عليها MakeMsg (معرف الرسالة) اترككم مع الاستمتاع بتجربـة المرفق full control arabic Message Box 32x,64x .mdb

هذه الطريقة تفي بالغرض تماما ولكن .... ماذا لو كان عدد التسميات كبير جدا هل نقوم بكتابتها من رأيي المتواضع ممكن نجعل الكود يمر على التسميات واحد بعد الاخر فاذا كان احدهم لا يساوي 0 ينهي الاجراء والا يتحقق الشرط Dim ctli As Control For Each ctli In Me.Controls If ctli.ControlType = 100 Then If ctli.Caption <> 0 Then Exit Sub End If End If Next ctli MsgBox "////////////////" لم اجرب الكود لعدم وجود اكسس لدي ووضعت المشاركة استجابة لرغبت استاذي الفاضل باثراء النقاش

السلام عليكم ورحمة الله تعالى وبركاته كل عام وانتم بخير وصحة وسعادة واسال الله تعالى ان يبلغني واياكم شهر رمضان واساله تعالى لى ولكم القبول هدية متواضعة اتمنى ان تنال رضاكم ( امساكية شهر رمضان ) طبعا تتم تغيير المواعيد او التواريخ وفقا لكل دولة التقويم المستخدم والمواعيد طبقا لمدينة القاهرة - جمهورية مصر العربية 147525677_.zip

وبإضافة التنسيق وتعديل من جانبي على كود اخوي خالد : Dim ctli As Control For Each ctli In Me.Controls If ctli.ControlType = aclabel Then If ctli.Caption <> "0" Then Exit Sub End If End If Next ctli MsgBox "////////////////" . وبطريقة اخرى 🙂 dim i as integer For i = 1 to 4 If me("o" & i).caption <> "0" Then Exit Sub End If Next i MsgBox "////////////////" . جعفر

السلام عليكم ورحمة الله اجعل المعادلة هكذا =INDEX(B2:AA5;MATCH(E13;A2:A5;0);MATCH(D13;B1:AA1;0))

استاذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @ابوخليل جزاكم الله خيــــرا على دعواتكم الطيبات اسألأ الله تعالى أن يرزقكم الخير منها اضعافا كثيرة اعلم انها قد تكون شاقة بعض الشئ ولكن ولكن سوف يسهل تغيير النص مستقبلا بدون داعى لفتح التصميم نتخطى مشاكل مشاكل اللغة التى تؤرقنا دائما بخصوص لا ادرى ولكن سوف أبحث وطالما نحن بهذا الصدد لاريب ان اساتذتى العظماء @jjafferr , @أبو إبراهيم الغامدي , @sandanet , @kanory , @kha9009lid لن يبخلوا بتقديم يد العون فى تلك النقطه

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

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

تفضل ..... الصفوف.accdb

اضف هذا السطر من الكود الى حدث الوقت txtClock = Format(Now, "HH:nn:ss am/pm") واضف الى النموذج مربع نص وغير اسمه الى txtClock

تحياتي الخالصة راجع الملف المرفق لعل فيه ما تريد... توريدات.xlsx

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

ما يصير ما نضيف شيء 😁 حل آخر If val(Me.o1.Caption) + val(Me.o2.Caption) + val(Me.o3.Caption) + val(Me.o4.Caption) = 0 Then MsgBox "\\\\\\\\\\\\\\\" End If . وإثراءٌ للموضوع ، اطلب من الشباب ان يعطونا طرق اخرى ايضا 🙂 جعفر

تم الحل If Me.o1.Caption = 0 And Me.o2.Caption = 0 And Me.o3.Caption = 0 And Me.o4.Caption = 0 Then MsgBox "\\\\\\\\\\\\\\\" End If

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

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

شكر وتقدير وفائق الاحترام لك استاذ @ابا جودى

سيدى الكريم Form_Timer هذا هو حدث الوقت للنموذج واليك المرفق الأصلي بعد التعديل حتى تتمكن من الوقوف على التعديل وأماكن الأحداث اتفضل CL (1).accdb

مشاركة مع استاذى الجليل و معلمى القدير والدى الحبيب الاستاذ @ابوخليل دى طريقة غريبة حبتين هاهاهاها جرب يا دكتور تغيير حجم النموذج تكبر النموذج وتصغره وتعمل له Maximize وشوف السحـــــــــر ملاءمة عناصر النموذج حسب حجم النموذج ☺.zip

شكر وتقدير واحترام من اخيك

من لايشكر الناس لايشكر الله شكر وتقدير واحترام من اخيك استاذ ابا جودى

بارك الله فيك اخى استاذ عبدالله الصاري

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

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

رمضان كريم وكل عام وانتم بخير وصحه وسلامه الله يعيده علينا وعليكم بالخير والبركة.

يعمل بشكل ممتاز اخي ازهر

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

شكرا أبا الجود علي الهدية وكل عام أنتم الي الله أقرب أسأل الله أن يبلغنا واياكم رمضان سالمين ويسلم رمضان لنا ويبارك لنا فيما بقي من شعبان آمين يخيل الي أني رأيت هذا الكود من قبل ☝️ ( بالأمارة كان مكتوب هكذا ... MakeMsg(no,ex) طبعا لم يكن بهذا الابداع والجمال (علي فكرة لم اطلع علي المرفق بعد ولكن هذا عهدي بما تقدمون) حبيت أنوه علي وجود ex بالكود الخاص بي ربما تحتاج الي تطويره بطريقتكم فيما بعد احيانا نحتاج ان الرسالة لا تكون نص ثابت فحسب ربما نحتاج الي اضافة قيمة يتم استخراجها من تعبير ما مثال: رسالة كهذه ( تم ارسال الرسالة الي عدد 20 عميل) او (تم بحمد الله تحديث بيانات 30 سجل) فكانت ex يتم تمريرها بين السطور الأول والثاني للرسالة وهكذا .. شاكر لكم مرة أخري جهدكم وجعله الله بموازين حسناتكم

وانت بخير اخي محمد امين اللهم بلغنا شهر رمضان الكريم، ونحن فيه لا فاقدين ولا مفقودين فنحن لك نعبد ونسجد ونركع وندعوك ونحمدك، فنحن بك آمنا، ونحن لرحمتك نرجوا، فلا تحرمنا رحمتك ومغفرتك يا الله والف شكر على الهديه الرائعة

شكرا على الهدية الجميلة ...

ومع الاعتذار لأخي أزهر ، فاعرف انه الآن محتار شو يختار 🙂 جعفر

بل يعمل 2545 حفطك الله

%100 🙂 بس انت اخوي خالد ما شاء الله عليك استخدمت كل البدائل ، فكان لازم انبش عن تغيير هنا او هناك 🙂 لا طبعا 🙂 بس لازم ندعي انه ما يكون عنده تسميات اخرى في النموذج ، وإلا اخترب شغلك بعد 🤣 جعفر

فعلا التنسيق الان افضل انت غيرت 100 الى aclabel فانت وضعت اسم العنصر مباشرة وانا وضعت قيمته وكلاهما يؤدي الغرض ولزيادة الاثراء اضع قيمة العناصر في النماذج فقد يستفيد منها احدهم Name Value Description acAttachment 126 Attachment control acBoundObjectFrame 108 BoundObjectFrame control acCheckBox 106 CheckBox control acComboBox 111 ComboBox control acCommandButton 104 CommandButton control acCustomControl 119 ActiveX control acEmptyCell 127 EmptyCell control acImage 103 Image control acLabel 100 Label control acLine 102 Line control acListBox 110 ListBox control acNavigationButton 130 NavigationButton control acNavigationControl 129 NavigationControl control acObjectFrame 114 Unbound ObjectFrame control acOptionButton 105 OptionButton control acOptionGroup 107 OptionGroup control acPage 124 Page control acPageBreak 118 PageBreak control acRectangle 101 Rectangle control acSubForm 112 SubForm control acTabCtl 123 Tab control acTextBox 109 TextBox control acToggleButton 122 ToggleButton control acWebBrowser 128 WebBrowserControl control جميله جدا ولكن هل ستعمل لو اضفنا تسميات اخرى في النموذج وكان احدهم لا يساوي صفر

وهذا مثال يحتوي على الوحدة النمطية بعد تطويرها رابط المطور مع شرح لمفهوم التحجيم ResizeFormExample v2.6.zip

هو بالفعل مبني على الاستعلام ،، لاحظ انه لن يتم عرض المخطط حتى تدخل التواريخ تفضل التعديل حسب طلبك Newe2.rar

لا حاجة في عملك الى يوزر من عدة Multipage 1 اختر الصفحة المطلوبة من خلال الـــ Option Button 2- أملا البيانات المطلوبة 3- اضغط على الزر To Sheet (حسب هذه الصورة) الملف مرفق ghpryal2010_User.xlsm

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

تفضل كان عليك استخدام خاصية البحث بالمنتدى تجنباً لإهدار الوقت خصوصاً ان طلبك تكرر كثير جداً بالمنتدى أو بكل بساطة يمكنك استخدام هذه المعادلة لتلبية طلبك وحله =DATE(IF(LEFT(A3,1)*1=3,20,19)&MID(A3,2,2),MID(A3,4,2),MID(A3,6,2)) (مميز ) دالة استخراج تاريخ الميلاد او النوع او المحافظة من الرقم القومي Text1.xlsm

ولك بمثل ما دعوت - جرب هذا الملف المراد اصلاحة.xlsb

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

السلام عليكم ورحمة الله يمكنك استخدام هذه الدالة المعرفة و هى تعطى الترتيب من الاول حتى العاشر فقط مع التكرار Function RRank(Cel As Range, Rang As Range) As String 'Cel : اول خلية فى نطاق الدرجات ' Rang : -F4- النطاق الذى سوف يتم البحث فيه ويجب تثبيته باستخدام مفتاح '---------------------- Dim Obj As Object, I As Long, Arr As Variant Dim temp As Variant, Itm As Variant, Rnk As Integer Dim x As Integer, k As Integer, MK As String, xx As String '================ Set Obj = CreateObject("Scripting.Dictionary") Arr = Rang.Value For Each Itm In Arr If Obj.exists(Itm) Then Obj.Item(Itm) = Obj.Item(Itm) + 1 Else Obj.Add Itm, 1 End If Next temp = Obj.keys I = Obj.Count '================ If I <= 10 Then k = I Else: k = 10 End If For n = 1 To k Rnk = WorksheetFunction.Large(temp, n) If Cel.Value = Rnk Then If n >= 1 And n <= 10 Then xx = Choose(n, "الاول", "الثانى", "الثالث", "الرابع", "الخامس", _ "السادس", "السابع", "الثامن", "التاسع", "العاشر") trb = xx Else trb = "" End If End If Next '================= m = WorksheetFunction.CountIf(Range(Rang.Cells(1, 1), Cel), Cel) If m > 1 And Cel.Value >= Rnk Then MK = " مكرر" Else MK = "" End If '================= RRank = trb & MK End Function

السلام عليكم تفقيط محدث بدالتي جديدتين واحدة للعربي ArbNum2Text وأخرى للإنجليزي EngNum2Text وتم الفصل بينهما بعد إن كانتا في دالة واحدة وذلك لوجود فرق في عدد المدخلات تصل إلى 4 مدخلات . والتحديث الآن تركز على تسهيل استخدام الدوال وخصوصا العربي مع استخدام المدخلات الإختيارية والتي كانت سابقا كلها مدخلات مطلوبة . لي ملاحظة واحدة فقط وتحتاج إلى آرائكم وهي تفقيط الكسر للدالة الإنجليزي وخصوصا أن الدالة تبدأ بالعملة أولا ثم تحويل الأرقام إلى حروف وعند الكسر يكون العكس ، الشيء الذي لا يروق لي .. فمن له دراية بالموضوع أرجو التكرم بتقديم مالديه من معلومات ولكم جزيل الشكر سلفا . الكود معمول لللأكسس والأكسل معا . تحياتي . الملفات المرفقة Num2Text20030725.zip ( 74.73ك ) عدد مرات التنزيل: 626

من كل تطبيق مثل الوورد مثلا يمكنك معرفة مكان الملفات من File options save auto-recover file location و الذهاب للمجلد و حذف الملفات

تفضل ...... Private Sub Command8_Click() DoCmd.GoToRecord , , acNewRec If Me.NewRecord Then Me!ID = DMax("id", "MytableName") + 1 End If End Sub ................

السلام عليكم مطلوب تجربة هذا الكود وملاحظة النتائج : Sub test2() Dim K As Long For K = CLng(#8/16/2003#) To CLng(#8/22/2003#) MsgBox Format(K, "dddd") & Chr(13) & _ "الإفتراضي " & Weekday(K) & Chr(13) & _ "المطلوب " & Weekday(K, vbSaturday) Next K End Sub تحياتي .

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

مثال مفيد ومهم تجميع الأخ فهد الدوسرى وسرح الأستاذ أبو هاجر __________.zip

3-2 إستعلامات الاختيار - 1 Select Queries - Part1 فى هذا الموضوع ستبدأ بإذن الله الحديث عن أول و اهم انواع الاستعلامات ،ـ و الاكثر استخداما الا و هو استعلام الاختيار Select Query و سنخصص له حلقتين بإذن الله و هذه اولاهما و محتوياتها كالتالي : إنشاء استعلامات الاختيارمن وضع التصميم Creating Select Queries From Design View وضع عرض البيانات Datasheet View ترتيب السجلات Sorting Records وضع الشروط Conditions لقيم المستنتجة و اجراء الحسابات استخدام دالة داخل الاستعلام Using a Funcion in the Query تجميع أو تلخيص البيانات Grouping Records و الموضوع من هنا و المثال من هنا

الموضوع من هنا