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

    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 Empty Gestor Desenhos

    Mensagem  cabete 26/10/2020, 17:21

    Ola a todos .
    Estou a tentar criar um Software para Gerir os Desenhos do local onde trabalho.
    Resolvi aproveitar uma Programa que criei a anos mas estou com algumas dificuldades.
    De momento a minha maior dificuldade é que quero que umas combox depois de escolhidas este me mostre no mesmo sitio uma textbox mas com a coluna 2 da minha anterior escolha. No final quando grava-se este adicionava na lista de desenhos geral mas com o somatorio das minha escolhas.
    Na imagem tem o que eu escolho e o que devia aparecer acima.

    Gestor Desenhos Imagem10

    Ha parte disto coloco o programa pode ser que alguem me consiga ajudar.
    https://drive.google.com/file/d/1mWYtRevzmZ9t5wkkzl2dij2FFKRiTpWM/view?usp=sharing
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  crysostomo 26/10/2020, 20:49

    Boa tarde Amigo, da uma olhada aqui, depois retorne.
    https://www.maximoaccess.com/t37395-resolvidocombo-box-estado-cidade


    .................................................................................
    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 Empty Re: Gestor Desenhos

    Mensagem  cabete 27/10/2020, 12:07

    Sim e Não.
    Não era má ideia ter uma dependencia.
    Contudo a lista de equipamentos tem mais de 3000 linhas, com equipamentos a estar em mais que um sitio.
    Complicado.

    Quero fazer mais simples.

    Mas obrigado
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  crysostomo 27/10/2020, 12:48

    Bom dia amigo.
    Não é assim não? como você quer que o sistemas rode? detalhe mas


    .................................................................................
    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 Empty Re: Gestor Desenhos

    Mensagem  cabete 27/10/2020, 20:18

    Mudei a abordagem.

    Para me mostrar o valor da Coluna 2 da minha escolha na Coluna 1 estou a tentar fazer o DLookUP que penso que em PRT seja DPequisar
    Mas não esta a trabalhar.
    Combox tem nome (Group) e nome Etiqueta "Label231"
    Tabela tem de seu nome ( Tab_Secção) e a Coluna1 tem o nome (Secção) e a Coluna2 tem o nome (NºSecção)
    Onde quero que apareça o resultado tem de seu nome: Mobile Phone e Etiqueta ( Phone)

    =DPesquisar("Secção";"Tab_Secção";"Label231=" & [Group])

    Não esta a trabalhar, aguem me explica o que estou a fazer de errado ?
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  crysostomo 27/10/2020, 20:57

    Boa tarde. Se você for buscar pelo DLookUP vai ter que verificar o produto para ele trazer o preço
    Se for  buscar pelo combox
    seu campo que vai receber = seu combox.Column(o número da coluna do preço)
    Tinha excluido o projeto sem quer.
    Anexos
    Gestor Desenhos AttachmentPuxando o preço do produto em 2 maneiras.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (24 Kb) Baixado 14 vez(es)


    Última edição por crysostomo em 28/10/2020, 11:34, editado 1 vez(es)


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    cabete gosta desta mensagem

    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 Empty Re: Gestor Desenhos

    Mensagem  cabete 28/10/2020, 07:35

    Obrigado Crysostomo . Percebi, esta etapa ja está.

    drive.google.com/file/d/1hS2UUdKsaIE17NoXQukXrPJzXBqe4zi2/view?usp=sharing
    Gestor Desenhos 0links10

    Novo desafio para mim. Alguem me cosegue dar umas dicas.

    Depois de escolher tudo nas combobox queria que ele me desse o numero imediatamente a seguir ao ultimo usado com a escolha anterior.
    ex:

    Se existir o numero A.04.ACS.0004.000
    Se o meu numero a adicionar for A.04.ACS.0004.nSequancial este veria que o .000 ja existia gravava .001

    Se por acaso escolhese A.06.ACS.0004 este veria que não existia nenhum numero com esse valor colava A.06.ACS.0004.000



    E adicional tenho um campo texto que junta tudo com um concatenar numa so e era suposto gravar esse numero todo junto na tabela (contactos) mas nada.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  crysostomo 28/10/2020, 11:32

    Bom dia. Colega, na verdade não estou entendendo seu tópico. Pelo que falou você queria uma combox puxando o valor  ou uma linha de pesquisa que também puxasse o valor.
    Vou deixar para nosso colegas.
    Sucesso


    .................................................................................
    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 Empty Re: Gestor Desenhos

    Mensagem  cabete 29/10/2020, 07:12

    Obrigado na mesma.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  crysostomo 30/10/2020, 00:35

    Boa noite amigo. Agora que vi a mensagem de nº7 , antes não tinha visto , essa eu não entendi.
     Bom  se você quer que ele coloque numero sequencial  podemos fazer a contagem da tabela, assim ele não vai repetir e vai entrar outro com a sequencia que você deseja colocar :

    na tabela coloque o código que é numeração automático troque para número e coloca como chave primaria

    Código:
    Function preencherCodigo()
    Dim zero, formato
       
         zero = Right("00000000",8)
    If DCount("*", "nome da tabela ") < 1 Then
        Me.txtCodVenda = 1
    Else
        formato = DMax("Código", "nome da tabela") + 1
        Me.txtCodVenda = zero & formato
    End If
    End Function


    .................................................................................
    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 Empty Re: Gestor Desenhos

    Mensagem  cabete 30/10/2020, 08:51

    tem algum exemplo.
    Mais facil perceber.
    Obrigado
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    Gestor Desenhos 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 AttachmentContagem sequencial.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (24 Kb) Baixado 18 vez(es)


    .................................................................................
    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 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 Attachmentteste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (208 Kb) Baixado 9 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    Gestor Desenhos 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 123
    Gestor Desenhos 217


    .................................................................................
    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 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 AttachmentCustomSequenceNumber20201020c.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (89 Kb) Baixado 10 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    Gestor Desenhos 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")


    .................................................................................
    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 Empty Re: Gestor Desenhos

    Mensagem  cabete 31/10/2020, 17:43

    Se percebi bem.
    Coloquei aqui mas deixou de trabalhar.
    Anexos
    Gestor Desenhos 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 50%

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

    Gestor Desenhos 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")


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

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

    Gestor Desenhos 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?


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

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

    Gestor Desenhos 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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 26/9/2021, 11:16