Bom dia amigos
Estou a usar este código para anular um registo num formulário com subformulário.
O click realmente anula os dados do formulário e do subformulário, mas na hora de fechar " DoCmd.Close acForm, "FrmPedidosAlterar"
o dito formulário, não fecha e o fundo do formulário fica branco
Private Sub Comando20_Click()
If MsgBox("Anular Todo Documento ? ", vbYesNo + vbQuestion, "Aviso") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Close acForm, "FrmPedidosAlterar"
DoCmd.SetWarnings True
Else
End If
Alguma dica ???
Obrigado
End Sub
Estou a usar este código para anular um registo num formulário com subformulário.
O click realmente anula os dados do formulário e do subformulário, mas na hora de fechar " DoCmd.Close acForm, "FrmPedidosAlterar"
o dito formulário, não fecha e o fundo do formulário fica branco
Private Sub Comando20_Click()
If MsgBox("Anular Todo Documento ? ", vbYesNo + vbQuestion, "Aviso") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Close acForm, "FrmPedidosAlterar"
DoCmd.SetWarnings True
Else
End If
Alguma dica ???
Obrigado
End Sub