[Resolvido]Ordem alfabética vários campos

Saudações,

Possuo uma tabela com o nome de Automoveis.

Um automóveis tem várias peças, dentre eles Farois, Rodas, Retrovisores e Motores.

Cada automóvel tem um desses.

Logo, a tabela possui:

tblAutomoveis:

ID
Nome
ID_Farol
ID_Rodas
ID_Retrovisor
ID_Motor

Relacionados com as respectivas tabelas.
Criei uma consulta que traz os automóveis e essas peças com os valores de texto, sem ser pelo ID.

Quero criar um relatório que traga a lista dessas peças daquele veículo em ORDEM alfabética entre essas peças do campo.

Ex: Carro1
Farol: Farol A
Motor: H1
Retrovisor: Retrovisor X
Roda: Roda X

O farol vem em primeiro por começar por F, sendo que o motor começa com H, que o leva a ir a segundo, e assim respectivamente.

Alguma sugestão?



Resumindo:

As peças em ordem crescente desses campos para AQUELE Registro.

Boa noite, Marcelo
Explique melhor a sua dúvida, pois não vi ligação no enunciado.

Tenho 3 campos:

Motor

Roda

Farol


Vamos supor que o motor do registro começa com a letra Z, o nome da Roda começa com a letra A, e o farol com a letra C.

A lista no relatório será:

Veículo A

Nome da roda
Nome do farol
Nome do motor

Porque a roda começa com A, então vai ficar em cima.

Bom dia,
E em, cada registo que altere, altera a ordem de exibição?

Sim, para cada cliente a ordem será diferente, a partir da suas peças.

Terá de trabalhar a nível de registo, através de DAO/ADO

Pode me dar mais alguma pista?


Pesquisei sobre nível de registro dao/ado e não achei algo que me ajudasse,

Falta o arquivo para testar, mas tente o seguinte.
Crie a consulta abaixo:

SELECT [Nome], "Veiculo" AS campo, 0 AS dado FROM tblAutomoveis
UNION ALL SELECT [Nome], "Farol" AS campo, ID_Farol AS dado FROM tblAutomoveis
UNION ALL SELECT [Nome], "Rodas" AS campo, ID_Rodas AS dado FROM tblAutomoveis
UNION ALL SELECT [Nome], "Retrovisor" AS campo, ID_Retrovisor AS dado FROM tblAutomoveis
UNION ALL SELECT [Nome], "Motor" AS campo, ID_Motor AS dado FROM tblAutomoveis

Salve como "Base", por exemplo.

Depois, uma outra consulta:

SELECT [Nome], campo, dado FROM Base GROUP BY [Nome], campo, dado ORDER BY [Nome], dado

Seria mais ou menos esse o resultado que está buscando?

Agradeço-lhe, Cláudio Más.

Só vi a respota agora, estarei testando o código e retorno!

Consegui pelo UNION mesmo, só que agora quero colocar em 4 textboxes o nome de cada um dos 4 primeiros listados da consulta.

Não tem o campo de ID na consulta, então não consegui.


Tentei o SELECT TOP 1 na textbox mas não funcionou. Acredito que seja algum Dlookup ou algo do tipo.

Como faço pra pegar o primeiro da consulta?
O segundo da consulta?
O terceiro da consulta?
O quarto da consulta?

Como ficou a consulta?

Como eu coloquei o critério do veiculo do formulario atual, ele só traz na consulta as 4 peças dele em ordem alfabética, o que está certo.

A consulta apenas tem o campo:

[Peça]
Peça1
Peça2
Peça3
Peça4

Como pego o nome da primeira peça e colocar em uma caixa de texto do formulário?

Você não disse como ficou a estrutura da consulta...

Código:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT TOP 1 Peça FROM SuaConsulta")
 
If Not rs.EOF Then Forms!NomeForm!NomeCaixaTexto = rs!Peça
rs.Close

Poderia também usar nesse caso o DLookUp(), mas se precisar buscar outros registros da consulta, só vai precisar adaptar o código.

Como posso fazer sem Dlookup?


O que eu apenas quero é botar na primeira caixa de texto do relatório o primeiro valor da consulta, na segunda caixa de texto o segundo valor da consulta...


Por exemplo, a primeira linha da consulta, a segunda linha da consulta.

Lembrando que na consulta não tem o ID automático.

Agradeço-lhe, Cláudio.

No evento Ao abrir do relatório:

Código:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT Peça FROM SuaConsulta")
 
If Not rs.EOF Then
    Me!NomeCaixaTexto1 = rs!Peça
    rs.MoveNext
End If

If Not rs.EOF Then
    Me!NomeCaixaTexto2 = rs!Peça
    rs.MoveNext
End If

If Not rs.EOF Then
    Me!NomeCaixaTexto3 = rs!Peça
    rs.MoveNext
End If

If Not rs.EOF Then Me!NomeCaixaTexto4 = rs!Peça

rs.Close

Resolvido este, resolvido.

Agradeço-lhe pela ajuda, Cláudio.