Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
17/02/2013 06:10
Konu Sahibi
mozuer
Yorumlar
2
Okunma
1448
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
mozuer

mozuer

Aktif Üye
13304
mu.... öz....
 44
 31
 85
 26/12/2009
16
 Kocaeli
 
 Ofis 2013 Tr. 32 Bit
 10/05/2019,17:29
Çözüldü 
ISTAKIP” formunda;
1. Köy Adı ve/veya Köy Mahallesi seçildiğinde “Semt, Cadde ve Diğer” seçilemeyecek,
2. Semt ve/veya Cadde seçildiğinde “Köy, Köy Mahallesi ve Diğer” seçilemeyecek,
3. Diğer seçildiğinde “Köy, Köy Mahallesi, Semt, Cadde” seçilemeyecek,
Yukarıdakileri Güncelleştirme sorgusu ile ya da ilgili alanın güncelleştirme sonrası olayında diğerlerine Null değeri atayarak yapıyorum. Ancak;
Örneğin Köy Adı ve Köy Mahallesinde veri olduğunu varsayalım. Bir alt satırda Semt seçimi yapıldığında Köy Mahallesindeki veri kayboluyor. Aynı şekilde Semt ve Caddede veri varken alt satırda Köy seçildiğinde Cadde kayboluyor….
Bu verilerin gözükmesini istiyorum. Yardımlarınızı bekliyorum…


Her insan senin gibi yaradılışa sahiptir.

fatih karagöl

fatih karagöl

Aktif Üye
25500
 Belirtilmemiş
 21
 167
 05/10/2010
88
 Edirne
 
 -
 15/12/2015,17:38
Çözüldü 
Sn Mozuer
Alt forma modülüne 3 fonksiyon ekledim. bunları ekleyin ve ilgili denetimlerin after update olaylarını makrodan alıp aşağıdaki gibi düzenleyin. istediğiniz gibi olacaktır. ben Sadece köy bölümlerini düzenledim. diğerlerini size bıraktım.

Private Sub ky_AfterUpdate()
If grup2Value = True Then
MsgBox "Mahalle grubunda bilgi bulunduğundan seçim yapamazsınız"
Me.ky = dbNull
Exit Sub
End If
If grup3Value = True Then
MsgBox "Diğer bölümünde bilgi bulunduğundan seçim yapamazsınız"
Me.ky = dbNull
Exit Sub
End If
End Sub



Private Sub kym_AfterUpdate()
If grup2Value = True Then
MsgBox "Mahalle grubunda bilgi bulunduğundan seçim yapamazsınız"
Me.kym = dbNull
Exit Sub
End If
If grup3Value = True Then
MsgBox "Diğer bölümünde bilgi bulunduğundan seçim yapamazsınız"
Me.kym = dbNull
End If
End Sub
Function grup1Value() As Boolean
If Me.ky <> "" Then grup1Value = True
If Me.kym <> "" Then grup1Value = True
End Function
Function grup2Value() As Boolean
If Me.sm <> "" Then grup2Value = True
If Me.smh <> "" Then grup2Value = True
End Function
Function grup3Value() As Boolean
If Me.dg <> "" Then grup3Value = True
End Function


Hayatta listbox kullanmam..

...........
mozuer

mozuer

Aktif Üye
13304
mu.... öz....
 44
 31
 85
 26/12/2009
16
 Kocaeli
 
 Ofis 2013 Tr. 32 Bit
 10/05/2019,17:29
Çözüldü 
Sn.fatih karagöl;
Teşekkür ederim...


Her insan senin gibi yaradılışa sahiptir.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formda Açılır Kurularda 3101 Hatası Veriyor haziran4 11 193 24/05/2019, 16:22
Son Yorum: haziran4
Çözüldü Formda Form Yenileme haziran4 2 158 02/05/2019, 13:44
Son Yorum: haziran4
Çözüldü Formda Formül Kullanma haziran4 8 238 02/05/2019, 13:04
Son Yorum: haziran4
Çözüldü Formda Bitiş Tarihi Geçenlerin Alan Rengi Değişimi haziran4 3 148 30/04/2019, 13:04
Son Yorum: haziran4
Çözüldü Formda If İç İçe Kullanım haziran4 28 532 30/04/2019, 12:17
Son Yorum: haziran4

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.