منع اضافة بيانات لعميل معين في شهر معين

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

اسهل شئ يجي على بالي ، انك تسمح للموظف ان يدخل حقل "اليوم" فقط ، واما حقل الشهر والسنة ، فالبرنامج مفروض ان يدخله برمجيا حسب شهر/سنة الجهاز :)

جعفر

واذا كنت لا اريد شهر/سنة الجهاز لانني احيانا اتاخر وادخل بيانات شهرين وربما ثلاثه معا

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

تفضل اخي :)

انا استعملت هذه الطريقة في احد برامجي ، وهي

1. انك تعمل نموذج افتتاح ، وتجعل فيه الشهر والسنة (طبعا الكود يأخذهم من الجهاز ، وممكن ان المستخدم يغيرهم) ،

وهذا هو الكود:

Private Sub Form_Load()

    Me.cmb_month = Month(Now())
    Me.cmb_year = Year(Now())
End Sub

2. في زر في النموذج اللي تفتح فيه نموذج الادخال ،

3. نموذج الادخال فيه تاريخ اليوم فقط ،

4. وعند ادخال سجل جديد ، فالنموذج يطلب من المستخدم ادخال تاريخ اليوم ، كما انه يشاهد الشهر/السنة.

وهذا هو الكود:

Private Sub Form_Current()
On Error GoTo err_Form_Current

    If Me.NewRecord = True Then
        Me.OrderDay = InputBox("ÑÌÇÁ ÇÏÎÇá ÊÇÑíÎ Çáíæã ÝÞØ ¡ ÈÏæä ÇáÔåÑ æÇáÓäÉ" & vbCrLf & vbCrLf & _
                                "ÇáÔåÑ=" & Forms!frm_Start!cmb_month & vbCrLf & _
                                "ÇáÓäÉ=" & Forms!frm_Start!cmb_year)
                                
'        If Len(Me.OrderDay & "") = 0 Then
            'the user pressed on the Ccancel button
'            Exit Sub
'        End If
        
        Me.OrderDate = DateSerial(Forms!frm_Start!cmb_year, Forms!frm_Start!cmb_month, Me.OrderDay)
    End If

Exit Sub
err_Form_Current:

    If Err.Number = 13 Then
        'user cancelled the request
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    

End Sub

جعفر

268.MonthLock.accdb.zip

جميل جدا ولكن لو ان هناك طريقه بحيث انني اقوم بالتعديل من النموذج mainfrm بدون استخدام نموذج اخر

ما في مشكلة :)

انسخ الحقلين والكود من نموذج البدء ، وخليهم في نموذجك frmMain :)

جعفر