اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

السلام عليكم ورحمة الله وبركاتة

 

اخوتي الكرام معي المسميات الاتية:

النموذج الاساسي  frmOrder

النموذج الفرعي frmOrderDetails

حقل في النموذج الفرعي بمسمى UnitPrice

حقل في النموذج الفرعي بمسمى ProQu

حقل في النموذج الفرعي بمسمى AvaQu

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

قمت بوضع هذا الكود ولكن لا يستجيب ولست اعلم ما هو الخطاء

Private Sub UnitPrice_AfterUpdate()
[Forms]![frmOrder]![frmOrderDetails].[Form]![AvaQu] = [Forms]![frmOrder]![frmOrderDetails].[Form]![AvaQu] - [Forms]![frmOrder]![frmOrderDetails].[Form]![OutStore]
End Sub

 

الرجاء مشاهدة الملف المرفق

MS Access - Test.accdb

رابط هذا التعليق
شارك

عملت هذا الكود ولم ينفع

Private Sub UnitPrice_AfterUpdate()
If Forms!frmOrder!frmOrderDetails!OutStore.Value > Forms!frmOrder!frmOrderDetails!AvaQu Then
MsgBox "No storage enough", vbCritical

DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Exit Sub
Else
Me.AvaQu = Me.AvaQu - Me.OutStore

End If

End Sub

رابط هذا التعليق
شارك

في ٢٣‏/١‏/٢٠١٩ at 12:20, Stoic_bird said:

السلام عليكم ورحمة الله وبركاتة

 

اخوتي الكرام معي المسميات الاتية:

النموذج الاساسي  frmOrder

النموذج الفرعي frmOrderDetails

حقل في النموذج الفرعي بمسمى UnitPrice

حقل في النموذج الفرعي بمسمى ProQu

حقل في النموذج الفرعي بمسمى AvaQu

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

قمت بوضع هذا الكود ولكن لا يستجيب ولست اعلم ما هو الخطاء

Private Sub UnitPrice_AfterUpdate()
[Forms]![frmOrder]![frmOrderDetails].[Form]![AvaQu] = [Forms]![frmOrder]![frmOrderDetails].[Form]![AvaQu] - [Forms]![frmOrder]![frmOrderDetails].[Form]![OutStore]
End Sub

 

الرجاء مشاهدة الملف المرفق

MS Access - Test.accdb

هذا الكود سليم ميه في الميه

وهو بيخصم

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information