السلام عليكم اخواني
تقبل الله صيامكم
المطلوب التعديل على الحدث
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
وشكرا لكم