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

Assis em 19/12/2020, 12:52

Assis: Maximo VIP; Sexo :
Localização :
Mensagens : 4282
Registrado : 06/11/2009

Mensagem nº1

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

Mensagem Assis em 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

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

.................................................................................
*** Só sei que nada sei ***

Assis em 19/12/2020, 19:52

Assis

Assis: Maximo VIP; Sexo :
Localização :
Mensagens : 4282
Registrado : 06/11/2009

Mensagem nº2

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

Mensagem Assis em 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.** em 19/12/2020, 21:04

DamascenoJr.

DamascenoJr.: Moderador; Sexo :
Localização :
Mensagens : 2535
Registrado : 22/11/2016

Mensagem nº3

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

Mensagem DamascenoJr. em 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 em 19/12/2020, 21:43

Assis

Assis: Maximo VIP; Sexo :
Localização :
Mensagens : 4282
Registrado : 06/11/2009

Mensagem nº4

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

Mensagem Assis em 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** em 20/12/2020, 14:16

Alexandre Neves

Alexandre Neves: Moderador Global; Sexo :
Localização :
Mensagens : 7854
Registrado : 05/11/2009

Mensagem nº5

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

Mensagem Alexandre Neves em 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 em 20/12/2020, 15:37

Assis

Assis: Maximo VIP; Sexo :
Localização :
Mensagens : 4282
Registrado : 06/11/2009

Mensagem nº6

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

Mensagem Assis em 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** em 20/12/2020, 19:14

Alexandre Neves

Alexandre Neves: Moderador Global; Sexo :
Localização :
Mensagens : 7854
Registrado : 05/11/2009

Mensagem nº7

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

Mensagem Alexandre Neves em 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 em 21/12/2020, 08:35

Assis

Assis: Maximo VIP; Sexo :
Localização :
Mensagens : 4282
Registrado : 06/11/2009

Mensagem nº8

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

Mensagem Assis em 21/12/2020, 08:35

Bom dia Amigos e BOM NATAL santa

Para testar com dados.

Obrigado

Anexos

Forum_Assis.zip: Você não tem permissão para fazer download dos arquivos anexados.; (222 Kb) Baixado 8 vez(es)

.................................................................................
*** Só sei que nada sei ***

**Alexandre Neves** em 21/12/2020, 17:59

Alexandre Neves

Alexandre Neves: Moderador Global; Sexo :
Localização :
Mensagens : 7854
Registrado : 05/11/2009

Mensagem nº9

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

Mensagem Alexandre Neves em 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 em 21/12/2020, 18:38

Assis

Assis: Maximo VIP; Sexo :
Localização :
Mensagens : 4282
Registrado : 06/11/2009

Mensagem nº10

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

Mensagem Assis em 21/12/2020, 18:38

Boa tarde, Alexandre

Perfeito ,,, Obrigado

Bom Natal santa

.................................................................................
*** Só sei que nada sei ***

**Alexandre Neves** em 22/12/2020, 11:22

Alexandre Neves

Alexandre Neves: Moderador Global; Sexo :
Localização :
Mensagens : 7854
Registrado : 05/11/2009

Mensagem nº11

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

Mensagem Alexandre Neves em 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

Pesquisar

Resultados por: Mensagens Tópicos
Busca avançada

MaximoAccess

MaximoAccess

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