MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    [Resolvido]Novo registro

    theand.abreu
    theand.abreu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 17/10/2012

    [Resolvido]Novo registro Empty [Resolvido]Novo registro

    Mensagem  theand.abreu 28/7/2014, 20:07

    Suspect 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.
    [Resolvido]Novo registro Relacionamento

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3630
    Registrado : 21/04/2011

    [Resolvido]Novo registro Empty Re: [Resolvido]Novo registro

    Mensagem  Marcelo David 28/7/2014, 21:33

    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...


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Novo registro Marcel11
    theand.abreu
    theand.abreu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 17/10/2012

    [Resolvido]Novo registro Empty Re: [Resolvido]Novo registro

    Mensagem  theand.abreu 29/7/2014, 14:48

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3630
    Registrado : 21/04/2011

    [Resolvido]Novo registro Empty Re: [Resolvido]Novo registro

    Mensagem  Marcelo David 29/7/2014, 15:51

    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


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Novo registro Marcel11
    theand.abreu
    theand.abreu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 17/10/2012

    [Resolvido]Novo registro Empty Re: [Resolvido]Novo registro

    Mensagem  theand.abreu 29/7/2014, 18:55

    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.
    theand.abreu
    theand.abreu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 17/10/2012

    [Resolvido]Novo registro Empty Re: [Resolvido]Novo registro

    Mensagem  theand.abreu 30/7/2014, 19:52

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3630
    Registrado : 21/04/2011

    [Resolvido]Novo registro Empty Re: [Resolvido]Novo registro

    Mensagem  Marcelo David 30/7/2014, 20:07

    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!


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Novo registro Marcel11

      Data/hora atual: 7/12/2022, 14:44