اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

اريد احضار قيمة معينة بشرطين


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

اساتذتي الكرام 

السلام عليكم ورحمة الله وبركاته 

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

موظف بالمرتبة الرابعة الدرجة السابعة 

سلم الرواتب.rar

شاكر ومقدر تعاونكم 

 

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

3 ساعات مضت, الرايق2080 said:

اساتذتي الكرام 

السلام عليكم ورحمة الله وبركاته 

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

موظف بالمرتبة الرابعة الدرجة السابعة 

سلم الرواتب.rarFetching info...

شاكر ومقدر تعاونكم 

 

اتفضل اختصرت لك الامر

مجرد ما تكتب المرتبة الأولى الو الثانيه الى 15

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

ولا تنسني بدعوه بظهر الغيب

سلم الرواتب.accdb

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

استاذي ابو ياسين 

السلام عليكم ورحمة الله وبركاته 

شكراً على الرد 

وملاحظتي وجدتها في انه عند ادخال المرتبة والدرجة تأتي رسالة بأنه حدثت مشكلة في البرنامج وبعدها خيارين الارسال للدعم او اغلاق البرنامج 

آمل الرد للحاجة القصوى للمعلومة ولكم جزيل الشكر 

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

15 دقائق مضت, الرايق2080 said:

مشكور اخي ومعلي على الرد ولاكن لا يوجد تغيير 

 

كل هذا ولا يوجد تغير

اكتب في المرتبه

الثالثة

او الرابعة

او الخامسة

وبعدها رد 

هل يوجد تغير او لا

Me.ttdf = Nz(DLookup("[المرتبة]", "سلم الرواتب", "[المرتبة] = [k1]"))
Me.ttdf = Me.k1
If Me.k1 = "الأولى" Then
Me.k2 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]"))
Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]"))
ElseIf Me.k1 = "الثانية" Then
Me.k2 = Nz(DLookup("[2]", "سلم الرواتب", "[المرتبة] = [k1]"))
Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]"))
ElseIf Me.k1 = "الثالثة" Then
Me.k2 = Nz(DLookup("[3]", "سلم الرواتب", "[المرتبة] = [k1]"))
Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]"))
ElseIf Me.k1 = "الرابعة" Then
Me.k2 = Nz(DLookup("[4]", "سلم الرواتب", "[المرتبة] = [k1]"))
Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]"))
ElseIf Me.k1 = "الخامسة" Then
Me.k2 = Nz(DLookup("[5]", "سلم الرواتب", "[المرتبة] = [k1]"))
Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]"))
ElseIf Me.k1 = "السادسة" Then
Me.k2 = Nz(DLookup("[6]", "سلم الرواتب", "[المرتبة] = [k1]"))
Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]"))
ElseIf Me.k1 = "السابعة" Then
Me.k2 = Nz(DLookup("[7]", "سلم الرواتب", "[المرتبة] = [k1]"))
Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]"))
ElseIf Me.k1 = "الثامنة" Then
Me.k2 = Nz(DLookup("[8]", "سلم الرواتب", "[المرتبة] = [k1]"))
Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]"))
ElseIf Me.k1 = "التاسعة" Then
Me.k2 = Nz(DLookup("[9]", "سلم الرواتب", "[المرتبة] = [k1]"))
Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]"))
ElseIf Me.k1 = "العاشرة" Then
Me.k2 = Nz(DLookup("[10]", "سلم الرواتب", "[المرتبة] = [k1]"))
Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]"))
ElseIf Me.k1 = "الحادية عشر" Then
Me.k2 = Nz(DLookup("[11]", "سلم الرواتب", "[المرتبة] = [k1]"))
Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]"))
ElseIf Me.k1 = "الثانية عشر" Then
Me.k2 = Nz(DLookup("[12]", "سلم الرواتب", "[المرتبة] = [k1]"))
Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]"))
ElseIf Me.k1 = "الثالثة عشر" Then
Me.k2 = Nz(DLookup("[13]", "سلم الرواتب", "[المرتبة] = [k1]"))
Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]"))
ElseIf Me.k1 = "الرابعة عشر" Then
Me.k2 = Nz(DLookup("[14]", "سلم الرواتب", "[المرتبة] = [k1]"))
Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]"))
ElseIf Me.k1 = "الخامسة عشر" Then
Me.k2 = Nz(DLookup("[15]", "سلم الرواتب", "[المرتبة] = [k1]"))
Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]"))
End If

 

2 دقائق مضت, الرايق2080 said:

استاذي ابو ياسين 

السلام عليكم ورحمة الله وبركاته 

شكراً على الرد 

وملاحظتي وجدتها في انه عند ادخال المرتبة والدرجة تأتي رسالة بأنه حدثت مشكلة في البرنامج وبعدها خيارين الارسال للدعم او اغلاق البرنامج 

آمل الرد للحاجة القصوى للمعلومة ولكم جزيل الشكر 

لعل في تغير في اصدار الاوفيس

حاول تنسخ الكود الى برنامجك وضعه في حدث بعد التحديث للمرتبة

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

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

في حدث بعد اختيار الدرجه

Me.ttdf = Nz(DLookup("[martaba]", "salam", "[martaba] = [k1]"))
Me.ttdf = Me.k1
If Me.k1 = "الأولى" Then
Me.k2 = 1
Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]"))
ElseIf Me.k1 = "الثانية" Then
Me.k2 = 2
'Me.k2 = Nz(DMax("[2]", "salam", "[martaba] = [k1]"))
Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]"))
ElseIf Me.k1 = "الثالثة" Then
Me.k2 = 3
Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]"))
ElseIf Me.k1 = "الرابعة" Then
Me.k2 = 4
Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]"))
ElseIf Me.k1 = "الخامسة" Then
Me.k2 = 5
Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]"))
ElseIf Me.k1 = "السادسة" Then
Me.k2 = 6
Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]"))
ElseIf Me.k1 = "السابعة" Then
Me.k2 = 7
Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]"))
ElseIf Me.k1 = "الثامنة" Then
Me.k2 = 8
Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]"))
ElseIf Me.k1 = "التاسعة" Then
Me.k2 = 9
Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]"))
ElseIf Me.k1 = "العاشرة" Then
Me.k2 = 10
Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]"))
ElseIf Me.k1 = "الحادية عشر" Then
Me.k2 = 11
Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]"))
ElseIf Me.k1 = "الثانية عشر " Then
Me.k2 = 12
Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]"))
ElseIf Me.k1 = "الثالثة عشر " Then
Me.k2 = 13
Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]"))
ElseIf Me.k1 = "الرابعة عشر " Then
Me.k2 = 14
Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]"))
ElseIf Me.k1 = "الخامسة عشر " Then
Me.k2 = 15
Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]"))
End If

 

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

نعم بعد اختيار المرتبة والدرجة يعمل الحدث 

وللمعلومية 

المرتبة يعتبر صف 

الدرجة تعتبر عامود 

في الجدول بحيث اختار الصف وقيمة العامود بنسبة للصف الي انا واقف علية 

اقتباس

لا يوجد اقتباس

 

 

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

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