اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم 

 

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

bb.rar

تم تعديل بواسطه طاووس الوغى
رابط هذا التعليق
شارك

 

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

السلام عليكم 

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information