Возврат на предыдущую открытую форму

[uralshans]

Имеем формы: FormDate, Zad1, Zad2, Zad3.
на формах Zad1, Zad2, Zad3 есть CommandButton для перехода к форме FormDate
и так..
допустим находимся на форме Zad1, кликаем CommandButton, открывается форма FormDate, на ней вводим значение в TextBox1, допустим "11.22.33"
кликаем кнопку "Добавить" и запись "11.22.33" дублируется в TextBox1 на форме Zad1
....
Необходимо чтоб тоже самое можно было проделать и на Zad2, Zad3

на форме DateForm, у кнопки "Добавить" такой вот код.
Zad1.TextBox1.Value = TextBox1.Value
Естественно данные дублируются только в форму Zad1.
Т.е. нужна команда возврата на предыдущую форму (я так думаю...)
..
Возврат_на_предыдущую_форму.TextBox 1.Value = TextBox1.Value
как то так наверное..

[EducatedFool]

на форме DateForm, у кнопки "Добавить" такой вот код.
Zad1.TextBox1.Value = TextBox1.Value

хреновый код)

покажите файл со всеми этими формами - подправим код.

PS: Видели же у меня пример на сайте - там вызов формы выбора даты идет не напрямую (FormDate.show), а посредством ФУНКЦИИ Get_Date
Вызвали с формы Zad1 функцию - получили значение - добавили в зад (Zad1)

Вот и сделайте аналогично, чтобы FormDate взаимодействовала только с функцией,
а функция вызывалась уже из зада (Zad1, Zad2, Zad3)

PPS: Если сами не разберетесь - прикрепляйте файл

[uralshans]

вот файлик... ........

[uralshans]

На второй взгляд оказалось не так уж и сложно))

спасло
Me.TextBox1 = Get_Date(TextBox1, Now)

СПАСИБО за помощь!!

[EducatedFool]

Вместо

Private Sub CommandButton1_Click()
    Form_SelectDate.Show
End Sub

надо написать

Private Sub CommandButton1_Click()
    Me.TextBox1 = Get_Date(Now)
End Sub

и на форме выбора даты, вернуть код к исходному виду (убрать добавление даты в зад)

Private Sub Cmd_Select_Click()
    'Команда - закончить выбор даты и закрыть форму
    SelectedDate = CStr(DateValue(dt_1))
    Unload Me
End Sub

PS: Зачем в файле три ОДИНАКОВЫЕ формы?
Или таблицы на разных листах, потом будут разные?

[uralshans]

Листы зад1,2,3
Одинаковые для примера...

не подумайте что Zad = Зад..
подразумевалось Zad = Задание )

[uralshans]

На листе1 таблица, в нее добавляю клиентов через форму..
По средствам макроса, при добавлении клиента, автоматом формируется новый лист с настроенными ячейками. И конечно в лист1 добавляется запись о клиенте.
Как сделать так, чтоб не только запись добавилась о клиенте, но и гиперссылка (на ячейке с названием клиента) на новый лист.

п.с.
новый лист создается с названием не лист2, а с названием клиента, которое вводим в TextBox1

[uralshans]

Оказалось не так сложно все..

Private Sub CommandButton1_Click()
'Заносим данные в таблицу
Dim lLastRow As Long
lLastRow = ActiveSheet.Cells(ActiveSheet.Rows. Count, "B").End(xlUp).Row + 1
ActiveSheet.Cells(lLastRow, "B").Value = Me.TextBox1.Value
'Добавляем гиперссылку на лист с название листа из TextBox1
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & Me.TextBox1.Text & "'" & "!A1"
ActiveSheet.Cells(lLastRow, "C").Value = Me.TextBox2.Value
ActiveSheet.Cells(lLastRow, "D").Value = Me.TextBox3.Value
ActiveSheet.Cells(lLastRow, "E").Value = Me.TextBox4.Value & "-" & Me.TextBox5.Value & "-" & Me.TextBox6.Value
'Создаем новый лист с названием из TextBox1
Sheets.Add After:=Worksheets(Sheets.Count)
Sheets(Sheets.Count).Name = Me.TextBox1.Value