[Raven B.]

Доброго времени суток.

Есть access и база данных в нем. Точнее пока ее нет. Но будет.
В форме есть незамысловатый контрол - TextBox.
Еще там есть строка ввода и кнопка.
При загрузке формы в TextBox грузится содержимое столбца таблицы.
По нажатии кнопки в эту таблицу добавляется то что в строке ввода.
Естественно надо обновиьт содержимое TextBox. Вот тут у меня ступор.
Никаких тебе рефрещей. Только какой то подозрительный .Requery.

Естественное решение вопроса - открываем MSDN и смотрим. Вот тут и появляется целый ряд вопросов:

1. В MSDN я не нашол у TextBox такого метода. Его нет. Такого метода вообще нет. Фильтровал по Visual Basic. Искал по TextBox и .Requery. MSDN за апрель 2003. В MSDN что информации о классах VBA нет ?

2. Есль ли какой то специализированый форум по VBA. А еще лутше по VBA и Access ? Вопросов у меня судя по всему будет много...

3. Как эту гадость обновлять то ?

На всяк случай привожу текущий код формы:

Option Compare Database

Private Sub proff_in_b_Click()
On Error GoTo Err_proff_in_b_Click

 Const Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
 Const DataSource = "Data Source=com_db.mdb"
 Dim Connection As New ADODB.Connection
 Dim RecordSet As New ADODB.RecordSet
 Dim qwery As String
 On Error GoTo Finally
 Call Connection.Open(Provider & DataSource)
 MsgBox "connected"
 proff_in.SetFocus
 qwery = "INSERT INTO proff_T (proff) values (" + proff_in.Text + ")"
 Call RecordSet.Open("proff_t", Connection, adOpenKeyset, adLockOptimistic)
 Call RecordSet.AddNew("proff", proff_in.Text)
 
 RecordSet.Close
 Connection.Close
 
 proff_list.Requery
 
   

Finally:
 If (Err.Number <> 0) Then
 MsgBox Err.Description
 End If
    DoCmd.GoToRecord , , acNewRec

Exit_proff_in_b_Click:
    Exit Sub

Err_proff_in_b_Click:
    MsgBox Err.Description
    Resume Exit_proff_in_b_Click
    
End Sub

Private Sub proff_del_b_Click()
On Error GoTo Err_proff_del_b_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_proff_del_b_Click:
    Exit Sub

Err_proff_del_b_Click:
    MsgBox Err.Description
    Resume Exit_proff_del_b_Click
    
End Sub
Private Sub proff_upd_b_Click()
On Error GoTo Err_proff_upd_b_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

Exit_proff_upd_b_Click:
    Exit Sub

Err_proff_upd_b_Click:
    MsgBox Err.Description
    Resume Exit_proff_upd_b_Click
    
End Sub

При этом на http://msdn.microsoft.com/archive/de.../D6/S5B1DB.asp
метод вроде нашло.
Что то я ничего не понял...