لماذا لا يعمل الماكرو (WORN)

[فارس بني هلال]

السلام عليكم 

 

لا اعرف لما لا يعمل الماكرو ( WORN) فعند فتح النموذج (S1M) وادراج تاريخ الغياب في الحقل (GH1) يجب ان يعمل الماكرو لانه (الطالب) في هذا اليوم يكون مجاز (مدى الاجازة موجود في جدول الاجازات) ارجو المساعدة في ايجاد الخلل في المرفق

تقبلوا من فائق الاحترام

bb.rar

تم تعديل مارس 11, 2016 بواسطه طاووس الوغى

[فارس بني هلال]

السلام عليكم 

استاذ رمهان هل توجد فكرة او اي رد

[كرار صبري _ أبو جنى]

 

10 ساعات مضت, طاووس الوغى said:

السلام عليكم 

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

يا اخي حاولت و لم افلح بالماكرو ... 

فقط بالكود ... 

Private Sub A1_AfterUpdate()
If A1 >= DLookup("[j1]", "q2", " Forms![S1M]![اسم الطالب] = [اسم الطالب]") And A1 <= DLookup("[j11]", "q2", " Forms![S1M]![اسم الطالب] = [اسم الطالب]") Then
DoCmd.OpenForm "worn", acNormal
End If
End Sub

 

[رمهان]

لاحظت وجود مسافات فقمت بتعديل سطر الشرط للماكرو بالشكل التالي

DLookUp("[j1]And[j11]","[q2]","Forms![S1M]![اسم الطالب] =[اسم الطالب] AND Forms![S1M]![A1]  Between [j1] And [j11] And [case] ='مجاز' ")

قم بنسخه ولصقه مكان الشرط لديك ولعله يعمل باذن الله !

بالتوفيق

[فارس بني هلال]

اشكرك اخي وصديقي كرار  وكذلك الشكر موصول للمعلم الكبير الاخ رمهان 

الحمد لله والحمد حقه كما يستحقه حمداً كثيرا .

بفضله جل جلاله وعم نواله استطاع الاستاذ (stratnet) حل المشكلة كذلك عن طريق الكود المهم  لقد حلت المشكله ولكي تعم الفائده ارفق لكم الحل

استاذ رمهان حتى بعد النسخ لم يعمل الماكرو 

اهديكم ارق تحياتي

 

bb2011.rar

[رمهان]

عزيزي طاووس

هذا مرفقك السابق وبنسخ ولصق السطر السابق !

بالتوفيق

bb.rar