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

تفضل أخي @salah.sarea ، هذا الكود لإضافة كلمة تحددها في النموذج الى جميع السجلات في الجدول الذي تختاره ، طبعاً باستثناء حقل الترقيم التلقائي :- Sub AddWordToAllFields() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim strTable As String Dim strWordToAdd As String Dim fld As DAO.Field strTable = Txt_Tbl.Value strWordToAdd = Txt_Search.Value Set db = CurrentDb Set rs = db.OpenRecordset(strTable) For Each fld In rs.Fields If fld.Name <> "ID" And fld.Name <> "RecordID" Then strSQL = "UPDATE " & strTable & " SET " & fld.Name & " = IIf([" & fld.Name & "] Is Null, '" & " " & strWordToAdd & " " & "', [" & fld.Name & "] & '" & strWordToAdd & "')" db.Execute strSQL End If Next fld rs.Close Set rs = Nothing Set db = Nothing MsgBox "تمت إضافة الكلمة بنجاح إلى جميع الحقول في الجدول" End Sub Add_Word.accdb

من منتدى قسم الاكسيل نحيكم🤗 وندعو الله لكم ان يجعلها في ميزان حسناتكم يوم القيامه هنحتاج نسخه ٦٤ بت كمان علشان السرعه تكون عاليه شويه

يا هلا استاذ قاسم وكل عام وانتم بخير وسوف احمل المرفق يا هلا استاذنا وكل عام وانتم بخير الحقيقة ان الاولى يعدها اكسس 0 اما البقية فلا يعدها اكسس ونحتاج عند عد احرف الحقل الى استخدام nz حتى لا نحصل على رسالة خطأ الحقيقة ان ⬇️ مجرد تفكير بصوت مرتفع ومع ذلك اعتز بمداخلتكما اخونا الشايب

استاذ @محمد سعيد رشاد اذا كان طلبك مهم ارسل القاعدة . لدي البرنامج مفعل .

اقدم لكم برنامج مطعم كلاسيكي مفتوح المصدر. به بعض الكودات من أعمال بعض المنتسبين بمنتدانا (أفسينا)..... (به 33 طاولة طعام + دليفري + تيك أواي) ....والمهتم سيكتشف مابه ....... وأي استفسار أنا حاضر . اليكم لينك المرفق . https://www.mediafire.com/file/j0qasl6mlv1ju3x/CoffeShop.rar/file

رأيي مع استاذي @ابوخليل جدول الانتظار فيه حقل yes/No وسوف يظهر فقط الفواتير في حال الانتظار ولانحتاج الى جدول اخر لالحاق البيانات ...الصور ادناه توضح المطلوب 1- 2- 3- استرجاع من الانتظار :عند الضغط على حقل اختيار تفتح لنا القائمة برقم الطاولة ..اما ان نضيف لها او نغلقها

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

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

السؤال يمكن أن يكون قليل الشرح، هل الجدول ممتلئ بالبيانات ام فارغ؟ ، ماذا لو أدخلت تلك الكلمة في القيمة الافتراضية في الجدول؟؟ بعدها كما تقول لنفترض انك كتبت كلمة،، بيت،، في النموذج ليحول ذلك الحقل في الجدول الي كلمة،، بيت،، وبعدها أردت كتابة كلمة،، سيارة،، سيحول كل الحقل الي الكلمة الجديدة،، سيارة،، ولن يبقى لكلمة،، بيت،، اي أثر، ارجوا ان اكون وفقت في إيصال الفكرة، تحياتي 🌹🌹

ربما اخذ الموضوع اكبر مما يستحق ولكن "" لا تعني ان الحقل فارع وانما يحتوي سلسلة ذات طول صفري ولتاكيد ذلك نغير خصائص الحقل الى السماح بطول صفري = لا عندها لو اردنا استخدام ⬇️ فسوف نحصل على رسالة خطأ في "" وكذلك empty اما الخيار الاوسط null فسوف يعمل اخونا الشايب

اضافة لما تفضل به استاذي @ابوخليل رغم انه معمول به في بعض المطاعم وهو نغيير الفاتورة مع اضافة كل طلب في رأيي المتواضع ..وضع زر نسميه (اضافة الى الانتضار يقوم فتح نافذة برقم الفاتورة(او رقم الطاولة) والوقت وهذه النافذة تقوم بالحاق رقم الفاتورة (ورقم الطاولة) والوقت الى جدول نسميه جدول الانتظار زر اخر نسميه (استرجاع من الانتظار) يكون مصدر بياناته من استعلام جدول الانتظار الذي فيه حقل اضافي yes/No الذي نجعل المعيار له false ليظهر لنا ارقام الطاولات في حال الانتظار فقط ..وحينما نعلم على رقم اي طاولة ستفتح لنا الفاتورة برقم الطاولة التي نريد الاضافة عليها او غلقها نهائيا ولو انك تعمل فاتورة بسيطة يمكن العمل عليها افضل من الشرح..

فكرة حسب تصوري الافضل تستبعد فكرة المربعات عند تصميمك لأن الطاولة عبارة عن رقم يدل على صاحب الطلب صورة العمليات تتم كالتالي : المطاعم الكلاسيكية العادية : النادل طلب من المحاسب تسجيل عصير للطاولة 1 ... المحاسب ادخل المعلومة وطبع فاتورة بالمطلوب مع رقم الطاولة الى معد الوجبات النادل اخذ الطلب من المعد واوصله الى طاولة واحد ........................ طلب اضافي من طاولة 1 ... 2شاي يذهب النادل الى المحاسب ( وتتكرر العملية ) ................... عند الانتهاء ياخذ النادل الفاتورة النهائية (فاتورة العميل ) ................................................................................................................ المطاعم السريعة : والتي تتيح الاكل داخل المطعم هذه يمكن ان تعمل المربعات لأن الدفع مقدم والطاولة يختارها الكاشير بناء على المتاح ...................... ومؤكد ستجد افكارا اخرى من الأجبة الزملاء

السلام عليكم ، شبابكم وشيابكم 🙂 اسمحوا لي ان ادلو بدلوي: بما ان الاكسس عبارة عن 3 برامج مدمجة في برنامج واحد: واجهة الاكسس وكائناته ، جداول الاكسس ، وبرمجة VBA ، فالنقاش اعلاه يخلط بينهم. وطريقة معرفة طول حرف بيانات الحقل: وبدلا عن استعمال مجموعة اوامر لمعرفة اذا الحقل به معلومة او Null او "" او Empty استعمل سطر واحد if len(me.txt & "")=0 then وهنا شرحت موضوع الـ NULL جعفر

وعليكم السلام ورحمه الله وبركاته لا يوجد في الفورم الخاص بك Me.ComboBox2.Text عدلها الى Me.ComboBox1.Text

حسب علمي أن المتغيرات من نوع string لا تقبل القيمة Null بل تقبل القيمة "" .. ولا أدري إن كان ذلك ينطبق على الحقول النصية في الجدول أيضا .. Null تقبلها المتغيرات من نوع var Empty تقبلها المتغيرات من نوع object 🙂

تفضل الترقيم حسب طلبك ترقيم مع السنة2.rar

اعتقد كمرحلة اولى عمل جدول للصادر وجدول للوارد وجدول للاقسام والمشاريع والمقاولين

القيمة Null هي قيمة غير معروفة أو مفقودة لذلك نستخدم معها الدالة Null Zero (nz) لتعود لنا بقيمة معلومة يتم تحديدها أو كما تفضلت بالقيمة "" والتي قد تساوي 0 . اما Empty فهي باعتقادي للدلالة على متغير لم يتم تحديد قيمته ( الكيس الفارغ المفتوح ) أي قيمة قابلة للتغيير .

من وجهة نظري وحسب فهمي لهذا الموضوع:- "" يعتبرها آكسيس سلسلة فارغة ( فراغ ذو قيمة ) لكنه لا يعتبر قيمة . Null يعتبرها آكسيس قيمة موجودة. Empty يعتبرها آكسيس قيمة لم تأخذ قيمة كأن تكون فارغة "" أو Null . كأن نقول لطالب :- كم تفاحة في هذا الكيس ( مع عدم وجود كيس ) الجواب ولا تفاحة. كم تفاحة في هذا الكيس ( مع وجود كيس فارغ مغلق ) الجواب ولا تفاحة. كم تفاحة في هذا الكيس ( مع وجود كيس فارغ مفتوح ) الجواب ولا تفاحة. يا رب ما أكون صعبتها بدل ما أسهلها 🤣

كلامك صحيح أخي @Eng.Qassim ، ولا شك فيه . الترقيم التلقائي لا تستطيع التغيير فيه ولكن مشاركتي كانت بهدف توفير الوقت لصالح الأخ @محمد سعيد رشاد عندما استرجع بياناته المحذوفة عن طريق برنامج مجاني ، ولكني وسعت الفكرة بجعلها حرة الاختيار للجدول والكلمة

تفضل أخي @محمد سعيد رشاد . إن كانت السجلات كبيرة وعددها كثير ، جرب هذا المرفق لحذف الكلمة التي تريدها دون التعديل على القيم أو التأثير عليها . اختر الجدول ثم اكتب الكلمة التي تريد حذفها من بين السجلات كود لجلب اسماء الجداول في قاعدة البيانات ، وإدراجها في الكومبوبوكس :- Private Sub Form_Open(Cancel As Integer) Dim db As DAO.Database Dim tbl As DAO.TableDef Dim strTableName As String Me.Txt_Tbl.RowSource = "" Set db = CurrentDb For Each tbl In db.TableDefs If Not (tbl.Name Like "MSys*" Or tbl.Name Like "~*") Then Me.Txt_Tbl.AddItem tbl.Name End If Next tbl db.Close Set db = Nothing End Sub والكود الرئيسي هو البحث عن الكلمة التي تم ادخالها في مربع النص ، ومن ثم حذفها :- Sub DeleteWordFromAllFields() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim strTable As String Dim strWordToDelete As String Dim fld As DAO.Field strTable = Txt_Tbl.Value strWordToDelete = Txt_Search.Value Set db = CurrentDb Set rs = db.OpenRecordset(strTable) For Each fld In rs.Fields strSQL = "UPDATE " & strTable & " SET " & fld.Name & " = Replace([" & fld.Name & "], '" & strWordToDelete & "', '')" db.Execute strSQL Next fld rs.Close Set rs = Nothing Set db = Nothing MsgBox "تم حذف الكلمة بنجاح من جميع الحقول" End Sub Delete_Word.accdb

مع انك لم تعطي السؤال كاملا، ولكن ومن ملاحظتي للبيانات، الظاهر انك استعملت برنامج تجريبي لإسترجاع البيانات، فترك بصمته على بياناتك. جعفر

بالتأكيد.. في استعلام mtb1 ...اعمل المعيار تحت الحقل ts هكذا: <=[Forms]![Form1]![txtP]

وعليكم السلام 🙂 مشاركة مع اخوي @Foksh 🙂 هذا كود تفريغ حقل البحث، اذا كان النقر على زر البحث: Me.Txt_Search = "" او Me.Txt_Search = Null او Me.Txt_Search = Empty ثم Me.Txt_Search.Setfocus . اما اذا لم يوجد زر بحث، وكان الكود يعمل البحث على حدث "بعد التحديث" لحقل البحث ، فيجب ان ننقل التركيز على اي كائن في الموذج يقبل التركيز، ثم نستعمل الكود اعلاه ، هكذا مثلا: دائما في نماذجي عندي زر لغلق النموذج اسمه cmd_close فعليه يصبح الكود: me.cmd_close.setfocus Me.Txt_Search = "" او Me.Txt_Search = Null او Me.Txt_Search = Empty ثم Me.Txt_Search.Setfocus . جعفر

على فرض ان اسم مربع النص الخاص بالبحث Txt_Search : في حدث عند النقر اكتب هذا السطر Me.Txt_Search = "" Me.Txt_Search.Setfocus السطر الثاني لإعادة التركيز ( وضع المؤشر ) في مربع البحث.

هذا تجميع لأهم الدروس والمواضيع المميزة بالمنتدى ضم روابط المواضيع المثبتة من أعمال معلمينا الفضلاء ومبدعينا في صفحة واحدة .. وذلك من باب التجديد والتغيير وإعطاء مساحة اكبر للمواضيع المتجددة .. *********************************************************************** أولا : توجيهات للأعضاء الجدد في المنتدى ثانيا : طلب من جميع الخبراء وجميع الاعضاء النشطاء الذين يتصدون للحلول وإجابة السائلين *********************************************************************** القسم الأول : الجداول والاستعلامات: الاستعلام الجدولي والمعايير القسم الثاني : النماذج: شرح أداة WebBrowser 1 2 شاشة انتظر من فضلك !! | سلسلة مهارات في أكسس | 06 | توسيط النماذج داخل النافذة أو الإطار طريقة إبداعية لتغيير خلفيات جميع النماذج إعادة تسمية العناصر الكثيرة دفعة واحدة في النموذج بأسماء متسلسلة مثل : ( Box2 , Box1 , ... ) ⭐ كيف تغير اللغة في برامجك ⭐ ✨💻 صفحة رئيسية متطورة بقائمة جانبية وأزرار فرعية ⭐ التحكم الكامل فى واجهة اكسس ( تصغير بجوار الساعة - توسيط - اخفاء - تغيير أيقونة شعار أكسس ) القسم الثالث : التقارير: مسقط التقارير او صانع التقارير انشاء شريط طباعة للتقرير القسم الرابع : الماكرو والوحدات النمطية VBA: إنشاء دروس VBA أكسس كشكول VBA ترجمة النصوص وتحويلها إلى صوت في vba باستخدام جوجل ( تجارب وفوائد ) :: دالة لحساب أيام الحضور والغياب .. وفكرة عد القيم النصية في حقول السجل الواحد :: اجعل برنامجك يعمل على النواتين 32بت و 64بت اجعل برنامجك يعمل على النواتين 32بت و 64بت _ طريقة ثانية شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( FileDialog ) شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( FileDialog ) شخابيط وافكار : اليوم اقدم اليكم منفعة لا غنى عنها (ImmediateWindowHelper) تفقيط عام متعدد : تحويل الارقام وقيمة ارقام العملة أو ( عملات متعددة ) الى نص مع التفقيط باللغة العربية ولغة اخرى منتقى التواريخ "Date pickers" القسم الخامس : قواعد البيانات SQL وما يتعلق بها: أكسس و اسكيوال سيرفر Access with Sql Server الأكسس و SQL جُمل SQL مشاركة قاعدة البيانات على الانترنت بواسطة SQL Server [تطبيق] تحويل قاعدة بيانات اكسس الى SQL Server (الجزء الاول _ الجزء الخامس) ربط الاكسيس ب php القسم السادس : البرامج والأدوات والإضافات: إدارة الجداول المرتبطة ، أداة وشروحات نظام مراسلة واشعارات شبيه بالفيس بوك معالج بحث وتصفح مسقط التصفح كارنيهات باستخدام باركود ماتركس - QR code محاكاة برنامج واتساب بالاكسس .. هدية لاوفيسنا القائمة المختصرة - Shortcut menu ارسال رسائل whatsapp (وتساب) بدون حفظ الرقم رسائل whatsapp (وتساب) في اكسس رسائل whatsapp (وتساب) بدون حفظ الرقم ( الكاتب الذكي لدوال المجال في أكسس Dloockup, DCount, DMax, DMin, Dfirst, DLast , DSum, DAvg) ⭐⭐(( مكتبة الأكواد الخاصة )) :: الإصدار الثاني 2.0 ⭐⭐ ، /// ، مكتبة الأكواد الخاصة | سلسلة هدايا الأكسس | 04 | 🎁 - 📟 آلة حاسبة 📟 - هدية مميزة مفتوحة المصدر 🎁 🖌️✏️👨😉🧑‍💻 ... برنامج دردشة بين المستخدمين على الشبكة ... 👨‍💻🧑‍💻✍️😊✏️🖊️ 🎁 :: هديتي لكم :: 🌷📨 >> برنامج مرسال الواتسأب - مع المرفقات - << ✉️ 🙂🌷💌 🎁 :: مرسال الواتسأب :: 📨 :: الإصدار الثاني 2.0 :: مطور :: 🧬🏹 🎁 هدايا الأكسس ✨ | 03| زاد المثابر للحصول على أسماء العناصر في أكسس | أداة رائعة للمطورين 🧛🏻‍♂️ [الاصدار الثاني] ارسال رسائل جماعية لعدد x من المستخدمين على الواتس اب في الاكسس هدية: برنامج تصدير بيانات من جداول/استعلامات اكسس الى اكسل ، 32بت و 64بت هداء لكم برنامج بسيط للديون والسداد 🟢 واتساب ويب web.watsapp 🟢 هدية : تصدير كائنات دفعة واحدة الى قاعدة أخرى أو حسب إختيارك 🧮 الكاتب الذكي لدوال المجال |::| 📜 نسخة مطورة ومحدثة |::| 😊 الإصدار الثاني 2.0 ⭐ كيف تغير اللغة في برامجك ⭐ القسم السابع : الأفكار والنصائح والتوجيهات: مواضيع مهمة .. قراءة وتفكيك بيانات الحقل الى حقول تطبيقات وأفكار وتلميحات تخفيض امان windows وتسجيل المكتبات عند تنصيب البرامج هام لمطورى ومصممى قواعد البيانات إنتبهوا حتى لا تواجهوا مشاكل مع العملاء خلاصة الأقوال .. حول مسائل الحماية 🔒🔑💪🏻 القسم الثامن : مواضيع متنوعة: ملف للبحث عن المواضيع في هذا المنتدى بعض المواضيع المتميزة والمهمة ( 8 ) الحماية برقم القرص الصلب والمعالج واللوحة الأم شرح أكسس 2003 - 2007 - 2010 - 2013 ( صوت وصورة ومرفقات ) رفع نسخة احتياطية على السحابة (google drive) ::💡 أفكار وفوائد 💡:: أسهل طريقة لعمل مربعات صح ✔ أو خطأ ✘ بالحجم واللون الذي تريده ❌☑️✔️✅❎ ⭐⭐ طريقة إبداعية لتحديث نسخة الواجهات FE 🖥️ لدى المستخدمين بدون برامج أو أدوات خارجية 😊👌⭐⭐ رمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية: ------------------------------------------------------ 1. https://www.officena.net/ib/topic/112126-موضوع-مهم-للنقاش-ماهو-مستقبل-الاكسس-بعد-تطبيق-المرحله-الثانيه-للفاتوره-الاكترونيه/ 2. الموضوع والمرفقات النهائية لرمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية 3. https://www.officena.net/ib/topic/112589-مكتبة-الموقع-الفاتورة-السعودية-المبسطة/ --------------------------------------------------------------------------------------------------------------------------------------------------------------- القسم التاسع : الدروس والشروحات والمشاريع : طريقة /اضافة صوت للاكسس مع التحكم فى (الايقاف/التشغيل) للصوت تصميم قاعدة بيانات احترافيه لإدارة يوميات وشئون العاملين