ısnull / ısnotnull

M_Kemal_Askeri · 19-10-2019, 01:48

Herkese selam,

Sitemizden aldığım bir örnekteki kodu bir ilave ile kullanmak istiyorum ama maalesef yapamadım.

If Me.Filter = IIf(IsNull(Me.ARAMA) Or Me.ARAMA = "", "", "[ARA] Like '*" & Me.ARAMA & "*'") Then
Me.FilterOn = True

(Bu araya ARAMA kutusuna yazılan değerin veritabanında bulunamaması halinde önce aşağıdaki mesajı vermesini ve daha sonra YENİKAYIT'a gitmesini sağlayacak bir kod yazmak istedim. Then
MsgBox ("Aradığınız kritere uygun kayıt bulunamamıştır")
DoCmd.GoToRecord , , acNewRec

ElseIf IsNull(Me.ARAMA) Or Me.ARAMA = "" Then
DoCmd.GoToRecord , , acNewRec
End If

yardıma ihtiyacım var teşekkür ederim.

halily · 19-10-2019, 02:57

Visual Basic
dim txtFiltre as String
if len(nz(Me.ARAMA,""))>0 Then 'arama kutusu boş değilse
txtFiltre = "[ARA] Like '*" & Me.ARAMA & "*'" 
Me.Filter = txtFiltre 
Me.FilterOn = True
    If Me.Recordset.RecordCount = 0 Then 'kayıt sayısı 0 ise
        MsgBox ("Aradığınız kritere uygun kayıt bulunamamıştır")
        DoCmd.GoToRecord , , acNewRec
    End If
else
     DoCmd.GoToRecord , , acNewRec 
end if

M_Kemal_Askeri · 19-10-2019, 17:01

Sayın halily cevabınız için çok teşekkür ederim. Sorun çözülmüştür. Ancak şöyle bir problemle karşı karşıyayım şimdi de;

aşağıda ekran görüntüsünü eklediğim formdan arama yaptırıyorum. Formu ilk açtığımda sizin vermiş olduğunuz kodu kullanarak (Bul butonu) arama yaptırdığımda arama yapıyor ve aradığım kaydı ekrana getiriyor. Ancak Temizle butonu ile ARAMA alanını temizleyip tekrar yeni bir arama yaptırmak istediğimde "Aradığınız kritere uygun kayıt bulunamamıştır" mesajı çıkıyor ve ben formu kapatıp tekrar açmadan arama yapmıyor.

halily · 19-10-2019, 17:22

hangi kodu nerede kullandınız bilmiyorum ama az önce birebir aynı kodu -arama alanı dışında- denediğimde bende sorun çıkarmadı

M_Kemal_Askeri · 19-10-2019, 23:23

Sayın halily,
sizin yukarıda yazmış olduğunuz kodu göndermiş olduğum resimdeki "Bul" komutunun altına yazdım. "Temizle" butonunun altında ise sadece ARAMA = " "
ifadesi mevcut.
Bu formun kayıt kaynağı olarak da;
SELECT Tbl_Emlak_Alici_Satici_Kayit.*, [ID] & [isim] & [Soyad] & [TCKimlikNu] & [Ceptel] & [Evtel] & [EPosta] & [KayitTrh] & [Adres] & [Alici_Satici] AS ARA
FROM Tbl_Emlak_Alici_Satici_Kayit
ORDER BY Tbl_Emlak_Alici_Satici_Kayit.ID;

SQL olarak yazılı.

M_Kemal_Askeri · 19-10-2019, 23:42

Sayın halily,

ben sizin verdiğiniz kodu yukarıdaki mesajımda belirttiğim gibi "Bul" butonunun altına yazmıştım. Ancak şimdi orijinal örneğe uygun olarak "ARAMA" kutusunun altına yazdığımda ve butonları iptal ettiğimde sorunsuz çalıştı. Teşekkür ederim yardımlarınız için.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[VBA] WHERE Koşulunda Isnull veya Not IsNull Kullanımı	EminA	2	1.718	06-04-2017, 14:03 Son Mesaj: EminA
	[SORGU] Sorguda alan da koşullama için IsNotNull kullanımı	ENMEREL	1	1.529	24-01-2014, 10:41 Son Mesaj: Abdullah
	[VBA] İf not isnull (GozlemSorusu) Then	orka80	5	3.152	09-11-2011, 13:21 Son Mesaj: orka80

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL