ابوخليل

لا ينطبق على هذا معنى التكرار المتبادر للذهن فهو حقل لتبيين النوع مثله مثل الصف للطلاب لاحظ انك ستعمل جدولا خاصا بالفئات وما يمثله في جدول الاصناف هو رقم

الكود يعمل 100% ضع الكود في حدث الحالي للنموذج

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

وعليكم السلام انت صدرت الملف باسم ايضا الارسال يكون بالاسم نفسه بمعنى سيكون مسار الارسال هكذا : .AddAttachment CurrentProject.Path & "\saleh\" & Format(Date, "yyyy-mm-dd") & ".xls"

التعديل في نموذج district_customers انقر الزر يظهر العدد في الحقل text38

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

وفي جدول الغرف : مالفرق بين رقم 5 ورقم 7 ؟

السلام عليكم اخي الكريم تأكد ان الذين مروا من هنا اغلبهم يريد مساعدتك ولكن هذا برنامجك ولا يفهمه احد غيرك جداول مختلفة وحقول متشابهة وشبكة عنكبوتية من العلاقات واعتقد ان الافضل جعل الجداول الثلاث المسماة بحروف عربية جعلها جدولا واحدا بداية وقبل كل شيء وعندما نرجع الى مصنف اكسل يظهر ما تريد وهو تجميع احصائي ولتحقيق طلبك : أولا : عليك بضم الجداول التي تريد تجميع بيانانتها في في استعلام تحديد ثم : بواسطة هذا الاستعلام تعمل استعلام جدولي ثم : تعمل تقريرا مبني على هذا الاستعلام الجدولي

حسب علمي هذا هو الحل المنطقي

سلمت أناملك استاذ احمد تمت التجربة بنجاح 100% وقد تم تعديل السرعة الى الموضح ادناه وهو 0.2 حسب سرعة القارىء جزاك الله خيرا وجعله في موازين اعمالك Dim dblStart As Double Dim dblEnd As Double Dim dblTime As Double Private Sub txtTest_Change() If Len(txtTest.Text) <= 1 Then dblStart = Timer Else dblEnd = Timer dblTime = Round(dblEnd - dblStart, 2) If dblTime > 0.2 Then txtTest = "" MsgBox " عفوا ... لايمكن الإدخال إلا عن طريق قارئ الباركود" End If End If End Sub

عليكم السلام اخونا الكريم بداية لك منا دعوة طيبة فتفضل من هنا http://www.officena.net/ib/index.php?showtopic=41520 ثانيا سنوجهك ونساعدك بعون الله : يوجد بعض الاستفارات ارجوا الاجابة الوافية 1- كم عدد المساقات الكلي ؟ 2- كم عدد المساقات في اليوم الواحد ؟

جزيت خيرا اخونا احمد فضلا احفظ على صيغة mdb ثم ارفقه

الحمد لله ،،،

ظننت العشوائية من خلال كود مصنوع الآن اتضح السؤال المعذرة اخوي احمد لانتظارك وتأخيرك حقيقة لا اعرف الحل

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

الكود شغال 100% و (yourText) يعني اسم حقل الايبان الذي عندك للمعلومية يمكنك دائما حفظ المثال علي اي اصدار 2003 او 2007 ... من : ملف / حفظ ونشر وهذا مثالك بعد التعديل Wz.rar

ما فيه شي اسمه يترحل ليوم ثاني ! 1- الحركة مستمرة في الفرع (وارد وصادر ) 2- طباعة التقرير يوميا 3- في نهاية الشهر يكون عندك 30 تقرير ( يعني كشف حساب ) 4- في نهاية الشهر يتم اصدار تقرير مجاميع حسب الصنف 5- عند الجرد يتم اخراج تقرير مجاميع حتى ساعته لالحاق بيانات الفروع الى الرئيس يفضل الالحاق يكون على هيئة مجاميع وليس تفاصيل يتم اعداد جدول كخلاصة في كل فرع ثم يرسل الى الرئيس هذه اخي رؤية مجردة والافضل ان تستشير من هم قائمين فعلا على مثل هذه النشاطات

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

اكتب الايعاز التالي : DoCmd.CancelEvent بدلا من : Cancel = True ولا تنسى تجعل الحدث قبل التحديث

الامر مقدور عليه ان شاء الله ولكن اجبني : على اي اساس هذه التجميعة ؟ اللبن مع الزبادي والفول مع العدس هل التجميع حسب الفئة : الالبان ، الحبوب ، البقول .... او انك كتبتها من غير قصد وتريد ان تجعل كل صنف لوحده

جزاك الله خيرا ياطالب العلم تعديل بسيط على الكود جرب لعله ينفع If Len(yourText)<> 24 Then MsgBox " رقم الآيبان المدخل لا يساوي 24 رقم ", vbExclamation, "إنتبه " Cancel = True end if والا كما ذكر لك ارفق المثال على صيغة mdb

قد اجبت في مشاركتي السابقة لا يتصور ادراج اسم ومعرف جديد في جدول الرواتب الا بعد تسجيله وتسجيل بياناته في جدول الموظفين بل يستحيل ذلك !! واذا كنت مصرا على رأيك فانظر هنا كود خاص بمنع التكرار وقد كتبته الساعة http://www.officena.net/ib/index.php?showtopic=62576#entry405609

تفضل اجعل الكود في حدث قبل تحديث حقل تاريخ الحجز Dim i As Integer i = DCount("ID", "data2", "ID =#" & [تاريخ الحجز ] & "#") If i > 0 Then MsgBox "التاريخ محجوز" Undo Exit Sub

تفضل هذا ما استطعت الوصول اليه 2015_up.rar

اخي امين تحية طيبة المعذرة لم استطع التشخيص واالوصول الى المشكلة