03/05/2010, 21:41
Arkadaşlar formum var ve bu formdaki verileri yetkili kişi bozamasın diye enabled no yaptım fakat yeni kayıta geçtiğimdede bütün özelliklerin enabledi no.
Yani yeni kayıt yapamıyorum
Yani yeni kayıt yapamıyorum
04/05/2010, 20:20
Bunu deneyiniz...
Kod:
Private Sub Form_Current()
If Form.RecordSelectors = Form.NewRecord Then
Kayit_no.Enabled = True
TC_Kimlik_no.Enabled = True
Adı.Enabled = True
Soyadı.Enabled = True
Dogum_Tarihi.Enabled = True
GSM.Enabled = True
Email.Enabled = True
Okul.Enabled = True
Adres.Enabled = True
Ana_kurs.Enabled = True
Sanatsal_kurs.Enabled = True
Frame33.Enabled = True
Else
Kayit_no.Enabled = False
TC_Kimlik_no.Enabled = False
Adı.Enabled = False
Soyadı.Enabled = False
Dogum_Tarihi.Enabled = False
GSM.Enabled = False
Email.Enabled = False
Okul.Enabled = False
Adres.Enabled = False
Ana_kurs.Enabled = False
Sanatsal_kurs.Enabled = False
Frame33.Enabled = False
End If
End Sub23/05/2010, 15:41
Denedim hocam sağolun
23/05/2010, 17:01
Sayın Puletin'in önerisine ilaveten, özellikleri üzerinde değişiklik yapacağımız denetimlerin çok sayıda olması durumunda daha efektif olacak bir prosedur hazırladım.. Paylaşmakta fayda görüyorum..:
Dim trz As Control
For Each trz In Me.Form.Controls
ctl = trz.ControlType
If ctl = acTextBox Or ctl = acComboBox Or ctl = acOptionGroup Then
If NewRecord = True Then
trz.Enabled = True
Else
trz.Enabled = False
End If
End If
Next
Not: Konuya ait denetimler düşünelerek hazırlanmıştır; denetim türü ilave edilerek daha da geliştirilebilir.. Tag (im) kullanılarak aynı türdeki denetimler gruplandırılarak tüm denetim özelliklerine başvurada bulunulabilir..
Dim trz As Control
For Each trz In Me.Form.Controls
ctl = trz.ControlType
If ctl = acTextBox Or ctl = acComboBox Or ctl = acOptionGroup Then
If NewRecord = True Then
trz.Enabled = True
Else
trz.Enabled = False
End If
End If
Next
Not: Konuya ait denetimler düşünelerek hazırlanmıştır; denetim türü ilave edilerek daha da geliştirilebilir.. Tag (im) kullanılarak aynı türdeki denetimler gruplandırılarak tüm denetim özelliklerine başvurada bulunulabilir..
23/05/2010, 17:21
Sn Taruz, Teşekkürler..