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.