Estou com dificuldade para ordenar os codigos em ordem numerica (ex: 1,2,3,10), ao contrario do que esta ocorrendo (1,10,2,3). Preciso resolver este problema, mas também tenho que adicionar letras no campo... obriagado.

Se tiverem também algum codigo para que nao seja adicionado dois produtos com mesmo codigo, o meu esta dando muito problema.

codigo = format(codigo,"000")

desse modo, o n. 10, não vai na frente do 2,

seria assim

001, 002, ....010

abraços

 

Ivo G. Borges

Se seu código é automático, faça assim

TABELA.MoveMax

lCOD = Clng(TABELA!CODIGO+1)

sCODIGO = "0000" & Trim(Str(Trim(lCOD)))

sCODIGO = Right(sCODIGO,4)

E NA HORA DE INSERIR VERIFIQUE SE JÁ TEM O CÓDIGO, ELES SEMPRE FICARÃO COM ZEROS A ESQUERDA EVITANDO A DUPLICAÇÃO.

Se o código não é automático, proceda da mesma forma, veja:

sCODIGO = "0000" & txtCODIGO

sCODIGO = Right(sCODIGO,4)

pODEM SER DIGITADOS LETRAS NUMEROS O QUE QUISER, NUNCA DARÃO DUPLICIDADES, POR QUE ESTARÃO SEMPRE COM ZEROS A ESQUERDA.

 

vlu//

 

Não deu muito certo, tem muito tempo que nao programo, e estou tendo dificuldade em lembrar das coisas.... vou especificar tudo pra ver se alguem possa me ajudar.

tenho: 'txtcod', ligado ao 'data1', com accesS 'produto' de tabela 'tabela1' em um 'form1'.... espero que seja suficiente. se alguem puder me ajudar...

Pelo que entendi preciso prencher com 0 à esquerda.... nao tem como fazer sem os zeros, pois ja vi programas mais antigos, aqueles que parecem dos, em que era possivel.... obrigado

faz tempo que não trabalho com objeto data, mas tente o codigo abaixo.

 

Dim Conta As Integer

Data1.Recordset.MoveMax  'vai para o ultimo registro
Conta = Data1.Recordset.Fields(0)
Data1.Recordset.AddNew
Data1.Recordset.Fields(0) = Conta + 1
Data1.Recordset.Update

O campo que voce estar ordenando esta como tipo texto então tente ordenar por val(campo), assim ele irá transformar o conteúdo do campo em valor antes de ordenar e deve resolver o seu problema