طريقة اظهار الحقول عند الضغط على الزر

[بلال اليامين]

السلام عليكم

لدي اربعة حقول اريد الضغط على الزر تسجيل يسمح بالتسجل لحقول بالون الاحمر فقط

وعند لا يتم الضغط على الزر لايفتح الحقول

الموظف.rar

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

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الكريم

Private Sub Command19_Click()

    Me.نوع_الغياب.Locked = False
    Me.سبب_الغياب.Locked = False
    Me.تاريخ_الغياب.Locked = False
    Me.تاريخ_العودة.Locked = False

    
End Sub

Private Sub Form_Current()

    Me.نوع_الغياب.Locked = True
    Me.سبب_الغياب.Locked = True
    Me.تاريخ_الغياب.Locked = True
    Me.تاريخ_العودة.Locked = True

End Sub

1الموظف.rar

تحياتي

[بلال اليامين]

اخي محمد بارك الله فيك

اخي اريد عند التسجيل والضغط على الزر لايسمح باعادة التعديل

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

36 دقائق مضت, بلال اليامين said:

اريد الضغط على الزر تسجيل يسمح بالتسجل

 

7 دقائق مضت, بلال اليامين said:

اريد عند التسجيل والضغط على الزر لايسمح باعادة التعديل

 

لمنع التعديل نستخدم الكود التالي

    Me.نوع_الغياب.Locked = True
    Me.سبب_الغياب.Locked = True
    Me.تاريخ_الغياب.Locked = True
    Me.تاريخ_العودة.Locked = True

 

للسماح بالتعديل نستحدم الكود التالي

    Me.نوع_الغياب.Locked = False
    Me.سبب_الغياب.Locked = False
    Me.تاريخ_الغياب.Locked = False
    Me.تاريخ_العودة.Locked = False