[Resolvido]Limpar Formulario Nao Aclopado Via Botao Apos Inserir Dados Na Tabela

bom dia queridos !

Não tenho ideia de como fazer isso, gostaria de inserir nos meus formulários não acoplados, apos inserir os dados na tabela apagar os registros que coloquei no formulário. Como se fosse para continuar inserindo dados sempre.


segue abaixo meu codigo

Private Sub Comando19_Click()

Dim strCategoria, strSaida, strTipo, strValor, strData As String
Dim strSQL, msg As String
strCategoria = Forms!LANÇAMENTOSAIDA!Categoria
strSaida = Forms!LANÇAMENTOSAIDA!saida
strTipo = Forms!LANÇAMENTOSAIDA!tipo
strValor = Forms!LANÇAMENTOSAIDA!valor
strData = Forms!LANÇAMENTOSAIDA!Data

strSQL = "INSERT INTO SAIDALANÇAMENTO (Categoria,saida,tipo,valor,data) VALUES('" & strCategoria & "','" & strSaida & "', '" & strTipo & "', '" & strValor & "', '" & strData & "')"
CurrentDb.Execute strSQL
MsgBox "CADASTRADO COM SUCESSO !!!", vbInformation, "Teste"
End Sub

abraços

editando enunciado.

boa tarde....


Private Sub Comando19_Click()

Dim strCategoria, strSaida, strTipo, strValor, strData As String
Dim strSQL, msg As String
strCategoria = Forms!LANÇAMENTOSAIDA!Categoria
strSaida = Forms!LANÇAMENTOSAIDA!saida
strTipo = Forms!LANÇAMENTOSAIDA!tipo
strValor = Forms!LANÇAMENTOSAIDA!valor
strData = Forms!LANÇAMENTOSAIDA!Data

strSQL = "INSERT INTO SAIDALANÇAMENTO (Categoria,saida,tipo,valor,data) VALUES('" & strCategoria & "','" & strSaida & "', '" & strTipo & "', '" & strValor & "', '" & strData & "')"
CurrentDb.Execute strSQL
MsgBox "CADASTRADO COM SUCESSO !!!", vbInformation, "Teste"


'limpa dados no formulário
me.categoria = ""
me.saída=""
me.tipo=""
me.valor =""
me.data = ""

End Sub

obg....limpar formulario deu certo

mais uma duvida se eu quiser deixar como campos obrigatorio e alertar valores nulos, ou seja, nao contem dados no txt????

Algo parecido com isso... ( fiz apenas com dois campos, os demais você pode colocar )

Private Sub Comando19_Click()
If ISNULL(me.categoria) OR me.categoria= "" Or ISNULL(me.saida) or me.saida="" Then
msgbox("Há campos em brancos, favor preencher !"), vbcritical, me.caption
else
Dim strCategoria, strSaida, strTipo, strValor, strData As String
Dim strSQL, msg As String
strCategoria = Forms!LANÇAMENTOSAIDA!Categoria
strSaida = Forms!LANÇAMENTOSAIDA!saida
strTipo = Forms!LANÇAMENTOSAIDA!tipo
strValor = Forms!LANÇAMENTOSAIDA!valor
strData = Forms!LANÇAMENTOSAIDA!Data

strSQL = "INSERT INTO SAIDALANÇAMENTO (Categoria,saida,tipo,valor,data) VALUES('" & strCategoria & "','" & strSaida & "', '" & strTipo & "', '" & strValor & "', '" & strData & "')"
CurrentDb.Execute strSQL
MsgBox "CADASTRADO COM SUCESSO !!!", vbInformation, "Teste"


'limpa dados no formulário
me.categoria = ""
me.saída=""
me.tipo=""
me.valor =""
me.data = ""
End IF


End Sub

obg, novamente. sempre contribuindo com conhecimento.


uma duvida se eu quiser fracionar cada txt null

como poderia estar aplicando?

abraços

Maguim escreveu:
uma duvida se eu quiser fracionar cada txt null

Não entendi a duvida.

esquece a minha pergunta de cima rs...


deixa pergunta é se eu quiser que esse mesmo formulário preencha duas tabelas ao mesmo tempo como faço isso ?

deu certo, aqui consegui, só repassando o codigo pra galera....


CurrentDb.Execute "INSERT INTO vendas (DTCADASTRO) VALUES ('" & strdata & "')"


obg silvio, topico resolvido.

Que bom...

O Fórum agradece o retorno.