3 participantes
[Resolvido]Criar em VBA dados de uma Caixa de Combinação
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
.................................................................................
*** Só sei que nada sei ***
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
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
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.- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3845
Registrado : 22/11/2016
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;
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- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
.................................................................................
*** Só sei que nada sei ***
Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8496
Registrado : 05/11/2009
Boa tarde, Assis
SELECT * FROM (SELECT DISTINCT Ref FROM MoveisFeitos WHERE Descricao=Modelo AND Tipo=txtTipo) ORDER BY CLng(mid(Ref,5)) asc
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- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Obrigado Alexandre
Mas nem todas as "Refs" Tem o mesmo número de "Letras"
Bom domingo
Mas nem todas as "Refs" Tem o mesmo número de "Letras"
Bom domingo
.................................................................................
*** Só sei que nada sei ***
Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8496
Registrado : 05/11/2009
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
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- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Bom dia Amigos e BOM NATAL
Para testar com dados.
Obrigado
Para testar com dados.
Obrigado
.................................................................................
*** Só sei que nada sei ***
Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8496
Registrado : 05/11/2009
Boa tarde, Assis
Coloca a função num módulo e verifica o resultado
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- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Boa tarde, Alexandre
Perfeito ,,, Obrigado
Bom Natal
Perfeito ,,, Obrigado
Bom Natal
.................................................................................
*** Só sei que nada sei ***
Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8496
Registrado : 05/11/2009
Obrigado, Assis
Santo Natal também
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
» Criar caixa de combinação que filtre outra caixa de combinação
» [Resolvido]Criar nova cx. de combinação ao escolher dados em outra cx. de combinação
» [Resolvido]Criar caixa de combinação com relatórios
» [Resolvido]Criar uma caixa de combinação em formulário simples.
» [Resolvido]Caixa de Combinação inserido dados na Caixa de Texto
» [Resolvido]Criar nova cx. de combinação ao escolher dados em outra cx. de combinação
» [Resolvido]Criar caixa de combinação com relatórios
» [Resolvido]Criar uma caixa de combinação em formulário simples.
» [Resolvido]Caixa de Combinação inserido dados na Caixa de Texto