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

    Gestor Desenhos

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    Gestor Desenhos - Página 1 Empty Re: Gestor Desenhos

    Mensagem  crysostomo 30/10/2020, 12:53

    Você então um contagem sequencial, já que você tem as verificações. Essa contagem não deixa repetir o número
    Anexos
    Gestor Desenhos - Página 1 AttachmentContagem sequencial.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (24 Kb) Baixado 22 vez(es)


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    cabete
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 70
    Registrado : 05/08/2010

    Gestor Desenhos - Página 1 Empty Re: Gestor Desenhos

    Mensagem  cabete 30/10/2020, 17:53

    Ja coloquei o codigo que me sugeris-te mas sem sucesso esta a dar erro no codigo, devo ter adaptado mal, contudo julgo que não vá fazer o que pretendo.

    O que quero é que veja o ultimo numero daquele escolha a comecar no 000 e adicione +1
    Actualmente esta sempre a fazer +1 +1 +1.
    Anexos
    Gestor Desenhos - Página 1 Attachmentteste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (208 Kb) Baixado 10 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    Gestor Desenhos - Página 1 Empty Re: Gestor Desenhos

    Mensagem  crysostomo 31/10/2020, 00:21

    Boa noite. 
    Ele está dando erro porque o caixa de texto está com o fonte de controle acoplada.
    A caixa tem que esta como Não Acoplada.

    Gestor Desenhos - Página 1 123
    Gestor Desenhos - Página 1 217


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    cabete
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 70
    Registrado : 05/08/2010

    Gestor Desenhos - Página 1 Empty Re: Gestor Desenhos

    Mensagem  cabete 31/10/2020, 08:54

    Obrigado esta a trabalhar.

    So queria mesmo agora poder ter contagem a comecar de 000 e adicionar +1 ao ultimo numero.

    Encontrei um exemplo que permite fazer isso pelo menos parece me mas não consigo adaptar para o meu, não estou a perceber.
    Anexos
    Gestor Desenhos - Página 1 AttachmentCustomSequenceNumber20201020c.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (89 Kb) Baixado 11 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    Gestor Desenhos - Página 1 Empty Re: Gestor Desenhos

    Mensagem  crysostomo 31/10/2020, 16:39

    Boa tarde  colega.
     eu  não entendi sua pergunta em termo do arquivo.
    Você quer contar quantos registros há na sua tabela ?

    Código:
    =DContar("*";"Sua Tabela")


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    cabete
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 70
    Registrado : 05/08/2010

    Gestor Desenhos - Página 1 Empty Re: Gestor Desenhos

    Mensagem  cabete 31/10/2020, 17:43

    Se percebi bem.
    Coloquei aqui mas deixou de trabalhar.
    Anexos
    Gestor Desenhos - Página 1 AttachmentSem Título.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (6 Kb) Baixado 5 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    Gestor Desenhos - Página 1 Empty Re: Gestor Desenhos

    Mensagem  crysostomo 31/10/2020, 19:21

    Nesse campo não era para colocar a sequencia de números ?
    se quer contar então no evento ao abrir o formulário coloque esse

    Código:
     Me.txtNDesenho = DCount("[Código]", "Tabela1")


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    cabete
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 70
    Registrado : 05/08/2010

    Gestor Desenhos - Página 1 Empty Re: Gestor Desenhos

    Mensagem  cabete 31/10/2020, 19:55

    esta mais que provado não percebo nada disto.
    tentei colocar aqui mas nada.
    Não deve ser aqui.
    A ideia era quando escolhe-se o ultimo item a revisão ele corria a rotina mas esta a dar erro.

    Código:
    Private Sub CboRevisão_Click()
    Me.TxtRevisão = Me.CboRevisão.Column(1)
    preencherCodigo

    Me.NGeral = [TxtRevisão] & "." & [TxtSecção] & "." & [TxtMaquina] & "." & [TxtConjunto] & "." & [TxtNDesenho]
    Me.TxtNDesenho = DContar("NGeral", "Contactos")
    Me.txtFirstName = Environ("UserName")
    Me.TxtData = Now()

    End Sub
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    Gestor Desenhos - Página 1 Empty Re: Gestor Desenhos

    Mensagem  crysostomo 31/10/2020, 22:20

    Boa noite. Não entendi. A primeira mensagem foi sanada que é formatar o código com 000,
    A segunda é o que exatamente, é puxar numeração ou correr para ultimo item da revisão?


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    cabete
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 70
    Registrado : 05/08/2010

    Gestor Desenhos - Página 1 Empty Re: Gestor Desenhos

    Mensagem  cabete 1/11/2020, 09:31

    Ola não é sacanagem é mesmo 000 pelo menos é o que queria, conseguir que o faça é outra coisa.

    de momento estou com alguns problemas em conseguir intrepretar a tua ajuda as vezes mas vou tentando e as vezes a primeira não vai mas depois la dizes mais uma coisa e la entendo.

    a ideia é que o numero incremental aparacesse no campo ( TxtDesenho) depois o  ( TxtNDesenho) seria uma copia somente do outro ( TxtDesenho) . a seguir o (NGeral) seria o concatenar de tudo e como é obvio deveria ser .

    A ultima linha de codigo ou estou a perceber mal como a alterar ou estou a coloca-la no sitio errado.

    Código:
    Option Compare Database


    Private Sub CboSecção_Click()
    Me.TxtSecção = Me.CboSecção.Column(1)
    End Sub

    Private Sub CboMaquina_Click()
    Me.TxtMaquina = Me.CboMaquina.Column(1)
    End Sub

    Private Sub CboConjunto_Click()
    Me.TxtConjunto = Me.CboConjunto.Column(1)
    End Sub
    Private Sub CboRevisão_Click()
    Me.TxtRevisão = Me.CboRevisão.Column(1)
    preencherCodigo

    Me.NGeral = [TxtRevisão] & "." & [TxtSecção] & "." & [TxtMaquina] & "." & [TxtConjunto] & "." & [TxtNDesenho]
    'Me.TxtNDesenho = DContar("NGeral", "Contactos")
    Me.txtFirstName = Environ("UserName")
    Me.TxtData = Now()

    End Sub
    Function preencherCodigo()
    Dim zero, formato


        zero = Right("000", 3)
    If DCount("*", "Contactos") < 1 Then
        Me.TxtDesenho = 1
    Else
        
        formato = DMax("NºDesenho", "Contactos") + 1
          Me.TxtDesenho = zero & formato
    End If

    End Function

    quando activo o ('Me.TxtNDesenho = DContar("NGeral", "Contactos")) dá erro.
    Mas deve ser por estar no sio errado.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    Gestor Desenhos - Página 1 Empty Re: Gestor Desenhos

    Mensagem  crysostomo 1/11/2020, 18:24

    Esse Dcontar é para contar  registros. estarei online em alguns minutos. Veja na caixa primava o link


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Conteúdo patrocinado


    Gestor Desenhos - Página 1 Empty Re: Gestor Desenhos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 14:13