Boş veri uyarısı

[kuva_i_milliye23]

Selam Üstadlar;
Aşağıdaki kod ile kayıt işlemi öncesi mevcut form üzerinde bulunan "birleştirme1 altformu" isimli formdaki "günt" (Sorgu sonucu bulunan değerlerin toplam kutusu ) isimli Metin kutusuna baş vuruyor. orda yazılı değer 1 veya daha büyükse kod çalışıyor ancak orda herhangi bir değer yok ise yani sorgu sonucunda herhangi bir veri bulunanamışsa kod hata veriyor. "günt" isimli metin kutusunu başka bir metin kutusuna bağladığım zaman orda da değer olmaması durumunda "*Hata" yazıyor bu defa değer verilen 6 veya daha büyükmüş gibi çalışıyor.
Acaba If bölümüne nasıl bir kod yazılması gerekiyor yardımcı olabilirmisiniz.

Teşekkürler.. İyi Çalışmalar..... !

Private Sub KAYDET_Click()
Me.src1süre.Requery
Dim uyari1 As Integer
If [Form_birleştirme1 alt formu].günt.Value >= 6 Then
uyari1 = MsgBox("Bu Durumda Kayıt işlemi yapmanız önerilmez" + vbCrLf + "Kayda işlemini iptal etmek  için EVET i, devam etmek için HAYIR' ı tıklayın", vbYesNo, "USÜLSÜZ KAYIT İŞLEMİ UYARISI")
If uyari1 = vbYes Then
Me.Undo
Else

On Error GoTo Err_KAYDET_Click
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_KAYDET_Click:

    Exit Sub

Err_KAYDET_Click:
    MsgBox Err.Description
        Resume Exit_KAYDET_Click
End If
End If
End Sub

 

[beab05]

Merhaba;

If isnull([Form_birleştirme1 alt formu].günt.Value) then
exit sub
else
[Form_birleştirme1 alt formu].günt.Value>= 6 Then
......
end if

Ya da

Sorgudan "günt" alanı için "nz" fonksiyonunu uygulayın böylece null(bo&#351 değer dönmesini engellemiş olursunuz..

 

[kuva_i_milliye23]

İlgilendiğiniz için teşekkürler Sayın beab05,

İlk yöntemi denedim sonuç değişmedi. Ancak ikinci yöntem "nz" nin nasıl uygulanacağınıda malesef bilmiyorum. Birde eksik bilgi verdiğimi zannediyorum. Şöyle ki ; Ordaki "günt" direkt sorgudan gelmiyor. Yani Birleştirme1 altformundaki veriler geriye doğru istenilen aralıktaki sıralı tarihlerdir. Bende bu tarihlerin sayısını görmek için birleştirme1 alt formu Form alt bilgisine bir metin kutusu ekledim (günt) ve Say fonksiyonunu uyguladım. Sorgulama sonucunda verilen aralığa uygun tarih yok ise "günt" boş gözüküyor. Ama yukardaki kod hata veriyo.

İyi Çalışmalar...

 

[modalı]

Sayın kuva_i_milliye23,

If [Form_birleştirme1 alt formu].günt.Value >= 6 Then

Eğer kaydet düğümesi asıl formun üstünde ise ki öyle zannediyorum, o zaman kodları şöyle değiştirin.

If [Form_birleştirme1 alt formu].Form.günt.Value >= 6 Then

Tabi alt formun adı Form_birleştirme1 alt formu ise.

Değilse o zaman formunuzu açıp özellikler penceresini açın ve üstteki açılan kutudan adını bulup kodlarınıza onu yazın.

İyi çalışmalar

 

[modalı]

Bir de şöyle deneyin:

If Nz([Form_birleştirme1 alt formu].Form.günt.Value,0) >= 6 Then

İyi çalışmalar

 

[kuva_i_milliye23]

Yine aynı hatayı veriyo malesef.

 

[modalı]

Bakın sanırım End If hatalı yerde sanırım.

 [LEFT]Private Sub KAYDET_Click()
Dim uyari1 As Integer
On Error GoTo Err_KAYDET_Click

Me.src1süre.Requery
If [Form_birleştirme1 alt formu].günt.Value >= 6 Then
uyari1 = MsgBox("Bu Durumda Kayıt işlemi yapmanız önerilmez" + vbCrLf + "Kayda işlemini iptal etmek  için EVET i, devam etmek için HAYIR' ı tıklayın", vbYesNo, "USÜLSÜZ KAYIT İŞLEMİ UYARISI")
End If
If uyari1 = vbYes Then
Me.Undo
Exit Sub
End If
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_KAYDET_Click:

    Exit Sub

Err_KAYDET_Click:
    MsgBox Err.Description
        Resume Exit_KAYDET_Click
End Sub[/LEFT]

gibi bir şey olması gerekiyor. Ama denemem gerekiyor​

 

[kuva_i_milliye23]

Oraya eklediğim örnekte hatalı olabilir ancak ben asıl forma uyguluyorum ancak alt form boş olduğunda daha kod başlarken hata veriyor
"If Nz([Form_birleştirme1 alt formu].Form.günt.Value, 0) >= 6 Then" satırı sarıya boyanıyor..

 

[modalı]

Bir de bunu deneyin:

If Nz([Form_birleştirme1 alt formu].Form.günt.Value, 0) > 6  Or  Nz([Form_birleştirme1 alt formu].Form.günt.Value, 0) = 6 Then

 

[kuva_i_milliye23]

Bu defa hepten çalışmadı Comlipe erro Syntax error diye bi hata verdi üstelik veri varken