Изменение даты в форме

[Beginner_Access]

Всем привет!

Помогите пожалуйста решить проблему. Необходимо изменить текущую дату в Форме Дата путем ввода более ранней даты в Форму ФормаИзмененияДаты.

Если возможно, чтобы при открытии Формы Дата сформировать такое условие на значение по умолчанию, чтобы устанавливалась либо текущая дата, либо дата из формы изменения даты, если она открыта.

Спасибо.

[Teslenko_EA]

Здравствуйте Beginner_Access.
"... при открытии Формы Дата ... дата из формы изменения даты, если она открыта..."
Ваша задача может решаться подобным кодом в обработчике события формы "Дата":

Private Sub Form_Open(Cancel As Integer)
Dim oFrm As Form, s$
For Each oFrm In Forms 'проверка всех открытых форм
    With oFrm
        If .Name = "ФормаИзмененияДаты" Then
        'если имя формы "ФормаИзмененияДаты"
            If .ActiveControl.Name = "ПолеИзменитьДату" Then
            'если фокус ввода на "ПолеИзменитьДату"
                s = .ПолеИзменитьДату.Text 'читается его текст
            Else 'если контрол "ПолеИзменитьДату" не активен
                s = .ПолеИзменитьДату.Value 'читается его значение
            End If
            Exit For 'выход из цикла
        End If
    End With
Next
'если форма не была открыта или не задана дата - задается текущая
If Not IsDate(s) Then s = Format(Date, "dd.mm.yyyy")
ПолеДата = s
End Sub

Евгений.

[Beginner_Access]

Сообщение от Teslenko_EA

Здравствуйте Beginner_Access.
"... при открытии Формы Дата ... дата из формы изменения даты, если она открыта..."
Ваша задача может решаться подобным кодом в обработчике события формы "Дата":

Private Sub Form_Open(Cancel As Integer)
Dim oFrm As Form, s$
For Each oFrm In Forms 'проверка всех открытых форм
    With oFrm
        If .Name = "ФормаИзмененияДаты" Then
        'если имя формы "ФормаИзмененияДаты"
            If .ActiveControl.Name = "ПолеИзменитьДату" Then
            'если фокус ввода на "ПолеИзменитьДату"
                s = .ПолеИзменитьДату.Text 'читается его текст
            Else 'если контрол "ПолеИзменитьДату" не активен
                s = .ПолеИзменитьДату.Value 'читается его значение
            End If
            Exit For 'выход из цикла
        End If
    End With
Next
'если форма не была открыта или не задана дата - задается текущая
If Not IsDate(s) Then s = Format(Date, "dd.mm.yyyy")
ПолеДата = s
End Sub

Евгений.

Спасибо, Евгений!