AUTONUMERACAO
PESSOAL BOA TARDE
FIZ UMA FUNÇÃO ASSIM
Private Function AutoNumeração()
Dim Cod As Integer
With rsOrçamentos
If .EOF = False Then
.MoveLast
Cod = Val(!NumeroOrçamento) + 1
Else
Cod = 1
End If
txtNumero.Text = Cod
End With
End Function
EU GOSTARIA QUE O PRIMEIRO COMEÇASSE COM 00001 E NÃO APENAS 1 TENTEI USAR UM FORMAT MAS DEU ERRADO
DESDE JA AGRADEÇO
FIZ UMA FUNÇÃO ASSIM
Private Function AutoNumeração()
Dim Cod As Integer
With rsOrçamentos
If .EOF = False Then
.MoveLast
Cod = Val(!NumeroOrçamento) + 1
Else
Cod = 1
End If
txtNumero.Text = Cod
End With
End Function
EU GOSTARIA QUE O PRIMEIRO COMEÇASSE COM 00001 E NÃO APENAS 1 TENTEI USAR UM FORMAT MAS DEU ERRADO
DESDE JA AGRADEÇO
Nesse caso o campo não poderá ser número ao meu ver e deverá ser texto.
OBRIGADO WCOSTA
ME AJUDOU MUITO,NUNCA TINHA PENSANDO NESSA HIPÓTESE
FOI SÓ ALTERAR E DEU CERTO
VALEU
ME AJUDOU MUITO,NUNCA TINHA PENSANDO NESSA HIPÓTESE
FOI SÓ ALTERAR E DEU CERTO
VALEU
Tópico encerrado , respostas não são mais permitidas