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 - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kayıtlarımda bütün bilgiler enabled no fakat yeni bir kayıda geçtiğimdede no (/konu-kayitlarimda-butun-bilgiler-enabled-no-fakat-yeni-bir-kayida-gectigimdede-no.html)

Kayıtlarımda bütün bilgiler enabled no fakat yeni bir kayıda geçtiğimdede no - margeaux54 - 03/05/2010

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

Cvp: Kayıtlarımda bütün bilgiler enabled no fakat yeni bir kayıda geçtiğimdede no - Puletin - 04/05/2010

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

Cvp: Kayıtlarımda bütün bilgiler enabled no fakat yeni bir kayıda geçtiğimdede no - margeaux54 - 23/05/2010

Denedim hocam sağolun Img-grin

Cvp: Kayıtlarımda bütün bilgiler enabled no fakat yeni bir kayıda geçtiğimdede no - Taruz - 23/05/2010

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

Cvp: Kayıtlarımda bütün bilgiler enabled no fakat yeni bir kayıda geçtiğimdede no - ercansahin - 23/05/2010

Sn Taruz, Teşekkürler..