MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]Inserir Valor na tabela atraves de 2 Criterios

    avatar
    Kleyton.sccam
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 25/01/2010

    [Resolvido]Inserir Valor na tabela atraves de 2 Criterios Empty Inserir Valor na tabela atraves de 2 Criterios

    Mensagem  Kleyton.sccam 17/3/2010, 19:37

    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.


    .................................................................................
    Kleyton Pinheiro
    Mude Que o Mundo Muda!!!
    avatar
    Roberto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 17/03/2010

    [Resolvido]Inserir Valor na tabela atraves de 2 Criterios Empty Re: [Resolvido]Inserir Valor na tabela atraves de 2 Criterios

    Mensagem  Roberto 17/3/2010, 21:39

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 25/01/2010

    [Resolvido]Inserir Valor na tabela atraves de 2 Criterios Empty Re: [Resolvido]Inserir Valor na tabela atraves de 2 Criterios

    Mensagem  Kleyton.sccam 18/3/2010, 02:30

    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.


    .................................................................................
    Kleyton Pinheiro
    Mude Que o Mundo Muda!!!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Inserir Valor na tabela atraves de 2 Criterios Empty Re: [Resolvido]Inserir Valor na tabela atraves de 2 Criterios

    Mensagem  JPaulo 18/3/2010, 09:17

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Inserir Valor na tabela atraves de 2 Criterios Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Inserir Valor na tabela atraves de 2 Criterios Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Inserir Valor na tabela atraves de 2 Criterios Folder_announce_new Instruções SQL como utilizar...
    avatar
    Kleyton.sccam
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 25/01/2010

    [Resolvido]Inserir Valor na tabela atraves de 2 Criterios Empty Re: [Resolvido]Inserir Valor na tabela atraves de 2 Criterios

    Mensagem  Kleyton.sccam 18/3/2010, 13:25

    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!


    .................................................................................
    Kleyton Pinheiro
    Mude Que o Mundo Muda!!!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Inserir Valor na tabela atraves de 2 Criterios Empty Re: [Resolvido]Inserir Valor na tabela atraves de 2 Criterios

    Mensagem  JPaulo 18/3/2010, 13:38

    Amigão não consigo fazer o Download

    Coloque aqui:

    http://www.speedyshare.com/

    ou aqui:

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Inserir Valor na tabela atraves de 2 Criterios Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Inserir Valor na tabela atraves de 2 Criterios Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Inserir Valor na tabela atraves de 2 Criterios Folder_announce_new Instruções SQL como utilizar...
    avatar
    Kleyton.sccam
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 25/01/2010

    [Resolvido]Inserir Valor na tabela atraves de 2 Criterios Empty Re: [Resolvido]Inserir Valor na tabela atraves de 2 Criterios

    Mensagem  Kleyton.sccam 18/3/2010, 13:59

    Pronto, ver se consegue fazer o download

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


    .................................................................................
    Kleyton Pinheiro
    Mude Que o Mundo Muda!!!
    avatar
    Roberto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 17/03/2010

    [Resolvido]Inserir Valor na tabela atraves de 2 Criterios Empty Re: [Resolvido]Inserir Valor na tabela atraves de 2 Criterios

    Mensagem  Roberto 18/3/2010, 16:10

    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.
    avatar
    Kleyton.sccam
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 25/01/2010

    [Resolvido]Inserir Valor na tabela atraves de 2 Criterios Empty Re: [Resolvido]Inserir Valor na tabela atraves de 2 Criterios

    Mensagem  Kleyton.sccam 18/3/2010, 17:02

    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!!


    .................................................................................
    Kleyton Pinheiro
    Mude Que o Mundo Muda!!!
    avatar
    Roberto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 17/03/2010

    [Resolvido]Inserir Valor na tabela atraves de 2 Criterios Empty Re: [Resolvido]Inserir Valor na tabela atraves de 2 Criterios

    Mensagem  Roberto 18/3/2010, 17:09

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

    Conteúdo patrocinado


    [Resolvido]Inserir Valor na tabela atraves de 2 Criterios Empty Re: [Resolvido]Inserir Valor na tabela atraves de 2 Criterios

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 23:12