Formda Veriler Kayboluyor...
Tarih
17/02/2013 06:10
Konu Sahibi
mozuer
Yorumlar
2
Okunma
1073
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
19/04/2017,12:14
Çö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ü 
Sponsor Reklam
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
19/04/2017,12:14
Çö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
  Formda Resim Ekleme mharman 4 114 13/05/2017, 19:29 mharman
  Açılan Formda Currentrecord Datasını Getirmek temre 5 80 07/05/2017, 20:45 temre
  Sekmeli Formda Mouse Move Yazı Rengi Değitirme bentürk 13 223 24/04/2017, 13:16 bentürk
  Formda Toplama 6246386 3 182 17/04/2017, 10:12 6246386
  Access Formda Rastgele (random) Resimlerin Aynı Olmamasını Nasıl Sağlarız? mehami 5 213 15/04/2017, 09:25 ozanakkaya


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status