Skip to main content

AccessTr.neT


Es Geçilen If Bloku Sorunu

Es Geçilen If Bloku Sorunu

Çözüldü #1
selamlar arkadaşlar, kaydet butonum var eğer "aciklama" adlı textbox boş ise uyarı veriyordu, doldurduktan sonra kaydediyordu, ama uyarı veren if bloku es geçilip else den sonraki bölüm çalışıyor, dosyamı ekliyorum, bi bakabilecek arkadaş var mı?

Private Sub kaydet_Click()
If Me.aciklama.Value = "" Then

MsgBox ("açıklama bölümü boş, açıklama girin")

Exit Sub



Else
If MsgBox("bu kayıt 'sorunlu olarak kaydedilecek'", vbYesNo) = vbYes Then

'If Me.onEks.Value = True Then
Dim a As String

b = Me.onEksEt.Caption





a = "sorunlu"
CurrentDb.Execute "update mkys set mkys.durum = '" & a & "',mkys.aciklama= '" & Me.aciklama & "' where mkys.Kimlik=" & Me.Kimlik
Me.Requery
MsgBox "kaydedildi"
Else: Exit Sub
'End If
End If

End If
End Sub
.rar deneme (25).rar (Dosya Boyutu: 615,61 KB | İndirme Sayısı: 4)
Cevapla
#2
If Me.aciklama.Value = "" Then yerine aşağıdaki şekilde dener misiniz?
If Len(Me.aciklama.Value & "") = 0 Then
Cevapla
#3
çok teşekkür ederim sayın berduş, çalıştı,yalnız öğrenmek için soruyorum len olayını da biliyorum da şu birleştirme işaretinden sonraki "" ne anlama geliyor, neden onu kullanıyoruz?
Cevapla
#4
Len fonksiyonu her zaman düzgün çalışmıyor bazen hata verebiliyor bu sorunu engellemek için çift tırnak eklemek gerekiyor.
Cevapla
#5
anlaşıldı, teşekkürler.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task