Форумы HiProg.com - MS ACCESS, VBA, VB

ник: snipe
Private Sub DAY_FIRST_LostFocus()
For F = 1 To 7
If W_DAY(F) = Me!DAY_FIRST Then DAY_F = F
If W_DAY(F) = Me!DAY_LAST Then
DAY_L = F
exit for
end if
Next F
If NZVB(Me!DAY_LAST) = "" Then Exit Sub
If DAY_F =0 Then
Call MsgBox("Не верно выбраны дни недели !!! " & Me!DAY_FIRST & " и " & Me!DAY_LAST, vbCritical)
Me!DAY_FIRST.Text = ""
Me!DAY_LAST.Text = ""
End If
End Sub

как вариант