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

شوف هذا راى ولك طبعا مطلق الحرية انا عن نفسى افضل استخدام اسماء الجدول بالطريقة الاتية tblOfficenaForms ممكن حد تانى يحبها كده tbl_Officena_Forms انا وضعت دالة لتحويل اول حرف من كل مفطع الى حرف كبير وباقى الاحرف صغيرة وترطت للمستخدم حرية الاختيار فى موضوع ال Under Score وطبعا انا اسف انا غلط فى كتابتها على النموذج بالشكل Use ChkUnder Score لانها مفروض كانت تكون Use Under Score و\بعا جمبها او تحتها تلميح لتوضيح الوظيفة بس وقتها كنت خلاص رايح الشغل وضيق وقتى خلانى اقع فى المشكلة الالولى اللى اظهرت الرسائل مع اكثر من حقل طبعا انا اول التعديل كتبت الكود بصراحة ان تكون النتيجة بالشكل التالى tblOfficenaForms وبعدين فلت ليه افرض رأى فى الكود ولذلك فكرت فى استخدام Optional علشان اسيب للجميع حرية الاختيار وعدلت الكود تانى على هذا الاساس لاحظ كده فى الفترى الاخيرة تحديدا كل ما اقدمه احاول بقدر الامكان تحقيقة باكبر قدر ممكن من المرونه حتى وان تطلب هذا جهدا فى التفكير وانشاء وترتيب الافكار فى الكود وان ذادت اسطر الكود لا ابالى شوفت مرفق لعبة الكلمات المتقاطعة ؟ من هنا كنت عاملة بسيط من زمان جدا جدا على سبيل التسلية وقتها ولم اكمل العمل ولكن بعد مشاهدتى لموضوع الاستاذ @Moosak صحى الطفل اللى جوايا وذكريات الماضى لانه كنت و والدى رحمه الله تعال وكل المسلمين يوميا نلعبها فى الجرائد ونلعب ونضخك وقت الافطار بعد صلاة الفجر و وقت الشروق ولكن بصراحة لانه احبه جدا فى لله قلت اعاكسة ويلا بقى تحدى.... طبعا امزح انه اخى الحبيب ولكن انا تعلمت الكثر بسبب فقط عاصفة الافكار التى اجتاحتنى وقتها

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

بناءً على إقتراحات أستاذي وصديقي @Moosak ، والتعديلات التي تقدم بها صديقي وأستاذي @ابو جودي ، تم دمج وإضافة تعديلات جديدة أرجو أن تنال رضاكم وإعجابكم . تم إضافة ميزة أن يكون في الجدول أكثر من حقل مفتاح أساسي . تم إضافة ميزة التعديل على الحقول أو حذف أحد الحقول قبل إنشاء الجدول من خلال زر " تعديل الحقول " ، وبعد إجراء التعديلات انقر زر " تأكيد التعديل ". تم دمج ميزة حرية إضافة " _Tbl " الى اسم الجدول عند انشائه ( فكرة الأستاذ أبو جودي مع إجراء تعديل بسيط ) - إختياري . تم دمج ميزة أن يكون أسماء الجداول والحقول ( الإنجليزية ) تبدأ بحرف كبير Capital Letter . تم إضافة ميزة فتح الجدول بعد انشائه لرؤية النتيجة أو لإدخال البيانات - إختياري . تم إضافة زر " مفتاح أساسي " لتمكين المستخدم من اختيار الحقول التي يريدها أن تكون مفتاح أساسي . تم إضافة زر " إضافة حقل " لإضافة حقل جديد . تم تعديل التصميم بشكل بسيط ليتناسب مع محتوياته والميزات الجديدة . ✔ لا حاجة لأي مكتبات أو مديولات عند نسخ النموذج لمشروعك والبدء بالإستفادة من ميزاته . ✔ أتطلع لأي أفكار جديدة أو اقتراحات TBL Maker.accdb

قال مش داخل تاني قال ههههههههههههه وفين ألاقي ناس طيبة متل الناس اللي هنا على العموم انا بتعامل معاكم والله كأنكم أخواني وأصدقائي ليس إلا .. بحترمكم وبقدركم وبقدر جهودكم وتعبكم .. على العموم نرجع لموضوعنا وأنا حالياً عدلت وطورت فكرتي وبنيت على فكرتك تعديلات بسيطة ولكن استثنيت Use ChkUnder Score . وأرجو إبداء الرأي في المشاركة التالية حال الإنتهاء من اللمسات الأخيرة , كما أرجو تثبيت التحديث في أول الموضوع

Function MBSerialNumber2() 'الحصول على سيريال المازر بورد بدون اعطاء اسم الكمبيوتر Dim V, vName, vUUID With GetObject("winmgmts:\\") For Each V In .ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", , 48) vName = V.Name vUUID = V.UUID Next V End With MBSerialNumber2 = vName & ", " & vUUID End Function

السلام عليكم ورحمة الله وبركاته الحمد لله حمداً كثيراً طيباً مباركاً فيه الأخوة والأخوات الكرام أقدم إليكم هذه الأكواد وهي تقوم بقراءة أي جدول تقوم بتحديده وتصنع لك كود برمجي يمكنك من إعادة إنشاء الجدول مرة أخري بنفس المواصفات مصدر هام لإضافة المزيد https://learn.microsoft.com/en-us/office/client-developer/access/desktop-database-reference/field-type-property-dao Convert_Table_To_Vba.zip

راااااااائع ما شاء الله عليك مستر @Foksh 😊👌🏻 تطور وإبداع وتميز 🙂 باقي عندك نقطة التعديل .. عند الضغط على زر التعديل تتجمد الحقول ولا يمكن التنقل بينها ( يتسمر على الحقل الأول بس ) لا يروح السابق ولا التالي 😅🖐🏻

ايوه يا معلم الابداع والتشويق اهو

أخونا @خالد الماجد 2 ، أهلاً بك معنا في عالمنا المتواضع ,, ويسعدنا انضمامك لأسرتنا الكبيرة بمنتسبيها اختيار أفضل إجابة يكون للشخص الذي كانت إجابته ومساعدته والحل الذي طرحه في الموضوع الخاص بك ، وليس لصاحب الموضوع متمنياً لك أن تجد دائماً إجابة لأي سؤال أو مشكلة تواجهها . شكراً لك

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

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

حيلك حيلك يا عم انت رايح فين هههه فرمل و وقف وخد نفس ؛ إنت ما صدقت يا سيد بمزح والله يا محمد مش قصدي كل اللي خطر في بالك مش قلتلك من زمان ما نكشتكش وهزرت معاك هههههههههه

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

ماشي يا عم .. بيظهر في المواقع التالية :- 2. وجاري التعديل في نسخة جديدة محسنة بناءً على فكرتك إذا ما عندكش مانع لا سمح الله

اللهم آمين يا رب العالمين ،، أشكرك والدنا الحبيب ومعلمنا يا أهلاً بالتعديلات ,, نورتني يا غالي ويسعدني لمساتك الفنية فكرة جميلة أيضاً إضافة الوصف لكل حقل ، وأيضاً Use ChkUnder Score شكراً يا صديقي .. اللهم آمين يا رب العالمين , ولكم جميعاً مروراً وحضوراً النصيب الأكبر من الدعاء لكم و لوالديكم ولأمه محمد أجمعين

يمكنك جلب اخر قيمة على الليست بوكس باستبدال هده السطور tb = sum1 - sum2 TextBox1.Value = Format(tb, "#,##00.00") وجعلها هكدا With Application sum3 = .Max(.Index(Me.ListBox1.List, r, 9)) ' الرصيد الختامى End With TextBox1.Value = Format(sum3, "#,##00.00") Copy of كشف حساب عميل -V4.xlsm

مشاركة معكم تفضل استاذ @خالد الماجد 2 طريقتي لطلبك تفضل الشرح والمرفق .ووافني بالرد . DDTestChangeButtons.rar

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