Eng.Qassim

الف مبروك استاذ @سامي الحداد بالتوفيق يارب ولجميع الاخوة

استاذ احمد ممكن تفتح موضوع حول هذا الموضوع وسأتفاعل معك ان شاء الله مع مساعدة الاساتذة لان موضوع الاخ صاحب المشاركة ليس فيه حساب العلاوة والترفيع بشكل اوتماتيكي حسب مدة الخدمة واحيانا تضاف له كتب الشكر والتقدير وغيرها

عن اذن اخي واستاذي @Barna اجعل مصدر البيانات هكذا =DCount("[name1]";"1_1";"[a1]='حاضر'")

وعليكم السلام.. المفروض في سؤالك ان تحتفظ بالرقم المتشابه الاول ولنفرض اسم الحقل ID في الجدول1 1-أعمل جدول2 لالحاق البيانات من الجدول1 الى الجدول2 حتى تحتفظ بالسجلات الاصلية ..حيث تعمل استعلام الحاق بذلك نسميه App_Q 2- اعمل استعلام من الجدول1 ولنسميه مثلا DUPE_Query 3- نعمل موديول لحذف الارقام المكررة بهذا الشكل Sub DUPE_REMOVAL() 'مسح الارقام المكررة من الجدول Dim db As DAO.Database Dim rst As DAO.Recordset Dim ingID As Long Dim ingIDLast As Long Set db = CurrentDb Set rst = db.OpenRecordset("DUPE_Query") ingIDLast = 0 Do Until rst.EOF ingID = rst!ID If ingID = ingIDLast Then rst.Delete End If rst.MoveNext ingIDLast = ingID Loop rst.Close Set rst = Nothing Set db = Nothing End Sub 4- اعمل نموذج مع كمبوبوكس مصدر الصف له من الاستعلام DUPE_Query 5- في حدث عند التحميل للنموذج ضع الكود التالي DoCmd.SetWarnings False DoCmd.OpenQuery "App_Q" DoCmd.SetWarnings True Call DUPE_REMOVAL

اشكرك اخي واستاذي @ابوبسمله ..رغم اني مطلع على المثال لكني اريد التطوير عليه بأعباره جزء من الحل اما ماتفضل به عزيزنا وولدنا الغالي استاذ موسى @Moosak فهو يعتبر الواجهة المعمارية ..جزاه الله خيرا ما افكر به استاذ موسى ...ان الكاشير يفتح لكل طلبية فاتورة (طبعا الفاتورة عناصرها غير منظمة لاحتمال الغاء الفاتورة)..تبقى تلك الفواتير مفتوحة ربما 10 او 20 فاتورة لحين تسديد الفاتورة تغلق تلك الفاتورة ليتم نقل البيانات الى الجدول ..ثم تأتي بقية الفواتير تباعا .. لا اعلم لماذا فكرت بهذه الطريقة ..ربما لان كل مطاعمنا في العراق ماعدا الوجبات السريعة يكون الدفع بعد تناول الطعام وليس قبله منتظر ابداع الاخ @rockjone33 اسف جدا لتاخري عن الاجابة بسبب انشغالي هذه الايام

السلام عليكم ... اخوتي واحبائي في الله اعضاء واساتذة هذا المنتدى الكريم .. تعلمت بعض من الاكسس من هذا المنتدى الحبيب ومما قرأته من بعض الكتب على سبيل الهواية ولم تكن البرمجة بابا من ابواب الرزق لي ..ربما بعد التقاعد 😂 خطر في بالي اليوم سؤال ... لو كان لي مطعم مثلا وبعدة طوابق ..وكل طابق يحوي مثلا على 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