Option Compare Database
Option Explicit
 
Private Sub ayarla()
 
Dim bir As String
If Me.adAZ = 0 Then
bir = "Ogrenciler.[Ogrn_Ad] DESC"
ElseIf IsNull(Me.adAZ) Then
bir = ""
Else
bir = "Ogrenciler.[Ogrn_Ad]"
End If
 
Dim iki As String
If Me.SoyadAZ = 0 Then
iki = "Ogrenciler.[Ogrn_Soyad] desc"
ElseIf IsNull(Me.SoyadAZ) Then
iki = ""
Else
iki = "Ogrenciler.[Ogrn_Soyad]"
End If
 
Dim uc As String
If Me.NoAZ = 0 Then
uc = "Ogrenciler.[Ogrn_OkulNo] desc"
ElseIf IsNull(Me.NoAZ) Then
uc = ""
Else
uc = "Ogrenciler.[Ogrn_OkulNo]"
End If
 
Dim sql As String
sql = "SELECT Ogrenciler.Ogrn_id, Ogrenciler.Ogrn_Ad, Ogrenciler.Ogrn_Soyad, Ogrenciler.Ogrn_OkulNo"
sql = sql & " FROM Ogrenciler"
 
 
Dim virBir, viriki As String
virBir = ""
viriki = ""
If (bir <> "") And (iki <> "" Or uc <> "") Then
virBir = ","
End If
If iki <> "" And uc <> "" Then
viriki = ","
End If
 
 
If bir <> "" Or iki <> "" Or uc <> "" Then
sql = sql & " ORDER BY " & bir & virBir & iki & viriki & uc & ";"
End If
 
'Call MsgBox(sql, vbCritical, Application.Name)
Me.Liste0.RowSource = sql
Me.Liste0.Requery
 
End Sub
 
Private Sub NoAZ_Click()
If Me.NoAZ = 0 Then
Me.NoAZ.Caption = "NO 9-0"
ElseIf IsNull(Me.NoAZ) Then
Me.NoAZ.Caption = "NO"
Else
Me.NoAZ.Caption = "NO 0-9"
End If
Call ayarla
End Sub
 
Private Sub adAZ_Click()
If Me.adAZ = 0 Then
Me.adAZ.Caption = "AD Z-A"
ElseIf IsNull(Me.adAZ) Then
Me.adAZ.Caption = "AD"
Else
Me.adAZ.Caption = "AD A-Z"
End If
Call ayarla
End Sub
Private Sub SoyadAZ_Click()
If Me.SoyadAZ = 0 Then
Me.SoyadAZ.Caption = "SOYAD Z-A"
ElseIf IsNull(Me.SoyadAZ) Then
Me.SoyadAZ.Caption = "SOYAD"
Else
Me.SoyadAZ.Caption = "SOYAD A-Z"
End If
Call ayarla
End Sub