وعليكم السلام..
المفروض ان تفتح موضوع جديد وتسأل ما تشاء...ثانيا ..نصيحة ان لا تستخدم مسميات الاكسس مثل Name
انزل الحقلين ..واجعل عدد الحقول 2...الاكسس يقرأ العمود الاول 0 والعمود الثاني 1 وهكذا
الحقول لديك نص فيجب ان تضع المعيار بين علامتي تنصيص ..هكذا
Private Sub sName_AfterUpdate()
Me.No_Pro = DLookup("[No_Pro]", "projects", "[No_Pro]='" & Me.sName.Column(1) & "'")
End Sub