1. Komut butonunun (Komut18) tıklandığında olayına aşağıdaki kodu yaz.

Private Sub Komut18_Click()

If Me.Komut18.Caption = "ARTAN" Then

    Form.RecordSource = "SELECT tblgelenmal.id, tblgelenmal.urun, tblgelenmal.gelisadet, tblgelenmal.gelisfiyati, tblgelenmal.gelistarihi, tblgelenmal.satisadet, tblgelenmal.satisfiyati FROM tblgelenmal WHERE (((tblgelenmal.gelisadet)<>[satisadet])) ORDER BY tblgelenmal.urun;"

    Me.Komut18.Caption = "AZALAN"

Else

    Form.RecordSource = "SELECT tblgelenmal.id, tblgelenmal.urun, tblgelenmal.gelisadet, tblgelenmal.gelisfiyati, tblgelenmal.gelistarihi, tblgelenmal.satisadet, tblgelenmal.satisfiyati FROM tblgelenmal WHERE (((tblgelenmal.gelisadet)<>[satisadet])) ORDER BY tblgelenmal.urun DESC;"

    Me.Komut18.Caption = "ARTAN"

End If

End Sub

Diğer butonlara da sıralanacak alana göre Sql kodunu değiştirmen gerekli.

sıralanacak alana göre koddaki ORDER BY tblgelenmal.urun; kısmındaki urun değişecek.