03/05/2010, 21:41
Kayıtlarımda bütün bilgiler enabled no fakat yeni bir kayıda geçtiğimdede no
04/05/2010, 20:20
Puletin
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 23/05/2010, 15:41
margeaux54
Denedim hocam sağolun
23/05/2010, 17:01
Taruz
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
ercansahin
Sn Taruz, Teşekkürler..