MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Caixas de Combinação Associadas

    Compartilhe

    prietomarco
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 05/10/2017

    Caixas de Combinação Associadas

    Mensagem  prietomarco em Dom 29 Out 2017, 13:27

    Bom dia!!!
    Estou trabalhando com caixas de combinação depende, e estou tendo problema no sub formulário.
    Problema:
    Tenho duas Tabelas:
    tblProduto
    *codproduto
    *nomeproduto
    *preço
    tblSabor
    *cpdrecheio
    *nomerecheio
    *idproduto

    E, quero montar um formulário de “VENDAS”, com o sub formulário “PEDIDO” onde eu tenho a caixa de combinação “PRODUTO”, após selecionado me venha somente os sabores pertinentes a esse produto.
    Já testei varios exemplos visualizados no Youtube e outros fóruns, com a instrução abaixo consegui resultado no formulário, mas quando passo para o sub formulário dá erro.

    Private Sub cboSabor_AfterUpdate()
    Me.cboSabor.SetFocus
    Me.cboSabor.Dropdown
    End Sub
    Private Sub cboSabor_GotFocus()
    Dim strSql$
    strSql = "SELECT codrecheio, nomerecheio FROM tblSabor WHERE idproduto = " & Me.cboProduto & ";"
    Me.cboSabor.RowSource = strSql
    End Sub

    MENSAGEM DE ERRO SUB FORMULÁRIO:

    "A CONFIGURAÇÃO DA PROPRIEDADE LINKMASTERFIELDS GEROU ESTE ERRO: O OBJETO NÃO CONTEM O OBJETO AUTOMATION "TBLVENDAS""

    Ajuda antecipadamente agradeço.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3417
    Registrado : 14/08/2013

    Re: Caixas de Combinação Associadas

    Mensagem  FabioPaes em Seg 30 Out 2017, 20:59

    Olá, veja esse Video que possivelmente irá entender como funciona... e Aplicará a seu projeto!

    youtube.com/watch?v=S2dKYu4r4js&t=104s


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: Ter 21 Nov 2017, 17:38