Shivan Rekany

الف مبروك استاذ @kanory الى الامام

نعم تقدر وهو نفس العملية البحث العادي

القي نظرتا الى هذه الصورة رقم الفاتورة 3584 ما بها اي مشكلة المبلغ المدفوع 50 ما بها مشكلة المشكلة هنا هو في الحقل التاريخ ! كيف ؟ اذا تلقي نظرتا الى الدالة ستجد اننا استخدمنا حقل dete_add2 اي تاريخ الخصم في الدالة وهناك ليس فيها اي تاريخ و فاضية اي يجب ان نستخدم حقل dete_add لان فيها توراريخ اي انا استخدمه هذا الكود =Nz(DSum("[item_preis]";"tabol_sdad_mord";"[tabol_sdad_mord]![fatora_no]=" & [nofatora] & "And [dete_add] Between [Forms]![formm7]![snddate] And [Forms]![formm7]![snddate2]");0) والنتيجة واليك القاعدة بعد تعديل Database161_(1).accdb

انا حاولت ان انزلھ لکن ما اقدرت ... وبیعطي رسالە عفوا هناك مشكله . لمنتمكن من تحديد المحتوي الذي ترغب في عرضه كود الخطاء : 2S328/1 ممکن ترفقھ من جدید

اتفضل اليك هذا لاحظ يجب ان تكتب في النموذج رقم الفاتورة المطلوبة وايضا يجب ان تكتب تاريخين بداية والنهاية ولاحظ اذا تكتب تاريخ الاول وتأكد هل يوجد تاريخ بين تاريخين اللي تكتبه في الجدول ام لا Database161.accdb

الیک هذا Database2.accdb

اذاً اخبرني ماذا علي ان ادخل لكي احصل على 50 اي يجب ان اكتب رقم اي فاتورة و من اي تاريخ الى اي تاريخ لكي اعمل لك المطلوب بانتظار جوابك

اهلا وسهلا حضرتك تريد ان تعرف مبلغ المدفوع مثلا بين تاريخين ؟ هذا صحيح ؟ الكود السابق بيعمل ما تريد لكن بها شرط اضافي وهو رقم الفاتورة اي يجب ان تكتب رقم الفاتورة و من التاريخ الى التاريخ حتى يعطيك النتيجة لذلك حسب فهمي تريد بين تاريخين و الرقم الفاتورة هو شيء زيادة لذلك احذف ذلك الشرط و خليه بين تاريخين فقط هكذا =Nz(DSum("[item_preis]";"tabol_sdad_mord";"[dete_add2] Between [Forms]![formm7]![snddate] And [Forms]![formm7]![snddate2]");0) غير التواريخ الى شهر 5 مثلا ستجد انه بيحسب حقا Database161.accdb

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

السلام عليكم كل المشكلة يرجع لكود الحذف فقط انا عملت تغيير بسيط في الكود اي غيرت من هذا Me.B1 = "" الى هذا لكل مربعات Me.B1 = Null لان في كود الاضافة انك تستخدم كلمة IsNull اليك المرفق بعد تعديل New Microsoft Access Database - Copy (2).rar

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

افتح نموذج في وضع تصميم و حدد مربع idd وفي لوحة خصائص اختر اخرى اي Other وقم بتغيير خاصية Enter Key Behavior من New Line in Field الى Default اليك تعديل جديد New Microsoft Access Database.rar

اتفضل كان محتاج هذا السطر فقط Private Sub idd_AfterUpdate() Me.nname.SetFocus End Sub اليك التعديل New Microsoft Access Database.rar

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

اسف كيف ما وجدت الجدول والله يعلم اتفضل استخدم هذا =Nz(DSum("[item_preis]";"tabol_sdad_mord";"[tabol_sdad_mord]![fatora_no]=[nofatora]" & "And [dete_add2] Between [Forms]![formm7]![snddate] And [Forms]![formm7]![snddate2]");0) واليك نموذجك بعد تعديل Database161.accdb

اضف الى المرفق الجدول باسم Data لان هذه الجدول هو مصدر للنموذج اللي نشتغل عليه

اتفضل القي نظرتا الى مصدر كومبوبوكس 12خدمات.accdb

اذا احتمال هناك مشكلة في مكان اخر ... ارفق نسخة مضغرة من القاعدة

استخدم هكذا =Nz(DSum("[item_preis]";"tabol_sdad_mord";"[fatora_no]=" & [fatora_no] & "And [dete_add2] Between [snddate] And [snddate2]");"0")

والطريقة المختصرة اذا كان هناك محرر فيجوال تابع النموذج مفتوحة ( اي اذا فتحت من قبل محرر فيجوال تابع للنموذج ) Form_FrmName.ControlName.setfocus

اولا الحمد لله ثانيا : هذا يرجع لانك تستخدم نظام 64 وليس 32 وانا عطيتك مسار نظام 32 بت

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

هل قمت بنسخ ملف barcodex.ocx الى مجلد C:\Windows\System32 ؟ الرسالة بيقول تأكد من ذلك انسخه الملف الى ذلك المسار و قم بعمل اللي قلت لك في مشاركتي السابقة

نعم يجب ان تنسخه الى مجلد سيستم لكن بيظهر لك الرسالة و لا يتم التسجيل افتح Cmd كمدير اي اضغط عليه كليك يمين واختر Run as Administraror وبعدين اكتب هذا السطر regsvr32 "C:\WINDOWS\system32\barcodex.ocx" واضغط انتر هكذا

نعم اليك هذا الرابط https://access-programmers.co.uk/forums/showthread.php?t=134027 بها هذه القاعدة وفيها ما تريد ACC2000 Concept App 08-17.mdb