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

[أكسس وبس]

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

فى المرفق نموذج فاتورة بيع 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 ) فى خاصية القيمة الافتراضية ولكن المشكلة

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

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

122.rar

[أكسس وبس]

معلش انا اسف اذا كان طلبى مش واضح