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


    [Resolvido]Criar em VBA dados de uma Caixa de Combinação

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4440
    Registrado : 06/11/2009

    [Resolvido]Criar em VBA dados de uma Caixa de Combinação Empty [Resolvido]Criar em VBA dados de uma Caixa de Combinação

    Mensagem  Assis 19/12/2020, 12:52

    Boa tarde

    Na Origem de linha está assim:

    SELECT DISTINCT MoveisFeitos.Ref
    FROM MoveisFeitos
    WHERE (((MoveisFeitos.Descricao)=[Modelo]) AND ((MoveisFeitos.Tipo)=[txtTipo]))
    ORDER BY MoveisFeitos.Ref;


    Como criar em VBA

    Obrigado


    [Resolvido]Criar em VBA dados de uma Caixa de Combinação Ordena10


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4440
    Registrado : 06/11/2009

    [Resolvido]Criar em VBA dados de uma Caixa de Combinação Empty Re: [Resolvido]Criar em VBA dados de uma Caixa de Combinação

    Mensagem  Assis 19/12/2020, 19:52

    Boa noite consegui fazer VBA mas a ordenação resultou igual asim:

    Me.ClienteF.RowSource = "SELECT distinct MoveisFeitos.Ref FROM MoveisFeitos WHERE Descricao=Modelo AND Tipo= txtTipo ORDER BY MoveisFeitos.Ref asc;"


    Terá como ordenar assim, ver foto ?

    ESHP005
    ESHP007
    ESHP80002
    ESHP90002
    ESHP100001
    ESHP100002

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2768
    Registrado : 22/11/2016

    [Resolvido]Criar em VBA dados de uma Caixa de Combinação Empty Re: [Resolvido]Criar em VBA dados de uma Caixa de Combinação

    Mensagem  DamascenoJr. 19/12/2020, 21:04

    Programação e desenvolvimento trata-se puramente de lógica. Qual a lógica da sua ordenação?

    Se for quantidade de caracteres então é simples

    ... ORDER BY Len(MoveisFeitos.Ref) asc;


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4440
    Registrado : 06/11/2009

    [Resolvido]Criar em VBA dados de uma Caixa de Combinação Empty Re: [Resolvido]Criar em VBA dados de uma Caixa de Combinação

    Mensagem  Assis 19/12/2020, 21:43

    Boa noite Damasceno

    Não ...

    [Resolvido]Criar em VBA dados de uma Caixa de Combinação Sem_t166

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7949
    Registrado : 05/11/2009

    [Resolvido]Criar em VBA dados de uma Caixa de Combinação Empty Re: [Resolvido]Criar em VBA dados de uma Caixa de Combinação

    Mensagem  Alexandre Neves 20/12/2020, 14:16

    Boa tarde, Assis
    SELECT * FROM (SELECT DISTINCT Ref FROM MoveisFeitos WHERE Descricao=Modelo AND Tipo=txtTipo) ORDER BY CLng(mid(Ref,5)) asc


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4440
    Registrado : 06/11/2009

    [Resolvido]Criar em VBA dados de uma Caixa de Combinação Empty Re: [Resolvido]Criar em VBA dados de uma Caixa de Combinação

    Mensagem  Assis 20/12/2020, 15:37

    Obrigado Alexandre

    Mas nem todas as "Refs" Tem o mesmo número de "Letras"

    Bom domingo


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7949
    Registrado : 05/11/2009

    [Resolvido]Criar em VBA dados de uma Caixa de Combinação Empty Re: [Resolvido]Criar em VBA dados de uma Caixa de Combinação

    Mensagem  Alexandre Neves 20/12/2020, 19:14

    Faltaram dados significativos, mas dará assim
    SELECT * FROM (SELECT DISTINCT Ref FROM MoveisFeitos WHERE Descricao=Modelo AND Tipo=txtTipo) ORDER BY Vlr(Ref) asc
    com esta função
    Código:
    Function Vlr(Texto As String) As Long
        '--------------------------------------------------------------'
        '   código criado por Alexandre Neves, do Fórum MaximoAccess   '
        '     utilize o código livremente mas mantenha os créditos     '
        '--------------------------------------------------------------'
        Dim I As Byte
        I = 0
        Do
            I = I + 1
            If InStr(1, "0123456789", Mid(Texto, I, 1)) > 0 Then
                Vlr = Mid(Texto, I)
                Exit Do
            End If
        Loop
    End Function


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4440
    Registrado : 06/11/2009

    [Resolvido]Criar em VBA dados de uma Caixa de Combinação Empty Re: [Resolvido]Criar em VBA dados de uma Caixa de Combinação

    Mensagem  Assis 21/12/2020, 08:35

    Bom dia Amigos e BOM NATAL  santa santa


    Para testar com dados.

    Obrigado
    Anexos
    [Resolvido]Criar em VBA dados de uma Caixa de Combinação AttachmentForum_Assis.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (222 Kb) Baixado 9 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7949
    Registrado : 05/11/2009

    [Resolvido]Criar em VBA dados de uma Caixa de Combinação Empty Re: [Resolvido]Criar em VBA dados de uma Caixa de Combinação

    Mensagem  Alexandre Neves 21/12/2020, 17:59

    Boa tarde, Assis
    Coloca a função num módulo e verifica o resultado


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4440
    Registrado : 06/11/2009

    [Resolvido]Criar em VBA dados de uma Caixa de Combinação Empty Re: [Resolvido]Criar em VBA dados de uma Caixa de Combinação

    Mensagem  Assis 21/12/2020, 18:38

    Boa tarde, Alexandre

    Perfeito ,,,  Obrigado

    Bom Natal santa


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7949
    Registrado : 05/11/2009

    [Resolvido]Criar em VBA dados de uma Caixa de Combinação Empty Re: [Resolvido]Criar em VBA dados de uma Caixa de Combinação

    Mensagem  Alexandre Neves 22/12/2020, 11:22

    Obrigado, Assis
    Santo Natal também


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Conteúdo patrocinado

    [Resolvido]Criar em VBA dados de uma Caixa de Combinação Empty Re: [Resolvido]Criar em VBA dados de uma Caixa de Combinação

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 14/5/2021, 11:20