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.

birinci if satiri then sonrasinda ki msgbox .... olan bolum bir alt satira inmeli ki, else gerceklessin.

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.