MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Gestor Desenhos

    avatar
    cabete
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Gestor Desenhos Empty Gestor Desenhos

    Mensagem  cabete em 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
    VIP
    VIP

    Respeito às Regras 50%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  crysostomo em 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 100%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  cabete em 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
    VIP
    VIP

    Respeito às Regras 50%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  crysostomo em 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 100%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  cabete em 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
    VIP
    VIP

    Respeito às Regras 50%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  crysostomo em 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 11 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 100%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  cabete em 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
    VIP
    VIP

    Respeito às Regras 50%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  crysostomo em 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 100%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  cabete em 29/10/2020, 07:12

    Obrigado na mesma.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  crysostomo em 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 100%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  cabete em 30/10/2020, 08:51

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

    Respeito às Regras 50%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  crysostomo em 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 8 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 100%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  cabete em 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 7 vez(es)
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  crysostomo em 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 100%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  cabete em 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 9 vez(es)
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  crysostomo em 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 100%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  cabete em 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
    VIP
    VIP

    Respeito às Regras 50%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  crysostomo em 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 100%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  cabete em 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
    VIP
    VIP

    Respeito às Regras 50%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  crysostomo em 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 100%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  cabete em 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
    VIP
    VIP

    Respeito às Regras 50%

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

    Gestor Desenhos Empty Re: Gestor Desenhos

    Mensagem  crysostomo em 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: 4/12/2020, 14:22