Sayın Çevik,

Öncelikle,
Eklediğiniz örnek uygulama üst sürüm olması nedeni ile,kendi adıma inceleme imkanı söz konusu olmamaktadır fakat,fikir vermesi için;

1)

Eğer sadece bu üç denetim için böyle bir kontrol istiyorsanız:

If IsNull(Me.HİZMET) or Me.HİZMET="" or IsNull(Me.Metin56) or Me.Metin56="" or IsNull(Me.Hizmet Tarihi) or Me.Hizmet Tarihi="" then

MsgBox("HİZMET, Metin56 ve Hizmet Tarihi denetimlerini doldurunuz.")

Exit Sub

Else

'yazdırma işlemi için kullandığınız kod satırını buraya ekleyiniz"

End If

Benzeri bir kod kalıbı satırlarını kullanabilirsiniz.

2)

Eğer form üzerindeki bütün TextBox denetimlerinin hepsini kontrol ettirmek istiyorsanız:

Dim kontroladi As Control

Dim booFilledBox As Boolean

 

For Each kontroladi In Me.Controls

      If kontroladi.ControlType = acTextBox Then

           If Not (IsNull(kontroladi.Value) Or kontroladi.Value = "") Then

                booFilledBox = True

                'yazdırma işlemi için kullandığınız kod satırını buraya ekleyiniz"

                Exit Sub

            Else

                MsgBox ("Bu denetimi BOŞ geçmeyiniz.")

                kontroladi.SetFocus

                Exit Sub

           End If

      End If

Next kontroladi

Benzeri kod kalıbı satırlarını kullanabilirsiniz.

Bilginize…iyi çalışmalar,saygılar.