مساعدة في اضافة اكثر من اجازة لنفس الموظف

[waheidi2005]

الخبراء الافاضل

ما هي المشكلة بالنموذج المرفق وكيف استطيع اضافة اكثر من اجازة لنفس الموظف

مع احترامي

 

مثال.accdb

[محمد أبوعبدالله]

السلام عليكم

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

Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[empno ] = " & Str(Nz(Me![مربع_تحرير_وسرد74], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

اكتفي ببقية الاوامر وسيضيف اجازة جديدة لنفس الموظف

اكتفي بهذا فقط

mosama = Me.مربع_تحرير_وسرد74.Column(3)
center = Me.مربع_تحرير_وسرد74.Column(4)
empno = Me.مربع_تحرير_وسرد74.Column(0)
emp_e_name = Me.مربع_تحرير_وسرد74.Column(2)
Me.txtname.Value = Me.مربع_تحرير_وسرد74.Text

تحياتي

[waheidi2005]

اشكرك اخي محمد ابو عبد الله وزادك الله علما ونفع بك

[محمد أبوعبدالله]

5 ساعات مضت, waheidi2005 said:

اشكرك اخي محمد ابو عبد الله وزادك الله علما ونفع بك

بالتوفيق اخي الكريم

تحياتي

[كريمو2]

من المستحسن عمل نموذج فرعي مرتبط بالنموذج الاصلي اجازة لكي تتمكن من اضافة عدة اجازات لنفس الموظف

بالتوفيق

تم تعديل ديسمبر 18, 2019 بواسطه كريمو2