nacer_alger قام بنشر مارس 12, 2015 قام بنشر مارس 12, 2015 السلام عليكم عند مربع التحريروالسرد سميته نمط التوظيف يحتوي هذا المربع على خيارين هما (مرسم و متعاقد ) اريد ان احسب عدد المرسمين و عدد المتعاقدين كل لوحده في حقل مستقل مثلا حقل عدد المرسمين و حقل عدد المتعاقدين استعملت الدالة compte=([مرسم]) لكني لم انجح هناك خطا في الكود ارجو المساعدة
nacer_alger قام بنشر مارس 13, 2015 الكاتب قام بنشر مارس 13, 2015 شكرا على الرد عند حقل في النموذج اسمة نمط التوضيف هذا الحقل يحتوي على خيارين في قائمة هما متعاقد مرسم اريد انشاء حقلين في النموذج مثلا عدد المرسمين عدد المتعاقدين طلبي هو كود حساب للمتعاقدين و المرسمين اعرف انه يكتب في المصدر الحقول المذكورين هذا الكود مع دالة CUNT لكن كيف
سعيد صواب قام بنشر مارس 13, 2015 قام بنشر مارس 13, 2015 http://www.officena.net/ib/index.php?showtopic=59638&hl= http://www.officena.net/ib/index.php?showtopic=59601&hl= اخي الكريم هناك مثالين في الرابطين ,, وهي ان شاء الله ماتبحث عنه . بإمكانك تعريف الحقل في النموذج بالطريقة forms!form1!text1 forms : ثابته . form1: اسم النموذج لديك text1: اسم الحقل في النموذج . اذا لم تفدك فقم بإرفاق ملف للتعديل عليه .. وفقنا الله واياك ... 1
nacer_alger قام بنشر مارس 13, 2015 الكاتب قام بنشر مارس 13, 2015 (معدل) شكرا اخي هذا هو طلبي هل ممكن ان تضيف لي شرط اخر في الكود اي الموظفين المرسمين الذين هم في الخدمة فقط لا يحسب المنتهية خدمتهم عند في النموذج خانة اعلم بصح على الموظف الذي يعمل والموظف الذي انتهت خدمته متقاعد مثلا اترك الخانة فارغة الكود يعمل بشكل جيد لكنه يحسب الموظفين الذين انتهت خدمتهم هل هناك مثال لطلبي وشكرا تم تعديل مارس 13, 2015 بواسطه nacer_alger
وليد الخميسي قام بنشر مارس 13, 2015 قام بنشر مارس 13, 2015 انظر المرفق ربما يكون المطلوب Database1.rar 1
nacer_alger قام بنشر مارس 14, 2015 الكاتب قام بنشر مارس 14, 2015 شكرا اخي وليد اتبعت المثال هذا الكود الذي توصلت اليه Private Sub employé__AfterUpdate() If employé_.Value = "TITULAIRES" Then ( " Texte1.Value = DCount("[code_employé]", "Employé", "[en activeté] = 0 End If End Sub المشكلة هيا يعطيني الذين ليس في الخدمة للأني وضعت علامة صفر في0= en activité ماهي العلامة عكس صفر جربت =1 لم تنجح شكرا
nacer_alger قام بنشر مارس 14, 2015 الكاتب قام بنشر مارس 14, 2015 (معدل) المشكلة ثانية انت اعطيتني مثال بشرط if هي عندما يختار يحسب و عند عدم اختيار يضهر الحقل فارخ دون حساب انا اريده ان يحسب دائما كلما اضفت قيمة يحسبها تم تعديل مارس 14, 2015 بواسطه nacer_alger
وليد الخميسي قام بنشر مارس 14, 2015 قام بنشر مارس 14, 2015 (معدل) الكود المستخدم تحت زر الأمر بهذا الشكل ، لقد استخدمت منه جزء وتركت الجزء الآخر ولهذا لم تظهر معك النتيجة كما تريد أنصحك بأن ترفق مثالاً لتحصل على ما تريد، واعلم أن المنتدى مليء بالخيرات وفي المرفق مثالاً تظهر فيه النتيجة بدون استخدام الدالة ، فبمجرد التحديث تظهر البيانات Private Sub Comb_AfterUpdate() If Comb.Value = "***********" Then Text1.Value = DCount("[M]", "Employee", "[s] = 0") Text3.Value = DCount("[M]", "Employee") - (Text1.Value) ElseIf Comb.Value = "**********" Then Text2.Value = DCount("[R]", "Employee", "[s]=0") Text4.Value = DCount("[R]", "Employee") - (Text2.Value) Else Text1.Value = "" Text2.Value = "" Text3.Value = "" Text4.Value = "" End If End Sub تم تعديل مارس 14, 2015 بواسطه وليد الخميسي
وليد الخميسي قام بنشر مارس 14, 2015 قام بنشر مارس 14, 2015 الكود المستخدم تحت زر الأمر بهذا الشكل ، لقد استخدمت منه جزء وتركت الجزء الآخر ولهذا لم تظهر معك النتيجة كما تريد Private Sub Comb_AfterUpdate() If Comb.Value = "ãÊÚÇÞÏíä" Then Text1.Value = DCount("[M]", "Employee", " = 0") Text3.Value = DCount("[M]", "Employee") - (Text1.Value) ElseIf Comb.Value = "ãÑÓãíä" Then Text2.Value = DCount("[R]", "Employee", "=0") Text4.Value = DCount("[R]", "Employee") - (Text2.Value) Else Text1.Value = "" Text2.Value = "" Text3.Value = "" Text4.Value = "" End If End Sub أنصحك بأن ترفق مثالاً لتحصل على ما تريد، واعلم أن المنتدى مليء بالخيرات وفي المرفق مثالاً تظهر فيه النتيجة بدون استخدام الدالة ، فبمجرد التحديث تظهر البيانات
وليد الخميسي قام بنشر مارس 14, 2015 قام بنشر مارس 14, 2015 الكود المستخدم تحت زر الأمر بهذا الشكل ، لقد استخدمت منه جزء وتركت الجزء الآخر ولهذا لم تظهر معك النتيجة كما تريد Private Sub Comb_AfterUpdate() If Comb.Value = "ãÊÚÇÞÏíä" Then Text1.Value = DCount("[M]", "Employee", " = 0") Text3.Value = DCount("[M]", "Employee") - (Text1.Value) ElseIf Comb.Value = "ãÑÓãíä" Then Text2.Value = DCount("[R]", "Employee", "=0") Text4.Value = DCount("[R]", "Employee") - (Text2.Value) Else Text1.Value = "" Text2.Value = "" Text3.Value = "" Text4.Value = "" End If End Sub أنصحك بأن ترفق مثالاً لتحصل على ما تريد، واعلم أن المنتدى مليء بالخيرات وفي المرفق مثالاً تظهر فيه النتيجة بدون استخدام الدالة ، فبمجرد التحديث تظهر البيانات
nacer_alger قام بنشر مارس 14, 2015 الكاتب قام بنشر مارس 14, 2015 اخي الكريم ها هو المرفق هناك حقلين اريسد حساب يظهر فيهم حقل اسمه titulaires و اخر اسمه contractuel الشرح مفصل في النموذج contactuel titulares.rar
وليد الخميسي قام بنشر مارس 14, 2015 قام بنشر مارس 14, 2015 أخي الكريم إن لم يكن هدفك في المرفق فالتمس لي العذر فالملف الذي أرسلته لم يفتح عندي، وما فهمته ترجمته لك في الملف المرفق. في الخدمة أم لا.rar
nacer_alger قام بنشر مارس 15, 2015 الكاتب قام بنشر مارس 15, 2015 شكرا لك على التجاوب مع طلبي حت لا اصعب امر عليك انت وضعت كود لحساب الموظفين في القاعدة التي ارسلتها لي =CpteDom("[الاسم]";"Employee") اريدك ان تضيف له شرط لذين في الخدمة ويظهر العدد في حفل او انا اطبق على الذين خارج الخدمة يمثالك يحقل جديد
وليد الخميسي قام بنشر مارس 16, 2015 قام بنشر مارس 16, 2015 أخي الكريم تم وضع الشرط لمن هم في الخدمة ومن هم خارج الخدمة كل على حدة، انظر المرفق في الخدمة أم لا.rar
nacer_alger قام بنشر مارس 25, 2015 الكاتب قام بنشر مارس 25, 2015 شكرا لك اخي الكريم توصلت الى حل بهذا الكود مثلا =Somme(VraiFaux([في الخدمة]="F";1;0))
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.