Kod:
Dim ctrl As Control
Dim a As String
a = ""
For Each ctrl In Me.Controls
' If ctrl.Tag = "bosmu" And IsNull(ctrl) Or Nz(ctrl, "") = "" Then
If ctrl.Tag = "bosmu" And IsNull(ctrl) Then
a = a & vbCrLf & " " & ctrl.Controls(0).Caption
End If
Next
If Not a = "" Then
MsgBox (" AŞAĞIDAKİ ALANLAR BOŞ BIRAKILMIŞ...." & vbCrLf & vbCrLf & a)
Else
End If