MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 : 4059
    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 : 1587
    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 : 4059
    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 : 6554
    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 : 935
    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


    .................................................................................
    "Aprender é a única coisa de que a mente nunca se cansa, nunca tem medo e nunca se arrepende." (Leonardo da Vinci)
    "O impossível existe até que alguém duvide dele e prove o contrário." (Albert Einstein)
    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 : 1587
    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 : 4059
    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 : 4059
    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 : 4059
    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 : 1587
    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 : 4059
    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 ***

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/4/2020, 05:41