Eng.Qassim

فيديو جميل .....شكرا لمجهودك وجزاك الله خيرا

نعم استاذ ..في تلك الحالة سوف لن يتم ادخال الرقم الى الجدول المرتبط Private Sub genu_BeforeUpdate(Cancel As Integer) If Left(Me.genu.Value, 2) = "17" Then MsgBox "غير مسموح ادخال الرقم 17", vbExclamation, "ادخال خاطيء" Cancel = True Me.genu.Undo End If End Sub

الكود الذي اشار اليه استاذنا محمد عصام @ابو جودي يعمل على النواة 32 بت اما اذا اردت تحويله الى نظام يعمل على 64 بت ..في رأيي تعمل نسخة ثانية ..فتصبح الدالة كما يلي : Private Declare ptrsafe Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long 'طبعا هناك برامج متقدمة تستطيع فيها ان يعمل نفس البرنامج على 32 بت او 64 بت ..مثل #If VBA7 And Win64 Then 'x64 Declarations Private Declare PtrSafe Function apiGetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long #Else 'x32 Declaration Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long #End If تحتاج منك الاطلاع والقراءة ..وهناك الكثير في المنتدى مما تطيب لها نفسك تحياتي دكتور

استاذي العزيز @ابو البشر الفكرة جديدة علي ... وهو ابداع من حضرتك ...كيف ل abo1 ان يعد من جديد وهو غير مرتبط بأي شيء ؟ ممكن توضيح الفكرة لو سمحت

وعليكم السلام.. استخدم هذه الشفرة للزر المزدوج Private Sub cmd3_Click() If Me.cmd3.Caption = "مقبول" Then Me.cmd3.Caption = "مرفوض" Me.txt1.SetFocus Me.txt1.Text = "مقبول" ElseIf Me.cmd3.Caption = "مرفوض" Then Me.cmd3.Caption = "مقبول" Me.txt1.SetFocus Me.txt1.Text = "مرفوض" End If End Sub نسيت شغلة..قم بتسمية الزر cmd3 ..والتسمية التوضيحية "مقبول"

ماعندك الا العافية استاذ فادي

مرحبا بك استاذ @jo_2010 بالنسبة للمطلب الثاني ليست لدي فكرة عنه LAB_GOOD.rar

حول ملفك الى نسخة 2013 او اقل

حتى ينتقل المؤشر على نفس الحقل عند الضغط على انتر تجعل ال stop tab=yes والبقية تجعلها NO

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

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

بالتوفيق يارب

الاداة شغالة تمام ناجح.rar

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

وجدت هذا الملف في مكتبتي ..لكنه باللغة الانجليزية عسى ان ينفعك text date.rar

اعتقد هذه الطريقة تستخدم للملفات المحذوفة وليس الجداول (حصرا)

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

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

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

سؤال مهم وربما يسبب مشاكل في بعض الاحيان ارجو ملاحظة الاستعلامات لرؤية الفرق Null & Empty.accdb

عمل جميل استاذ @Foksh لكنه لايحدث ان كان المعرف ترقيم تلقائي

في البداية كان سؤالك هكذا !! وهذا ما عملت عليه... referenceNo يتغير حسب اسم المشروع ويبدأ بالعد من جديد في بداية السنة الجديدة

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

عودا حميدا استاذ جعفر @jjafferr رمضان مبارك وكل عام وانت بخير

مشاركة مع الاساتذة عملت جدول جديد تلافيا لعدم فهمي للجداول الموجودة ادخل اسم المشروع عن طريق الكومبوبوكس Memos.rar