Dim Sayi, Bilgi, DenetimSayisi As Integer
Dim ctl As Control

DenetimSayisi = Me.Controls.Count - 1

For Sayi = 1 To DenetimSayisi
    For Each ctl In Controls

    If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
        If ctl.TabIndex = Sayi Then
            If Len(ctl.Tag) <> 0 And Not IsNull(ctl.Tag) Then
                If ctl.Value = "" Or IsNull(ctl.Value) Then
                    MsgBox (ctl.Tag & " boş bıraktınız")
                    ctl.SetFocus
                    Exit Sub
                End If
            End If
        End If
    End If
    
    Next
Next Sayi
    Bilgi = MsgBox("Yapılan değişiklikler kaydedilsin mi", vbInformation + vbYesNoCancel)
    Select Case Bilgi
        Case 6 'evet
          DoCmd.RunCommand acCmdSaveRecord
        Case 7 'hayır
          Me.Undo
        Case 2 'iptal
          Exit Sub
    End Select