Alvaro Teixeira 11/8/2014, 22:08
Ops, não reparei que vinha de lá.
As minhas sinceras desculpas
Veja se é isto que pretende:
Option Compare Database
Public Function NumeracaoAno() As String
'By JPaulo@2009
Dim fazcodigo(1) As Integer, temporario As Integer
fazcodigo(1) = Nz(DMax("Left(CodigoControle,
5)", "tblExemplo", "Right(CodigoControle,4)=Year(Date())"), 0)
For I = 1 To UBound(fazcodigo)
If temporario < fazcodigo(I) Then temporario = fazcodigo(I)
Next
NumeracaoAno = Format(temporario + 1, "0000
0") & "/" & year(Date)
End Function
Ao Abrir no formulário:
Private Sub Form_Open(Cancel As Integer)
If Not IsNull(Me.CodigoControle) Then
Exit Sub
Else
Me.CodigoControle.Value = "0000
0" & "/" & year(Date)
End If
End Sub
Entretanto se o pretendido é 00000/2014 (cinco digitos/4 do ano), fiz alteração ao exemplo disponibilizado pelo colega Fernando Bueno
- Anexos
- Numeracao5DigitosNumero&4DigitosAno.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (19 Kb) Baixado 129 vez(es)