Сново рад приветствовать вас. Я столкнулся с очередной проблеймой :( и сново прошу помощи.

У меня есть две формы на каждой из которых есть поле(Edit) - номер путевого листа. Сначала предлогается заполнить форму (AddL) где одним из полей является номер листа, затем по нажатию на кнопу (Кнопка1) происходит переход на вторую форму (List1, где есть такое же поле Edit). Как сделать чтобы при переходе на 2-ю форму в поле (Edit) вводился тот-же номер что мы ввели на 1-й форме?

Надеюсь вопрос сформулирован понятно.... Большое спасибо за любую помосчь

На форму можно передать данные разными способами:
1. Атрибут OpenArgs.

Этот параметр строковый. Если сформировать строку в специальном формате, то можно передать и больше параметров.
При открытии формы:


На открывающейся форме (на событии открытия или загрузки):


2. Инициализировать поле в открывающей форме:

2.1 или обявить в форме myforma2 функцию, которая и выполнит присваивание полю значения



3. Тоже самое, что и п.2, но уже в открываемой форме (на событии открытия или загрузки):


4. Использовать процедуру и п.1-3. Более сопровождаемый вариант. 


ЗЫ: 4. пункт мне больше нравится, в последующем пишется меньше кода. Так же он компилируем - изменяем количество параметров, компилируем и находим все места, которые необходимо подправить. Также легко использовать функцию в меню.

Есть еще вариант - использовать не две формы, а одну. По нажатию кнопки перехода на шаг 2 просто скрываем ненужные контролы, показываем нужные, перемещаем те, что должны остаться... тогда и передавать ничего не нужно.

Пробывала разные варианты но каждый раз выдаётк следуюсчую ошибку:
Type mismatch

Вот пример вставляемого кода:

Private Sub Form_Open(Cancel As Integer)
Dim frm As Form_List1
Set frm = Forms("Addl")
Me.nListNum1 = frm.nListNum
End Sub

Где, List1 - Имя формы на котой находится поле (nListNum, с которого собственно и берётся значение);
        Addl - Имя формы на которой расположено поле (nListNum1, в которое должно занестись значение из nListNum);
Событие назначено на открытие формы Addl

А в какой именно строке выдает, секрет? 

Вероятно, в строке

потому как должно быть

Гм...
Теперь стало ругаться на эту строчку :( :
Me.nListNum1 = frm.nListNum

Говорит  следуесчее
Run time error '-2147352564 (80020009)

Невозможно присвоить значение объекту

Вот   :(

по всей видимости... 

Час от часу не легче... :'(
Теперь это:
Run Time error '2185':

Невозможно обратиться к свойству или методуэлемента
управления, пока на этот элемент не установлен фокус ввода.
------------------------------------------------
И ругаетсчя вот на эту строчку:
Me.nListNum1.Text = frm.Controls("nListNum").Text

ну так и сделай предварительноЧто ты как дитё малое, право слово...

Или

И в одном и во втором случае выскакивает всё та же ошибка....

Где код выполняется, в событии OnOpen?

Да.



Если изменить на вот это:

Ошибка пропадает, но ничего не происходит

Это сообщение отредактировал(а) Ane4ka - 16.10.2007, 14:19

Похоже на то, что строкипринципиально работать не будут. (к nListNum1 ещё рано тут обращатся)
Пробуй открывать эту форму из OnClick "Кнопка1" и там обращатся. Например:

Это сообщение отредактировал(а) kapbepucm - 16.10.2007, 14:34

В Private Sub Form_Open это в принципе работать не может и, соответственно, не будет. Форма еще не загружена, присвоение невозможно.


Вообще-то так и делают:


Конечно, OnOpen - это событие, а имя обрабатывающей его процедуры Form_Open