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]Formatar campo

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Formatar campo Empty [Resolvido]Formatar campo

    Mensagem  Assis em 26/2/2020, 01:15

    Boa noite Amigos


    If Me.Encomenda = Year(Date) Then
    Me.Encomenda = 1 & Year(Date)
    Else
    End If


    A parte a vermelho devolve " 12020 " sem aspas

    Como formatar para devolver " 0012020 " sem aspas ?

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2229
    Registrado : 22/11/2016

    [Resolvido]Formatar campo Empty Re: [Resolvido]Formatar campo

    Mensagem  DamascenoJr. em 26/2/2020, 03:44

    Código:
    format(1, "000") & Year(Date)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Formatar campo Empty Re: [Resolvido]Formatar campo

    Mensagem  Assis em 26/2/2020, 08:08

    Bom dia Damasceno

    Continua a devolver 12020

    Obrigado



    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6897
    Registrado : 15/03/2013

    [Resolvido]Formatar campo Empty Re: [Resolvido]Formatar campo

    Mensagem  ahteixeira em 26/2/2020, 12:11

    Olá a todos,

    Assis, verifique o campo que está a receber se é numerico.
    Não é necessário, mas para forçar uma cadeia de caracteres (string) usamos a função nativa do Access Cstr(...)

    No exemplo da sugestão ficari assim:
    Código:
    cstr(format(1, "000") & Year(Date))

    Abraço
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1148
    Registrado : 13/12/2016

    [Resolvido]Formatar campo Empty Re: [Resolvido]Formatar campo

    Mensagem  Alexandre Fim em 26/2/2020, 14:32

    Olá a todos,

    Assis, o campo deve ser texto.
    Segue uma pequena sugestão:

    Código:


    Me.Encomenda = Right("0000000" & 1 & Year(Date()), 7)


    Boa sorte


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    AErmel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 27/01/2012

    [Resolvido]Formatar campo Empty Re: [Resolvido]Formatar campo

    Mensagem  AErmel em 26/2/2020, 21:24

    Boas Assis

    Fiz aqui e deu certo.
    Fiz no evento apos atualizar e tambem no ao perder o foco

    If encomenda = Year(Date) Then
    Else
    Me.encomenda = Format(1, "000") & Year(Date)
    End If


    Tenta aí...
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2229
    Registrado : 22/11/2016

    [Resolvido]Formatar campo Empty Re: [Resolvido]Formatar campo

    Mensagem  DamascenoJr. em 26/2/2020, 22:00



    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Formatar campo Empty Re: [Resolvido]Formatar campo

    Mensagem  Assis em 27/2/2020, 08:00

    Damasceno

    Pois já e eu já tinha tentado o mesmo, mas não será de versões do Office.

    Na versão 2013 resulta, mas no caso é o 2019.

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Formatar campo Empty Re: [Resolvido]Formatar campo

    Mensagem  Assis em 28/2/2020, 09:11

    Bom dia

    Peço desculpa mas vou reabrir .

    Com o código abaixo desde 2015 que sempre me deu a numeração certa.

    Tendo eu uma numeração como 12020, em que 1 será o numero e 2020 o ano actual.

    Como alterar o código para a seguir dar 22020, é que a seguir ao 12020 está a dar 1212020



    Me.Encomenda = Format(Mid(DLast("encomenda", "EncomendaN", "loja = '" & Me.Loja & "' and " & "operação='" & Me.Operação & "'"), 1, 3) + 1, "0000") & Year(Date)

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    AErmel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 27/01/2012

    [Resolvido]Formatar campo Empty Re: [Resolvido]Formatar campo

    Mensagem  AErmel em 28/2/2020, 10:57

    Bom dia Assis

    tenho algo similar e utilizo desta maneira.

    Function NovoNumero() As String
       Dim strsql As String
       Dim rstDoc As New ADODB.Recordset
       Dim NumeroAnterior As Integer
       strsql = "Select encomenda From SUATABELA " & _
                   "Where (encomenda Like '%"  & Format(Date, "yyyy") & "') " & _
                   "Order By encomenda Desc"
       rstDoc.Open strsql, CurrentProject.Connection, adOpenStatic, adLockReadOnly
       If rstDoc.RecordCount > 0 Then
           NumeroAnterior = CInt(Left(rstDoc("encomenda"), 3))
       Else
           NumeroAnterior = 0
       End If
       NovoNumero = Format(NumeroAnterior + 1, "000")  & Format(Date, "yyyy")
       rstDoc.Close
       Set rstDoc = Nothing
    End Function

    ---------------------------------------------------------------------------------------------------------------------------------------

    Private Sub encomenda_AfterUpdate()
    encomenda = NovoNumero
    End Sub
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Formatar campo Empty Re: [Resolvido]Formatar campo

    Mensagem  Assis em 28/2/2020, 13:01

    Boa tarde

    Qual a referencia a marcar no VBA para a linha abaixo.

    Dim rstDoc As New ADODB.Recordset

    Tenho estás marcadas na minha BD

    Office 2013 32

    Obrigado

    [Resolvido]Formatar campo Sem_t125


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    AErmel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 27/01/2012

    [Resolvido]Formatar campo Empty Re: [Resolvido]Formatar campo

    Mensagem  AErmel em 28/2/2020, 13:54

    Boas Assis

    O meu é office 2010 32

    Microsoft Office 14.0 Object Library
    avatar
    AErmel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 27/01/2012

    [Resolvido]Formatar campo Empty Re: [Resolvido]Formatar campo

    Mensagem  AErmel em 28/2/2020, 14:08

    Assis
    ative a referencia

    Microsoft ActiveX Data Objects 2.1 Library

    Lembre que o campo deve ser texto.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2229
    Registrado : 22/11/2016

    [Resolvido]Formatar campo Empty Re: [Resolvido]Formatar campo

    Mensagem  DamascenoJr. em 28/2/2020, 22:07

    Assis, é muito difícil poder ajudar assim sem analisar os objetos. O problema pode estar em outro local e você não ter nos dito ainda por não saber, assim como no tópico anterior em que ajudei. Por isso, deixo a dica novamente: anexe seus objetos para análise.

    Ajude-se a ser ajudado.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Formatar campo Empty Re: [Resolvido]Formatar campo

    Mensagem  Assis em 29/2/2020, 11:10

    Bom dia Damasceno

    Por mais que tente não consigo desmembrar a BD para postar, dividida , nem todos os utilizadores tem acesso a todas os formulários.

    O campo Encomenda é "Texto"

    "EncomendaN" é uma consulta filtrada para e dar a numeração por Loja, e Operação, que depois de executada só mostra 1 linha

    Acontece que quando esta consulta "EncomendaN" tem dados a numeração funciona perfeito.

    O problema é quando a consulta "EncomendaN" não tem dados e eu queria que nesse caso o resultado fosse "0012020"


    Me.Encomenda = Format(Mid(DLast("Encomenda", "EncomendaN", "loja = '" & Me.Loja & "' and " & "operação='" & Me.Operação & "'"), 1, 3) + 1, "0000") & Year(Date)

    Obrigado desde já se me conseguir ajudar, se não conseguir .... Obrigado na mesma

    Obrigado


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

      Data/hora atual: 1/10/2020, 06:29