ربط مربعي تحريروسرد مع بعض

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

أخي الكريم أضف الكود التالي إلى أكواد النموذج tr

Private Sub xx1_AfterUpdate()
Me.ZZ = Null
Me.ZZ.RowSource = "select [nor] from tr where [name] = '" & Me.xx1 & "'"
Me.ZZ.Requery
Me.ZZ = Me.ZZ.ItemData(1)
Me.ZZ.SetFocus
Me.ZZ.Dropdown

End Sub

مشكور اخي وفقك الله هذا المطلوب بس كيف الغي ربطها بالرقم يعني مباشره بالاسم

ولغاء هذا الكود لان هذا يتطلب رقم الصنف

>>select [nor] from tr where [name] = '" & Me.xx1 & "'"<<

يعني لما اختار نوع الصنف يعطيني رقم القطعه بدون ارتباطه برقم الصنف

والف الف شكر لك