ник: helena
2 базы. в одной свободная форма, в которую из другой базы закачиваются данные
Закачать данные в форму получается, а вот
из формы в recordset -нет Почему?
Private Sub сохранитьДанныеВФорму()
Dim Рекордсет As ADODB.Recordset
Set cnn = New ADODB.Connection
Dim fld As ADODB.Field
Dim i As Integer
Dim ctl As Control
Dim frmCurr As Form_ФормаБаза
CurrentProject.Path & "\Проба120411.mdb"
cnn.Open "file Name=" & CurrentProject.Path & "\соединениеБазаДляСвязи.udl"
Set Рекордсет = New ADODB.Recordset
Рекордсет.CursorLocation = adUseClient
Рекордсет.Open "select * from ФИО", cnn, adOpenKeyset, adLockBatchOptimistic
MsgBox Рекордсет.Fields(0)
Set frmCurr = Form_ФормаБаза
Рекордсет.AddNew
Рекордсет!имя = "новоеИмя"
Рекордсет.Update