Formda Veriler Kayboluyor... - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Formda Veriler Kayboluyor... (/konu-formda-veriler-kayboluyor.html) |
Formda Veriler Kayboluyor... - mozuer - 17/02/2013 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… Cvp: Formda Veriler Kayboluyor... - fatih karagöl - 23/02/2013 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 Cvp: Formda Veriler Kayboluyor... - mozuer - 25/02/2013 Sn.fatih karagöl; Teşekkür ederim... |