Gravar Caixa Texto em Tabela

[snail 0]

Criei um formulário com 2 caixas de texto (codigo e descrição) e não atribui fonte de controle, gostaria que ao termino do preenchimento destes campos, ao presionar um botão seja gravado o conteudo destas caixas na tabela.Como fazer?

[Spiritwalker 0]

Prezado snail:Para fazer o que pretende, no evento OnClick do botão de seu formulário insira o seguinte código: Dim db As Database Dim rst As Recordset Set db = CurrentDb Set rst = db.OpenRecordset("SuaTabela", dbOpenDynaset) db.Execute "INSERT INTO SuaTabela (Codigo, Descricao) VALUES (& txtCodigo &, """ & txtDescricao & """)" rst.Close db.Close Set db = NothingRessalto, porém, que o código acima é básico demais (apesar de atender de imediato suas necessidades), visto que ele não verifica se as caixas de texto estão preenchidas quando o usuário pressionar o botão de comando (o que geraria um erro), nem faz uma pesquisa prévia para verificar se um registro idêntico ao que pretende cadastrar já existe (acarretando duplicação). Faça uma busca e provavelmente encontrará aqui mesmo, neste fórum, as demais implementações que mencionei, tornando sua aplicação mais segura e profissional.Abraços.