Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
03/05/2010 21:41
Konu Sahibi
margeaux54
Yorumlar
4
Okunma
1772
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

margeaux54

Aktif Üye
Kullanici Avatari
Aktif Üye
66
05/03/2010
0
Ankara
Ofis 2007
20/12/2015,12:15
Çözüldü 
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ıyorumImg-grin


Ek Dosyalar
.rar   MEHA.rar(Dosya Boyutu: 30,64 KB / İndirme Sayısı: 10)
margeaux54, 05-03-2010 tarihinden beri AccessTr.neT üyesidir
Cevapla

Puletin

Onursal Üye
Kullanici Avatari
Onursal Üye
1.716
01/11/2008
416
-
Ofis 2003
24/12/2016,00:18
Çözüldü 
Bunu deneyiniz...

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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


Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla

margeaux54

Aktif Üye
Kullanici Avatari
Aktif Üye
66
05/03/2010
0
Ankara
Ofis 2007
20/12/2015,12:15
Çözüldü 
Denedim hocam sağolun Img-grin


margeaux54, 05-03-2010 tarihinden beri AccessTr.neT üyesidir
Cevapla

Taruz

Aktif Üye
Kullanici Avatari
Aktif Üye
104
4
04/10/2009
20
Belirtilmemiş
Belirtilmemiş
10/06/2014,13:15
Çözüldü 
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..


Cevapla

ercansahin

BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
03/03/2018,16:39
Çözüldü 
Sn Taruz, Teşekkürler..


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Formda Adres Kısmını Butun İle Cariden Getirmek haziran4 6 212 07/02/2018, 08:02 haziran4
Çözüldü Formda Yeni Kayıt Denildiğinde Buton Formdan İsim Seçip Yeni Kaydın İsmine Getirme haziran4 6 201 05/02/2018, 11:25 haziran4
Çözüldü Eski Tablo Ve Yeni Tablo Arasındaki Kurulamayan Bağ onur_ozce 5 179 15/01/2018, 00:32 onur_ozce
Çözüldü Excele Aktarırken Yeni Türk Lirası Simgesinin Soru Işareti Olarak Gözükmesi mmert06 8 204 31/12/2017, 12:53 mmert06
Çözüldü Sorgu İle Birleştirme Yapmak Yeni Tablo Elde Etmek hgsoftware 4 183 07/12/2017, 21:08 hgsoftware

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
 
 
Forum use Krzysztof "Supryk" Supryczynski addons.