E ae galera, blza...

Eu to usando o Select MAX pra realizar a minha autonumeração no campo codigo do meu formulario, mas quando ele chega no registro numero 10 ele para de somar.

Sera que alguem poderia em ajudar...Urgente!!!

Desde  ja Agradeço..

Carlos Eduardo

 

Obs: estou usando esta função:

Set TBCliente = BancodeDados.OpenRecordset("SELECT (Codigo) From TBCliente")
If TBCliente.RecordCount = 0 Then
    contador = 1
Else
    Set TBCliente = BancodeDados.OpenRecordset("SELECT MAX (Codigo)From TBCliente")
    contador = TBCliente(0) + 1
End If

Pegar_Ultimo_Numero = contador

a variavem contador nao foi declarada, por isso ele esta concatenando os dados a partir do numero 10, basta declarala como Integer.....

 

Public Function ProxCodigo(Campo As String, Tabela As String, Optional WHERE As String)

Dim proxCodigo as Integer
    Set TB = BD.OpenRecordset("SELECT MAX(" & Campo & ") AS proxCodigo FROM " & Tabela & " " & IIf(WHERE = "", "", " WHERE " & WHERE))
        If TB.RecordCount <> 0 Then
            If (IsNull(TB!ProxCodigo)) Then
                ProxCodigo = 1
            Else
                ProxCodigo = TB!ProxCodigo + 1
            End If
        End If
    Set TB = Nothing
End Function

Dah uma olhada se o campo 'codigo' estah declarado como numero no banco de dados

 

[ ]'s

cadu

O Campo Codigo ta como texto...

muda pra numero entaum....

 

cadu

Valeuuuuuuuuu [k]-du...xará.....hehehehe

Valeu msm..

Brigado...ao Eledio tbm..pela dica