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

Derecelendirme: 0/5 - 0 oy

mozuer

Aktif Üye
Kullanici Avatari
Aktif Üye
M.... Ö....
85
26/12/2009
16
Kocaeli
Ofis 2013 Tr. 32 Bit
20/07/2017,02:52
Çö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…


Ek Dosyalar
.rar   YOLFORM.rar (Dosya Boyutu: 244,2 KB / İndirme Sayısı: 12)
Her insan senin gibi yaradılışa sahiptir.
Cevapla

fatih karagöl

Aktif Üye
Kullanici Avatari
Aktif Üye
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..
Cevapla

mozuer

Aktif Üye
Kullanici Avatari
Aktif Üye
M.... Ö....
85
26/12/2009
16
Kocaeli
Ofis 2013 Tr. 32 Bit
20/07/2017,02:52
Çözüldü 
Sn.fatih karagöl;
Teşekkür ederim...


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


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Müşteri İşlemlerini Tek Formda Takip U.ALTUN 7 371 05/09/2017, 09:10 U.ALTUN
Çözüldü Sürekli Formda Kayıt Girdisi Üstte Olması Yardım... bilservisci 13 365 28/08/2017, 01:42 bilservisci
Çözüldü Formdaki Kaydı Farklı Formda Yeniden Kayıt U.ALTUN 7 336 21/08/2017, 12:04 direnist
Çözüldü Tek Formda Bilgilerin Açılması Hk. serkan1985 2 197 01/08/2017, 22:13 serkan1985
Çözüldü Formda Süzdürme access acemisi 10 546 24/07/2017, 18:20 access acemisi

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