إخفاء وإظهار الحقول دفعة واحدة

اخي الفاضل بلالي

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

كل ما نحتاجه كود صغير وبسيط جدا لإخفاء وإظهار الحقول وحتى لو كانت مليون حقل

لذا انظر الى هذه الإكواد

كود اخفاء جميع الحقول دفعة واحدة

Private Sub CmdVisible_Click()
Dim ctl As Control
	For Each ctl In Form.Controls
		If ctl.ControlType = acTextBox Then
		   ctl.Visible = False
		End If
	Next ctl
End Sub

وهذا الكود لإظهار جميع الحقول دفعة واحدة

Private Sub CmdShow_Click()
Dim ctl As Control
	For Each ctl In Form.Controls
		If ctl.ControlType = acTextBox Then
		   ctl.Visible = True
		End If
	Next ctl
End Sub

za_TextVisible_Show.rar

شكرا جزيلا الى الاخت زهرة

ولكن هنا سؤال آخر ، وهو

عندي حقول من A1 الى A100

اريد عند ظهور حقل A1 يختفون باقي الحقول

ثم يظهر حقلA2 ويختفون باقي الحقول

ثم يظهر حقل A3 ويختفون باقي الحقول

اي ان عملية ظهور حقل واختفاء باقي الحقول وهكذا يعتمد على حدث عند التوقيت اي تتم هذه العملية كل 1 ثانية

تحياتي..