توزيع المعاملات ..

مرة اخرى رجائي ان تضع مثال لأنه يسهل علينا الإجابة .

ثانياً :

انقر هنا

ولاتقل لي فهمي خطأ بعد هالشرح :mad:

اعانك الله

بارك الله فيك وفي علمك ...

شرحك وافي .. وكل علومك زينة ....

لكنت أكتفيت بالشرح قبل أن أرى المثال ... :D

عاجز عن شكرك ... ولا أملك إلا الدعاء لك في ظهر الغيب .

والسلام

السلام عليكم ..

يا ابو حمود.. وفقك الله ...

أنا أردت أن أضع مربع نص غير منضم .. ويكون في هذه النص اسم الجهة - الموظف - الذي سوف توجه له المعاملة .. ولكن

طلع لي بدلاً من اسم الموظف رقمه !!!

بينما أن القائمة ( الجهة ) تظهر اسم الموظف .. وهذا طيب

فما هو الحل لأجعل اسم الموظف يظهر في مربع نص غير منضم .

ولك تحياتي .

في مصدرعنصر التحكم لمربع النص ضع :

=DLookUp("[اسم الموظف]";"الموظفين";"[رقم الموظف]=" & [الجهة])

ولك تحياتي

السلام عليكم ...

الله يزيدك علماً ... ويبارك لك فيه ...

والظاهر أني رايح أشغلك .. لكن خليك أنت الكبير وتحملنا ...

عندي أستفسار آخر

وهو ...

من ضمن قائمة الرموز رمز ( معادة ) أي أن المعاملة معادة .. أريد بعد أختيار هذه الرمز ( معادة ) أن يلغى الترتيب للموظفين ... بحيث تكون الجهة فارغة واختار ممنها الموظف الذي أريد توجيه المعاملة له ... مع وإذا أعيدت للموظف لا تحتسب في التريب السابق للموظف ..

وشكراً لك .

هل هذا الطلب تابع لهذا الموضوع :

http://arabteam2000.com/vb/showthread.php?...?threadid=14735

الموضوع تابع لموضوع توزيع المعاملات ...

كنت أحاول الرد على الموضوع .. وبدلاً من ذلك ضغطت على زر موضوع جديد ..

العجلة ما منها بركة ...

والسلام

أنسخ الكود التالي وضعه في حدث بعد التحديث لقائمة التصنيف :

If Me!التصنيف.Column(1) = "معادة" Then Exit Sub

Dim الموظف_الأخير_للتصنيف_الحالي As Variant

الموظف_الأخير_للتصنيف_الحالي = DLast("الجهة", "التسجيل", "التصنيف=" & Me![التصنيف] & " And التصنيف<> " & DFirst("[رقم الرمز]", "الرموز", "الرمز='معادة'"))

If Not IsNull(الموظف_الأخير_للتصنيف_الحالي) And _

الموظف_الأخير_للتصنيف_الحالي < DMax("[رقم الموظف]", "الموظفين", "إجازة=False") Then

الجهة = DFirst("[رقم الموظف]", "الموظفين", "[رقم الموظف]>" & _

الموظف_الأخير_للتصنيف_الحالي & " and إجازة=False")

Else

الجهة = DFirst("[رقم الموظف]", "الموظفين", "إجازة=False")

End If

ولك تحياتي