درجات الموظفين

[nacer_alger]

سلام عليكم

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

 

Bureau.rar

تم تعديل نوفمبر 12, 2015 بواسطه nacer_alger

[jjafferr]

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

تفضل 

في الواقع انت قمت بمعظم العمل ، انا فقط ركبت الاشياء على بعضها 

 

جعفر

260.الشبكة الإستدلالية للمرتبات.accdb.zip

[nacer_alger]

هذا هو طلبي اخي جعفر لكن اريده في نموذج واحد كما هو موضع في المثال

مثال.rar

[jjafferr]

تفضل 

 

 

والكود:

Function check_both_combos()

    'No work without Sinf
    If Len(Me.cmb_sinf & "") = 0 Then
        MsgBox "Please select a Sinf"
        Me.cmb_sinf.SetFocus
        Exit Function
    End If
    
    
    If Len(Me.cmb_daraja & "") = 0 Then
        'Only Sinf is selected
        Me.Sinf_Est = DLookup("[rakm istid]", "khibra", "[sinf]=" & Me.cmb_sinf)
        Me.Daraja_Est = ""
        
    Else
        'both Sinf and Daraja are selected
        Me.Sinf_Est = DLookup("[rakm istid]", "khibra", "[sinf]=" & Me.cmb_sinf)
        Me.Daraja_Est = DLookup("[istidlal]", "khibra", "[sinf]=" & Me.cmb_sinf & " And [daraja]=" & Me.cmb_daraja)
        
    End If
    
    
End Function


Private Sub cmb_daraja_AfterUpdate()

    Call check_both_combos
End Sub

Private Sub cmb_sinf_AfterUpdate()

    Call check_both_combos
End Sub

Private Sub cmb_sinf_DblClick(Cancel As Integer)

    Me.cmb_sinf = ""
    Call check_both_combos
End Sub

Private Sub cmb_daraja_DblClick(Cancel As Integer)

    Me.cmb_daraja = ""
    Call check_both_combos
End Sub

 

جعفر

260.الشبكة الإستدلالية للمرتبات.accdb.zip

[nacer_alger]

بارك الله فيك اخي جعفر 

ممكن طلب 

واذا اريدت ان استعمل cmb_daraja يعطيني الرقم الإستدلالي لدرجات

كيف اعمل لم استطيع التعديل في كود 

daradjat.bmp

تم تعديل نوفمبر 16, 2015 بواسطه nacer_alger

[jjafferr]

وعليكم السلام أخي ناصر 

 

لا تستطيع ان تستعمل cmb_daraja بدون cmb_Sinf ،

فيجب اختيار الصنف  عن طريق cmb_Sinf ، وبعدها تستطيع ان تختار الدرجة التي تريدها عن طريق cmb_daraja.

 

 

جعفر

[nacer_alger]

نعم اخي جعفر اعلم 

لكن هل هناك طريقة اخرى للإستغناء عنه 

[jjafferr]

أخي ناصر طلبك غير واضح ، رجاء تفصّل اكثر ، 

واخبرني كيف طريقة العمل اللي تريدها لوسمحت 

 

 

جعفر

[nacer_alger]

اقتباس

 

شرح في المرفق

260.ƒÚ¼áÞí ƒÚؽóºÚƒÚ´í ÚÚÛ®óáƒó.rar

[jjafferr]

الله يطول في عمرك أخوي ناصر ، كيف تريده ان يعمل؟؟

يعني يعطيك درجات اي صنف؟

للحصول على اي معلومة من جدولك ، فانت بحاجة الى معطيات اثنين ، صنف ودرجات ،

فاذا الغينا الصنف ، فالدرجات تكون لأي صنف؟؟

 

إلا اذا اردت ان تدمج الصنف والدرجات في الحقل cmb_daraja ، فهل هذا قصدك؟

 

 

جعفر

[nacer_alger]

هل هذا ممكن 

[jjafferr]

تفضل 

 

 

جعفر

260.الشبكة الإستدلالية للمرتبات.accdb.zip

[nacer_alger]

شكرا للك استاذ جعفر

حفظك الله 

[jjafferr]