AccessTr.neT

Bul · 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 Img-grin

Bul · 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 Sub

Bul · 23/05/2010, 15:41

Denedim hocam sağolun Img-grin

Bul · 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..

Bul · 23/05/2010, 17:21

Sn Taruz, Teşekkürler..

AccessTr.neT

Kayıtlarımda bütün bilgiler enabled no fakat yeni bir kayıda geçtiğimdede no

Kayıtlarımda bütün bilgiler enabled no fakat yeni bir kayıda geçtiğimdede no

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri