Eng.Qassim

الموضوع ليس بالامر الصعب في اكسس لكنه يحتاج الى وقت خاصة انك لم تحاول جهدا عمل قاعدة البيانات 1-تحتاج اولا لعمل جداول عديدة ...مثلا جدول (حالة الفاتورة).. جدول (نوع الفاتورة).. جدول (المشترى) يتظمن اسم المشتري والرقم.. جدول (مخزن الصرف) يتظن اسم المخزن و رقمه..جدول (المنتجات) يتظمن رقم المنتج واسم المنتج..وهكذا 2- جدول رئيسي يتظمن جميع الحقول المذكورة في شيت رقم 2 لتعمل منها نموذج single form وتعمل كومبوبوكس للحالات التي ذكرتها في اعلاه لاختيار البيانات منها ..ماعدا مثلا كميه الفاتورة و كمية الطلب و هكذا هذه يمكن عملها بواسطة الاستعلامات المهم اعمل الجداول اولا وستجد الكثير من الاخوة ممن يقدمون الدعم والمساعدة ملاحظة : حاول ان تكون مسميات الجداول والحقول باللغة الانجليزية تحياتي...

وعليكم السلام 1-ربما هناك مشكلة تواجه Office 2016 مع اصدارات ال Windows الحديثة... حاول الترقية الى Office 365 2- جرب الكود التالي في حدث عند التغيير للكومبوبوكس ولاحظ هل يحدث تغيير عند الفلترة؟ Private Sub ComboBox_Change() Me.ComboBox.Dropdown End Sub

السلام عليكم.. بعد اذن اساتذتي الكرام @Barna ... والاخ العزيز الاستاذ محمد عصام @ابو جودي الذي تمنيت ان اراه في مصر الحبيبة لاني كنت هناك قبل عدة ايام على كل حال... اخي العزيز @كريمو2... الخطأ يظهر لان حقل تاريخ المنحة فارغ او Null ضع الكود التالي للتحقق من فراغ حقل التاريخ: ' التحقق من منحة الحج f = DCount("year(Menha_Date)", "Mena7", "EmployeeID=" & Me.EmployeeID) If f >= 1 And Me.Menha_ID = "11" Then If IsDate(Me.Menha_Date) Then MsgBox "هذا المنخرط (ة) استفاد بمنحة الحج لسنة : " & Year(Me.Menha_Date), vbExclamation, "تنبيه" Else MsgBox "يرجى وضع التاريخ في حقل تاريخ المنحة.", vbCritical, "خطأ" End If Me.Undo Exit Sub End If تحياتي للجميع

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

السلام عليكم... شاهد هذا الفيديو ..قد تجد فيه ما ينفعك

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

نعم استاذ ..في تلك الحالة سوف لن يتم ادخال الرقم الى الجدول المرتبط 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