como limpar os campos do formulario após salvar um registro na tabela?

estou tentando colocar um comando no vba para limpar a tela do formulario apos salvar o registro, deixando assim pronto para inserir um novo registro na tebela, alguem pode me ajudar?

P.S: sou novo por aqui e me cadastrei pois as informações e os membros do grupo me passaram seriedade.
desde ja agradeço

Boa tarde Anderson.

Seja bem vindo ao fórum.

Dá uma olhada nessa função e teste:

Código:

Public Function Controles(strFrm As Form) As String
'Ricardo - MVP Databases

Dim ctl As Control

For Each ctl In strFrm.Controls

If InStr(1, ctl.Tag, "A") Then 'os campos que pretender tem de ter na linha Marca ou Tag a Letra A
ctl = Null
End If

Next ctl

End Function

Para funcionar, você deverá definir a tag/Marca como A em todos os controles do formulário.

Nivaldo.

boa noite meu querido, rapaz tentei de varias maneiras mais não consegui fazer com que funcionasse, só para vc entender melhor eu ja tenho um um evento criado no botão "salvar" segue abaixo o mesmo.

Private Sub Comando5_Click()

If MsgBox(" Deseja salvar esse registro ?", vbOKCancel + vbDefaultButton1 + vbInformation, "Aviso...") = vbOK Then
DoCmd.Save

MsgBox " Registro salvo com sucesso !", vbOKOnly, "Aviso..."
DoCmd.RunCommand acCmdRefresh

Else

Me.Undo
End If

End Sub

Bom dia,


Em situações semelhantes, o que costumo fazer são duas linhas de código para salvar o registo e criar um novo, utilizando algumas validações pelo meio.

Algo assim:

Private Sub cmdSaveandNew_Click()
On Error GoTo ProcErr:

Dim varHoje As Date
varHoje = Format(Now(), "Short Date")
Dim varUser As String
varUser = Me.txtUser


On Error Resume Next
If (Form.Dirty) Then
If IsNull(Me.txtOpenedBy) Then
Me.txtOpenedBy = varUser
End If
If IsNull(Me.txtOpenedDate) Then
Me.txtOpenedDate = varHoje
End If
DoCmd.RunCommand acCmdSaveRecord
End If
DoCmd.GoToRecord , , acNewRec
Forms![FormIssueList]![ID].Requery
Forms![FormIssueDetails]![Title].SetFocus


ProcExit:
Exit Sub

ProcErr:
MsgBox "Error " & err.Number & " (" & err.Description & _
") in Button1_Click, Form_FormName"
Resume ProcExit


End Sub

Espero que ajude

Olá Anderson,

Geralmente uso esse código em formulários desacoplados.
Se você usa formulário acoplado seria melhor usar o assistente de botão de comando para inserir novo registro, assim limpa os campos automaticamente.

Nivaldo.