[Resolvido]limpar campos do form e do subform

Boa tarde amigos..
Tenho um formulário com um subformulário, tenho um botão que limpa os campos do form e não salva.
Fiz assim:
Me.rua_txt = ""
Me.complemento_txt = ""
Me.numero_txt = ""
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord

Mas esses campos estão no form mas tenho campos no subform que queria fazer o msm.

Vlw...

Você quer limpar os campos do formulário ou excluir os registros da tabela?

quero limpar os campos e excluir tanto do form tando do subform.

Pelo que parece, a ideia é excluir um registro do formulário principal e os registros do subformulário relacionados com o registro principal do formulário. Pode-se usar a chave primária do registro principal para excluir nas duas tabelas, lembrando que primeiro deve-se excluir os registros da subtabela para depois excluir o registro relacionado na tabela principal:

If MsgBox("Tem certeza que deseja excluir os registros com o código selecionado?", vbYesNo + vbQuestion, "Confirmar exclusão") = vbYes Then
CurrentDb.Execute "DELETE FROM NomeDaSubTabela WHERE CodCliente=" & Me.Código & ""
CurrentDb.Execute "DELETE FROM NomeDaTabelaPrincipal WHERE Código=" & Me.Código & ""
MsgBox "Registros excluídos", vbInformation, "Sucesso"
Else
MsgBox "Exclusão cancelada", vbInformation, "Cancelado"
End If

No caso acima, estou supondo que estejamos excluindo os subregistros de um cliente e depois o registro desse cliente. É só adaptar.

Migão boa tarde!

Tenho esse módulo que fiz para limpar os campos do formulário principal, acho-o muito util pois posso chama-lo de qualquer formulário. Para limpar o subform, uso no final uma instrução parecida com a apresentada pelo Criquio...

Segue a função, a qual deve ser colada dentro de um módulo do access para que possa ser chamada de qualquer formulário:

Function LimpaGeral(strFrmName As Form)
'--------------------------------------------
'FUNÇÃO PARA LIMPEZA DOS CAMPOS DO FORMULÁRIO
'SINTAXE: CALL LIMPAGERAL(ME)
'AUTOR: PABLO RODRIGUES VIEIRA
'--------------------------------------------
On Error Resume Next

Dim Frm As Form
Dim ctrl As Control

For Each ctrl In strFrmName.Controls


'LIMPA COMBOBOX
If TypeOf ctrl Is ComboBox Then

ctrl = Null

End If

'LIMPA CAIXAS DE TEXTO
If TypeOf ctrl Is TextBox Then

ctrl = Null

End If

'LIMPA CAIXAS DE CHECKBOX
If TypeOf ctrl Is CheckBox Then

ctrl = False

End If

'LIMPA CAIXAS DE OPTIONBUTTON
If TypeOf ctrl Is OptionButton Then

ctrl = False

End If

Next

End Function

Para chama-la do seu botão e/ou código use: CALL LIMPAGERAL(ME)

Sds,


Pablo Neruda

Desculpem a demora pelo retorno...
ainda não consegui... :/
Não consigo limpar os campos do form e do subform em um só botão...

Estou tendo muitos problemas em trabalhar com subforms, não consigo limpar os dados nas 2 tabelas através de um subform...
Alguém se importaria em dar uma olhada pra mim no meu bd? Pra ver onde estou errando a uma possível solução??

Poste aqui o bd ou envie para o email de um dos moderadores. Eu não prometo olhar de imediato porque estou bastante atarefado, mas algum dos colegas talvez tenha um tempinho.

qual seu e-mail?

Coloquei isso no form...
Private Sub Form_BeforeUpdate(Cancel As Integer)
If MsgBox("Deseja salvar as alterações?", vbYesNo + vbQuestion, "Confirme!") = vbNo Then
Me.Undo
Else
End If

Mas só funciona no form principal e não no subform, e se eu estivar no form e clicar no subform ele gera a pergunta --'

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

Olá Criquio!
Como vai? Tudo bem?

Como posso usar este seu código (abaixo) ao pressionar a tecla delete?

If MsgBox("Tem certeza que deseja excluir os registros com o código selecionado?", vbYesNo + vbQuestion, "Confirmar exclusão") = vbYes Then
CurrentDb.Execute "DELETE FROM NomeDaSubTabela WHERE CodCliente=" & Me.Código & ""
CurrentDb.Execute "DELETE FROM NomeDaTabelaPrincipal WHERE Código=" & Me.Código & ""
MsgBox "Registros excluídos", vbInformation, "Sucesso"
Else
MsgBox "Exclusão cancelada", vbInformation, "Cancelado"
End If

Abraços

No evento "Ao apertar tecla"

If KeyCode = 46 Then ' ou If KeyCode = vbKeyDelete Then

If MsgBox("Tem certeza que deseja excluir os registros com o código selecionado?", vbYesNo + vbQuestion, "Confirmar exclusão") = vbYes Then
CurrentDb.Execute "DELETE FROM NomeDaSubTabela WHERE CodCliente=" & Me.Código & ""
CurrentDb.Execute "DELETE FROM NomeDaTabelaPrincipal WHERE Código=" & Me.Código & ""
MsgBox "Registros excluídos", vbInformation, "Sucesso"
Else
MsgBox "Exclusão cancelada", vbInformation, "Cancelado"
End If

Else
End If

Obrigado
Criquio

Abraços

Pegando carona com esse tópico .
não consigo limpar o campo Anexo, mesmo colocando
CÓDIGO:

Código:

If Me.ftcartao1.AttachmentCount = 1 Then
  Me.ftcartao1.Undo
 ' me.ftcartao1=""
  Me.Requery
 DoCmd.OpenForm "opcao
 DoCmd.Close

e nem deletando

Código:

CÓDIGO:
CurrentDb.Execute "DELETE FROM Cartão de membros WHERE ftcartao1= ""