Код |
---|
Public Sub btnClose_Click() Dim CONN As New ADODB.Connection Dim RS As New ADODB.Recordset CONN.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\Users\2.accdb;Mode=Share Deny None;" CONN.Open ' RS.Open "Select * From sd2 Where Код Is Null", CONN, adOpenStatic, adLockOptimistic RS.AddNew RS!txtFamiliya = txtFamiliya.Text RS!txtImya = txtImya.Text RS!txtOtchestvo = txtOtchestvo.Text ''''''''''''''''''''''''''''''' RS!CombPodrazd.Text = CombPodrazd.List(2) '''''''''''''''''''''''''''''' RS.Update RS.Close: Set RS = Nothing CONN.Close: Set CONN = Nothing ' Unload Me CONN.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\Users\2.accdb;Mode=Share Deny None;" CONN.Open ' RS.Open "Select * From vopros1 Where Код Is Null", CONN, adOpenStatic, adLockOptimistic RS.AddNew RS!CheckBox1_1 = IIf(CheckBox1_1, "Да", "Нет") RS!CheckBox2_1 = IIf(CheckBox2_1, "Да", "Нет") RS!TextBox1_1 = TextBox1_1.Text RS.Update RS.Close: Set RS = Nothing CONN.Close: Set CONN = Nothing Unload Me End Sub |
Нужно выпадающий список тянуть с базы Accses. Как вариант, таблица ListPodrazd
Далее записать результаты из формы в таблицу sd2.
Как правильно прописать код???