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