[Resolvido]Novo registro

 olá galera, acho que fiz caca.

Toda vez que vou para um novo registro seja clicando no "seletores de registro - novo registro" ou criando uma macro "Abrir Formulário - Modo de Dados - Adicionar" ou mesmo via VBA - "acFormAdd" mesmo sem digitar nenhuma informação no formulário ele adiciona um registro na tabela.
Como faço para arrumar isso ? Não sei se é no relacionamento das tabelas ou alguma propriedade do formulário.


Esse evento somente ocorre ao abrir o formulário pedidos.

Hii, meu amigo, a bola de cristal "pifou"...
Que formulário você está se referindo?
Pois no formulário de clientes, testei aqui e tudo está normal...

Como disse no primeiro post, o formulário é o d e pedidos.

theand.abreu escreveu:Como disse no primeiro post, o formulário é o d e pedidos.

Vamos ver se disse qual é o formulário...

theand.abreu escreveu:Toda vez que vou para um novo registro seja clicando no "seletores de registro - novo registro" ou criando uma macro "Abrir Formulário - Modo de Dados - Adicionar" ou mesmo via VBA - "acFormAdd" mesmo sem digitar nenhuma informação no formulário ele adiciona um registro na tabela.

Perceba que você não informou nenhum nome de formulário (pedido)!
Se precisa de ajuda é necessário informa os nomes dos objetos envolvido
para assim podermos vermos o que está ocorrendo.

E como você disse na mensagem 3 e não na 1, o formulário em questão é o de pedidos (suponho Pedido seja o nome
do formulário) pude observar o seguinte:

Código:

Me.Texto38.Value = Nz(Me.Itens.Form!SubTot.Value, 0) _
                    + Nz(Me.Servicos.Form!SubTot.Value, 0)

    Me.Texto46.Value = Nz(Me.Itens.Form!Texto30.Value, 0) _
                    + Nz(Me.Servicos.Form!Texto30.Value, 0)

    TotalGeral.Value = Nz(Me.Texto38, 0) _
                    - Nz(Me.ped_desconto, 0)


Mesmo que você não digite nada no formulário, no evento atualo código acima "escreve" no formulário. Ou seja,
mesmo estando em novo registro, seu código vai e escreve os totais em um campo vinculado, daí já é criado um novo registro.

Como sugestão, verifique se o registro é novo e se for, não execute o código.

Seu código no atual ficaria assim:

Código:

If Me.NewRecord = False Then 'Verifico se não é um novo registro. Caso não seja, então execulto o código abaixo.
        Set cli = CurrentDb.OpenRecordset("select cli_nome from cliente where cli_codigo = " & Nz(Me.ped_cli_codigo, 0))
        If Not cli.EOF Then
            Rótulo13.Caption = cli.cli_nome
        Else
            Rótulo13.Caption = ""
        End If

        Me.Texto38.Value = Nz(Me.Itens.Form!SubTot.Value, 0) _
                        + Nz(Me.Servicos.Form!SubTot.Value, 0)

        Me.Texto46.Value = Nz(Me.Itens.Form!Texto30.Value, 0) _
                        + Nz(Me.Servicos.Form!Texto30.Value, 0)

        TotalGeral.Value = Nz(Me.Texto38, 0) _
                        - Nz(Me.ped_desconto, 0)

        Me.Rótulo45.Caption = "Porcentagem " & Format(Me.ped_desconto / Me.Texto38, "Percent")
    End If


Acho que a gente não precisa ficar se digladiando a respeito da postagem do nome do formulário que aliás já tinha dito na primeira vez, logo abaixo da imagem de relacionamentos e acima do anexo.

Esse evento somente ocorre ao abrir o formulário pedidos.

Mas enfim entendi o que explicou sobre o que gera o "erro" vou testar o seu código e posto o resultado.
Muito obrigado pelo tempo dispensado no meu caso.

Marcelo muito obrigado, era exatamente o que você desenhou.

Grato meu amigo pelo retorno e por favor me desculpe por qualquer coisa, aliás, você tinha razão sobre o formulário eu que não vi... Falha minha!
Forte abraço!