Dificuldade com ORDER BY

[Iceguy]

Bom dia pesoal, estou com um probleminha pra ordenar uma consulta, pra ficar mais fácil de explicar vou usar dados de exemplo.

Tabela1

Campo1....Campo2

A...............2

B...............1

C...............5

B...............3

A...............4

Nela eu preciso ordenar pelo Campo2 mas agrupado pelo Campo1. O resultado teria que ser assim:

Campo1....Campo2

B...............1

B...............3

A...............2

A...............4

C...............5

Ou seja, se o B tem o menor número traz todos os valores de B ordenados, depois parte para o próximo, que no caso seria A, etc...

[Alexandre Neves]

Boa tarde, Iceguy

'Crie uma tabela auxiliar, denominada tblAuxiliar, com os mesmos campos

'Execute o código seguinte

'obtém o resultado na tabela tblAuxiliar

Sub OrdenarIceguy()

'criado por Alexandre Neves

'em 2011-02-20

'para Iceguy

'do fórum ScripBrasil

Dim Rst1 As DAO.Recordset, Rst2 As DAO.Recordset

CurrentDb.Execute "DELETE * FROM tblAuxiliar;"

Set Rst1 = CurrentDb.OpenRecordset("SELECT Campo1,campo2 FROM SuaTabela ORDER BY Campo2;")

Do While Not Rst1.EOF

If DCount("*", "tblAuxiliar", "Campo1='" & Rst1(0) & "'") = 0 Then

Set Rst2 = CurrentDb.OpenRecordset("SELECT Campo1,campo2 FROM SuaTabela WHERE Campo1='" & Rst1(0) & "' ORDER BY Campo2;")

Do While Not Rst2.EOF

CurrentDb.Execute "INSERT INTO tblAuxilar(Campo1,Campo2) VALUES ('" & Rst2(0) & "'," & Rst2(1) & ");"

Rst2.MoveNext

Loop

End If

Rst1.MoveNext

Loop

Set Rst1 = Nothing: Rst2 = Nothing

End Sub

Cumprimentos,

[Iceguy]

Queria tentar fazer direto pela query, mas vai ter que ser via codigo mesmo. Como última tentativa vou tentar criar um campo na query de ordem, daí ordeno por ele ver se funciona

Mas valeu pela ajuda