Eng.Qassim

السلام عليكم ... اخوتي واحبائي في الله اعضاء واساتذة هذا المنتدى الكريم .. تعلمت بعض من الاكسس من هذا المنتدى الحبيب ومما قرأته من بعض الكتب على سبيل الهواية ولم تكن البرمجة بابا من ابواب الرزق لي ..ربما بعد التقاعد 😂 خطر في بالي اليوم سؤال ... لو كان لي مطعم مثلا وبعدة طوابق ..وكل طابق يحوي مثلا على 20 او اكثر من الطاولات (تربيزة)... الكاشير يحتاج ان يفتح عدد من الفواتير ....ربما 20 او 40 بنفس الوقت ...ويبقيها مفتوحة لحين السداد وربما احتاج استدعي فاتورة بطاولة معينة للتعديل او الاضافة عليها ... ليس من المعقول ان اعمل 80 نموذج لو كان عندي 80 طاولة ! طبعا استطيع عمل اي فاتورة ثم الرجوع اليها عند السداد او تغيير الطلب ... لكني احس ان هذا غير احترافي عبر ازرار الرجوع سؤالي ..هل يمكن افتح نفس الفاتورة عدة مرات وحسب رقم الطاولة ...ثم عند دفع الزبون يتم حفظ الطلبيات في الجدول بصراحة انا لم اشتغل على البرنامج ...مجرد فكرة خطرت في بالي وسوف اشتغل عليها ان كانت هناك اي فكرة ... تحياتي لكم اساتذتي

اضافة لما تفضل به اخي استاذ خالد..لنفرض لديك جدول اسمه tblItems وفيه حقل ItemName ومربع النص لديك اسمه txtitem فيمكنك استخدام الكود التالي Dim sql As String Dim MyItem As String MyItem = Me.txtitem.Value If Not IsNull(MyItem ) Then sql = "INSERT INTO tblItems ([ItemName]) VALUES ('" & MyItem & "') CurrentDB.Execute (sql) Else MsgBox "ادخل اسم الصنف رجاء" Exit Sub End If

اضغط على افضل اجابة عزيزي لاني اعتبرها جزء من الشكر لصاحب الحل الذي بذل من وقته وفكره للدعم.. تحياتي لكم

فعلا جيل الطيبين استاذ خالد @مبرمج متقاعد

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

وعليكم السلام هل القاعدة مضغوطة ببرنامج ال WinRar مثلا ؟ لانه لايمكن الاضافة والقاعدة مضغوطة

اجعل التنسيق لحقل التاريخ في الجدول dd/mm/yyyy

طيب انت لي ماترفق مثال عشان تسهل عليك وعلينا ؟ كنت من الصبح بتلاقي الحل !!

وعليكم السلام بالنسيبة للحالة الاولى ضع الكود التالي في مصدر بيانات الكمية المخزنية بالمناسبة ..لايحبذ استخدام اللغة العربية حتى لا تحصل لخبطة في الاكواد جرب النتيجة ..والله كريم على النقطة الثانية =IIf(IsNull([اسم الصنف]);"";DLookUp("[الموجود في المخزن]";"الموجود في المخزن";"[المعرف] = " & [اسم الصنف].[Column](0)))

احسنت اخي استاذ خالد .. لم اكن اعلم ان هناك كنترول غير الازار كنترول الازرار حسب مايكروسوفت

في اغنية قديمة للرائع محمد الحلو ..بتقول عراف وداير انا بوشوش الاصداف...😂 طب اعرف الزاي دلوقتي برنامجك عامل ايه

هذا مايظهر عندي

الموجود لديك ليس ساعات العمل ..وانما توقيت الساعة المفروض ان تستخرج ساعات العمل والذي يساوي الفرق بين نهاية العمل وبداية العمل بأستخدام دالة datediff ثم تضرب الناتج في سعر الساعة .. الافضل ارفاق مثال للعمل عليه

ليست هناك مشكلة دكتور ..سطر الكود لديك بدون نهاية قوس الفكشن هو Function SetActiveControlColour() Dim ctl As Control For Each ctl In Me.Controls ctl.BackColor = RGB(150, 180, 215) Next ctl Me.ActiveControl.BackColor = vbYellow End Function

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

ماهو المعيار الذي تريد الحذف من خلاله؟ وعلى العموم وكما تفضل به الاستاذ موسى يمكنك عمل checkbox وتضغط على الخقول او السجلات التي تريد حذفها ..وفي استعلام الحذف تضع معيار = True تحت الجيك بوكس

اخي العزيز ..لايمكن تتبع الكود دون المثال حتى نعلم الحقول في النموذج الرئيسي والفرعي

وعليكم السلام قم بضبط ال horizontal Anchor للازرار اما لليمين او اليسار

افتح Form1 وادخل التاريخ ..ليفتح لك تقرير الغياب بين تاريخين __الفياب.accdb

اعمل تجميع للحقل ..Group By

بالتأكيد..لايمكن التجميع بتواريخ مختلفة ..ولهذا لم اضع التأريخ في الاستعلام

وعليكم السلام يرجى توضيح مطلبك بمثال بين 3 موظفين ...محمد ..علي ..خالد لنفرض ان محمد لديه مهمة بتاريخ 1/10.. علي لديه مهمة في 2/10.. خالد لديه مهمة في 3/10 المفروض ان المهمة الرابعة ستكون من حصة محمد ...هذا الذي فهمته مطاليبك تحتاج لتوضيح اكثر

وعليكم السلام .. انظر للاستعلام AbsentQ الذي يحدد عدد ايام الغياب لكل طالب لكني لم افهم البحث بين تاريخين ..حول اي موضوع تبحث ؟ هل تبحث عن الغيابات بين تاريخين ؟ __الفياب.accdb

وعليكم السلام بصراحة لم افهم ماتقصد استاذ ازهر ...مصدر بيانات النموذج هو الاستعلام ...مالذي تريده بالضبط؟

بعد اذن الاخ العريفي هل هذا ماتريده ؟ 77.rar