Nota Fiscal no Visual Basic usando o Access

[Lameira]

Olá galera!!!

Preciso da ajuda para armazenar no BD Notas Fiscais no Visual Basic; a primeira nota é fácil, porem na segunda tenho um problema a duplicação de itens (Nota Fiscal 01, Item 01, Nota Fiscal 02, Item 01.

Estou usando o Access e uma tabela para Nota Fiscal (numero da Nota é a chave primária) e outra para Itens (número da Nota e Itens são chaves primarias)

O programa está rodadando, consigo gravar os valores da primeira nota, quando vou gravar a segunda apresenta o erro 3022 (duplicação de valores)

Já fiz isso funcionar mas agora não estou conseguindo.

Grato :blush:

Eliseu

Editado Janeiro 22, 2009 por Lameira

[kuroi]

cara se nome e itens são chaves primarias (os dois campos ao mesmo tempo) então o erro q acontece é q você ta tentando gravar uma nota com o mesmo numero e mesmo item de uma já existente, o q não tem como a não ser q você cancele as chaves.

você ta tentando numeros diferentes mesmo?? se tiver então posta o codigo q você ta usando pra gravar.

[Lameira]

cara se nome e itens são chaves primarias (os dois campos ao mesmo tempo) então o erro q acontece é q você ta tentando gravar uma nota com o mesmo numero e mesmo item de uma já existente, o q não tem como a não ser q você cancele as chaves.

você ta tentando numeros diferentes mesmo?? se tiver então posta o codigo q você ta usando pra gravar.

Ai vai, lembrando que este código está no procedure "gravar":

iow.AddNew ' banco de dados de itens da nota fiscal

With iow

!numos = Val(numos.Caption) ' n° da nota, é chave principal no BD

!codite = fgcaixa.TextMatrix(ive, 0) ' n° item, é chave principal no BD

!codpro = fgcaixa.TextMatrix(ive, 1) ' codigo do produto

!valpro = fgcaixa.TextMatrix(ive, 3) ' valor do produto

!qntproven = fgcaixa.TextMatrix(ive, 4) ' quantidade do produto

!desven = fgcaixa.TextMatrix(ive, 5) ' desconto do produto

!dtven = Date ' data da realização da venda

End With

iow.Update

dataiow.Refresh

ow.AddNew ' banco de dados da nota fiscal

With ow

!numos = numos.Caption ' n° da nota, é chave principal no BD

!codcli = codcli.Text ' codigo do cliente

End With

ow.Update

dataow.Refresh

grato; :unsure:

[Lameira]

valeu galera, era só retirar as chaves do BD iow

brigado pela ajuda

Eliseu