المساعدة فى عدم تكرار البيانات فى نموذج الفرعى

**أكسس وبس** · نوفمبر 2, 2022

الاخوة الافاضل

فى المرفق نموذج فاتورة بيع Trans_out و نموذج paymentcuss متابعة تحصيل العملا يوجد مشكلتين

الاولى

فى نموذج Trans_out الخاصة بفاتورة المبيعات يوجد مربع نص غير منضم ddd الصافى ومربع نص منضم اسمه TotalAmount لقيمة الفاتورة فى حقل Total فى جدول Issue_doc خاص برأس فاتورة المبيعات عملت كود بوظفتين عند الخروج عن طريق مفتاح خروج

Me.TotalAmount = Me.ddd لكى يتم نقل القيمة من مربع نص غير منضم ddd لمربع نص منضم TotalAmount لحقل Total

On Error Resume Next

والثانية تشغيل استعلام الحاق Naqdi لتحصيل المبلغ فى حالة ان حقل نوع الدفع نقدى لجدول Catch_Receiv كان تم تحصيل المبلغ من العميل

DoCmd.SetWarnings False
If Me.pay = "نقدى" Then

DoCmd.OpenQuery "Naqdi"
DoCmd.OpenQuery "hoho"
' MsgBox "تم الترحيل بنجاح"
DoCmd.SetWarnings TrueEnd If
المشكلة هنا ان الجزء الاول من الكود لا يعمل Me.TotalAmount = Me.ddd ويالتالى يكون الحاق البيانات ناقص يتم الحاق بيانات العميل ونوع الفاتورة بدون قيمة الفاتورة total فى جانب الدائن من جدول Catch_Receiv

اما المشكلة الثانية فى

نموذج paymentcuss رئيسي لتحصيل نقود من العملاء به نموذجين فرعين الاول خاص بفواتير العملاء والثاني بالتحصيل والدفع للعملاء يتم اختيار اسم العميل يظهر فواتيره فى النموذج الاول Custmerinvoice ثم اقوم بتسجيل المبلغ المحصل من العميل فى النموذج الفرعى الثاني paymentcus لجدول Catch_Receiv الخاص بالتعاملات النقدية قمت بجعل حقل رقم السند Catch_Receiv يضيف ترقيم بزيادة 1 ( =Nz(DMax("Catch_Receiv";"Catch_Receiv");0)+1 ) فى خاصية القيمة الافتراضية ولكن المشكلة

عند اضافة قيمة فى خانة مدين او دائن يتم ترقيم رقم السند فى السجل التالى بنفس رقم السند فى السجل السابق مما يظهر رسالة بتكرار البيانات

الرجاء من اهل الخبرة ان يسعنى صدركم وان يكون مطلبى ان شاء الله خفيف