[Resolvido]funçao conta registo

bom dia,

estou actualmente a usar a função conta registo alfanumerica da seguinte forma:

Public Function ContaRegistro(strCampo As String, NomeTabela As String) As String
Dim strMax As String
strMax = DMax(strCampo, NomeTabela)
ContaRegistro = Right(strMax, Len(strMax) - InStr(1, strMax, "-")) + 1 &"/RC/2013"

End Function

funciona na perfeição, mas no inicio do ano preciso de começar a contar aprtir do 1 e onde esta 2013 passar a 2014 existe alguma forma de o fazer atraves de codigo 8ou seja apartir de 02 de janeiro de 2014 abrir a bd e assumir o numero 1/RC/2014....?

obrigado a todos.

É só usar o Year(Date), que captura o ano da data atual, no lugar do 2013. Assim funcionará para sempre sem precisar alterar:

...  + 1 &"/RC/" & Year(Date)

bom dia,
obrigado ja funca, mas em relação ao no inicio do ano passar a numeraçao a 1?
obrigado novamente....

Eu não entendi bem essa parte. Dê mais detalhes por gentileza. Passar a um só a partir do dia 2? Até quando? E antes? E depois do "até quando"?

boas,

depois de pesquisar aqui no forum cheguei a esta função do camarada Jpaulo que funciona na perfeição para os fins mas queria que so coloca-se dois digitos e não três... e já tentei de varias maneiras e nao consigo..
a função é aseguinte:
Modulo
Public Function NumeracaoAno() As String
'By JPaulo@2009
Dim fazcodigo(1) As Integer, temporario As Integer

fazcodigo(1) = Nz(DMax("Left(NumeroProcesso,3)", "repcivilextracont", "Right(NumeroProcesso,4)=Year(Date())"), 0)

For I = 1 To UBound(fazcodigo)
If temporario < fazcodigo(I) Then temporario = fazcodigo(I)
Next

NumeracaoAno = Format(temporario + 1, "000") & "/RC/" & Year(Date)

End Function

e ao no form ao abrir:

Private Sub Form_Open(Cancel As Integer)
If Not IsNull(Me.NumeroProcesso) Then
Exit Sub
Else
Me.NumeroProcesso.Value = "000" & "/RC/" & Year(Date)
End If
DoCmd.Close acForm, "pesquisa2"
End Sub

obrigado a todos , deve ser muito facil fazer essa cena mas eu não percebo nada e não estou a conseguir ....... 

Se você quer 2 e consegue 3, basta verificar aonde está o 3 no código e mudar para 2.

bom dia,

esta resolvido obrigado a todos .. abraço

Grato pelo retorno. O fórum agradece.