[Resolvido]Numeração automatica depende de outra numeração

Boas

Tenho duas tabelas relacionadas - TblGrade e TblGradeSub

na TblGrade os campos

CdGrade Descricao
1 metalico
2 madeira
3 plastico

na TblGradeSub os campos

CdGrade CdSubGrade Descricao
1 1 amarelo
1 2 preto
1 3 branco
2 1 amarelo
2 2 azul
2 3 preto
2 4 vermelho
3 1 incolor
3 2 estampado A
3 3 estampado B


e assim por diante

Quero numerar a CdSubGrade dependendo do numero da CdGrade, mas dá como parametros insuficientes...

No Formulario!SubFormulario

Private Sub Descricao_AfterUpdate()
If Not Me.NewRecord Then
Exit Sub
End If
Dim strsql As String
Dim rs As Recordset
strsql = "SELECT Max(CdGradeSub) AS MaiorNro FROM TblGradeSub WHERE CdGrade = Forms![FrmGrade]![FrmGradeSub]![CdGrade] ;"
Set rs = CurrentDb.OpenRecordset(strsql)
If IsNull(rs!MaiorNro) Then
CdGradeSub = 1
Else
CdGradeSub = rs!MaiorNro + 1
End If
Me!descricao = UCase(Me!descricao)
End Sub


Onde pode estar o erro -ja tentei diversas formas mas sempre da inconsistencia.
em depuração mostra o valor correto nos campos CdGrade...


Obrigado

Alcir

Se entendi , quer definir a cor para cada objeto?
Explique melhor, estou crendo que seja apenas  questão de relacionamento.

[]'s

Noob

boas Noob

Não - Não é para definir a cor.

Tenho uma grade de produtos distintos  Um cdgrade para cada produto -  exemplo: perfis metalicos , chapas de Mdf  , chapas de plastico   etc....

Dentro de perfis metalicos, tenho diversas opções: Um cdgradesub para cada particularidade - exemplo: Anodizado, Branco, Preto, AnodizadoBronze   etc.... Crio uma nova cor dentro da Subgrade a medida do necessario.

Dentro de chapas de Mdf, tenho diversas opções: Um CdGradeSub para cada particularidade - exemplo : Branco, Amarelo, Imbuia, Oak etc....Crio uma nova cor ou padrão dentro da Subgrade a medida do necessario.

Cada Grade é especifica para cada "tipo" de produto

Vantagem - trabalho com um unico cadastro de produto e complemento com grade e sub grade.

Exemplo -
Produto  - codigo 2555   Descrição = Chapa de Mdf 1830 x 2750 x 18mm  (cadastrado uma unica vez)

Na composição sai:    
Produto   Grade    SubGrade
2555         2             1              ( produto / caracteristica )
2555         2             3

Fica amarrado grade e sub grade com o produto, senão deveria cadastrar um novo produto a cada cor diferente que fosse adquirida.


O problema é so numerar a subgrade a partr da grade selecionada

se estou na grade 2  e o ultimo foi o 8  , o proximo sera o 9

se estou na grade 5 e o ultimo foi o 152, o proximo sera o 153

Espero ter conseguido explicar

Obs
A numeração da CdGrade faço pelo Vba
A numeração da CdGradeSub faço a partir de uma consulta , identificando o maior numero de cada grade, mas ai toda vez é uma viagem ate a consulta....

Minha Consulta:
SELECT DISTINCT TblGradeSub.CdGrade, (SELECT Max(CdGradeSub) FROM TblGradeSub where CdGrade =[Forms]![FrmGrade]![CdGrade]) AS MaiorSubGrade
FROM TblGradeSub
WHERE (((TblGradeSub.CdGrade) Like [Formulários]![FrmGradeSub]![CdGrade]));

Não sei como transformar em VBA


Abraço

Alcir

Primeiro, errei teu nome, desculpe


Para te ajudar melhor, seria bom anexar parte do teu aplicativo, com as tabelas e formulários em questão.

Principalmente onde define o código para a grade, para podermos analisar e ver como e onde colocaremos o código
VBA, para criar o código combinado da subgrade.

Aguardo...

Noob

Boas Noob

Quanto a o ter errado o nome, sem problemas.
Agradeço a atenção, lembrando que atualmente funciona. O que pretendo é eliminar a consulta e ficar só no VBA.
Tenho diversos casos semelhantes atravez de consulta. a solução para um sera para todos os outros -

segue arquivo bem simplificado.

Alcir

Tai teu exemplo modificado

Como usa Access 2007 ou mais, eu tirei o evento AoMoverMouse dos botões, a mão, usando aquele
código faz com que o botão tremule. Então usei a propriedade Cursor em Foco e selecionei  Mão de hiperlink.

[]'s

Noob

Bom dia Noob

Perfeito - Funciona conforme pretendido .
As vezes tentamos explicar, mas com o exemplo fica bem mais tranquilo.
Com isto, vou conseguir eliminar diversas consultas que tenho, identificando ultimas numerações dependentes de outras ...

Muito obrigado e Boas festas..
Um 2015 bem promissor


Abraços

Ótimo

Valeu o retorno!

Obrigado, desejo o mesmo para você e tua família

Boa sorte!!

Noob