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]Combobox desacoplada

    avatar
    onfire
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 41
    Registrado : 18/09/2016

    combobox desacoplada - [Resolvido]Combobox desacoplada Empty [Resolvido]Combobox desacoplada

    Mensagem  onfire Sex 24 Set 2021, 16:34

    Exmos
    Quando crio um formulário com combobox, mesmo que utilize o VBA, o frontend fica sempre ligado ao backend.
    Existe alguma forma de ao receber o foco, liga-se ao backend, recebe a informação e volta a desconectar-se ao backend.
    Assim 10 combox abria e fechava a ligação 10 vezes.
    É possivel? Deixo abaixo o código vba utilizado.

    Código:

    Private Sub Texto0_GotFocus()
    Dim strSql As String
    On Error Resume Next
    strSql = "SELECT t0.nome FROM t0 GROUP BY t0.nome ORDER BY t0.nome;"
    Me.Texto0.RowSource = strSql
    End Sub
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3948
    Registrado : 21/04/2011

    combobox desacoplada - [Resolvido]Combobox desacoplada Empty Re: [Resolvido]Combobox desacoplada

    Mensagem  Marcelo David Seg 27 Set 2021, 09:47

    Bom dia!

    Esse código abaixo.
    Porém, poderá ter problemas com o campo nome, por se tratar de uma palavra reserva.
    Seria bom alterar para outro nome.

    Sobre formulários desacoplados, eu tenho um treinamento, caso lhe interesse se aprofundar no assunto.
    Se clicar na minha assinatura, poderá conhecer o treinamento.
    Very Happy

    Código:
    Dim strSql As String, rs as DAO.Recordset
    On Error Resume Next
    strSql = "SELECT t0.nome FROM t0 GROUP BY t0.nome ORDER BY t0.nome;"

    set rs = currentdb.openrecordset(strSql)

    With Me.Texto0
       .RowSource = ""
       .RowSourceType = "Value List"
       do Until rs.eof
          .AddItem rs!nome
          rs.movenext
       loop
    end With

    rs.close
    set rs = Nothing


    .................................................................................
    combobox desacoplada - [Resolvido]Combobox desacoplada Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    combobox desacoplada - [Resolvido]Combobox desacoplada Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    combobox desacoplada - [Resolvido]Combobox desacoplada Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    combobox desacoplada - [Resolvido]Combobox desacoplada Marcel11
    avatar
    onfire
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 41
    Registrado : 18/09/2016

    combobox desacoplada - [Resolvido]Combobox desacoplada Empty Resolvido

    Mensagem  onfire Seg 27 Set 2021, 19:35

    Obrigado era mesmo isso.
    Vocês são imbatíveis. Sim vou ver o teu curso de VBA.

    Marcelo David gosta desta mensagem

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3948
    Registrado : 21/04/2011

    combobox desacoplada - [Resolvido]Combobox desacoplada Empty Re: [Resolvido]Combobox desacoplada

    Mensagem  Marcelo David Ter 28 Set 2021, 13:53

    Ótimo. Grato pelo retorno!
    Uma observação:

    Pode chamar os códigos que carregam as comboxs no evento ao abrir do formulário.
    Assim já ficará carregada desde a abertura e o back-end já estará fechado.


    .................................................................................
    combobox desacoplada - [Resolvido]Combobox desacoplada Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    combobox desacoplada - [Resolvido]Combobox desacoplada Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    combobox desacoplada - [Resolvido]Combobox desacoplada Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    combobox desacoplada - [Resolvido]Combobox desacoplada Marcel11
    avatar
    evairomaximoaccess
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 28/02/2021

    combobox desacoplada - [Resolvido]Combobox desacoplada Empty Erro ComboBox Desacoplada - Não preenche todos os registros

    Mensagem  evairomaximoaccess Ter 08 Fev 2022, 05:56

    Prezado professor Marcelo David,

    fiz conforme explicado neste tópico,

    porém a combobox não preencheu todos os 5.570 registros do recordSet!

    Deixo em anexo arquivo exemplo do erro...

    Por favor me ajude!
    Anexos
    combobox desacoplada - [Resolvido]Combobox desacoplada AttachmentErro__ComboBox_Desacoplada.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (148 Kb) Baixado 8 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3948
    Registrado : 21/04/2011

    combobox desacoplada - [Resolvido]Combobox desacoplada Empty Re: [Resolvido]Combobox desacoplada

    Mensagem  Marcelo David Qui 10 Fev 2022, 19:17

    Evaíro, boa noite e seja bem vindo.
    Conforme regras do fórum, tópicos fechados não se pode mais tirar dúvidas.
    Poderá abrir um novo tópico com sua dúvida e aí sim trataremos por lá.

    Porém adianto que combobox desacopladas, bem como listbox, tem uma limitação ao
    adicionar item, que é esse método apresentado. Daí teremos que partir para outro caminho.

    Porém nesse tópico não daremos continuidade por já ter sanado a dúvida do autor.


    .................................................................................
    combobox desacoplada - [Resolvido]Combobox desacoplada Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    combobox desacoplada - [Resolvido]Combobox desacoplada Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    combobox desacoplada - [Resolvido]Combobox desacoplada Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    combobox desacoplada - [Resolvido]Combobox desacoplada Marcel11

    evairomaximoaccess gosta desta mensagem

    avatar
    evairomaximoaccess
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 28/02/2021

    combobox desacoplada - [Resolvido]Combobox desacoplada Empty Re: [Resolvido]Combobox desacoplada

    Mensagem  evairomaximoaccess Qui 24 Fev 2022, 21:45

    Muito obrigado professor

    Conteúdo patrocinado


    combobox desacoplada - [Resolvido]Combobox desacoplada Empty Re: [Resolvido]Combobox desacoplada

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex 22 Nov 2024, 20:43