AUTO NUMERAR CAMPO POSICAO DE ACORDO COM CATEGORIA
Pessoal alguem conhece uma rotina para toda vez que for incluido os seguintes dados em uma tabela ( nome, Categoria e posição ) o campo posição assuma uma auto numeração. Na seguinte formação (0001, 0002, 0003 etc...)
Mas com um porem tenho uma categoria Masculina e outra Feminina que nem sempre estaram em ordem, muitas vezes misturadas, ora um ora outro.
Pergunta como fazer para encrementar ....
Tentei algo assim trazendo a consulta para um textbox para depois gravar:
If TBSúmula.RecordCount = 0 Then
TxtPosição.Text = "0001"
Else
Do Until TBSúmula.EOF
TxtPosição = Format(TBSúmula("Posição"), "0000") + 1
TBSúmula.MoveNext
Loop
End If
Mas se alguém conhecer uma maneira direta de se fazer esta rotina desde já agradeço, sds geronimo
Mas com um porem tenho uma categoria Masculina e outra Feminina que nem sempre estaram em ordem, muitas vezes misturadas, ora um ora outro.
Pergunta como fazer para encrementar ....
Tentei algo assim trazendo a consulta para um textbox para depois gravar:
If TBSúmula.RecordCount = 0 Then
TxtPosição.Text = "0001"
Else
Do Until TBSúmula.EOF
TxtPosição = Format(TBSúmula("Posição"), "0000") + 1
TBSúmula.MoveNext
Loop
End If
Mas se alguém conhecer uma maneira direta de se fazer esta rotina desde já agradeço, sds geronimo
Private Sub ObterMaximo()
Screen.MousePointer = 11
Set gRSTemp = gDB.OpenRecordset("Select MAX(cod) as Maximo from tb")
If IsNull(gRSTemp("Maximo")) Then
LblCodigo.Caption = "000001"
Else
LblCodigo.Caption = Format$(gRSTemp("Maximo") + 1, "000000")
End If
gRSTemp.Close
Screen.MousePointer = 0
Exit Sub
End Sub
blz????
Tópico encerrado , respostas não são mais permitidas