Gestor Desenhos

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