Antonildo 11/12/2019, 20:37
BOA TARDE!!
vc deve usar um campo chamado numero com o tipo de dados numero inteiro e um outro campo chamado controleanual tipo de dados texto para receber da
caixa de texto numero"/"& Ano(data())
que virar do formulario usando este codigo a baixo tente adaptar para a sua realidade bom estudo
- Código:
Public Function NumeracaoAnoPROCESSO() As String
'By JPaulo@2009
If (DCount("NPROCESSO", "REQUERIMENTO") = 0) Then
fazcodigo(1) = 0
For I = 1 To UBound(fazcodigo)
If temporario1 < fazcodigo(I) Then temporario1 = fazcodigo(I)
Next
NumeracaoAnoPROCESSO = Format(temporario + 1, "0000") & "/" & Year(Date)
Else
fazcodigo(1) = Nz(DMax("[NPROCESSO]", "REQUERIMENTO"))
For I = 1 To UBound(fazcodigo)
If temporario1 < fazcodigo(I) Then temporario1 = fazcodigo(I)
Next
NumeracaoAnoPROCESSO = Format(temporario + 1, "0000") & "/" & Year(Date)
End If