23/03/2022, 13:56
tarkanaykın
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
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