Dim MetinKutum As Control

For Each MetinKutum In Me

    If MetinKutum.Tag = "bosmu" Then
    
        If MetinKutum.Value = "" Or IsNull(MetinKutum.Value) Then
        
            MsgBox (MetinKutum.ControlTipText & " Alanı Boş Bırakılamaz")
            MetinKutum.SetFocus
            Exit Sub
        End If
    End If

Next MetinKutum
           
    MsgBox ("Tüm Alanlar Dolu") 'Tüm alanlar Doluysa yapılacak işlem