[Resolvido]Numeração Automatica Com Ano e Mês + Numero

Saudações

Como posso Criar uma auto numeração onde começaria com o Ano e Mês Corrente mais numero, tipo 20130101, 20130102.

Olá,boa tarde a ti.

Dê uma olhada nesse link. Especial atenção a mensagem do Mestre JPaulo, de número 9.

Abraços e bons estudos a ti.

já tinha olhado esse cod. mais não estou conseguido através dele fazer o que eu quero.

na minha tabela está assim

CodigoAnoMes - Texto
Tipo - texto
Nome_Envolvido - texto
Data - data/hora

Anexe aqui parte do seu banco, para o ajudar-mos em concreto.

Saudações JPaulo

Segue em anexo o banco.Teste

Ok, detalhe o que pretende, qual o campo numerico para a numeração e quando deve mudar.

O Campo na tabela é o (Titulo) deixei como texto, pois não sabia se ele como numeral iria asseitar o que eu queria.

no form. campo Nº.

Gostaria que fosse gerado a numeração Ex. 20130101 - Ano corrente + Mês corrente + Numero . quando eu clicasse no botão salvar.

No seu botão salvar;

Private Sub BtGravar_Click()
Dim numeroencontrado As String, proximoNumero As Integer
'By JPaulo ® Maximo Access
'encontrar o ultimo numero na tabela
numeroencontrado = Nz(DMax("Titulo", "tbl_S_A_IP_IQP"), 0)
    If IsNull(numeroencontrado) Or numeroencontrado = "" Or numeroencontrado = "0" Then
    'se não existir numeração, insere o 001 para iniciar
        numeroencontrado = Format(Date, "yyyy") & Format(Date, "mm") & "001"
    'devolve ao campo a nova numeração
        Me.Titulo.Value = numeroencontrado
    Else
    'se já existir numeração na tabela, acrescenta +1
        proximoNumero = Right(DMax("Titulo", "tbl_S_A_IP_IQP"), 3) + 1
    'devolve ao campo a nova numeração
        Me.Titulo.Value = Format(Date, "yyyy") & Format(Date, "mm") & Format(proximoNumero, "000")
  End If
  'vai para novo registro
  DoCmd.GoToRecord , , acNewRec
End Sub

JPaulo Muito Obrigado pela ajuda e pela atenção.

Obrigado pelo retorno o forum agradece.

JPaulo,

Eu tenho um campo que é auto numeração com esses dados

Campo nome NumAno (texto)
Valor padrão =NextNumAno()

Que é essa função:

Public Function NextNumAno() As String
'Gera o próximo código da tabela de numeração/ano
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim intYear As Integer
Dim strSql As String

'Ano atual, conforme o sistema
intYear = Year(Date)

'Verifica o último código para o ano
strSql = "SELECT CLng(Left$(NumAno, Len(NumAno)-5)) As Num, " & _
"CInt(Right$(NumAno, 4)) As Ano FROM tab_Entrevista " & _
"WHERE CInt(Right$(NumAno, 4))=" & CStr(intYear) & _
" ORDER BY CLng(Left$(NumAno, Len(NumAno)-5)) DESC"
Set db = CurrentDb()
Set rst = db.OpenRecordset(strSql, dbOpenDynaset)
With rst
If .BOF And .EOF Then
NextNumAno = "1." & CStr(intYear) ' Tirei a Barra e coloquei ponto
Else
.MoveFirst
NextNumAno = CStr(!Num + 1) & "." & CStr(intYear) ' Tirei a Barra e coloquei ponto
End If
.Close
End With
Set rst = Nothing
Set db = Nothing
End Function

Gostaria de colocar a sua, será possível e pode ser Numero ou Texto?

Tentei acertar para meu programa mas sem sucesso.

Não sei se deveria abrir novo tópico pois é o mesmo assunto!