[Resolvido]Erro no código

Boa Tarde 

Junto dois códigos sendo um para não adicionar dois registros iguais e outro para adicionar o registro do formulário na tabela.

Mais esta com um erro.

Alguém pode me ajudar?

 If (Not IsNull(DLookup("[CodMovimento]", "TabRec", _
        "[CodMovimento] ='" & Me!MovCod & "'"))) Then
        MsgBox "Esse recibo já foi emitido..." & CodMovimento.Text, _
        vbInformation, "Atenção"
        Cancel = True 'cancela o evento.
        Me!MovCod.Undo 'desfaz a digitação.
        Else
        DoCmd.RunSQL "INSERT INTO TabRec (CodMovimento, Nome,Empresa, Valor, Data, Documento, ValorExt, Referente, Observacao) VALUES" _
        & "(forms!formRecibo!MovCod, forms!formRecibo!MovPes," _
        & "forms!formRecibo!MovEmp, forms!formRecibo!MovVal," _
        & "forms!formRecibo!MovDat, forms!formRecibo!MovDoc," _
        & "forms!formRecibo!VtxtExtenso, forms!formRecibo!RtxtReferente," _
        & "forms!formRecibo!MovObs);"
        
        MsgBox ("Registro salvo com sucesso!"), vbInformation
        End If

Boa tarde,
Pretende acrescentar 9 campos mas só indica 6

Alexandre com sua licensa e atenção, veja, acho que ele escreveu errado a sintaxe, também achei que eram menos campos até escrever novamente a sintaxe, será que estou certo?

DoCmd.RunSQL "INSERT INTO TabRec (CodMovimento, Nome,Empresa, Valor, Data, Documento, ValorExt, Referente, Observacao) VALUES (" & forms!formRecibo!MovCod & ",'" & forms!formRecibo!MovPes & "','" & forms!formRecibo!MovEmp & "'," & forms!formRecibo!MovVal & ",#" & forms!formRecibo!MovDat & "#," & forms!formRecibo!MovDoc & ",'" & forms!formRecibo!VtxtExtenso & "','" & forms!formRecibo!RtxtReferente & "','" & forms!formRecibo!MovObs & "');"

Bom dia

Alguém pode dar uma olhada pra mim?

No formulário movimento tem um botão Recibo. Que deve ser selecionado um registro da caixa de listagem e clica no botão Recibo que abrirá com os dados selecionado, e clicando em Imprimir deverá ser saldo os dados na tabela Recibo e se os dados existir na tabela não permitirá salva-lo no tabela.

Alguém?

O que há de errado nesse Código:

Código:

Private Sub Comando20_Click()
 If (Not IsNull(DLookup("[CodMovimento]", "TabRec", _
        "[MovCod] ='" & Me!MovCod & "'"))) Then
        MsgBox "Esse recibo já foi emitido..." & MovCod.Text, vbInformation, "Atenção"
        Cancel = True 'cancela o evento.
        Me!MovCod.Undo 'desfaz a digitação.
        Else
        DoCmd.RunSQL "INSERT INTO TabRec (CodMovimento, Nome,Empresa) VALUES (" & Forms!formRecibo!MovCod & ",'" & Forms!formRecibo!MovPes & "','" & Forms!formRecibo!MovEmp & "');"
MsgBox ("Registro salvo com sucesso!"), vbInformation
End If
End Sub

Tente:

Private Sub Comando20_Click()
If Not IsNull(DLookup("[CodMovimento]", "TabRec", _
"[MovCod]=" & Me!MovCod)) Then
MsgBox "Esse recibo já foi emitido..." & MovCod.Text, vbInformation, "Atenção"
Cancel = True 'cancela o evento.
Me!MovCod.Undo 'desfaz a digitação.
Else
DoCmd.RunSQL "INSERT INTO TabRec (CodMovimento, Nome,Empresa) VALUES (" & Forms!formRecibo!MovCod & ",'" & Forms!formRecibo!MovPes & "','" & Forms!formRecibo!MovEmp & "');"
MsgBox ("Registro salvo com sucesso!"), vbInformation
End If
End Sub

Olha o erro que esta acontecendo?

https://dl.dropboxusercontent.com/u/25062472/Imagem1%20%282%29.png

O Erro está acontecendo aqui
MsgBox "Esse recibo já foi emitido..." & MovCod.Text, vbInformation, "Atenção"


Para utilizar a propriedade .Text o controle precisa ter o foco, veja:

Sintaxe
expressão.Text
expressão   Uma variável que representa um objeto TextBox.
Comentários
Você pode definir a propriedade Texto com o texto que você deseja exibir no controle (controle: um objeto da interface gráfica do usuário, como uma caixa de texto, uma caixa de seleção, uma barra de rolagem ou um botão de comando, que permite a usuários controlar o programa. Você usa controles para exibir dados ou opções, executar uma ação ou facilitar a leitura da interface do usuário.). Você também pode utilizar a propriedade Texto para ler o texto atualmente no controle.
Observação

Para definir ou retornar a propriedade Texto de um controle, o controle deve ter o foco (foco: a capacidade de receber entradas de usuário pelo mouse ou ações do teclado, ou pelo método SetFocus. O foco pode ser definido pelo usuário ou pelo aplicativo. O objeto que tem o foco normalmente é indicado por uma legenda ou barra de título realçada.), ou ocorrerá um erro. Para mover o foco para um controle, use o método SetFocus ou a ação IrParaControle.

Enquanto o controle tem o foco, a propriedade Texto contém os dados de texto atualmente no controle; a propriedade Valor contém os últimos dados salvos no controle. Quando você move o foco para um outro controle, os dados do controle são atualizados (atualizar: aceitar alterações em dados de um registro. As alterações são salvas no banco de dados quando você passa para outro registro em um formulário, uma folha de dados ou uma página de acesso a dados, ou quando salva explicitamente o registro.) e a propriedade Valor é definida com esse novo valor. A configuração da propriedade Texto não estará então disponível, até que o controle receba o foco novamente. Se você utilizar o comando Salvar Registro do menu Registros para salvar os dados no controle sem mover o foco, as configurações da propriedade Texto e da propriedade Valor serão as mesmas.
Exemplo


Cumprimentos.

Teste ai.

Ao clicar no botão Imprimir ele "Esse recibo já foi emitido." . Mais sendo que o registro na esta na tabela TabRec.

Para o teste:

Clique no botão Recibo e clique no botão Imprimir do Formulário formRecibo.

O que tem?

O que acontece?

O erro que enviou a tela foi resolvido?


cumprimentos.

Todos os teus campos na tabela TabRec estão como Texto..
Amigão você deve aplicar o tipo de campo conforme o tipo de dados..

Se Data >>> Formato Data
Se Valor >>> Numero - Double.


Altere isto.. O Campo CodMovimento coloque como número e utilize o Dcount para isto é mais apropriado.

If DCount("*", "TabRec", "CodMovimento=" & Me!MovCod & "") > 1 Then
MsgBox "Esse Movimento já foi emitido um recibo: Recibo N." & MovCod & "", vbInformation, "Atenção"
Cancel = True 'cancela o evento.
Me!MovCod.Undo 'desfaz a digitação.
Else
DoCmd.RunSQL "INSERT INTO TabRec (CodMovimento, Nome,Empresa, Valor, Data, Documento, ValorExt, Referente, Observacao) VALUES ('" & Forms!formRecibo!MovCod & "', '" & Forms!formRecibo!MovPes & "', '" & Forms!formRecibo!MovEmp & "', '" & Forms!formRecibo!MovVal & "', '" & Forms!formRecibo!MovDat & "', '" & Forms!formRecibo!MovDoc & "', '" & Forms!formRecibo!txtExtenso & "', '" & Forms!formRecibo!txtReferente & "','" & Forms!formRecibo!MovObs & "');"
MsgBox ("Registro salvo com sucesso!"), vbInformation
End If

Cumprimentos.

O problema é que ao inserir o recibo (Botão Imprimir) diz que o recibo já foi inserido. Mais na verdade o recibo não foi inserido na tabela TabRec.

A função INSERT INTO esta certo o erro acho que esta na função de bloquear registro duplicados.

O que eu quero e que ao clicar no botão Imprimir do formulario Recibo ele verifique se há dados com o codigoMovimento já cadastrado e se não haver dados o registro seja inserido na tabela.

A solução está ai acima...

Cumprimentos.

Ele esta permitindo registro duplicados.

Perdoe-me.. é > 0 Eu havia colocado > 1

Private Sub Comando20_Click()
MsgBox DCount("*", "TabRec", "CodMovimento=" & Me!MovCod & "")
If DCount("*", "TabRec", "CodMovimento=" & Me!MovCod & "") > 0 Then
MsgBox "Esse Movimento já foi emitido um recibo: Recibo N." & MovCod & "", vbInformation, "Atenção"
Cancel = True 'cancela o evento.
Me!MovCod.Undo 'desfaz a digitação.
Else
DoCmd.RunSQL "INSERT INTO TabRec (CodMovimento, Nome,Empresa, Valor, Data, Documento, ValorExt, Referente, Observacao) VALUES ('" &     Forms!formRecibo!MovCod & "', '" & Forms!formRecibo!MovPes & "', '" & Forms!formRecibo!MovEmp & "', '" & Forms!formRecibo!MovVal & "', '" & Forms!formRecibo!MovDat & "', '" & Forms!formRecibo!MovDoc & "', '" & Forms!formRecibo!txtExtenso & "', '" & Forms!formRecibo!txtReferente & "','" & Forms!formRecibo!MovObs & "');"
MsgBox ("Registro salvo com sucesso!"), vbInformation
End If
End Sub

Ok Piloto. Muito obrigado era exatamente o que pretendia.

Muito obrigado mesmo.

O Fórum agradece o Retorno.