MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Contar registros, acrescentando +1 com condição

    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 352
    Registrado : 11/12/2017

    [Resolvido]Contar registros, acrescentando +1 com condição Empty [Resolvido]Contar registros, acrescentando +1 com condição

    Mensagem  Ismael Silva em 6/4/2019, 03:19

    Boa noite,

    Estou tentando criar uma rotina no meu formulário para contar os registros que existem na tabela, ou seja, toda vez que eu clicar no botão Novo Registro, aciona a rotina abaixo:

    Poderia utilizar a numeração automática, mas estou tentando fazer algo diferente, pelo simples fato que ao você clicar em novo registro, e cancelar, já salva um número automático na tabela, e não fica na sequência correta a númeração, que no meu caso, é o número do pedido. Então na rotina abaixo, coloquei para que se na Tbl_Lancamentos, não obtiver nenhum lançamento, então que no campo Cod_Pedido, fique = 1, mas se tiver algum registro, quero que conte, e coloque + 1, mas acabou não dando muito certo a minha ideia. Alguém poderia me dar um auxilio?

    Private Sub Novo_Click()

    DoCmd.GoToRecord , , acNewRec

    If DCount("Cod_Pedido", "Tbl_Lancamentos") = "" Then

    Me.Cod_Pedido = 1

    Else

    End If
    End Sub
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Contar registros, acrescentando +1 com condição Empty Re: [Resolvido]Contar registros, acrescentando +1 com condição

    Mensagem  Marcelo David em 6/4/2019, 03:51

    Bom dia,
    Em um ambiente de rede, poderá ter sérios problemas com numeração personalizada ou terá que fazer um verdadeiro malabarismo
    para contornar isso...

    Imagine dois pedidos sendo feito ao mesmo tempo, sua rotina encontra 10 registros para um usuário e 10 registro para o outro usuário
    e acrescenta mais 1 no número do pedido... Teria dois pedidos diferente com o mesmo número...

    Mas para fazer o que pretende, faça o seguinte:

    txtCod = txtCod + 1

    Onde txtCod é a caixa de texto que contem o código do pedido.



    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 352
    Registrado : 11/12/2017

    [Resolvido]Contar registros, acrescentando +1 com condição Empty Re: [Resolvido]Contar registros, acrescentando +1 com condição

    Mensagem  Ismael Silva em 6/4/2019, 04:11

    Obrigado Marcelo, vou analisar melhor esta situação!

      Data/hora atual: 24/4/2019, 07:40