MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Problema ao popular combobox via VBA (RowSource) com NÚMERO depois TEXTO

    Access365
    Access365
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    Problema ao popular combobox via VBA (RowSource) com NÚMERO depois TEXTO Empty Problema ao popular combobox via VBA (RowSource) com NÚMERO depois TEXTO

    Mensagem  Access365 em 17/8/2020, 18:19

    Olá amigos,
    Estou tendo problemas em popular um combo via VBA usando método RowSource.

    Tenho duas combos A e B:
    Na combo A, escolho o DOCUMENTO
    Na combo B, escolho o TIPO DE DOCUMENTO

    Na combo A existem uns 5 documentos:
    Do 1º ao 4º vai popular a combo B com números
    O 5º vai popular a combo B com texto

    Ocorrência:
    Se ao abrir o Form eu escolher na combo A, o 5º Documento, eu não terei problema algum com a combo B, mas se eu começar escolhendo na combo A, do 1º ao 4º Documento, eu vou ter problemas na combo B ao mudar para o 5º Documento na combo A.

    Problema:
    Se eu começar escolhendo na combo A, do 1º ao 4º Documento, a combo B vai ser populada sempre com NÚMEROS e ao escolher na combo A, o 5º Documento, a combo B até popula com os três 3 itens TEXTO, mas ao escolher, na combo B, um dos 3 itens, o ACCESS informa: "O valor que você inseriu não é válido para este campo. Por exemplo, talvez você tenha inserido texto em um campo numérico..."

    EM RESUMO:
    Se eu começar com TEXTO não vou ter problemas, mas se eu começar com NÚMERO, sim. E isso se eu usar a como B.
    Se eu alterar a combo A e não usar a como B, não dá "pau".

    Alguém já viu isso?

    Obrigado, Luz e Paz!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    Registrado : 13/12/2016

    Problema ao popular combobox via VBA (RowSource) com NÚMERO depois TEXTO Empty Re: Problema ao popular combobox via VBA (RowSource) com NÚMERO depois TEXTO

    Mensagem  Alexandre Fim em 17/8/2020, 19:06

    Olá Brendo!
    Por gentileza, nos envie seu banco de dados (somente as partes envolvidas) para análise e ajustes.

    Obrigado.


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    Access365
    Access365
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    Problema ao popular combobox via VBA (RowSource) com NÚMERO depois TEXTO Empty Re: Problema ao popular combobox via VBA (RowSource) com NÚMERO depois TEXTO

    Mensagem  Access365 em 17/8/2020, 19:26

    Olá Alexandre,
    O banco é quase todo "independente" (desacoplado)
    Tudo depende de tudo...
    Tô tentando ver se consigo desmembrar um pouco para postar aqui, desde que postei esta mensagem.
    Vai demorar! Enquanto isso, tô montando outro para somente expor o problema que apresentei... mas agradeço pelo interesse.

    Luz e Paz!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    Registrado : 13/12/2016

    Problema ao popular combobox via VBA (RowSource) com NÚMERO depois TEXTO Empty Re: Problema ao popular combobox via VBA (RowSource) com NÚMERO depois TEXTO

    Mensagem  Alexandre Fim em 17/8/2020, 19:31

    Voce pode criar um novo sistema e importar somente o form e a(s) tabelas e etc.


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    Access365
    Access365
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    Problema ao popular combobox via VBA (RowSource) com NÚMERO depois TEXTO Empty Re: Problema ao popular combobox via VBA (RowSource) com NÚMERO depois TEXTO

    Mensagem  Access365 em 17/8/2020, 20:45

    Olá Alexandre!
    Consegui reproduzir no arquivo anexo.

    vlw....... Luz e Paz!
    Anexos
    Problema ao popular combobox via VBA (RowSource) com NÚMERO depois TEXTO AttachmentMA-17.08.20.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (27 Kb) Baixado 3 vez(es)


    Última edição por Access365 em 17/8/2020, 20:47, editado 1 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    Registrado : 13/12/2016

    Problema ao popular combobox via VBA (RowSource) com NÚMERO depois TEXTO Empty Re: Problema ao popular combobox via VBA (RowSource) com NÚMERO depois TEXTO

    Mensagem  Alexandre Fim em 17/8/2020, 20:47

    Olá Brendo,
    Não veio o anexo.


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    Access365
    Access365
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    Problema ao popular combobox via VBA (RowSource) com NÚMERO depois TEXTO Empty Re: Problema ao popular combobox via VBA (RowSource) com NÚMERO depois TEXTO

    Mensagem  Access365 em 17/8/2020, 20:48

    Dá um F5 aí... rs
    Avisa se apareceu, por favor...
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    Registrado : 13/12/2016

    Problema ao popular combobox via VBA (RowSource) com NÚMERO depois TEXTO Empty Re: Problema ao popular combobox via VBA (RowSource) com NÚMERO depois TEXTO

    Mensagem  Alexandre Fim em 17/8/2020, 20:55

    Ops...agora veio...rss
    Vou verificar e te retorno.
    Abraço


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    Registrado : 13/12/2016

    Problema ao popular combobox via VBA (RowSource) com NÚMERO depois TEXTO Empty Re: Problema ao popular combobox via VBA (RowSource) com NÚMERO depois TEXTO

    Mensagem  Alexandre Fim em 17/8/2020, 22:22

    Brendo,

    Não fiz alteração no "frmTeste" para preservar o código que você criou.
    Fiz uma cópia e salvei como "frmTesteNew" e fiz as devidas alterações.

    Não há mais erros !

    Obs.: verifique o código comentado


    Espero ter ajudado.

    Boa sorte
    Anexos
    Problema ao popular combobox via VBA (RowSource) com NÚMERO depois TEXTO AttachmentMA-17.08.20.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (37 Kb) Baixado 5 vez(es)


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    Access365
    Access365
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    Problema ao popular combobox via VBA (RowSource) com NÚMERO depois TEXTO Empty Re: Problema ao popular combobox via VBA (RowSource) com NÚMERO depois TEXTO

    Mensagem  Access365 em 17/8/2020, 23:40

    Olá Alexandre, obrigado por me ajudar!

    Resumindo:
    1) Devo inserir as informações dos cinco documentos como "Value List" (Lista de valores);
    2) O uso do "Me.cboRel.RowSource = Select..." não é viável;
    3) Tenho que usar "CurrentDb.OpenRecordset"

    O documento Contrato terá muitos números (na casa dos milhares). Não terá problema trazer tudo como "Lista de valores"?

    -----

    Consegui alterar os códigos antigos usando sua sugestão, mas não estou conseguindo no 4º Documento (Recibo de pagamento).
    Cada documento é uma tabela específica que tem como relacionamento o número do contrato (1º Documento), mas esse 4º Documento (Recibo de pagamento) tem duas colunas de informações.

    Em seu código VBA você usou ".ColumnCount = 1", mas como você faria para o 4º Documento que usa 2 column?

    Seria algo assim:
    msql = "SELECT id as RESULTA, coisa as RESULTB FROM..."
    ...
    .ColumnCount = 2
    ...
    .AddItem "" & rs("RESULTA").Value & ";" & rs("RESULTB").Value & ""

    Acertei? rs


    Luz e Paz!

      Data/hora atual: 4/12/2020, 04:51