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

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

قام بنشر

بسم الله الرحمن الرحيم

أولا: أنا عضو جديد معاكم

ثانياَ: واجهتني مشكله في برمجة زر أمر لبرنامج الراتب الشهري حيث وضعت الكود للنموذج التالي

ay.JPG

فوضعت الكود التالي في زر أمر "الرواتب"

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 هم ازرار أختيار

في الحقيقه جابت لي الضغط :@ :@

الله يعطيكم العافية

مساعدة :$

قام بنشر

نيابة عن المنتدى وأعضائه جميعا اقول لك اهلا وسهلا بك اخا وعزيزا على قلوبنا وسلا متك من الضغط توجه الى الرابط التالي علك تجد ما تريد

وتقبل شكري وتقديري

اخيك سهل احمد ( ابو نعيم )

http://www.arabteam2000-forum.com/index.php?showtopic=45883

قام بنشر

بسم الله الرحمن الرحيم

اشكرك عزيز على الترحيبكم

في الحقيقة موضوع ممتاز واستفدة منه

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

هتا

قام بنشر (معدل)

الأخ / Dragon X

طبعاً لن يعمل الكود بشكل صحيح لأنه مع تحقق أي شرط في البداية سيخرج من العبارة الشرطية .

على كل بإمكانك استخدام العبارة الشرطية بهذا الشكل :

If s1s = False Then DX = SX - AX

If s2s = False Then DX = SX - AX

تم تعديل بواسطه عبدالله سليمان
قام بنشر

اولا شكر للأخ سهل احمد العريشي: الوصلة مفيده ولكن لا تنطبق على البرنامج لأن البرنامج يحسب أجر الموظف اليومي

وشكر للاخ عبدالله سليمان: لقد عملت ما كتبته يا عبدالله ولكن الكود لم يعمل

في الحقيقة لم أجد طريقة لأحمل الملف في الوقت الحالي

لذا دعوني أشرح فكرة الكود الذي أمامكم

أولا: هل تظهر الصورة اللتي وضعتها؟

في النموذج

يوجد اسم الموضف أو رقمه بالاحرى - الراتب الأساسي - مجموعة من ازرار الاختيار من 1 - 31 يوم

في حالة أن الموضف غاب يوم يتم مسح الصح من زر أختيار ويقوم الكود (السابق)

بحساب الراتب اليومي للموظف ويجمع الرواتب 1 - 31 ولكن بطرح اليوم الذي لم يحضره

أخوكم :fff:

قام بنشر

ومع أني لم أحاول فهم البرنامج فتجد في المرفقات المثال بعد تعديل الكود والذي اعتقد أنه بالامكان اختصاره كثيراً عبر اسناد مربعات الخيار إلى متحول ثم إنشاء حلقة بعدد المربعات . حاولت عمل ذلك ولم أستطع .

وبالتوفيق .

Copy of db2.rar

قام بنشر

اخى عبدالله سليمان

اي اصدار تستخدم لم يفتح الملف عندي

في النموذج

يوجد اسم الموضف أو رقمه بالاحرى - الراتب الأساسي - مجموعة من ازرار الاختيار من 1 - 31 يوم

في حالة أن الموضف غاب يوم يتم مسح الصح من زر أختيار ويقوم الكود (السابق)

بحساب الراتب اليومي للموظف ويجمع الرواتب 1 - 31 ولكن بطرح اليوم الذي لم يحضره

قام بنشر

الاصدار الذي استخدمه هو Access 2002

في الكود خطأ ، وهو تقسيم الراتب على 31 يوماً وبعض الأشهر أقل من ذلك .

ثم الأفضل جعل القيمة الأفتراضية لزر الخيار 1

إيضا استخدمت ( \ ) للقسمة وهي تعيد ناتج القسمة بدون كسور ، لهذا يجب استخدام ( / ) بدلاً عنها .

شكلك تبي تاكل رواتب الموظفين :d

وتجد بالمرفقات قاعدة البيانات بعد تعديلها وتحويلها إلى Access 97

وبالتوفيق .

Copy of db2_97.zip

قام بنشر

اخي العزيز عبدالله شكرا لك توصلك مع الموضوع أما بخصوص ما ذكرته

( شكلك تبي تاكل رواتب الموظفين ) فأعتقد يوم مو مشكله من موظف يعني يومية الموظف 120 * عدد الموظفين 780 مثلا

= 93600 ريال شهريا مبلغ جدا بسيط ---------طبعا الأمر عباره عن دعابه واخينا العزيز Dragon X نحسبه من الأفاضل والله حسبه ولكن لماذا لا يكون الراتب له جدول منفصل بمعنى افضل يسمى سلم الرواتب ومنه يدرج راتب كل موظف

هذا رأي وتقبلو تحياتي

اخيكم سهل احمد ( ابو نعيم )

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