Я новичок в VBA, и я хотел вставить немного данных в базу данных Access, используя форму VBA. Программа запускается без проблем, однако, когда я вставляю данные и посылаю кнопку, она выдает
Ожидаемая функция или переменная
. Вот что я попробовал:
Dim name1 As String
Dim surname1 As String
Dim affectedRow As Integer
Private Sub CommandButton1_Click()
name1 = ism.Text
surname1 = familya.Text
Dim con As ADODB.Connection
Set con = New ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = con.Open("4IAT")
con.Open = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=C:\Users\Pavilion\Documents\IAT.accdb;"
sql = "insert into 4IAT(Name,LastName) values('" & name & "','" & LastName & "')"
con.Execute sql, baza
If baza = 1 Then
MsgBox "barakala"
Else
MsgBox "O'xshamadi "
End If
con.Close
End Sub