AccessTr.neT
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...