Alo gente,
Tou com um problema que nao consigo resolver, sei muito bem que voxes sao capazes de faze-lo.
DECLARACAO DE VARIAVEIS:
Option Compare Database
Public comando As String
Public banco As Database
Public dataset As Recordset
Function conecta()
Set banco = CurrentDb
End Function
Function valida_selecao()
Set dataset = banco.OpenRecordset(comando,dbDynaset)
End Function
Public Sub CmdCadastrar_Click()
comando "insert into Tabela1(Nome,Idade,Natural) values ('" & TextNome & "'," & TextIdade & ",'" & TextNatural & "')"
banco.Execute comando
End Sub
Public Sub Form_Click()
conecta
End Sub
O ERRO SEMPRE SE LOCALIZA NO SINTAXE INSERT INTO NA POSICAO: banco.Execute comando
Por favor me ajudem
Tou com um problema que nao consigo resolver, sei muito bem que voxes sao capazes de faze-lo.
DECLARACAO DE VARIAVEIS:
Option Compare Database
Public comando As String
Public banco As Database
Public dataset As Recordset
Function conecta()
Set banco = CurrentDb
End Function
Function valida_selecao()
Set dataset = banco.OpenRecordset(comando,dbDynaset)
End Function
Public Sub CmdCadastrar_Click()
comando "insert into Tabela1(Nome,Idade,Natural) values ('" & TextNome & "'," & TextIdade & ",'" & TextNatural & "')"
banco.Execute comando
End Sub
Public Sub Form_Click()
conecta
End Sub
O ERRO SEMPRE SE LOCALIZA NO SINTAXE INSERT INTO NA POSICAO: banco.Execute comando
Por favor me ajudem
Última edição por Ribeiro Napaua em 11/7/2015, 09:50, editado 1 vez(es) (Motivo da edição : Programacao)