[Resolvido]Número Sequencial Varia de Acordo com Seleção

Prezados MESTRES, ótima noite.

Tenho um dúvida que pode ser simples, mas pra mim, é de outro mundo.

Estou bolando um programa simples e básico para controle de materiais de escalada.

Tenho um campo no FORM chamado de TAG, onde informo um número sequencial para cada tipo de equipamento e outro campo chamado GRUPO, onde informo o grupo conforme material a ser cadastrado.

Exemplo de TAG: CORDA → MECO-0001 | MECO-0002 | MECO-0003, etc...
MOSQUETÃO → MEMQ-0001 | MEMQ-0002 | MEMQ-0003, etc...
JUMAR → MEJU-0001 | MEJU-0002 | MEJU-0003, etc...

Tenho os grupos conforme os materiais, CORDA, MOSQUETÃO, JUMAR...
Preciso que, ao selecionar o item do grupo, o sistema me informe qual o próximo TAG a ser utilizado, conforme grupo selecionado.

Existe alguma forma?

UP!!!

Alguém sabe como fazer?

Bom dia
Coloque pequeno exemplo com dados da dúvida

tenho este código que me informa qual o próximo brinco a ser cadastrado

Private Sub IdMarra_GotFocus()
'O brinco ? composto por cor e numero AZ1225 que ? texto
'esta fun??o separa a cor do resto do campo
'transformando em numero
'string texto
'integer numero
Dim Brinco As String
Dim cor As String ' variavel com o tipo do campo texto
Dim numero As Integer ' variavel com o tipo do campo numero
If IsNull(Me.IdMarra) Then
Brinco = DLookup("IdMarra", "csUltimaMarra") 'verifica qual foi o ultimo brinco cadastrado
cor = Left([Brinco], 2) 'retira o texto
numero = Right([Brinco], 4) 'retira o numero

MsgBox "" & cor & numero + 1 ' mostra qual vai ser o proximo brinco
Me.IdMarra = cor & numero + 1 ' preenche o campo o novo brico ja montado que sera AZ1226

Else
End If
End Sub


mas no seu caso precisa um pouco mais de programação
como o alexandre disse precisa postar um exemplo.

abra com o shift

formulaio      frmselecao

Mestres, boa noite.

Segue meu simples modelo.

Tenho um campo chamado de GRUPO, onde, logicamente, informo o grupo do material.

Minha ideia é de que ao selecionar o grupo, o sistema me mostrar em um campo qual a próxima sequência deste grupo.

Bom dia
Coloque rótulo no form (RtlProxNr)
No acontecimento AposActualizar da Texto45 (adeqúe os nomes de forma a facilitar a leitura e evitar erros)
Private Sub Texto45_AfterUpdate()
    If Len("" & Texto45) = 0 Then Exit Sub
    RtlProxNr.Caption = ""
    Select Case Texto45
    Case "Corda"
        RtlProxNr.Caption = "MECO-" & Format(DCount("*", "Cadastro", "Tag_Cadastro Like 'MECO*'") + 1, "0000")
    Case "Mosquetão"
        RtlProxNr.Caption = "MEMQ-" & Format(DCount("*", "Cadastro", "Tag_Cadastro Like 'MEMQ*'") + 1, "0000")
    Case "Jumar"
        RtlProxNr.Caption = "MEJU-" & Format(DCount("*", "Cadastro", "Tag_Cadastro Like 'MEJU*'") + 1, "0000")
    End Select
End Sub

Alexandre Neves,

Funcionou perfeitamente.

Só tenho mais uma dúvida.

Em vez de eu informar os TAG's dentro do módulo, existe um jeito de ele puxar de dentro de uma tabela?

Deixa eu explicar.

Vou ter outros tipos de materiais que ainda não estão dentro do módulo (ex. POLIA, STOP, BLOCK, CINTO), mas quando eu informo estes TAG's o txt fica em branco. Minha idéia seria de que ao verificar que não existe cadastro para estes itens, o sistema me informasse que seria o TAG 0001.

Conforme eu fosse cadastrando itens novos, o sistema me avisar os TAG's iniciais.

Grato.

Bom dia
Podia caso as 2 letras iniciais fossem do texto introduzido, o que não acontece sempre
Veja o caso do mosquetão, caso fosse atribuído automaticamente, seria "MEMO" em vez de MEMQ
E podia colidir em situações que tivessem as mesmas 2 letras iniciais: caso de mosquetão, mola, motor, moca, etc

Show de bola.

Mais uma vez, obrigado aos mestres.