FukuChan's BLOG <<ふくちゃんのブログ>>

'オプショントボタンツールでトグルボタン作成 [プショングループ名：並び替え]
'トグルボタンは2種類 【1：日付,顧客コード,CardNo 順　2：顧客コード,CarNo 順】

Dim MySQL As String

Select Case Me.並び替え
Case 1
MySQL = "SELECT 給油.* " & _
"FROM 給油 " & _
"WHERE (((給油.年月) = [Forms]![F_給油]![年月]) And ((給油.支払先) = [Forms]![F_給油]![支払先])) " & _
"ORDER BY 給油.給油日, 給油.顧客コード, 給油.CardNo;"
Case 2
MySQL = "SELECT 給油.* " & _
"FROM 給油 " & _
"WHERE (((給油.年月) = [Forms]![F_給油]![年月]) And ((給油.支払先) = [Forms]![F_給油]![支払先])) " & _
"ORDER BY 給油.顧客コード, 給油.CardNo, 給油.給油日;"
End Select
Me.給油のサブフォーム.Form.RecordSource = MySQL
Me.給油のサブフォーム.Requery