Private Sub CmdSave_Click()
Dim Ctlcount As Integer
Dim Pagescount As Integer
Pagescount = Mytabs.Pages.Count
Dim nm As String
Dim frn As String
Dim Txt As String
Dim Txt2 As String

Dim i
For i = 0 To Pagescount - 1

 Mytabs.Pages(i).SetFocus

nm = ActiveControl.Name

Ctlcount = Me(nm).Controls.Count
 If Ctlcount = 0 Then
 MsgBox "   !              Text2  Text4"
 Exit Sub
 End If
 Txt = Nz(Forms!2!(nm)!Text2)
Txt2 = Nz(Forms!2!(nm)!Text4)
        Dim ctrl As Control
        For Each ctrl In Me(nm).Controls
        
        If ctrl.Tag = "R" Then
        If IsNull(ctrl) Or ctrl = "" Then
        Me(nm)!NoteImg.Left = ctrl.Left
        Me(nm)!NoteImg.Top = ctrl.Top + ctrl.Height
        Me(nm)!NoteImg.Visible = True
        ctrl.BackColor = 2366701
        MsgBox "     "
        Exit Sub
        End If
        End If
        Next
        
 
Next i
MsgBox "  "
End Sub