Prezados (a)
Sou novo no BD, tenho um formulário com subformulário.
Preciso de uma VBA que evite o cadastro em duplicidade, Se possível no evento ao clicar.
O nome da tabela (ficha do convênio_antigo) o nome do campo que não pode ter duplicidade é (número siafi) exemplo 670.792)
Tem um outro problema, poderia resolver o problema do vba. Quando eu cancelar o salvar documento não aparecer a mensagem do motivo.
Sou novo no BD, tenho um formulário com subformulário.
Preciso de uma VBA que evite o cadastro em duplicidade, Se possível no evento ao clicar.
O nome da tabela (ficha do convênio_antigo) o nome do campo que não pode ter duplicidade é (número siafi) exemplo 670.792)
Tem um outro problema, poderia resolver o problema do vba. Quando eu cancelar o salvar documento não aparecer a mensagem do motivo.
- Código:
Sub fncExcluir()
If MsgBox("Deseja excluir esse item?", vbYesNo + vbInformation, "Atenção") = vbYes Then
DoCmd.SetWarnings False ' desativa a mensagem padrão do Access
DoCmd.RunCommand acCmdDeleteRecord ' Excluir registro
MsgBox ("Item excluido com sucesso"), vbInformation, "Excluido"
Else
MsgBox ("Operação cancelada"), vbInformation, "Cancelado"
End If
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim VarMsg As String
Dim varResposta As Integer
VarMsg = "Deseja salvar as alterações"
varResposta = MsgBox(VarMsg, vbQuestion + vbYesNo, "Salvar?")
varMotivoAleração = InputBox("Qual Motivo da Alteração", "Motivo")
If varResposta = vbNo Then
DoCmd.RunCommand acCmdUndo ' Desfaz as alterações inseridas
Cancel = Thue
Else
Call fncQuemalterou
End If
End Sub