Access - MENSAJE DE GUARDADO

Una vez mas, en un formulario tengo el siguiente codigo para guardar un registro nuevo, y quisiera que al momento de haber guardado el registro nuevo me aparezca un mensaje de REGISTRO GUARDADO y que las casillas y cajas de texto queden en blanco, el siguiente codigo que tengo en el Boton de Guardar es el Siguiente


Private Sub Guardar_Click()
On Error GoTo Err_Guardar_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Guardar_Click:
Exit Sub

Err_Guardar_Click:
MsgBox Err.Description
Resume Exit_Guardar_Click

End Sub


GRACIAS POR SU AYUDA

Hola

Bueno si lo que quieres es que al guardar se limopien todas las cajas de texto hey hay en tu form y mostrar un mensaje el codigo seria asi:

--------------------------------------
Private Sub Guardar_Click()
On Error GoTo Err_Guardar_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

msgbox "Registro insertado",VBInformation ,"OK"
Dim Control As Control

For Each Control In Me.Controls
If TypeOf Control Is TextBox Then
Control.Value = ""
End If
If TypeOf Control Is CheckBox Then
Control.Value = False
End If
Next

Exit_Guardar_Click:
Exit Sub

Err_Guardar_Click:
MsgBox Err.Description
Resume Exit_Guardar_Click

End Sub
--------------------------------------

Hay un ciclo que es el que recorre control a control y mira si este es una caja de texto si lo es limpia su contenido(Lo mismo para chekbox)

Saludos
http://www.theemulator.tk

El método Docmd.MenuItem está obsoleto, en su lugar es preferible usar Docmd.RunCommand. En este caso, para guardar un registro sería:

Docmd.runcommand accmdsavecord

La mejor forma de que las casillas te queden en blanco esperando introducir un nuevo registro es ir a un nuevo registro:

Docmd.gotorecord,,acNewRecord

Saludos
José Bengoechea Ibaceta