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

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

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

سلام عليكم

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

 

Bureau.rar

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

تفضل :rol:

 

260.Clipboard02.jpg.1959b88e90ac2fc96c7d

 

والكود:



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

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

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

ممكن طلب 

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

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

daradjat.bmp

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

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

 

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

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

 

 

جعفر

قام بنشر

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

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

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

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

 

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

 

 

جعفر

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