15/06/2019, 21:18
prestij06
Son verdiğiniz kod çalışmadı ama benim bulduğum aşağıdaki kod sayesinde artık istediğim bir nebze de olsa oluyor
Kod:
If IsNull([klasorno]) Then MsgBox "Klasör Numarası Girilmemiş!", vbExclamation, "Klasör No": Me.klasorno.SetFocus: Exit Sub
If IsNull([dosyano]) Then MsgBox "Dosya Numarası Girilmemiş!", vbExclamation, "Dosya No": Me.[dosyano].SetFocus: Exit Sub
If IsNull(isim) Then MsgBox "Ad-Soyad Boş Geçemezsiniz!", vbExclamation, "Ad-Soyad": Me.isim.SetFocus: Exit Sub