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

ник: час
Не красиво как то но.....

Dim F As Long Dim W_DAY(1 To 7) As String Dim DAY_F As Long Dim DAY_L As Long

dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2A, buffer, 99) Me!DAY_FIRST.AddItem LPSTRToVBString(buffer) ' понедельник W_DAY(1) = LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2B, buffer, 99) Me!DAY_FIRST.AddItem LPSTRToVBString(buffer) ' вторник W_DAY(2) = LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2C, buffer, 99) Me!DAY_FIRST.AddItem LPSTRToVBString(buffer) ' среда W_DAY(3) = LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2D, buffer, 99) Me!DAY_FIRST.AddItem LPSTRToVBString(buffer) ' четверг W_DAY(4) = LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2E, buffer, 99) Me!DAY_FIRST.AddItem LPSTRToVBString(buffer) ' пятница W_DAY(5) = LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2F, buffer, 99) Me!DAY_FIRST.AddItem LPSTRToVBString(buffer) ' суббота W_DAY(6) = LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H30, buffer, 99) Me!DAY_FIRST.AddItem LPSTRToVBString(buffer) ' воскресенье W_DAY(7) = LPSTRToVBString(buffer)

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