إدراج ايام الاسبوع وفقا للسنة والشهر

[صابر بصير]

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

البرنامج أنا عمله علي أكسيل بس عايز أحوله لأكسيس 

فيه حاجة واقفة معايا كل ما أعمل البرنامج بأكسيس 

وهي اني عايز أعمل إدراج لايام الاسبوع أول ما أضيف السنة والشهر في رأس النموذج 

يعني بمجرد مثلا ما اسجل السنة ( 2017 ) والشهر ( ديسمبر ) في رأس النموذج ..يعمل إدراج لايام الاسبوع (جمعة/ سبت / حد ) في النموذج الفرعي 

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

أرجو المساعدة من المختصين ولكم جزيل الشكر 

ايام الاسبوع.rar

[jjafferr]

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

 

واهلا وسهلا بك في المنتدى

ورجاء قراءة قوانين المنتدى قبل وضع مشاركات جديدة

 

تفضل ، المطلوب في برنامجك المرفق ،

وهذا الكود يقوم بالعمل:

Private Sub cmd_Do_Month_Dates_Click()


    Dim rst As DAO.Recordset
    Dim i As Date
    
    Set rst = Me.نموذج_فرعي_main_data.Form.RecordsetClone
    
    
    For i = DateSerial(Me.iYear, Me.iMonth, 1) To DateSerial(Me.iYear, Me.iMonth + 1, 0)
    
        rst.AddNew
            
            rst!dd = Format(i, "dddd")
            rst!ddate = i
            
        rst.Update
        
    Next i
    
    rst.Close: Set rst = Nothing
    
End Sub

 

جعفر

831.برنامج رواتب.accdb.zip

[صابر بصير]

شكرا استاذي 
جزاك الله كل خير 
بس انا حاسس اني ارتكبت خطأ غير مقصود بالنسبة لقوانين المنتدي 

أرجو من حضرتك توضحه لي 

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

شكرا جزيلا 

[jjafferr]

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

 

يجب ان تستخدم ارقام للشهر والسنه ، عُذرا على هذا السهو

ولم تخالف القوانين ، ولكن رجاء قراءتها

 

جعفر

[صابر بصير]

شكرا استاذنا 
ربنا يجزيك كل خير 

[صابر بصير]

سلام عليكم استاذي 
أنا جربت الكود بتاع حضرتك واشتغل لكن جيت أجربه في برنامجي الجديد في رسالة خطأ بتظهر 
ارجو المساعدة ولك جزيل الشكر

رواتب أرتكيا.rar

[kaser906]

22 دقائق مضت, صابر بصير said:

ارجو المساعدة ولك جزيل الشكر

تمت اجابتك على هذا الرابط