
Nuevo registro
Publicado por Paulina (91 intervenciones) el 25/02/2023 04:48:18
Hola de nuevo, porque al poner este codigo no me abre un nuevo registro?
Private Sub BtnImprimirFactura_Click()
On Error GoTo Err_Etiqueta_Click
Dim stDocName As String
stDocName = "inf_pedidos"
DoCmd.OpenReport stDocName, acViewNorma
Exit_Etiqueta_Click:
Exit Sub
Err_Etiqueta_Click:
MsgBox Err.Description
Resume Exit_Etiqueta_Click
'NUEVO RECORD
DoCmd.GoToRecord , , acNewRec
TipoCliente.SetFocus
End Sub
Private Sub BtnImprimirFactura_Click()
On Error GoTo Err_Etiqueta_Click
Dim stDocName As String
stDocName = "inf_pedidos"
DoCmd.OpenReport stDocName, acViewNorma
Exit_Etiqueta_Click:
Exit Sub
Err_Etiqueta_Click:
MsgBox Err.Description
Resume Exit_Etiqueta_Click
'NUEVO RECORD
DoCmd.GoToRecord , , acNewRec
TipoCliente.SetFocus
End Sub
Valora esta pregunta


0