Я начинающий в VBA, подскажите кто-нибудь!

[Roman]

Есть две формы (Form1 и Form2) в Аксесе 2003 в одной из них (Form1) поле (Memo) и кнопка (btnNext), в этом поле набирается какой-то текст (неважно какой)! Как сделать так чтобы после нажатия кнопки тот текст в форме (Form1) скопировался во вторую форму (Form2) в метку (Label1) Два дня ищу выход и никак! Помогите кто-нибудь!

[PooH]

на нажатие кнопки вешаешь процедуру, типа:

Код: (Text)

Private Sub Кнопка_Click()
On Error GoTo Err_Кнопка_Click

Forms("Форма2").Controls("Поле0") = Forms("Форма1").Controls("Поле0")
   
Exit_Кнопка_Click:
    Exit Sub

Err_Кнопка_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка_Click
   
End Sub

и все!!! чего тут два дня думать

[Roman]

Спасибо большое! Просто огромное! Я только учусь! Поэтому и не секу в этом! Но это только пока!
Остался последний вопрос! Как программно создать элемент типа Label?

[PooH]

У мелкомягких очень хороший хелп...
вот пример прям оттуда:

Код: (Text)

Sub NewControls()
    Dim frm As Form
    Dim ctlLabel As Control, ctlText As Control
    Dim intDataX As Integer, intDataY As Integer
    Dim intLabelX As Integer, intLabelY As Integer

    ' Create new form with Orders table as its record source.
    Set frm = CreateForm
    frm.RecordSource = "Orders"
    ' Set positioning values for new controls.
    intLabelX = 100
    intLabelY = 100
    intDataX = 1000
    intDataY = 100
    ' Create unbound default-size text box in detail section.
    Set ctlText = CreateControl(frm.Name, acTextBox, , "", "", _
        intDataX, intDataY)
    ' Create child label control for text box.
    Set ctlLabel = CreateControl(frm.Name, acLabel, , _
         ctlText.Name, "NewLabel", intLabelX, intLabelY)
    ' Restore form.
    DoCmd.Restore
End Sub

[Roman]

Слушай, ну просто супер! И где я раньше был надо было сразу сюда зайти! Все работает на раз! А я ночами мучился с этой фигней! Там правда были еще и другие замуты (выбор записей на форме без дополнительного поля), но ты помог обалденно! Спасибо! Огромное!