And can you tell me the way I can do this,because this is my code in order Clause:Alternatively you could replace the accented characters with their non-accented version in the Order By clause.
VB Code:
Private Sub Option1_Click(Index As Integer) Dim aSQL As String aSQL = "Select * from exposicao " If Index = 1 Then aSQL = aSQL & " ORDER BY registo" If Index = 2 Then aSQL = aSQL & " ORDER BY expositor" If Index = 3 Then aSQL = aSQL & " ORDER BY n_socio" If Index = 4 Then aSQL = aSQL & " ORDER BY stamfpo" If Index = 5 Then aSQL = aSQL & " ORDER BY stamfocip" If Index = 6 Then aSQL = aSQL & " ORDER BY nomesocio" Set rsexposicao = db.OpenRecordset(aSQL) Set Data1.Recordset = rsexposicao End Sub
Thanks




Reply With Quote