[Resolvido]Id Personalizado ano/codcli/codprod ano/cliente/produto

Prezados,

Preciso de uma ajuda com um código na tabela de produtos
Tabela Cliente
Tenho o campos CodCli e um campo IDCliente(tipo número), Data e demais campos
Tabela Propriedade
Tenho o campos CodPro e um campo IDCliente(tipo número), um IDPropriedade(tipo número), data e demais campos,

Problema 1: Gostaria que ao clicar em novo registro na tabela Cliente
Pegasse os 2 dígitos finais do ano e depois colocasse uma sequencia de 3 números começando do 001 no campo IDCliente.

Exemplo:
Se eu cadastrasse 2 clientes em 2016 ficaria no IDCliente: 16001 e 16002, respectivamente.
se em 2017 cadastrasse mais 2 Clientes ficaria no IDCliente: 17001 e 17002, respectivamente. E assim por diante.

Problema 2:

Na tabela propriedade eu gostaria que fizesse a mesma coisa só que iniciando novamente do 01 para cada propriedade
cadastrada incluindo a sequência do ID cliente mais 2 dígitos para a propriedade.

Exemplo se eu cadastrasse uma propriedade para o cliente 16001 ele colocasse no IDPropriedade 1600101, se eu cadastrasse 1 propriedade
para o cliente 17002 ficaria na IDPropriedade 1700201 e assim por diante.

Desde já agradeço a colaboração. Vocês são muito bons no que fazem. Este site é o melhor em access.

Bom dia Jean,

Veja se te ajuda nos estudos:

Show de bola é isto mesmo.

Muito Obrigado

Eu fiz apenas uma modificação para funcionar corretamente.


Function proximoNumero() As String
'Função que busca o último número do mês
'e acrescenta um para criar o próximo
Dim strSql As String
Dim rstDoc As New ADODB.Recordset
Dim numeroEncontrado As Integer
'Cria a consulta SQL buscando os números do mês atual
'em ordem descendente para que o último fique em primeiro
strSql = "Select Lote From tblEntradaMudasDetalhe " & _
"Where (Lote Like '" & Format(Date, "yy") & "%') " & _
"Order By Lote Desc"
'Abre o recordset
rstDoc.Open strSql, CurrentProject.Connection, adOpenStatic, adLockReadOnly
'Se encontrou algum pega o primeiro
'senão retorna zero
If rstDoc.RecordCount > 0 Then
numeroEncontrado = CInt(right(rstDoc("Lote"), 4)) ' Mudei de left para right pois estava mudando o ano
Else
numeroEncontrado = 0
End If
'Próximo número = numero encontrado +1 mais o mês e ano atual com dois dígitos
proximoNumero = Format(Date, "yy") & Format(numeroEncontrado + 1, "0000")
'Fecha o recordset
rstDoc.Close
Set rstDoc = Nothing
End Function

Entao se ja solucionou esta questao, clique no botao "resolvido" para encerrar o topico.

Como eu faço para usar letras com este código? no código ficou 170001 eu queria deixar com M17L0001.