Gestor Desenhos

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.



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

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

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

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

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 ?

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.

Obrigado Crysostomo . Percebi, esta etapa ja está.

drive.google.com/file/d/1hS2UUdKsaIE17NoXQukXrPJzXBqe4zi2/view?usp=sharing


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.

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

Obrigado na mesma.

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


tem algum exemplo.
Mais facil perceber.
Obrigado

Você então um contagem sequencial, já que você tem as verificações. Essa contagem não deixa repetir o número

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.

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.

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.

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

Se percebi bem.
Coloquei aqui mas deixou de trabalhar.

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

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

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?

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.

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