estou com por os cabelo, como se diz em Portugal,
estava a avançar com o meu formulario com banco de dados, mas sempre que dou uma psso em frente, logo a seguir paro sem saber como resolver, levando á loucura.
coloquei este codigo para fazer gravaçao dos dados do formulario na base de dados, mas está a dar o erro da imagem, como estou a iniciar no excel vba com access, e mesmo o conhecimento de excel vba é pouco, fica dificil dar um passo em frente pois nao sei o que esta a ocorrer de errado no codigo,
alguem consegue dar uma dica/ajuda.
Obrigado
Código: Selecionar todos
Sub Gravar_Registar()
Dim cx As New ClasseConexao
Dim Banco As ADODB.Recordset
Dim SQL As String
SQL = "INSERT INTO Registo_Saidas(Nº, Condutor, Posto, Dia, Hora, Viatura, Destino, Observaçoes)"
SQL = SQL & " VALUES ("
SQL = SQL & " '" & UserForm_Menu.Textbox_N.Value & "'"
SQL = SQL & " '" & UserForm_Menu.ComboBox_Condutor.Value & "'"
SQL = SQL & " '" & UserForm_Menu.ComboBox_Posto.Value & "'"
SQL = SQL & " '" & UserForm_Menu.TextBox_Dia.Value & "'"
SQL = SQL & " '" & UserForm_Menu.TextBox_Hora.Value & "'"
SQL = SQL & " '" & UserForm_Menu.ComboBox_Viaturas.Value & "'"
SQL = SQL & " '" & UserForm_Menu.ComboBox_Destino.Value & "'"
SQL = SQL & " '" & UserForm_Menu.TextBox_Observacoes.Value & "'"
SQL = SQL & " )"
Set Banco = New ADODB.Recordset
cx.ConectarBd
Banco.Open SQL, cx.Conn
Set Banco = Nothing
cx.DesconectarBd
End Sub
Código: Selecionar todos
Public Conn As New ADODB.Connection
Public Bd As New ADODB.Recordset
Public Sub ConectarBd()
Dim nConectar As String
'Endereço e nome do banco de dados
nConectar = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\Base_dados.mdb"
Conn.ConnectionString = nConectar
Conn.Open
End Sub
Public Sub DesconectarBd()
'Desconectar
Conn.Close
End Sub