Boa noite
Tenho um formulário continuo, que em cada registo tem um botão de comando para eliminar o respetivo registo assim:
Private Sub Comando64_Click()
If Me.Ref.Value = "Transferência" Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM [MovimentosAnularTran] WHERE Doc = " & Me.Doc
DoCmd.SetWarnings True
End If
End Sub
O mesmo formulário ao carregar tem o seguinte:
Private Sub Form_Load()
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "Não Existem Transferências para Anular ", vbQuestion, "Gestão Bancária "
DoCmd.Close acForm, "AnularTransferencias"
Exit Sub
End If
End Sub
Pergunto:
Como fechar o dito formulário automaticamente depois de ser eliminado o último registo ?
Obrigado
Tenho um formulário continuo, que em cada registo tem um botão de comando para eliminar o respetivo registo assim:
Private Sub Comando64_Click()
If Me.Ref.Value = "Transferência" Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM [MovimentosAnularTran] WHERE Doc = " & Me.Doc
DoCmd.SetWarnings True
End If
End Sub
O mesmo formulário ao carregar tem o seguinte:
Private Sub Form_Load()
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "Não Existem Transferências para Anular ", vbQuestion, "Gestão Bancária "
DoCmd.Close acForm, "AnularTransferencias"
Exit Sub
End If
End Sub
Pergunto:
Como fechar o dito formulário automaticamente depois de ser eliminado o último registo ?
Obrigado