Else Without If hatası...
#1
Private Sub kaydet_Click()
If IsNull(Me.birim) Or IsNull(Me.kodu) Or IsNull(Me.islem_tani) Then MsgBox "Lütfen alanları boş geçmeyin ", 48, "Kayıt İşlemi"

Me.birim.SetFocus

Exit Sub

Else


DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO ana ([birim],[kodu],[islem_tani]) VALUES ('" & Me.birim.Value & "','" & Me.kodu.Value & "','" & Me.islem_tani.Value & "')"
DoCmd.SetWarnings True
Me.Refresh
 Me.kimlik = ""
 Me.birim = ""
 Me.kodu = ""
 Me.islem_tani = ""
 
 End If
End Sub

 merhabalar, türkçe algoritması;
 eğer adı geçen metin kutularının herhangi biri boşsa uyarı ver ve çık;
yok eğer hepsi doluysa aşağıdaki kodları çalıştır.
  söz dizim hatası mı  yapıyorum anlayamadım neden "else without if hatası alıyorum acaba, yardımcı olur musunuz, teşekkürler.



  Alıntı
Bu mesajı beğenenler:
#2
birinci if satiri then sonrasinda ki msgbox .... olan bolum bir alt satira inmeli ki, else gerceklessin.



  Alıntı
Bu mesajı beğenenler:
#3
evet, haklısın yanlış hatırlamıyorsam  tek satırda yazılan If karar yapısının "else", "end ıf"  gibi kısımlarına gerek kalmıyordu, çok teşekkür ederim.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [TABLO] Excell'den access'e veri aktarma hatası ( Number formatı veri hatası) akkana 3 295 08-01-2019, 16:45
Son Mesaj: halily
access-sql-9 [VBA] "MS Access 1 kaydı anahtar hatası yüzünden tabloya ekleyemiyor" hatası raykon 9 4.753 04-07-2013, 12:53
Son Mesaj: raykon

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi