Seria esse?
Option Compare Database
Private Sub CMD_IMPRIMIR_Click()
'Abrir relatório atual
DoCmd.OpenReport "RLT_CLIENTES", acViewPreview
End Sub
Private Sub CMD_LOCALIZAR_Click()
'Abrir formulário buscar clientes
DoCmd.OpenForm "FRM_BUSCAR_CLIENTES"
'Fechar formulário buscar clientes
DoCmd.Close acForm, Me.Name, acSaveYes
End Sub
Private Sub CMD_NOVO_Click()
'Ir para novo registro
DoCmd.GoToRecord , , acNewRec
End Sub
Private Sub CMD_SAIR_Click()
'Fechar janela atual
DoCmd.Close acForm, Me.Name, acSaveYes
End Sub
Private Sub CMD_SALVAR_Click()
'Salvar Registro e tratar erro
On Error Resume Next
DoCmd.RunCommand acCmdSaveRecord
End Sub
Private Sub Form_AfterUpdate()
'Mensagem de confirmação
MsgBox "Cadastro efetuado com sucesso!", , "Cadastro"
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
'Mensagem de confirmação
If MsgBox("Deseja confirmar o cadastro?", vbOKCancel, "Atenção!") = vbCancel Then
Cancel = True
End If
End Sub
Private Sub Form_Load()
'Foco na caixa nome
Me.Nome.SetFocus
End Sub