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

السلام عليكم كل عام وانتم الى الله اقرب التطبيق يحتوى على عدد 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

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

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

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

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

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

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

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

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

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

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

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

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

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

يا اخي المفروض تضغ مثالك حتى نعرف المشكلة بالضبط .... على كل حال انظر المرفق لا يتغير التنسيق ...... tt1.mdb

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

Private Sub Workbook_Open() Application.ExecuteExcel4Macro "Show.toolbar(""ribbon"",false)" Application.DisplayStatusBar = False ActiveWindow.DisplayWorkbookTabs = False End Sub عليكم السلام ضع هذا الكود فى ملف العمل الخاص بك و اذا اردت اظهار شريط الادوات و شريط الحالة قم بتغير False الى True

بل يعمل 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

تفضل الافقي يمثل الشهور والعمودي يمثل العدد New e.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 مثلا هذا و الله اعلى و اعلم

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

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

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

السلام عليكم ورحمة الله وبركاته أسعد الله اوقاتكم بكل خير وسعاده إن شاء الله لي سؤال : عملت برنامج حسب خبرتي البسيطه بالأكسس ولكن واجهتني مشكلة الا وهي : عملت نموذج الادخال من عدة نماذج والسؤال هو: كيف اربط بينهم أي أن : عند تسجيلي للطالب وعند دخولي لموذج والده او والدته او معيله اريد أن اشاهد بيانات الطالب نفسه موجوده امامي وليس اقوم بالبحث عنه 0 وايظاً اريد تعديل كود يوم وتاريخ تسجيل الطالب 0 :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: وطلبي الأخير ارجو منكم كرماً ان تعدلوا بالبرنامج وأن تدلوني على كيفية عمل ذلك لأكون على بينه فيما بعد 0 لا حرمنا الله منكم ... تحياتي والله يوفقكم ... :yess:

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته: تحية طيبة وبعد أريد أن أستعلم إن كان بإمكاني عمل استعلام باستخدام ال 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 و الموضوع من هنا و المثال من هنا

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

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