السلام عليكــم ورحمـة الله وبركاتــه
لا أستطيع أن اطرح المثال لسببين أن وضعت في المنتدى عدة أمثلة ولم أتلقى اجوبة والثاني أنني استخدم اكسس 2007
انا متأكد بأن عباقرة هذا المنتدى من المبرمجين والمشرفين لا يستصعب عليهم هذا السؤال
وهو كالتالي:
عند كتابة رقم الصنف يظهر اسم الصنف آلياً ، بحيث يمنع الخطأ في كتابة رقم أي صنف بدون ان يتطابق مع أسمه
احتاج أن أكتب أسم الصنف أولاً فيظهر لي رقم الصنف آلياً
اسم النموذج : نموذج إدخال سند التوريد 2009
اسم جدول الأصناف : الأصناف ........ ويوجد به حقل رقم الصنف بالفهرس (رقماً) وأيضاً حقل (الصنف) نص
اسم الجدول الذي تتم عليه العمليات من توريدات ومصروفات : Transaction
[رقم الصنف] = DLookup("[رقم الصنف بالفهرس]", "الأصناف", "اسم الصنف=[اسم الصنف]")
[رقم الصنف] = DLookup("[رقم الصنف بالفهرس]", "الأصناف", "اسم الصنف=[اسم الصنف]")
[unit price] = DLookup("[unit price]", "الأصناف", "رقم الصنف بالفهرس=[رقم الصنف بالفهرس]")
[unit] = DLookup("[unit]", "الأصناف", "رقم الصنف بالفهرس=[رقم الصنف بالفهرس]")
If IsNull(DLookup("[رقم الصنف بالفهرس]", "الأصناف", "[رقم الصنف بالفهرس]='" & [رقم الصنف بالفهرس] & "'")) Then
MsgBox " رقم الصنف هذا غير موجود بدليل الأصناف ", vbCritical
Cancel = -1
End If
Private Sub اسم_الصنف_AfterUpdate()
أريد أن يكون هذا الكود على أسم الصنف وليس رقم الصنف بالفهرس
مع العلم بأن اسم الصنف هو مربع تحرير وسرد لإختياره من قائمة الأصناف بداخل جدول الأصناف
