[Resolvido]Iniciar nova numeração na mudança do mês

Bom dia Amigos

Tenho este código num comando para alterar uma numeração, ao clicar passa de 0084 - 5 - 2020 para 0085 - 5 - 2020, e pretendia que na mudança do mês a numeração fosse  reiniciada, isto é no próximo mês de junho seria 0001 - 6 - 2020.

Será possível ?

A tabela onde grava tem o nome "Versão", o campo tem o nome "Versao", e só tem sempre 1(um) registo.

Obrigado

Código:

Private Sub Comando93_Click()

If MsgBox("Atualizar Versão ? ", vbYesNo + vbQuestion, "Administrador ") = vbYes Then

Dim db As DAO.Database, rs As DAO.Recordset
   Set db = CurrentDb()
   Set rs = db.OpenRecordset("Versão", dbOpenDynaset)

   rs.Edit
   rs("versao") = Nz(Format(Mid(DMax("versao", "Versão"), 1, 4) + 1, "0000") & " - " & Month(Now) & " - " & Year(Now))
   rs.UPDATE
   
   rs.Close
   Set rs = Nothing
   Set db = Nothing
   Me.Requery
MsgBox "Versão Atualizada Com Sucesso.", vbInformation, "Aviso"
Else
End If

End Sub

Bom dia Assis,

Tente assim:

Código:

If MsgBox("Atualizar Versão ? ", vbYesNo + vbQuestion, "Administrador ") = vbYes Then

Dim db As DAO.Database, rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Versão", dbOpenDynaset)

Dim MesAtual As String
Dim MesVersao As String

MesAtual = Format(Month(Date), "00")
MesVersao = Left(Right(DLookup("versao", "Versão"), 9), 2)

If MesVersao = MesAtual Then

    rs.Edit
    rs("versao") = Nz(Format(Mid(DMax("versao", "Versão"), 1, 4) + 1, "0000") & " - " & Format(Month(Date), "00") & " - " & Year(Date))
    rs.Update
Else

    rs.Edit
    rs("versao") = ("0001") & " - " & Format(Month(Date), "00") & " - " & Year(Date)
    rs.Update

End If

rs.Close
Set rs = Nothing
Set db = Nothing
Me.Requery
MsgBox "Versão Atualizada Com Sucesso.", vbInformation, "Aviso"
Else
End If

A alteração que fiz foi passar o mês para 2 dígitos, se não houver problema para você, acho que funciona.

Obrigado Carlos