ник: osmor
Рассказываю по строчно ЧТО вы делаете
Dim pst As myrecA 'ну это видимо структура которую где-то выше описали
Private Sub Кнопка_Click()
'проверяем открыта ли форма Форма2 (причем видимо нужно в кавычки заключить "Форма2" - иначе это переменная
If CurrentProject.AllForms(Форма2).IsLoaded = False Then
'если форма не открыта заполняем структуру данными из текущей формы
With pst
.ПолеА = Me.ПолеА
.ПолеБ = Me.ПолеБ
.ПолеВ = Me.ПолеВ
End With
' открываем форму2
DoCmd.OpenForm "Форма2", acNormal
' в форме2 заполняем поля ПЕРВОЙ ЗАПИСИ значениями полей из текущей записи текущей формы
With Forms("Форма2")
.Controls("ПолеX") = Me!ПолеА
.Controls("ПолеZ") = Me!ПолеБ
.Controls("ПолеY") = Me!ПолеВ
End With
End If
' проверяем открыта ли форма Форма2 это условие ВСЕГДА ИСТИНА, т.к. если форма была не открыта, то вы ее открыли см. выше
If CurrentProject.AllForms(Форма2).IsLoaded = True Then
' переходим на какую-то запись в форме2 (здесь видимо опечатка (Форм2 вместо Форма2
doCmd.GoToRecord , "Форм2", acGoTo
' в какой-то форме с именем "Форма" (неизвестно открытой или нет) заполняем поля текущей записи (неизвестно какой) значениями полей из текущей записи текущей формы
With Forms("Форма")
.Controls("ПолеX1") = Me!ПолеА
.Controls("ПолеZ1") = Me!ПолеБ
.Controls("ПолеY1") = Me!ПолеВ
End With
End Sub
|
Вы полагаете из этого можно понять что вы хотите сделать?