Alanları Kilitleme

Merhaba
Altaki kod ile formun tüm alanlarını kilitleniyor ancak alt formlar hariç. Form üzerindeki tek komut düğmesi ile form üzerindeki alt formlar kilitlenebilirmi? Teşekkürler.

Private Sub Form_Load()
Call AlanKapali
End Sub
Private Sub cmdDuzelt_Click()
Call AlanAcik

End Sub
Private Sub cmdKaydet_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Call AlanKapali
End Sub

Private Sub AlanKapali()
Dim ctl As Control
For Each ctl In Me.Form.Controls
Select Case ctl.ControlType
Case acTextBox
ctl.Locked = True
ctl.BackColor = 16777153
Case acComboBox
ctl.Locked = True
ctl.BackColor = 16777153
End Select
Next
End Sub
Private Sub AlanAcik()
Dim ctl As Control
For Each ctl In Me.Form.Controls
Select Case ctl.ControlType
Case acTextBox
ctl.Locked = False
ctl.BackColor = 12189695
Case acComboBox
ctl.Locked = False
ctl.BackColor = 12189695
End Select
Next
End Sub

Merhaba..

İsteğiniz mümkündür.. İlgili kodları bunlarla değiştiriniz veya yaptığım düzenlemeyi aynen uygulayınız..

Visual Basic

Private Sub AlanKapali()
Dim ctl As Control
For Each ctl In Me.Form.Controls
Select Case ctl.ControlType
Case acTextBox
ctl.Locked = True
ctl.BackColor = 16777153
Case acComboBox
ctl.Locked = True
ctl.BackColor = 16777153
Case acSubform 'Bu kısmı ekledim
ctl.Locked = True
 
End Select
Next
End Sub
 
Private Sub AlanAcik()
Dim ctl As Control
For Each ctl In Me.Form.Controls
 
Select Case ctl.ControlType
Case acTextBox
ctl.Locked = False
ctl.BackColor = 12189695
Case acComboBox
ctl.Locked = False
ctl.BackColor = 12189695
Case acSubform 'Bu kısmı ekledim
ctl.Locked = False
 
End Select
Next
End Sub

Taruz hocam çok teşekkürler
Aynen uyguladım ancak "case without select case" şeklinde hata veriyor.

İlave ettiğim kısım Controltype tanımının üstünde kalmış.. Kusura bakmayın.. Üstteki mesajımı yeniden düzenledim..

Taruz hocam ellerinize sağlık diyecek birşey bulamıyorum çok teşekkürler güzel oldu.[/align] Form kilitlendiği ve açıldığı zaman renk değişikliklerini alt formlara da uygulayabilirmiyiz.

Rica ederim..

Alt formların duruma göre renk değiştirmesi için gerekli ilaveleri de yaptım.. RGB renk kodlarını istediğiniz gibi düzenleyebilirsiniz..

Visual Basic

Private Sub AlanKapali()
Dim ctl As Control
For Each ctl In Me.Form.Controls
    Select Case ctl.ControlType
    Case acTextBox
        ctl.Locked = True
        ctl.BackColor = 16777153
    Case acComboBox
        ctl.Locked = True
        ctl.BackColor = 16777153
    Case acSubform    'Bu kısmı ekledim
        ctl.Locked = True
        ctl.Form.Section(0).BackColor = RGB(252, 160, 0)
    End Select
Next
End Sub
 
Private Sub AlanAcik()
Dim ctl As Control
For Each ctl In Me.Form.Controls
 
    Select Case ctl.ControlType
    Case acTextBox
        ctl.Locked = False
        ctl.BackColor = 12189695
    Case acComboBox
        ctl.Locked = False
        ctl.BackColor = 12189695
    Case acSubform    'Bu kısmı ekledim
        ctl.Locked = False
        ctl.Form.Section(0).BackColor = RGB(254, 45, 154)
    End Select
Next
End Sub