[Resolvido]Formatar campo

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

Código:

format(1, "000") & Year(Date)

Bom dia Damasceno

Continua a devolver 12020

Obrigado

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

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

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í...

Assis, o que há?

Já batemos nesta tecla
https://www.maximoaccess.com/t36768-resolvidoalterar-numeracao

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

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

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

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

Boas Assis

O meu é office 2010 32

Microsoft Office 14.0 Object Library

Assis
ative a referencia

Microsoft ActiveX Data Objects 2.1 Library

Lembre que o campo deve ser texto.

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.

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