MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


5 participantes

    [Resolvido]Formatar campo

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Formatar campo Empty [Resolvido]Formatar campo

    Mensagem  Assis 25/2/2020, 20: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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 21/11/2016

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

    Mensagem  DamascenoJr. 25/2/2020, 22: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 : Respeito às Regras 100%

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

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

    Mensagem  Assis 26/2/2020, 03:08

    Bom dia Damasceno

    Continua a devolver 12020

    Obrigado



    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 26/2/2020, 07: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 : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Fim 26/2/2020, 09: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


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Formatar campo Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    AErmel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  AErmel 26/2/2020, 16: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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 21/11/2016

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

    Mensagem  DamascenoJr. 26/2/2020, 17: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 : Respeito às Regras 100%

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

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

    Mensagem  Assis 27/2/2020, 03: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 : Respeito às Regras 100%

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

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

    Mensagem  Assis 28/2/2020, 04: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 : Respeito às Regras 100%

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

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

    Mensagem  AErmel 28/2/2020, 05: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 : Respeito às Regras 100%

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

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

    Mensagem  Assis 28/2/2020, 08: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 : Respeito às Regras 100%

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

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

    Mensagem  AErmel 28/2/2020, 08:54

    Boas Assis

    O meu é office 2010 32

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  AErmel 28/2/2020, 09: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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 21/11/2016

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

    Mensagem  DamascenoJr. 28/2/2020, 17: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 : Respeito às Regras 100%

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

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

    Mensagem  Assis 29/2/2020, 06: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: 22/11/2024, 08:14