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

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

السلام عليكم

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

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

الموظف.rarFetching info...

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

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

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

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الموظف.rarFetching info...

تحياتي

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

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

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

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

  في 25‏/7‏/2020 at 17:02, بلال اليامين said:

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

Expand  

 

  في 25‏/7‏/2020 at 17:31, بلال اليامين said:

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

Expand  

 

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

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

 

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

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