CAMPO AUTO NUMERACAO
Ola vbmaniacos.
estou fazendo um sistema de cadastro, gostaria de ter um campo que se auto numerasse. Quero dizer que assim que o usuario cadastrasse um equipamento ele gerrasse um numero automatico.
obrigado.
estou fazendo um sistema de cadastro, gostaria de ter um campo que se auto numerasse. Quero dizer que assim que o usuario cadastrasse um equipamento ele gerrasse um numero automatico.
obrigado.
bem vc pode ter no campo da tabela com autonumeracao e verificar:
Private Sub ObterMaximo()
On Error GoTo ErrLancamento
Screen.MousePointer = 11
Set gRSTemp = gDB.OpenRecordset("Select MAX(codinome) as Maximo from tbcliente")
If IsNull(gRSTemp("Maximo")) Then
txtcodinome.Text = "00001"
Else
txtcodinome.Text = Format$(gRSTemp("Maximo") + 1, "00000")
End If
gRSTemp.Close
Set gRSTemp = Nothing
Screen.MousePointer = 0
Exit Sub
ErrLancamento:
Solucao = False
FrmErro.Show 1
End Sub
Private Sub ObterMaximo()
On Error GoTo ErrLancamento
Screen.MousePointer = 11
Set gRSTemp = gDB.OpenRecordset("Select MAX(codinome) as Maximo from tbcliente")
If IsNull(gRSTemp("Maximo")) Then
txtcodinome.Text = "00001"
Else
txtcodinome.Text = Format$(gRSTemp("Maximo") + 1, "00000")
End If
gRSTemp.Close
Set gRSTemp = Nothing
Screen.MousePointer = 0
Exit Sub
ErrLancamento:
Solucao = False
FrmErro.Show 1
End Sub
Tópico encerrado , respostas não são mais permitidas