[Resolvido]Letra+ano automático

Olá, pessoal! Estou aprendendo a usar o Access e montei um programa para gerenciar atendimentos telefônicos no meu trabalho. Cada ligação gera uma numeração que é retirada de outro sistema. Preciso colocar no meu formulário um campo onde tenha como valor padrão C2015 e o usuário completa o resto da numeração (C2015001234). Porém, gostaria que o ano mudasse automaticamente, por exemplo, C2016, C2017. Não quero numeração automática, só quero que o ano mude conforme a data do computador.


Fico aguardando alguma ajuda! Obrigado!!

Seja bem vindo ao maior fórum de access do mundo.

Coloque no seu campo entre : format(Data();"yyyy")

Perdoe minha ignorância, mas não entendi. como coloco o C+AAAA (C2015, C2016). Como Junto a função format(Data();"yyyy") com a letra C??

Luciano

Acredito que seja isso que deseja:

Na caixa de texto onde o usuário irá digitar o retante do código, supondo que nome seja Texto8,

coloque o código VBA abaixo na propriedade após atualizar dela:

Me.Texto8 = "C" & Year(Date) & Me.Texto8

[ ]'s

Noob

E neste código como colocar o ano ?

Me.TxtDoc = Nz(DMax("Doc", "Lançamentos", "idcaixa = " & Me.IdCaixa & " and " & "Historico='" & Me.txtHistorico & "' AND " & "Rubrica ='" & Me.Rubrica & "'AND " & "Entidade ='" & Me.Entidade & "'")) + 1

Conforme está da-me sempre o numero devolve: 1, 2, 3, 4 etc

Obrigado

Assis

Primeiro, precisas definir o formato que deseja do código:

- Quantos algarismos terá independente do ano

- ano na frente ou atrás do código

Um exemplo:

cód= 0001/2015

ou

2015-0001

Aguardo ...

Noob

Doc = 0001-2015

Assis

Sera mais ou  menos assim;

Nz(DMax(Left(nz("Doc"),4), "Lançamentos", "idcaixa = " & Me.IdCaixa & " and " & "Historico='" & Me.txtHistorico & "' AND " & "Rubrica ='" & Me.Rubrica & "'AND " & "Entidade ='" & Me.Entidade & "'")) + 1  & "-" & year(date)

Não posso ajudar mais sem o aplicativo.

Veja que tem que fazer a verificação para retornar ao número a 1 quando mudar de ano.
Isso se faz usando o dmax() para pegar o ano do ultimo numero e comparar com o ano atual.
se for diferente, retorna a 1

[ ]'s

Noob

Como formato o campo na tabela ?



Obrigado

É
Esqueci disso  

Assim:

Format(Nz(DMax(Left(nz("Doc"),4), "Lançamentos", "idcaixa = " & Me.IdCaixa & " and " & "Historico='" & Me.txtHistorico & "' AND " & "Rubrica ='" & Me.Rubrica & "'AND " & "Entidade ='" & Me.Entidade & "'")) + 1,"0000") &  "-" & year(date)

Na tabela só deixe como texto = tamanho 15

[ ]'s

Noob
Obrigado, da minha parte resolvido.

Bom fim de semana

Ótimo Assis

Agora, aguardar o dono do tópico e ver se ele resolveu.

[ ]'s

Avelino, o que eu coloquei como valor padrão agora funcionou. Muito obrigado pela dica. Porém o código pra quando receber o foco o cursor piscar após o c2015 está dando erro. Meu código ficou assim:

Private Sub Nº_do_evento_GotFocus()
Me!Nº_do_evento.SelStart = Len(Me!Nº_do_evento & "")
End Sub


Quando rodo o aplicativo e seleciono o campo aparece a mensagem seguinte: "O objeto não aceita esta propriedade ou método".

O que pode ser?

Acontece a mesma coisa.  

Vi num outro tópico o seguinte código:

Private Sub Nº_do_evento_GotFocus()
Me.Nº_do_evento.SelStart = Len(Me.Nº_do_evento.Text)
End Sub


Esse funcionou legal!! Agora está tudo OK!!

Muito obrigado!