Dragon X

بسم الله الرحمن الرحيم والصلاة على خير المرسلين محمد واله وسلم وبعد أخونا العزيز فتى الوادي أطلعت على ما تريده.. والحل كالتالي تعمل أستعلام بالجدول الأساسي الذي فيه كل القضاية ثم تضع الشروط التالية طبعا في المعايير 1- تحت المركز تكتب التالي بين قوسين مربعين "أدخل رقم المركز" 2- تحت تاريخ القضاية تكتب Between وتتبعها بالجملة "ادخل بداية التاريخ" وتكون بين قوسين ثم تكتب And بين قوسين مربعين الجملة "أدخل نهاية التاريخ" وتكون كالتالي:- Between [From Date] and [To Date] ثم تحول الأستعلام الى نموذج وتضع مربع نص وتكتب في مصدر عنصر التحكم ضمن خصائصه (مربع النص) التالي Count بين قوسين مربعين أي عنصر من ناتج التقرير ويكون Count [txtcase] ملاحظة: يمكن عمل أدخال بيانات بداية ونهاية التاريخ ورقم المركز على نموذج. أخوكم التنين المجهول

يجب ان تتجانس البيانات لا أن تكون نوع البيانات رقم والأخر نص أفضل بأن تضع رقم او كود للكورس ويتم ربطة بالرقم فقط

لما لا تجعل الأستعلام يظهر على نموذج(يكون في نموذج) وتجعلة منبثق

بسم الله الرحمن الرحيم عندي سؤالين أخواني عن الاستعلامات - كيف يتم الأستعلام عن كلمة في جمله من حقل معين؟ مثل الأستعلام عن اسم الاب في الأسم الثلاثي - كيف يمكن عمل عدة استعلامات في حقل واحد مثل البحث عن اول حرف من اسم ثم البحث مره أخرى بنفس الاستعلام عن حرف اخر من الاسم وشكراً أخوكم بومحمد

اخى عبدالله سليمان اي اصدار تستخدم لم يفتح الملف عندي في النموذج يوجد اسم الموضف أو رقمه بالاحرى - الراتب الأساسي - مجموعة من ازرار الاختيار من 1 - 31 يوم في حالة أن الموضف غاب يوم يتم مسح الصح من زر أختيار ويقوم الكود (السابق) بحساب الراتب اليومي للموظف ويجمع الرواتب 1 - 31 ولكن بطرح اليوم الذي لم يحضره

اين المثال يا بونعيم أخوكم بومحمد

تم ارسال الملف

أين تعقيباتكم أخواني هل هناك طريق لأضافة الملف في المنتدى

افتح أستعلام جديد وكتب في خانة المعاير تحت التاريخ = Date () وتضبظ او يمكنك من كتابة التاريخ المطلوب ثم يظهره الاكسس كأن تكتب تحت خانة التاريخ في المعايرالتالي:= [enter the Date:] أخوك

افتح أستعلام جديد وكتب في خانة المعاير تحت التاريخ =Date () وتضبظ أخوك

اولا شكر للأخ سهل احمد العريشي: الوصلة مفيده ولكن لا تنطبق على البرنامج لأن البرنامج يحسب أجر الموظف اليومي وشكر للاخ عبدالله سليمان: لقد عملت ما كتبته يا عبدالله ولكن الكود لم يعمل في الحقيقة لم أجد طريقة لأحمل الملف في الوقت الحالي لذا دعوني أشرح فكرة الكود الذي أمامكم أولا: هل تظهر الصورة اللتي وضعتها؟ في النموذج يوجد اسم الموضف أو رقمه بالاحرى - الراتب الأساسي - مجموعة من ازرار الاختيار من 1 - 31 يوم في حالة أن الموضف غاب يوم يتم مسح الصح من زر أختيار ويقوم الكود (السابق) بحساب الراتب اليومي للموظف ويجمع الرواتب 1 - 31 ولكن بطرح اليوم الذي لم يحضره أخوكم

بسم الله الرحمن الرحيم اشكرك عزيز على الترحيبكم في الحقيقة موضوع ممتاز واستفدة منه وكن كم تعرف كل منا له طريقته في البرمجة ولن ابدا من جديد ما بدأت به لذا اذا في الامكان هذا هو الملف يمكن الاطلاع عليه وابداء الرئ او النتقاد الهادف وأنظر الى الصيغة البرمجية الطويلة له. هتا

بسم الله الرحمن الرحيم أولا: أنا عضو جديد معاكم ثانياَ: واجهتني مشكله في برمجة زر أمر لبرنامج الراتب الشهري حيث وضعت الكود للنموذج التالي فوضعت الكود التالي في زر أمر "الرواتب" Dim AX, SX, DX SX = salary AX = salary \ 31 MsgBox AX If s1s = False Then DX = SX - AX ElseIf s2s = False Then DX = SX - AX ElseIf s3s = False Then DX = SX - AX ElseIf s4s = False Then DX = SX - AX ElseIf s5s = False Then DX = SX - AX ElseIf s6s = False Then DX = SX - AX ElseIf s7s = False Then DX = SX - AX ElseIf s8s = False Then DX = SX - AX ElseIf s9s = False Then DX = SX - AX ElseIf s10s = False Then DX = SX - AX ElseIf s11s = False Then DX = SX - AX ElseIf s12s = False Then DX = SX - AX ElseIf s13s = False Then DX = SX - AX ElseIf s14s = False Then DX = SX - AX ElseIf s15s = False Then DX = SX - AX ElseIf s16s = False Then DX = SX - AX ElseIf s17s = False Then DX = SX - AX ElseIf s18s = False Then DX = SX - AX ElseIf s19s = False Then DX = SX - AX ElseIf s20s = False Then DX = SX - AX ElseIf s21s = False Then DX = SX - AX ElseIf s22s = False Then DX = SX - AX ElseIf s23s = False Then DX = SX - AX ElseIf s24s = False Then DX = SX - AX ElseIf s25s = False Then DX = SX - AX ElseIf s26s = False Then DX = SX - AX ElseIf s27s = False Then DX = SX - AX ElseIf s28s = False Then DX = SX - AX ElseIf s29s = False Then DX = SX - AX ElseIf s30s = False Then DX = SX - AX ElseIf s31s = False Then DX = SX - AX Else DX = salary End If MsgBox DX total = DX حيث ان s1s to s31s هم ازرار أختيار في الحقيقه جابت لي الضغط :@ :@ الله يعطيكم العافية مساعدة :$