AccessTr.neT

merhaba hayırlı geceler
formül=Private Sub Form_BeforeUpdate(Cancel As Integer)
If ([FailiMechul] = "1" And [Aydinlatilan] = "1") Or ([Aydinlatilan] = "1" And [FailiMechul] = "1") Or ([Aydinlatilan] = "1" And [FailiMechul] = "1") Then
MsgBox ("Aydinlatilan - FailiMechul ; suçun niteliğine göre bu alanların sadece birisi için =1 değerini verebilirsiniz."), vbExclamation,
Cancel = True
End If
End Sub
sorum şu: alanların boş geçmesi halinde hiç bir uyarı vermiyor. tablodan ise [gerekli] bölümüne evet diyemiyorum nedeni ise mutlaka her iki satır alanlarında biri dolu ve biri boş olmak zorundadır. [her iki alanda boş geçtiğinde alanlardan en az birini doldurmalısınız diye bir ileti vermesini ve yeni kayda gitmemesini istiyorum] yardımlarınızı bekliyorum teşekkürler

Ek Dosyalar

Aydınlatılan+Faili Meçhul.rar(94.39 KB)

bu programın kaydet düğmesi yokmu...

yok mcmaho bey ekleyebilirmisiniz yeni kayıt ekle butonunu kaydet olarak değiştirseniz 3 işlevi birden yaparsa çok memnun olurum sn.mcmaho
mcmaho bey ayrıca birde yenileme sorunu var bazen verileri kaydediyorum bazı sorgular anında alırken bazıları programı açıp kapattıktan sonra alıyor bunun kaydetmeyle alakası varmı yada nasıl birşey önerirsiniz teşekkürler

If ([FailiMechul] = "1" And [Aydinlatilan] = "1") Or ([Aydinlatilan] = "1" And [FailiMechul] = "1") Or ([Aydinlatilan] = "1" And [FailiMechul] = "1") Then

aynı şeyi 3 defa yazmışsınız. Boş bırakılıp bırakılmadığını:

IsNull() ve txtAranan =""

şeklinde kontrol edebilirsiniz.

bu sorularını Access ustalarına sorsan iyi olur. çünkü ben ilk defa bugün Access de kodlarla uğraşiyorum.

sn. alpeki99 kodlarla aram iyi değil IsNull() ve txtAranan ="" formülü nereye ekleyeceğim yardım edermisiniz?
gece malum biraz aptallaştım özür dilerim gözmezden gelin
mcmaho bey katkılarından dolayı teşekkürler