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


    como copiar um valor numerico de uma combobox para a outra utilizando codigo vba

    mpsbra
    mpsbra
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 21/08/2012

    como copiar um valor numerico de uma combobox para a outra utilizando codigo vba Empty como copiar um valor numerico de uma combobox para a outra utilizando codigo vba

    Mensagem  mpsbra em 27/11/2014, 03:47

    Sad Amigos boa noite!
    Estou tentando copiar com o auxilio do vba uma coluna que está dentro de uma combobox para outra combobox.
    O mesmo não me retorna o valor que preciso.


    o Campo tblCardapio e IDPJ é uma combobox

    O campo tblCardapio tem uma coluna oculta e a IDPJ não.

    O sql está funcionando conforme esperado mais o restante não.


    Este é o codigo que estou utilizando;


    Option Compare Database

    Private Sub ComPFPJ_AfterUpdate()

    If Me.ComPFPJ <> "" Then
    Me.tblCardapio = Me.IDPJ
    Me.tblProdutos = Empty
    Me.tblCardapio = Empty
    End If
    End Sub

    Private Sub tblProdutos_AfterUpdate()

    If Me.tblProdutos <> "" Then
    Me.tblCardapio.RowSource = "SELECT tblCardapio.IDc, tblCardapio.IDPJC, tblCardapio.tblGrupo, tblCardapio.PJPF, tblCardapio.ValorUnitario, tblCardapio.DataUltCompra FROM tblCardapio WHERE tblCardapio.IDPJC =IDPJ and tblCardapio.tblGrupo=txtProdutoGrup and tblCardapio.PJPF=ComPFPJ ; "
    End If

    Me.tblCardapio.Column(1) = Me.IDPJ.Column(0)
    End Sub



    Desde já agradeço
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3633
    Registrado : 29/06/2012

    como copiar um valor numerico de uma combobox para a outra utilizando codigo vba Empty Re: como copiar um valor numerico de uma combobox para a outra utilizando codigo vba

    Mensagem  Noobezinho em 27/11/2014, 10:26

    Olá Marcio

    Antes de tudo, seria bom dar uma olhadinha nas dicas para iniciantes (não só) ali na ultima linha da minha assinatura.
    tblProdutos = é nome de uma tabela
    cboProduto ou comProdutos = nome de uma combobox  de produto da tblProdutos.
    É bom ver sobre isso , para não te confundir e nem a outros que irão ler teu código.




    Private Sub ComPFPJ_AfterUpdate()

    If Isnull(Me.ComPFPJ) or  Me.ComPFPJ <> "" Then '  Aspas duplas juntas = vazio(Empty) que é diferente de nulo (Null) e geralmente os campos sem dados são nulos.
       Me.tblCardapio = Me.IDPJ
       Me.tblProdutos = Null
       Me.tblCardapio = Null

    End If
    End Sub


    Mas creio que somente isso não irá te ajudar.

    O ideal é anexar os formulários e tabelas envolvidas para a gente poder analisar.
    O fórum só aceita arquivos.zip como anexo, veja na minha assinatura como fazer esses arquivos com o winrar, caso não saiba.

    Abraços

    Noob
    mpsbra
    mpsbra
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 21/08/2012

    como copiar um valor numerico de uma combobox para a outra utilizando codigo vba Empty O problema é o outro campo...

    Mensagem  mpsbra em 27/11/2014, 23:06

    Olá Noobezinho, agradeço pela sua atenção.

    Realmente eu não coloquei as referencias conforme sua explicação, pois este formulario é um teste para um formulário continuo que irei fazer.

    dentro do que eu preciso solucionar é a relação entre os campos tblCardapio e IDPJ, onde ambos são campos combobox.

    Eu preciso que o campo tblCardapio receba o valor contido no campo IDPJ logo apos o procedimento SQL.
    a informação que eu tinha colocado no exemplo abaixo foi corrigido pois o campo não pode receber o valor apos o procedimento abaixo.

    Option Compare Database

    Private Sub ComPFPJ_AfterUpdate()

    If Me.ComPFPJ <> "" Then
    Me.tblCardapio = Me.IDPJ
    Me.tblProdutos = Empty
    Me.tblCardapio = Empty
    End If
    End Sub

    Corrigido ficou assim

    Option Compare Database

    Private Sub ComPFPJ_AfterUpdate()

    If Me.ComPFPJ <> "" Then
    Me.tblProdutos = Empty
    Me.tblCardapio = Empty
    End If
    End Sub

    O procedimento que preciso que gere o resultado é este;

    Private Sub tblProdutos_AfterUpdate()

    If Me.tblProdutos <> "" Then
    Me.tblCardapio.RowSource = "SELECT tblCardapio.IDc, tblCardapio.IDPJC, tblCardapio.tblGrupo, tblCardapio.PJPF, tblCardapio.ValorUnitario, tblCardapio.DataUltCompra FROM tblCardapio WHERE tblCardapio.IDPJC =IDPJ and tblCardapio.tblGrupo=txtProdutoGrup and tblCardapio.PJPF=ComPFPJ ; "
    End If

    Me.tblCardapio.Column(1) = Me.IDPJ.Column(0)

    End Sub

    Então é isso, espero que agora esteja bem apresentado.


    Conteúdo patrocinado

    como copiar um valor numerico de uma combobox para a outra utilizando codigo vba Empty Re: como copiar um valor numerico de uma combobox para a outra utilizando codigo vba

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/10/2019, 20:11