MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4216
    Registrado : 06/11/2009

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

    Mensagem  Assis em 26/5/2020, 09:23

    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


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 297
    Registrado : 28/10/2010

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

    Mensagem  zcarloslopes em 26/5/2020, 10:37

    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.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4216
    Registrado : 06/11/2009

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

    Mensagem  Assis em 26/5/2020, 12:03

    Obrigado Carlos



    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: 15/8/2020, 06:12