إضافة إلى إجابة الأستاذ العزيز و القدير تشفان:
يمكن إستعمال هذا السطر فقط لحدث عند التغيير للكمبوبكس
Me.kesm = DLookup("[kesm]", "users", "deCode([UName],'User')= user")
ليقوم بالعمل
نعم هذه الدالة تقوم بإرجاع قسم كل مستخدم تقوم بإختياره
Me.نص2 = DLookup("[classe_user]", "tbl_user", "[user_name]='" & Me.user_name & "'")
و هذا مثال على ذلك
dlookup.rar
قم بإضافة حقل جديد في جدول B_sales و سمه مثلا الباقي الحالي
و اذهب إلى النموذج الفرعي و جعل مصدر عنصر التحكم لمربع نص الباقي : الحقل الباقي الحالي
و قم بإضافة الكود التالي لحذث بعد التحديث لمربع نص الكمية:
Me.الباقي = Me.رصيد_المخزن - Me.الكمية
db101.rar
السلام عليكم أريد أن أضيف على بعض الشرح على الكود الرائع للأستاذ جعفر
SelText
هذه الدالة تقوم بنسخ الجزء المحدد من مربع النص
SelLength
و هذه الدالة تقوم بحساب عدد الحروف المحددة في مربع النص
SelStart
و هذه الدالة تقوم بإعطاء ترتيب الحرف الذي يبدأ منه التحديد في مربع النص
هذه الصورة لمربع نص واحد بالأكسس و ليست مأخوذة من صفحة وورد
و يمكن عمل كل هذا بتغيير خاصية مربع النص "تنسيق النص" إلى "نص منسق"
و سوف تتمكن من التحكم في تنسيق مربع النص و كأنك في الوورد : نوع الخط . اللون . التسطير. المحاذاة كل سطر على حدى...الخ