[Resolvido]Inserir Valor na tabela atraves de 2 Criterios

Boa Tarde,

Pra começar o titulo nao foi facil de escolhes, pq nao é so colocar Inserir o valor

Irei tentar Resumir meu problema, pra ver se alguem tem alguma ideia:

->Formulário de Cotação:
Nesse formulario eu utilizo 3 Tabelas (tbl_Cotacao, Tbl_Fornecedore_Cot, Tbl_Itens_Cot, tbl_Valor_unitario_Fornecedor)
Para a tabela Fornecedores e itens estou usando um Sub Formulario pra cada um. Está funcionando.

Preciso agora que ao selecionar um fornecedor e um item (Utilizo o metodo currentRecord que ele sabe quem está selecionado)
cadastrar o valor unitario.
tbl_valor_unitario recebe ( ID_Forncedor_Cot, ID_Item_Cot) para saber de que fornecedor é esse preço.


Não sou muito bom utilizando as ferramentas do proprio access, eu fiz o meu bd só em vba (Rotinas de tratamentos).
ja tentei utilizar o metodo DoCmd.RunSQL usando o INSERT INTO do SQL.

Se você já tem todos os campos necessários utilize o Docmd.RunSQL mesmo. Está ocorrendo algum problema assim ?

O problema é que o Fornecedor está num Formulario do Tipo folha de dados(pode ter varios) preciso ficar
filtrando para cada vez que um fornecedor estiver selecionando, deverá aparecer o Valor unitario de cada item dele.

Amigão bom dia;

Coloque o seu banco ou parte dele, num site publico que resolvemos o seu problema rápidamente, nem que seja com Recordset.

Bom dia JPaulo,

O unico site de Hospedagem que eu lembrei foi esse. rsrs

http://rapidshare.com/files/364987555/Kleyton-BD.zip.html

Dei uma limpada no Banco porque tinha muito dados da empresa e de Clientes.
A forma que eu mandei o banco, é de um jeito que eu estou tentando fazer agora.
Criar um Novo Formulario apos Clicar o botao "$" ja adicionado os dados na tbl_Custo_Item_OSF com
o codigo do fornecedor e o codigo de cada item.

Acho que vai funcionar assim, mas nao é uma forma muito esperta de se fazer!

Amigão não consigo fazer o Download

Coloque aqui:

http://www.speedyshare.com/

ou aqui:

http://uploads.ziddu.com/uploadanon.php

Pronto, ver se consegue fazer o download

http://www.speedyshare.com/files/21494672/Kleyton-BD.zip

Teste este código no seu Botão:

Private Sub cmdV_unit_Click()
Dim Rst As DAO.Recordset
Dim Rst2 As DAO.Recordset
Dim db As DAO.Database
Set db = CurrentDb

registros = DCount("[Codigo]", "TBL Itens OSF", "[Cod_Cotacao]=" & Me.Cod_OSF)

If registros > 0 Then

Set Rst = db.OpenRecordset("Select * From [TBL Forn OSF] Where Cod_Cotacao=" & Me.Cod_OSF)
Do While Not Rst.EOF
Set Rst2 = db.OpenRecordset("Select * From [TBL Itens OSF] Where Cod_Cotacao=" & Me.Cod_OSF)
Do While Not Rst2.EOF
DoCmd.SetWarnings False
DoCmd.RunSQL "Insert Into tbl_Custo_Item_OSF(Fornecedor,Item) Values(" & Rst("Cod_Forn") & "," & Rst2("Codigo_Item") & ")"
DoCmd.SetWarnings True
Rst2.MoveNext
Loop
Rst2.Close

Rst.MoveNext
Loop
Rst.Close

MsgBox "Itens adicionados!", vbInformation, "Mensagem"

Else
MsgBox "Nenhum registro encontrado!", vbExclamation, "Mensagem"
End If

End Sub


Após basta você criar um Form com base na Tabela tbl_Custo_Item_OSF e abrir passando o filtro que desejar.

Boa tarde Roberto,

Ficou perfeito seu codigo. funcionou certinho

so alterei uma linha
DoCmd.RunSQL "Insert Into tbl_Custo_Item_OSF(Fornecedor,Item) Values(" & Rst("Cod_Forn") & "," & Rst2("Codigo_Item") & ")"

Esse campo codigo_item é uma codigo do desenho, e nao o Codigo(ID) do item msm...

E tive que alterar minha tabela tbl_Custo_Item_OSF e deixar o campos Fornecedor e Item como chave primaria, caso o usuario
clique 2 vezes o botao. Pra nao aceitar Duplicação!!

Muito Obrigado msm!!

Ok. Ótimo se foi útil. Abraço.