Ola .. Sou novo e estou começando agora e gostaria de saber sobre este erro que aparece , onde fica este problema ? E o que causa ele ? Gostaria também se a conexão está correta =)
Private Sub CommandButton2_Click()
Dim cn As Database
Dim dt As Recordset
Set bd = OpenDatabase(ActiveWorkbook.Path & "\ecolixo.mdb")
Set rs = cn.OpenRecordset("ordemdeservico")
If TextBox4 = "" Then
MsgBox "Insira um cliente!"
TextBox4.SetFocus
Exit Sub
End If
'CONECTAR AO BANCO DE DADOS
rs.AddNew 'adicione os ítens a ser criados aqui!!!!!!!
rs!cliente = Me.TextBox3
rs!Endereço = Me.TextBox14
rs!Bairro = Me.TextBox15
rs!Cidade = Me.TextBox16
rs!Valor = Me.TextBox17
rs!Motorista = Me.TextBox6
rs!Caminhao = Me.TextBox8
rs!Vendedor = Me.TextBox10
rs!Fossa = Me.TextBox12
rs!Hidro = Me.TextBox13
rs!Observacao = Me.TextBox18
rs.Update
rs.Close
bd.Close
MsgBox ("Dados inseridos no Banco de Dados Access com Sucesso!"), vbInformation, "Saberexcel - site das macros"
'Me.nome_cliente = Null
'Me.txtCidade = Null
'Me.txtSalario = Null
Me.TextBox2.SetFocus
End Sub