التعديل على حدث خانة أختيار من اجل تحويل مبلغ مع تاريخ الى جدول منفصل

[كريمو2]

السلام عليكم اخواني

تقبل الله صيامكم

المطلوب التعديل على الحدث 

Private Sub VerCcp_Click()
If Me.VerCcp.Value = 0 Then
DoCmd.OpenForm "FrmVerment"
Me.Loan_Other = Me.Form.FrmVerment!FrmVerment_sub!Me.TheValueCcp
Me.Auto_Date = Me.Form.FrmVerment!FrmVerment_sub!TxtMonth
End If
End Sub

حيث عند النقر على خانة VerCcp يتحول المبلغ الموجود في Loan_Other مباشرة الى الجدول Verment في TheValueCcp (مع العلم انه عند وجود مبلغ يضاف اليه المبلغ المتحول) مع تحويل التاريخ : Auto_Date بالفورم الى جدول Verment في مكان TxtMonth

وشكرا لكم

[kkhalifa1960]

تفضل أخي محاولتي حسب مافهمت .

DD134.mdb

[Eng.Qassim]

اذا كان النموذجين في نموذج رئيسي واحد اسمه مثلا frmMain

ضع الكود التالي عند الضغط على VerCcp

Private Sub VerCcp_Click()
If Me.VerCcp = True Then
    Forms![frmMain]![FrmVerment_Sub].SetFocus
    DoCmd.GoToRecord , , acNewRec
    Forms![frmMain]![FrmVerment_Sub]!loan_other = Me.loan_other
    Forms![frmMain]![FrmVerment_Sub]!Auto_Date = Me.Auto_Date
Else
End If
End Sub

 

[كريمو2]

شكرا على الرد اخي Eng.Qassim

تقبل الله منا ومنكم صالح الاعمال

لقد وقع لي هذا المشكل

تم تعديل أبريل 12, 2023 بواسطه كريمو2

[كريمو2]

الان, Eng.Qassim said:

اذا كان النموذجين في نموذج رئيسي واحد اسمه مثلا frmMain

ضع الكود التالي عند الضغط على VerCcp

النموذج الاول الرئيسي اسمه FrmMenah والنموذج الفرعي التابع له هو FrmInkhirat_sub الذي به VerCcp وLoan_Other  و Auto_Date

والنموذج المراد التحويل له اسمه frmVerment  والنموذج الفرعي التابع له هو FrmVerment_Sub وبه TheValueCcp و TxtMonth

[Eng.Qassim]

يا اخي ..الله هداك ..انت تعطينا بالقطارة

ضع الكود التالي:

Private Sub VerCcp_Click()
    DoCmd.OpenForm "FrmVerment", acNormal
    Forms![FrmVerment]![FrmVerment_Sub]![TheValueCcp ] = Me![loan_other]
    Forms![FrmVerment]![FrmVerment_Sub]![TxtMonth] = Me![Auto_Date]
End Sub

وفي النموذج الفرعي FrmVerment_Sub.. في حدث عند التحميل تضع

Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub

 

[كريمو2]

الان, Eng.Qassim said:

وفي النموذج الفرعي FrmVerment_Sub.. في حدث عند التحميل تضع

Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub

اخي لا اريد سجل جديد بل التعديل في السجل الموجود

[Eng.Qassim]

20 دقائق مضت, كريمو2 said:

لا اريد سجل جديد بل التعديل في السجل الموجود

انت لم تذكر اي تعديل في موضوعك ..بل اردت عند اضافة سجل وتضغط على الاوبشن تنسخ السجل الى النموذج الثاني

[كريمو2]

اخي اليك الملف للتعديل عليه وشكرا

ff2023.accdb

[Eng.Qassim]

احتجت الى اضافة حقل يأخذ رقم الشهر ..حتى تكون الاضافة برقم الشهر..هذا حسب مافهمته

جرب المرفق..

ff2023.rar

[Ezril]

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

[كريمو2]

[Ezril]

محاوله 

عند الفتح () 

DoCmd.GoToRecord , , ac الى اخر سجل

 مثال

حقل المبلغ

 me. loan_other = Forms![FrmVerment]![FrmVerment_Sub]![TheValueCcp ]+ me. loan_other

لان طلبك على جمع آخر مبلغ من مبلغ المحدد في فورم او جدول السابق

تاريخ اليوم؟! 

() me. TexMonth =Date 

والمفترض بتاريخ الحواله Exchange x

 

 

 

 

[كريمو2]

لم افهم شيء مما تطرقت اليه اخي Ezril

ارجو ان يكون التعديل على المرفق حتى يتسنى لي معرفة الخطأ

[Eng.Qassim]

عذرا..نسيت التاريخ..اعتقد بأنك تريد تحديث التاريخ بتاريخ اليوم

المرفق بعد التعديل..

 

ff2023.rar

تم تعديل أبريل 13, 2023 بواسطه Eng.Qassim

[كريمو2]

لم يتم فتح الملف المرفق بعد تغديله من طرفك اخي Eng.Qassim

علما انني استخدم اكسس 2007

تم تعديل أبريل 13, 2023 بواسطه كريمو2

[Eng.Qassim]

طيب اشتغل على نسختك ..

1- اضفت حقل يقرأ الشهر

وفي الجدول الثاني ايضا :

2- الكود التالي في زر VerCcp

Private Sub VerCcp_Click()
    Dim monthNumber As Integer
    Dim paymentAmount As Double
    Dim totalAmount As Double
    Dim txtDate As Date
    
    txtDate = Date
    monthNumber = Me.PM
    paymentAmount = Me.Loan_Other
    If Me.VerCcp = True Then
        totalAmount = DLookup("TheValueCcp", "Verment", "MON=" & PM)
        totalAmount = totalAmount + paymentAmount
        DoCmd.SetWarnings False
        DoCmd.RunSQL "UPDATE Verment SET TxtMonth=#" & txtDate & "#, TheValueCcp=" & totalAmount & " WHERE MON=" & PM
        DoCmd.SetWarnings True
   MsgBox "  تم دفع المبلغ"
    End If
End Sub

 

[كريمو2]

تمت العملية بنجاح

شكرا لك استاذ Eng.Qassim

ربي يجعل تعبك معي في ميزان حسناتك ببركة الايام العشرة الاخيرة من الشهر الفضيل

[Eng.Qassim]

بالتوفيق يارب ...

تقبل الله منكم صالح الاعمال بهذا الشهر الكريم

تم تعديل أبريل 13, 2023 بواسطه Eng.Qassim