Ola amigos

Estou usando um banco de dados Access em uma aplicacao em VB.
Eu uso um campo de "ID" que e a chave primaria e um campo de autonumeracao.

Logo o valor desse campo "ID" e gerado automaticamente a cada gravacao de registro.

No inicio da leitura da tabela eu, faco uma leitura para verificar se um outro "ID" que utilizo existe, pois eu pego os dados de uma tabela e gravo na segunda que possui esse "ID" automatico qe citei.

Mas voltando a leitura da tabela de o "ID" da outra tabela nao existir significa que eu posso incluir esse novo registro, logo eu testo o final da tabela eexecuto um "Add New".Dessa forma o "ID" desejado sera criado mas ainda nao estara disponivel.

Ao final eu executo um "Update" e entao jogo o valor desse ID automatico para uma variavel, para que eu possa utiliza-lo mais tarde.

Pois bem, acontece queesse ID esta zerado e me retorna sempre "0", ao inves do numerodo novo ID que foi graado.

Eu faco isso no SQL e MySql sem problemas mas no Access nao funcionou.Alguem teria alguma sugestao para me dar.

Obrigado

Carlos

Ventana, Desculpe mais

 

(*) voce esta lendo o ID (que retorna 0) da tabela que ele é autoincremente ?

(*) Essa leitura é apos a gravacao do registro.

(*) Como voce esta fazendo a leitura do registro.

 

Eu tenho um campo de autonumeracao, porem eu so consigo pegar o valor desse campo apos executar o comando Update, certo?

 

Apos o Update eu pego esse campo de ID que acabou de ser gerado e jogo para uma variavel de memoria, pois eu preciso do valor do mesmo em uma proxima operacao.

 

Numa outra parte do programa eu pego esse ID que deveria ser diferente de "0", uma vez que ele e automatico e o utilizo para uma outra operacao.

 

Acontece que o ID gerado e sempre igual a "0", quando deveria ser uma sequencia da numeracao anterior da tabela.

 

If rscmdAux.EOF Then
   rscmdAux.AddNew      'Aqui eu testo o final da tabela e abro um registro em
End If                         ' branco onde os dados serao gravados.

rscmdAux.Update                ' Executo o Update
str_IdPedido = rscmdAux!TBPED_ID    ' esse e o campo da  tabela que e            
rscmdAux.Close                              'Autonumerado e eu o jogo para uma

                                                   'variavel de memoria mas ele esta sempre

                                                   'zerado.

 

 

E agora?