[Resolvido]Verificar se o registro esta sendo do duplicado (mensagem Sim ou Não)

Boa Tarde,

Tem um formulário desacoplado e queria ver se tem como ele verifica se tem registro já cadastrados emitir uma mensagem com a opção sim ou não.

Como por exemplo:
Tem uma tabela Movimento onde faz onde pode-se lançar dois movimento de um cliente.
Receita:
Nome do cliente: Maria de Jesus Pereira
Descrição do Movimento: Pagamentos de Honorários
Valor: $ 300,00

E outro:
Nome do cliente: Maria de Jesus Pereira
Descrição do Movimento: Pagamento de Aluguel
Valor: $ 600,00

Despesa:
Nome do Fornecedor: Maria de Jesus Pereira
Descrição do Movimento: Prestação de Serviços de Limpeza
Valor: $ 500,00

Sendo que temos três Situação, eu quero que ele verifique o Nome do Cliente e a Descrição do Movimento. Se estiver cadastro um Movimento como o Nome do Cliente e a Descrição do Movimento for igual emita a seguinte mensagem:

" o Movimento que você esta lançando já existe, deseja continuar?
Se clicar no botão Sim permitir adicionar o registro e se clicar em Não não permitir adicionar ( limpar os campos).

E também pode ter mais de uma lançamento para o cliente mais com a Descrição do Movimento diferente.

Olá.

Uma sugestão, da forma que quer fazer pode ser prejudicial ao seu aplicativo, imagine toda vez que for realizar um registro o aplicativo terá que verificar se já existe o nome do cliente e descrição já registrado pode demorar quando sua tabela estiver com muitos registros e aumentar o trafego na rede, tente fazer essa verificação de outra forma através de chave primária.

Se quiser continuar dessa forma adapte a função abaixo, ela retorna verdadeira se já existe ou falso se não existe.

Código:

Public Function fncVerificaExiste() As Boolean

Dim Db As DAO.Database
Dim rs As DAO.Recordset
Dim SQL As String


SQL = "Sua instrução SQL"


Set Db = CurrentDb()

Set rs = CurrentDb.OpenRecordset(SQL)

If Not (rs.EOF) Then

fncVerificaExiste = True

Else

fncVerificaExiste = False

End If


rs.Close
Db.Close


End Function

Boa Tarde

Se for verificar pela chave primaria, sendo que a chave primaria se se repete?

Com funciona isso?

Se puder exemplificar.

Amigo eu uso este código para verificar duplicação de registros baseados em dois critérios.. Tentei dar uma adaptada com os nomes dos seu controles.. Vê te ajuda..


If DCount("idCliente", "tblCliente", "nome ='" & Me!txtnome & "' and descricao='" & Me!txtdescricao & "'") > 0 Then

'se já existir um cliente com este critério exibe a mensagem
if MsgBox (" o Movimento que você esta lançando já existe, deseja continuar?"),vbQuestion + vbYesNo, "Atenção" ) = vbyes then

DoCmd.RunCommand acCmdSaveRecord

Else

cancel = True
Me.txtNome = Null
Me.txtNome.SetFocus

end if

Etsá com erro na mensagem:

if MsgBox (" o Movimento que você esta lançando já existe, deseja continuar?"),vbQuestion + vbYesNo, "Atenção" ) = vbyes then

Desculpe minha falta de atenção..

troque por essa

If MsgBox(" o Movimento que você esta lançando já existe, deseja continuar?", vbQuestion + vbYesNo, "Atenção") = vbYes Then

Mais uma vez muito obrigado.

Bom dia Pessoal

Reabrir o tópico de novo.

Surgiu uma necessidade para o meu banco de dados.

Tenho uma tabela movimento onde é lançado receita e despesa.

Então eu quero ao clicar do botão Confirmar ele verifique os campos: CódigoCliente, Referente e Tipo.

Sendo tipo = Receita ou Despesa.

Mais sendo que no botão Confirmar já tem o código de parcelamento:

Código:



Dim i As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim StrParc As Double
Dim rsParc As DAO.Recordset
StrValorParc = Me.txtValor
StrParc = StrValorParc / Me.txtParcela
Set rsParc = CurrentDb.OpenRecordset("tbl_Movimento", dbOpenDynaset)
   With rsParc
   For i = 1 To Me.txtParcela
   StrDateAdd = DateAdd("m", i, Format(Me.txtDataVencimento.Value, "dd/mm/yyyy")) 'data do vencimento
       .AddNew
       .Fields("CodigoConta") = Me.txtConta.Value
       .Fields("Documento") = Me.txtDocumento.Value
       .Fields("DataPagamento") = Me.DataPagamento.Value
       .Fields("Referente") = Me.txtReferente.Value
       .Fields("CódigoPessoa") = Me.txtNome.Value
       .Fields("DataVencimento") = StrDateAdd
       .Fields("Observações") = Me.txtObservações.Value
       .Fields("ValorParcela") = StrValorParc
       .Fields("Situação") = Me.txtSituacao.Value
       .Fields("Tipo") = Me.Tipo.Value
       .Fields("Parcela") = "Parcela: " & (Me.txtParcela.Value) & "/" & i
       .Fields("Empresa") = Me.UsuarioLogado
       .Fields("CodigoCentroCusto") = Me.txtCentro
       .Update
   Next i
   End With
            If Me!txtSituacao = "Recebido" Then
            DoCmd.SetWarnings False ' Desabilita avisos.
            DoCmd.OpenQuery "cns_Receita", acViewNormal, acEdit
            End If

   DoCmd.Close acForm, "frm_Receita"
   Forms!frm_ListaReceitaAReceber!Lista16.Requery
   Set rsParc = Nothing: Close



E o código verifica apenas dois campos:

Código:


If DCount("Código", "tbl_Movimento", "Nome ='" & Me!txtNome & "' and Referente='" & Me!txtReferente"'") > 0 Then

'se já existir um cliente com este critério exibe a mensagem
If MsgBox(" o Movimento que você esta lançando já existe, deseja continuar?", vbQuestion + vbYesNo, "Atenção") = vbYes Then

DoCmd.RunCommand acCmdSaveRecord

Else

cancel = True
Me.txtNome = Null
Me.txtNome.SetFocus

end if


Como pode fazer para que ele verifique os três campos e funcionar junto com o código de parcelamento?

Alguém pode dar uma forcinha.

Boa tarde amigo. Olha e só vc adaptar aquele código que te passei e colocar uma referencia a mais.. Ficaria assim..

If DCount("Código", "tbl_Movimento", "Nome ='" & Me!txtNome & "' and Referente='" & Me!txtReferente & "'and tipo='" & Me!txttipo"'") > 0 Then

O código de verificação de duplicidade de registros ele e colocado antes da rotina do parcelamento, pois se estiver algum registro com aquele dado ele não aciona a função do parcelamento.. Tipo assim..

If DCount("Código", "tbl_Movimento", "Nome ='" & Me!txtNome & "' and Referente='" & Me!txtReferente & "'and tipo='" & Me!txttipo"'") > 0 Then

'se já existir um cliente com este critério exibe a mensagem
If MsgBox(" o Movimento que você esta lançando já existe, deseja continuar?", vbQuestion + vbYesNo, "Atenção") = vbYes Then

Dim i As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim StrParc As Double
Dim rsParc As DAO.Recordset
StrValorParc = Me.txtValor
StrParc = StrValorParc / Me.txtParcela
Set rsParc = CurrentDb.OpenRecordset("tbl_Movimento", dbOpenDynaset)
With rsParc
For i = 1 To Me.txtParcela
StrDateAdd = DateAdd("m", i, Format(Me.txtDataVencimento.Value, "dd/mm/yyyy")) 'data do vencimento
.AddNew
.Fields("CodigoConta") = Me.txtConta.Value
.Fields("Documento") = Me.txtDocumento.Value
.Fields("DataPagamento") = Me.DataPagamento.Value
.Fields("Referente") = Me.txtReferente.Value
.Fields("CódigoPessoa") = Me.txtNome.Value
.Fields("DataVencimento") = StrDateAdd
.Fields("Observações") = Me.txtObservações.Value
.Fields("ValorParcela") = StrValorParc
.Fields("Situação") = Me.txtSituacao.Value
.Fields("Tipo") = Me.Tipo.Value
.Fields("Parcela") = "Parcela: " & (Me.txtParcela.Value) & "/" & i
.Fields("Empresa") = Me.UsuarioLogado
.Fields("CodigoCentroCusto") = Me.txtCentro
.Update
Next i
End With
If Me!txtSituacao = "Recebido" Then
DoCmd.SetWarnings False ' Desabilita avisos.
DoCmd.OpenQuery "cns_Receita", acViewNormal, acEdit
End If

DoCmd.Close acForm, "frm_Receita"
Forms!frm_ListaReceitaAReceber!Lista16.Requery
Set rsParc = Nothing: Close

DoCmd.RunCommand acCmdSaveRecord

else

cancel = true
me.txtnome=Null
me.txtnome.setfocus

end if

Erro nessa parte:

If DCount("Código", "tbl_Movimento", "Nome ='" & Me!txtNome & "' and Referente='" & Me!txtReferente & "' and tipo='" & Me!txttipo"'") > 0 Then

Como diz nosso amigo JPaulo, o simples..rsrs brincadeira..

If DCount("Código", "tbl_Movimento", "Nome ='" & Me!txtNome & "' and Referente='" & Me!txtReferente & "' and tipo='" & Me!txttipo & "'") > 0 Then

Tentei cadastrar um registro ja existente na tabela, a mensagem não apareceu.

Tentei adicionar um registro não cadastrado na tabela, mas não adicionar.

O que esta acontecendo?

Código:



Private Sub cmdConfirmar_Click()
If DCount("Código", "tbl_Movimento", "Nome ='" & Me!txtNome & "' and Referente='" & Me!txtReferente & "' and tipo='" & Me!Tipo & "'") > 0 Then
           
            If MsgBox("O Movimento que você esta lançando já existe, deseja continuar?", vbQuestion + vbYesNo, "Atenção") = vbYes Then
    Dim i As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim StrParc As Double
Dim rsParc As DAO.Recordset
StrValorParc = Me.txtValor
StrParc = StrValorParc / Me.txtParcela
Set rsParc = CurrentDb.OpenRecordset("tbl_Movimento", dbOpenDynaset)
  With rsParc
  For i = 1 To Me.txtParcela
  StrDateAdd = DateAdd("m", i, Format(Me.txtDataVencimento.Value, "dd/mm/yyyy")) 'data do vencimento
      .AddNew
      .Fields("CodigoConta") = Me.txtConta.Value
      .Fields("Documento") = Me.txtDocumento.Value
      .Fields("DataPagamento") = Me.DataPagamento.Value
      .Fields("Referente") = Me.txtReferente.Value
      .Fields("CódigoPessoa") = Me.txtNome.Value
      .Fields("DataVencimento") = StrDateAdd
      .Fields("Observações") = Me.txtObservações.Value
      .Fields("ValorParcela") = StrValorParc
      .Fields("Situação") = Me.txtSituacao.Value
      .Fields("Tipo") = Me.Tipo.Value
      .Fields("Parcela") = "Parcela: " & (Me.txtParcela.Value) & "/" & i
      .Fields("Empresa") = Me.UsuarioLogado
      .Fields("CodigoCentroCusto") = Me.txtCentro
      .Update
  Next i
  End With
            If Me!txtSituacao = "Recebido" Then
            DoCmd.SetWarnings False ' Desabilita avisos.
            DoCmd.OpenQuery "cns_Receita", acViewNormal, acEdit
            End If

  DoCmd.Close acForm, "frm_Receita"
  Forms!frm_ListaReceitaAReceber!Lista16.Requery
  Set rsParc = Nothing: Close
  DoCmd.RunCommand acCmdSaveRecord
  Else

Cancel = True
Me.txtNome = Null
Me.txtNome.SetFocus

End If
End Sub



Amigo PatSoft, vc consegue postar somente uma parte de seu bd.. Pois seu código e muito grande para tentar planeja de cabeça.. Manda ai seu bd que olho para vc.. No aguardo..

Olha eu estava analisando o código e vi um possível erro, corrige ai e vê se funfa.. Faltou o txt na indicação da caixa de texto..

If DCount("Código", "tbl_Movimento", "Nome ='" & Me!txtNome & "' and Referente='" & Me!txtReferente & "' and tipo='" & Me!txtTipo & "'") > 0 Then

If MsgBox("O Movimento que você esta lançando já existe, deseja continuar?", vbQuestion + vbYesNo, "Atenção") = vbYes Then
Dim i As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim StrParc As Double
Dim rsParc As DAO.Recordset
StrValorParc = Me.txtValor
StrParc = StrValorParc / Me.txtParcela
Set rsParc = CurrentDb.OpenRecordset("tbl_Movimento", dbOpenDynaset)
With rsParc
For i = 1 To Me.txtParcela
StrDateAdd = DateAdd("m", i, Format(Me.txtDataVencimento.Value, "dd/mm/yyyy")) 'data do vencimento
.AddNew
.Fields("CodigoConta") = Me.txtConta.Value
.Fields("Documento") = Me.txtDocumento.Value
.Fields("DataPagamento") = Me.DataPagamento.Value
.Fields("Referente") = Me.txtReferente.Value
.Fields("CódigoPessoa") = Me.txtNome.Value
.Fields("DataVencimento") = StrDateAdd
.Fields("Observações") = Me.txtObservações.Value
.Fields("ValorParcela") = StrValorParc
.Fields("Situação") = Me.txtSituacao.Value
.Fields("Tipo") = Me.Tipo.Value
.Fields("Parcela") = "Parcela: " & (Me.txtParcela.Value) & "/" & i
.Fields("Empresa") = Me.UsuarioLogado
.Fields("CodigoCentroCusto") = Me.txtCentro
.Update
Next i
End With
If Me!txtSituacao = "Recebido" Then
DoCmd.SetWarnings False ' Desabilita avisos.
DoCmd.OpenQuery "cns_Receita", acViewNormal, acEdit
End If

DoCmd.Close acForm, "frm_Receita"
Forms!frm_ListaReceitaAReceber!Lista16.Requery
Set rsParc = Nothing: Close
DoCmd.RunCommand acCmdSaveRecord

Else

Cancel = True
Me.txtNome = Null
Me.txtNome.SetFocus

End If
End Sub

Resolveu?

Banco de dados.

Amigo estava aqui a estudar seu form, e não encontrei o campo que introduz dados ao campo tipo do sua tabela.. O código que te enviei faz a referencia a este campo, pode ser o caso de não esta funcionando.. troque e teste sem este campo.. "' and tipo='" & Me!txtTipo &. Este código funciona da seguinte forma.. Lembrando que tirei a visualização pelo campo tipo, pois não o encontrei em seu form..



'Declaração de variáveis
Dim i As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim StrParc As Double
Dim rsParc As DAO.Recordset

'Ele busca a duplicidade em sua tabela e se existir ele esibe a mensagem
If DCount("Código", "tbl_Movimento", "Nome ='" & Me!txtNome & "' and Referente='" & Me!txtReferente & "'") > 0 Then

"mensagem quando a duplicação e encontrada
If MsgBox("O Movimento que você esta lançando já existe, deseja continuar?", vbQuestion + vbYesNo, "Atenção") = vbYes Then

' se vc clicar em sim ele executa o código

StrValorParc = Me.txtValor
StrParc = StrValorParc / Me.txtParcela
Set rsParc = CurrentDb.OpenRecordset("tbl_Movimento", dbOpenDynaset)
With rsParc
For i = 1 To Me.txtParcela
StrDateAdd = DateAdd("m", i, Format(Me.txtDataVencimento.Value, "dd/mm/yyyy")) 'data do vencimento
.AddNew
.Fields("CodigoConta") = Me.txtConta.Value
.Fields("Documento") = Me.txtDocumento.Value
.Fields("DataPagamento") = Me.DataPagamento.Value
.Fields("Referente") = Me.txtReferente.Value
.Fields("CódigoPessoa") = Me.txtNome.Value
.Fields("DataVencimento") = StrDateAdd
.Fields("Observações") = Me.txtObservações.Value
.Fields("ValorParcela") = StrValorParc
.Fields("Situação") = Me.txtSituacao.Value
.Fields("Tipo") = Me.Tipo.Value
.Fields("Parcela") = "Parcela: " & (Me.txtParcela.Value) & "/" & i
.Fields("Empresa") = Me.UsuarioLogado
.Fields("CodigoCentroCusto") = Me.txtCentro
.Update
Next i
End With
If Me!txtSituacao = "Recebido" Then
DoCmd.SetWarnings False ' Desabilita avisos.
DoCmd.OpenQuery "cns_Receita", acViewNormal, acEdit


DoCmd.Close acForm, "frm_Receita"
Forms!frm_ListaReceitaAReceber!Lista16.Requery
Set rsParc = Nothing: Close
DoCmd.RunCommand acCmdSaveRecord
ens if

'se vc clicar em não le cancela o processo
Else

Cancel = True
Me.txtNome = Null
Me.txtNome.SetFocus

End If

Cpntinua com o mesmo problema.

Campo Tipo esta no formulário.

[img] [/img]

Este código funcionava antes do código de verificação de duplicidade que te mandei? Apague o código que adaptei e teste..
Dim i As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim StrParc As Double
Dim rsParc As DAO.Recordset


StrValorParc = Me.txtValor
StrParc = StrValorParc / Me.txtParcela
Set rsParc = CurrentDb.OpenRecordset("tbl_Movimento", dbOpenDynaset)
With rsParc
For i = 1 To Me.txtParcela
StrDateAdd = DateAdd("m", i, Format(Me.txtDataVencimento.Value, "dd/mm/yyyy")) 'data do vencimento
.AddNew
.Fields("CodigoConta") = Me.txtConta.Value
.Fields("Documento") = Me.txtDocumento.Value
.Fields("DataPagamento") = Me.DataPagamento.Value
.Fields("Referente") = Me.txtReferente.Value
.Fields("CódigoPessoa") = Me.txtNome.Value
.Fields("DataVencimento") = StrDateAdd
.Fields("Observações") = Me.txtObservações.Value
.Fields("ValorParcela") = StrValorParc
.Fields("Situação") = Me.txtSituacao.Value
.Fields("Tipo") = Me.Tipo.Value
.Fields("Parcela") = "Parcela: " & (Me.txtParcela.Value) & "/" & i
.Fields("Empresa") = Me.UsuarioLogado
.Fields("CodigoCentroCusto") = Me.txtCentro
.Update
Next i
End With
If Me!txtSituacao = "Recebido" Then
DoCmd.SetWarnings False ' Desabilita avisos.
DoCmd.OpenQuery "cns_Receita", acViewNormal, acEdit


DoCmd.Close acForm, "frm_Receita"
Forms!frm_ListaReceitaAReceber!Lista16.Requery
Set rsParc = Nothing: Close

se funfar podemos ir colocando o código de verificação para cada txt e vamos testando, se verificar duplicidade de nomes e funfou beleza, dai passaremos para o outro campo.. Primeiro teste seu código..

Fiz desse jeito.Veja abaixo. Mais ai ele permitir adicionar registro duplicado.

Código:



Private Sub cmdConfirmar_Click()
'Declaração de variáveis
Dim i As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim StrParc As Double
Dim rsParc As DAO.Recordset

'Ele busca a duplicidade em sua tabela e se existir ele esibe a mensagem
If DCount("Código", "tbl_Movimento", "Nome ='" & Me!txtNome & "' and Referente='" & Me!txtReferente & "'") > 0 Then

'"mensagem quando a duplicação e encontrada
If MsgBox("O Movimento que você esta lançando já existe, deseja continuar?", vbQuestion + vbYesNo, "Atenção") = vbYes Then

' se vc clicar em sim ele executa o código
Cancel = True
Me.txtNome = Null
Me.txtNome.SetFocus

End If
End If

StrValorParc = Me.txtValor
StrParc = StrValorParc / Me.txtParcela
Set rsParc = CurrentDb.OpenRecordset("tbl_Movimento", dbOpenDynaset)
With rsParc
For i = 1 To Me.txtParcela
StrDateAdd = DateAdd("m", i, Format(Me.txtDataVencimento.Value, "dd/mm/yyyy")) 'data do vencimento
.AddNew
.Fields("CodigoConta") = Me.txtConta.Value
.Fields("Documento") = Me.txtDocumento.Value
.Fields("DataPagamento") = Me.DataPagamento.Value
.Fields("Referente") = Me.txtReferente.Value
.Fields("CódigoPessoa") = Me.txtNome.Value
.Fields("DataVencimento") = StrDateAdd
.Fields("Observações") = Me.txtObservações.Value
.Fields("ValorParcela") = StrValorParc
.Fields("Situação") = Me.txtSituacao.Value
.Fields("Tipo") = Me.Tipo.Value
.Fields("Parcela") = "Parcela: " & (Me.txtParcela.Value) & "/" & i
'.Fields("Empresa") = Me.UsuarioLogado
.Fields("CodigoCentroCusto") = Me.txtCentro
.Update
Next i
End With
If Me!txtSituacao = "Recebido" Then
DoCmd.SetWarnings False ' Desabilita avisos.
DoCmd.OpenQuery "cns_Receita", acViewNormal, acEdit


DoCmd.Close acForm, "frm_Receita"
Forms!frm_ListaReceitaAReceber!Lista16.Requery
Set rsParc = Nothing: Close
DoCmd.RunCommand acCmdSaveRecord
End If
End Sub




Testa ai.. Cloquei uma função ElseIf vbNo para que quando vc clicar em não ele cancela o salvamento e limpa os campos.. Testa e me diga..

'Declaração de variáveis
Dim i As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim StrParc As Double
Dim rsParc As DAO.Recordset

'Ele busca a duplicidade em sua tabela e se existir ele esibe a mensagem
If DCount("Código", "tbl_Movimento", "Nome ='" & Me!txtNome & "' and Referente='" & Me!txtReferente & "'") > 0 Then

'"mensagem quando a duplicação e encontrada
If MsgBox("O Movimento que você esta lançando já existe, deseja continuar?", vbQuestion + vbYesNo, "Atenção") = vbYes Then

' se vc clicar em sim ele executa o código
Cancel = True
Me.txtNome = Null
Me.txtNome.SetFocus

End If
End If

StrValorParc = Me.txtValor
StrParc = StrValorParc / Me.txtParcela
Set rsParc = CurrentDb.OpenRecordset("tbl_Movimento", dbOpenDynaset)
With rsParc
For i = 1 To Me.txtParcela
StrDateAdd = DateAdd("m", i, Format(Me.txtDataVencimento.Value, "dd/mm/yyyy")) 'data do vencimento
.AddNew
.Fields("CodigoConta") = Me.txtConta.Value
.Fields("Documento") = Me.txtDocumento.Value
.Fields("DataPagamento") = Me.DataPagamento.Value
.Fields("Referente") = Me.txtReferente.Value
.Fields("CódigoPessoa") = Me.txtNome.Value
.Fields("DataVencimento") = StrDateAdd
.Fields("Observações") = Me.txtObservações.Value
.Fields("ValorParcela") = StrValorParc
.Fields("Situação") = Me.txtSituacao.Value
.Fields("Tipo") = Me.Tipo.Value
.Fields("Parcela") = "Parcela: " & (Me.txtParcela.Value) & "/" & i
'.Fields("Empresa") = Me.UsuarioLogado
.Fields("CodigoCentroCusto") = Me.txtCentro
.Update
Next i
End With
If Me!txtSituacao = "Recebido" Then
DoCmd.SetWarnings False ' Desabilita avisos.
DoCmd.OpenQuery "cns_Receita", acViewNormal, acEdit


DoCmd.Close acForm, "frm_Receita"
Forms!frm_ListaReceitaAReceber!Lista16.Requery
Set rsParc = Nothing: Close
DoCmd.RunCommand acCmdSaveRecord

elseif VbNo

cancel = true
me.recalc

End If

Ele exibe a msg informando a duplicação?

Corrige esta parte eu esqueci de colocar o then

elseif VbNo then

cancel = true
me.recalc

Não apareceu não e adicionou o registro duplicado.

Amigo PatSoft, não entendo oque possa esta dando de errado, eu utilizo este código em varias aplicações e nunca me deu este problema.. As referencias dos campos e tabelas estão corretos? pois tinha que emitir a mensagem caso haja duplicação. Confirme se txtnome, txtreferente esta correto com o código.. E tem mais uma coisa se um estiver erro de escrita como Matheus e vc colocar Mateus ou qualquer diderença que há em ambos os campos ele também não verifica.. mude o final do código para =>1. E teste..


If DCount("Código", "tbl_Movimento", "Nome ='" & Me!txtNome & "' and Referente='" & Me!txtReferente & "'") > 0 Then

Amigo PatSoft, pocha fiquei grilado e curioso.se o que eu te disse não resolveu.. Teste só com o nome.
Quero que apareça a msg.. Para ver onde esta o problema


If DCount("código", "tbl_Movimento", "Nome =""" & Me!txtNome & """") > 0 Then

Será que você não pode incluir um registro no meu banco de dados e fazer você mesmo o teste?

Quando eu estava com a versão do office 2010 estava funcionando. Mais agora estou com a versão 2007 ai não funciona nem com um campo.

Hunn, poderia ter te perguntado antes, o problema ta ai amigo PatSoft.. Pois estou a testar aqui em 2010 e esta funfar normal.. Não consigo achar outro solução.. Pois pode haver códigos e funções que não são compatíveis com 2007. Já ouvi dizer que tem muita incompatibilidade com as versões.. Desculpe.. E alis este form que vc me mandou com seu bd e utilizado como filtro? Sabe aquela combo chama txtnome? Então ela e vinculada a uma consulta por isso que nunca iria verificar a uma tabela. Eu utilizei uma txt para receber o dados da combo e funfou..

Resre aqui com uma caixa de texto e esta acontecendo a mesma coisa.

Se tiver como mandar o banco de dados que vc testou.

Bom dia amigo PatSoft. Hoje pude análizar seu Form e cheguei a seguinte conclusão.

1 Aa caixas de textos de seu form não estão acopladas a nenhuma tabela, e por isso os códigos não funcionavam.
2 os campo txttipo que vc tinha me dito que queria fazer  a pesquisa de duplicação não exite pois ele e um Rótulo então mais uma vez o código não iria funcionar. Da uma olhada na mudança que fiz no campo referente e nome cliente.. Olha a tabela e tenta fazer um cadastro duplicado.. Vc tem que usar campos vinculados a tabela porque senão vc não consegue salvar o registro editado nem executar o seu código.. Olha para vc ver..

Boa Tarde Matheus

Esta aparecendo a mensagem, mais quando eu digito os dados do formulário e clico em confirmar e clico em não, na tabela ele cria um nova chave primaria.

Tem como ao clicar em não ele não adicionar a chave primaria?

E também estava reparando que adicionar a tabela somente os campos txtReferente e txtNome.

Eu acho acontece isso é devido o meu formulário ser com campos desacoplado. Será que essa função não funcionar com campos desacoplados?

Amigo PatSoft, tenho certeza que o problema de tudo esta no frm desacoplado por que? Como o sistema pode inserir os registros na tabela sem saber que tabela ira receber os dados? Como aquele seu código que esta a usar para fazer os parcelamento, pode inserir os resultados na tabela sendo que não tem vinculo a nenhuma tabela e se quer tem uma instrução de insert into para inserir os resultados na tabela.. Para que objetivo seu form tem que ser desacoplado a tabela? Vc não quer que todos os dados inseridos sejam salvos na tabela_movimento? Refaça seu form acoplado a tbl_Movimento. Se precisar de ajuda, ficarei no aguardo..

Vamos supor meu formulário esta vinculado a tabela Movimento, como eu faço para impedir que adicione a chave primaria ao clicar em confirmar de inserir?

Coloque no final do código na espresão Else assim.


CurrentDb.Execute "DELETE * FROM suatabela where isnull(seucampo)" 'Coloque o nome de um campo que não pode ficar em branco, se estiver em branco ele deleta toda linha..

Matheus muito obrigado, valeu mesmo pela ajuda.

Vou finalizar o tópico e qualquer coisa retorno.

Beleza amigo, to na área.. Abraço

Bom, mais uma coisa que esta acontecendo.

Por exemplo, ao inserir esta adicionando dois registro, veja:

Nome do Cliente	Referente a	Valor	Parcela	...
Rodrigo Alves	teste 1	200,00	1	...
Rodrigo Alves	teste 1	200,00	Parcela: 1/1	...

Ele esta inserindo um registro por conta própria. Será o que esta acontecendo?

Manda o Bd funcionando... Assim sem ver fica difícil, pois o problema agora e no código do parcelamento..

Banco de dados.

Eu não consegui fazer funcionar o form pois seu bd foi feito em 2007 e o meu 2010 então não esta a funcionar no meu, mais testa ai e vê se funfa..

O que esta acontecendo é o seguinte: digito os dados nos campos txtReferente, txtCliente, txtDatVenc, txtValorParc, txtSituação.

Conforme eu vou digitando ele já salvar na tabela, por que os campo são acoplados. Quando o meu formulário não era acoplado não tinha esse problema ele adicionava somente quando eu clicava no botão.

Tem como fazer para que ao digitar ele salve os dados automaticamente apenas ao clicar no botão.

Sendo que o código de parcelamento já gera outros dados.

Teste ai, agora acho que foi. Coloquei o código de verificação de duplicidade após atualizar txtNome.. Se quiser inserir mais campos me fala que faremos... teste e me fale..

Obrigado Matheus mais uma vez. Valew.