Tekrar merhaba;

Şöyle bir çözüm buldum kendimce, belki daha kısa bir yolu vardır. İhtiyacı olanlar kullanabilsin diye paylaşıyorum.

If Me.kalip_hazirlama_onay.Value = False And Me.kalip_temizleme_onay.Value = False And Me.kalip_bakim_onay.Value = False And Me.ekipman_bakim_onay.Value = False And Me.flas_onleme_onay.Value = False And Me.ofis_yonetim_onay.Value = False And Me.genel_onay.Value = False Then



MsgBox "Hiçbir kategori seçilmemiş." & vbCr & "Lütfen Eğitim Verilmesi Gereken Kategoriyi Seçin.", vbCritical, "Kaydetme Başarısız"



Exit Sub

End If