PROBLEMA COM RELACIONAMENTO DE TABELAS ACCESS
ola pessoal estou com um problema pra salvar o registro de duas tabellas relacionadas, na verdade eu queria fazer tudo de uma ves, vou explicar
tenho duas tabelas
tblreceitanome --->sao armazenadas os nomes de receitas com os seguintes campos
codreceita,nome,origem,preparo
segunda tabela ea tblingredientes
nesta tem
codingredientereceita --relacionado com o campo codreceita
ingrediente eo peso
qdo vou salvar faco tudo de uma so vez assim:
Private Sub cmdsalvar_Click()
rs.AddNew [ô]tblreceitanome
rs.Fields(1) = [Ô][Ô] & txtnome.Text
rs.Fields(2) = [Ô][Ô] & txtorigem.Text
With mslista
For F = 1 To .Rows - 1
rsingrediente.AddNew [ô]tblingredientes
rsingrediente([Ô]codingredientereceita[Ô]) = .TextMatrix(F, 0)
rsingrediente([Ô]ingrediente[Ô]) = .TextMatrix(F, 1) [ô]Coluna 1
rsingrediente([Ô]peso[Ô]) = .TextMatrix(F, 2) [ô]Coluna 2
rsingrediente.Update [txt-color=#e80000]<da erro aki >[/txt-color]
Next F
End With
rs.Update
o erro fala q nao existe campo q faca referencia na tblreceitanome
rsingrediente.Update <errro>
como estou fazendo tudo de uma ves eu gero o numero do codigoda receita
assim
txt.Text = rs.RecordCount + 1
que no caso qdo estou criando um registro o codigo da tblreceitanome nao existe, entao eu gero ele no momento que adiciono no msflex. mas da erro
tenho duas tabelas
tblreceitanome --->sao armazenadas os nomes de receitas com os seguintes campos
codreceita,nome,origem,preparo
segunda tabela ea tblingredientes
nesta tem
codingredientereceita --relacionado com o campo codreceita
ingrediente eo peso
qdo vou salvar faco tudo de uma so vez assim:
Private Sub cmdsalvar_Click()
rs.AddNew [ô]tblreceitanome
rs.Fields(1) = [Ô][Ô] & txtnome.Text
rs.Fields(2) = [Ô][Ô] & txtorigem.Text
With mslista
For F = 1 To .Rows - 1
rsingrediente.AddNew [ô]tblingredientes
rsingrediente([Ô]codingredientereceita[Ô]) = .TextMatrix(F, 0)
rsingrediente([Ô]ingrediente[Ô]) = .TextMatrix(F, 1) [ô]Coluna 1
rsingrediente([Ô]peso[Ô]) = .TextMatrix(F, 2) [ô]Coluna 2
rsingrediente.Update [txt-color=#e80000]<da erro aki >[/txt-color]
Next F
End With
rs.Update
o erro fala q nao existe campo q faca referencia na tblreceitanome
rsingrediente.Update <errro>
como estou fazendo tudo de uma ves eu gero o numero do codigoda receita
assim
txt.Text = rs.RecordCount + 1
que no caso qdo estou criando um registro o codigo da tblreceitanome nao existe, entao eu gero ele no momento que adiciono no msflex. mas da erro
tenta assim
rs.AddNew [ô]tblreceitanome
rs.Fields(1) = [Ô][Ô] & txtnome.Text
rs.Fields(2) = [Ô][Ô] & txtorigem.Text
rs.Update
With mslista
For F = 1 To .Rows - 1
rsingrediente.AddNew [ô]tblingredientes
rsingrediente([Ô]codingredientereceita[Ô]) = .TextMatrix(F, 0)
rsingrediente([Ô]ingrediente[Ô]) = .TextMatrix(F, 1) [ô]Coluna 1
rsingrediente([Ô]peso[Ô]) = .TextMatrix(F, 2) [ô]Coluna 2
rsingrediente.Update
Next F
End With
rs.AddNew [ô]tblreceitanome
rs.Fields(1) = [Ô][Ô] & txtnome.Text
rs.Fields(2) = [Ô][Ô] & txtorigem.Text
rs.Update
With mslista
For F = 1 To .Rows - 1
rsingrediente.AddNew [ô]tblingredientes
rsingrediente([Ô]codingredientereceita[Ô]) = .TextMatrix(F, 0)
rsingrediente([Ô]ingrediente[Ô]) = .TextMatrix(F, 1) [ô]Coluna 1
rsingrediente([Ô]peso[Ô]) = .TextMatrix(F, 2) [ô]Coluna 2
rsingrediente.Update
Next F
End With
Cleverton o erro e porque a tblreceitanome o codigo receita e autonumerico, entao qdo vou adicionar os registros nas duas tabelas a segunda da erro porque, ainda nao existe o codreciita nome, oq faco
pessoal o fonte esta aki
PATO, acho soh q vc inverteu o relacionamento.
Ve c desse jeito funciona..
Ve c desse jeito funciona..
Dusk testei uma ves fivou otimo, farei mais uns testes pra ficar redondo ja retorno
Ola Dusk, muito obrigado funcionou perfeitamente, eu demorei porque eu queria ter certeza,vlw
Tópico encerrado , respostas não são mais permitidas