ابوخليل

سلمت أناملك استاذ احمد تمت التجربة بنجاح 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

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

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

اخوي حسين ارفق مثالك واجعله على الصيغة mdb

بالنسبة للشق الاول ستكتب الكود هكذا : a=Abs(b-c) سيرجع القيمة موجبة حتى لوكانت النتيجة سالبة

نحن بانتظارك وفقك الله لكل خير

هل تريد اظهار جميع البنوك في التقرير ؟ ام بنك واحد حسب الاختيار من نموذج FrmTransfer_Trésorie ؟

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

انت لم توضح مكان الخطأ ؟ حدد ما تريد وبشرح وافي لعلنا نتمكن من مساعدتك

اعمل حقل غير منضم ولنفرض اسمه text1 اكتب هذا الكود في حدث التحميل Private Sub Form_Load() text1 = myName End Sub

خفض امان اكسس الى الحد الادنى