InícioOlá, sou iniciante no access e no vba, estou fazendo um programa no qual o número de contrato tem que ser gerado com o ano na frente e ser sequencial, estilo AAAA0000, por exemplo 20170001, 20170002, 20170003... Seria possível? e Como
2 participantes
[Resolvido]Númeração automática do Access com Ano na Frente
Bernidios- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 66
Registrado : 17/07/2017
caiosouza- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 419
Registrado : 05/12/2016
- Mensagem nº2
![[Resolvido]Númeração automática do Access com Ano na Frente Empty](https://2img.net/i/empty.gif)
Re: [Resolvido]Númeração automática do Access com Ano na Frente
caiosouza 19/7/2017, 19:01
Deve ser gerado automaticamente?
Deve ter necessariamente 4 dígitos depois do ano atual?
Deve ter necessariamente 4 dígitos depois do ano atual?
.................................................................................
Caio Souza
Engenheiro de Software
Bernidios- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 66
Registrado : 17/07/2017
- Mensagem nº3
Re: [Resolvido]Númeração automática do Access com Ano na Frente
Bernidios 26/7/2017, 18:34
Consegui com o código:
Private Function proximoN() As String
'formato do nº AAAA0000
'declarar variáveis
Dim rstComunicados As Recordset
Dim SQLComunicados As String
Set rstComunicados = CurrentDb.OpenRecordset("consUltimoDoAno", dbOpenDynaset)
'verificar o último nº criado no ano atual
'conectar na tabela comunicados (WHERE ano atual)
'selecionar o último (MAX)
'somar + 1
'pegar o ano atual
'proximoN = Format(CStr((rstComunicados!ultimoComunicado + 1)), ("0000"))
proximoN = Year(Date) & Format(CStr((rstComunicados!ultimoComunicado + 1)), ("0000"))
End Function
mas obrigado pelo tempo que teve
Private Function proximoN() As String
'formato do nº AAAA0000
'declarar variáveis
Dim rstComunicados As Recordset
Dim SQLComunicados As String
Set rstComunicados = CurrentDb.OpenRecordset("consUltimoDoAno", dbOpenDynaset)
'verificar o último nº criado no ano atual
'conectar na tabela comunicados (WHERE ano atual)
'selecionar o último (MAX)
'somar + 1
'pegar o ano atual
'proximoN = Format(CStr((rstComunicados!ultimoComunicado + 1)), ("0000"))
proximoN = Year(Date) & Format(CStr((rstComunicados!ultimoComunicado + 1)), ("0000"))
End Function
mas obrigado pelo tempo que teve
Conteúdo patrocinado
|
|
|