ff

Option Compare Database

Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset


Private Sub cmbPodrazd_AfterUpdate()
Dim i As Integer
Dim a As Integer
    cnn.CursorLocation = adUseClient
    cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=I:\VBA\tblZaiavka_2.accdb"
    cnn.Mode = adModeRead
    cnn.Open
    cmd.ActiveConnection = cnn
    cmd.CommandText = "select * from tblPodrazd"
    Set rst = cmd.Execute
    a = rst.RecordCount
    For i = 1 To a Step 1
    cmbPodrazd.AddItem rst.Fields("Ïîäðàçäåëåíèå")
    rst.MoveNext
    Next i
    Set cnn = Nothing
End Sub

Private Sub cmdStart_Click()
    cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=E:\VBA\tblZaiavka_2.accdb"
    cnn.Mode = adModeRead
    cnn.Open
    CurrentDb.Execute "INSERT INTO tblZaiawka(Äàòà, ÒàáÍîìåð, Îòäåë, Ïîäðàçäåëåíèå, Ðåñóðñ) VALUES" & _
    "('" & txtData.Value & "', '" & cmbSotrydnic.Value & "', '" & cmbOtdel.Value & "', '" & CmbPodrazdel.Value & "', '" & txtResyrs.Value & "')"
    cnn.Close
    Set cnn = Nothing
End Sub