質問編集履歴
2
更新した
test
CHANGED
File without changes
|
test
CHANGED
@@ -66,10 +66,10 @@
|
|
66
66
|
'空白チェック
|
67
67
|
If sort(sql - 1) = "昇順" Then
|
68
68
|
'昇順
|
69
|
-
order
|
69
|
+
orderByFunction = " ORDER BY 年齢"
|
70
70
|
ElseIf sort(sql - 1) = "降順" Then
|
71
71
|
'降順
|
72
|
-
order
|
72
|
+
orderByFunction = " ORDER BY 年齢 DESC"
|
73
73
|
End If
|
74
74
|
End If
|
75
75
|
End If
|
@@ -79,10 +79,10 @@
|
|
79
79
|
'空白チェック
|
80
80
|
If sort(sql - 1) = "昇順" Then
|
81
81
|
'昇順
|
82
|
-
order
|
82
|
+
orderByFunction = " ORDER BY 金額"
|
83
83
|
ElseIf sort(sql - 1) = "降順" Then
|
84
84
|
'降順
|
85
|
-
order
|
85
|
+
orderByFunction = " ORDER BY 金額 DESC"
|
86
86
|
End If
|
87
87
|
End If
|
88
88
|
End If
|
1
自分が改変したところ
test
CHANGED
File without changes
|
test
CHANGED
@@ -10,45 +10,43 @@
|
|
10
10
|
|
11
11
|
```access
|
12
12
|
Private Sub 検索btn_Click()
|
13
|
-
'
|
13
|
+
'引数1は2、引数2は3
|
14
14
|
'初期化
|
15
|
-
Dim select句 As String
|
16
15
|
select句 = "SELECT *"
|
17
|
-
Dim where
|
16
|
+
Dim where As String
|
18
17
|
Dim orderby As String
|
19
|
-
orderby = ""
|
20
|
-
Dim groupby
|
18
|
+
Dim groupby As String
|
21
19
|
|
22
20
|
'グループ化
|
23
21
|
Dim group(2) As String
|
24
22
|
group(0) = "選択してください"
|
25
|
-
group(1) = "
|
23
|
+
group(1) = "名前"
|
26
|
-
group(2) = "
|
24
|
+
group(2) = "性別"
|
27
25
|
|
28
|
-
'
|
26
|
+
'名前検索
|
29
|
-
If IsNull(
|
27
|
+
If IsNull(名前) = False Then
|
30
28
|
'空白チェック
|
31
|
-
where
|
29
|
+
where = " WHERE 名前 LIKE '*" & a & "*'"
|
32
30
|
End If
|
33
31
|
'金額並べ替え
|
34
|
-
orderby =
|
32
|
+
orderby = function(引数1, 引数2)
|
35
33
|
Debug.Print "a : " & orderby
|
36
34
|
'グループ化
|
37
35
|
If IsNull(グループ化) = False Then
|
38
36
|
If group(グループ化 - 1) <> "選択してください" Then
|
39
37
|
'空白チェック
|
40
|
-
If group(グループ化 - 1) = "
|
38
|
+
If group(グループ化 - 1) = "名前" Then
|
41
|
-
'
|
39
|
+
'名前別のグループ化
|
42
|
-
groupby
|
40
|
+
groupby = " GROUP BY 名前"
|
43
|
-
ElseIf group(グループ化 - 1) = "
|
41
|
+
ElseIf group(グループ化 - 1) = "性別" Then
|
44
|
-
'
|
42
|
+
'性別別のグループ化
|
45
|
-
groupby
|
43
|
+
groupby = " GROUP BY 性別"
|
46
44
|
End If
|
47
|
-
select
|
45
|
+
select = "SELECT *
|
48
46
|
End If
|
49
47
|
End If
|
50
|
-
Debug.Print "SQL : " & select
|
48
|
+
Debug.Print "SQL : " & select & " FROM table" & where & groupby & orderby & ";"
|
51
|
-
Me.RecordSource = select
|
49
|
+
Me.RecordSource = select & " FROM table" & where & groupby & orderby & ";"
|
52
50
|
|
53
51
|
End Sub
|
54
52
|
|
@@ -68,10 +66,10 @@
|
|
68
66
|
'空白チェック
|
69
67
|
If sort(sql - 1) = "昇順" Then
|
70
68
|
'昇順
|
71
|
-
orderby = " ORDER BY
|
69
|
+
orderby = " ORDER BY 年齢"
|
72
70
|
ElseIf sort(sql - 1) = "降順" Then
|
73
71
|
'降順
|
74
|
-
orderby = " ORDER BY
|
72
|
+
orderby = " ORDER BY 年齢 DESC"
|
75
73
|
End If
|
76
74
|
End If
|
77
75
|
End If
|
@@ -94,15 +92,6 @@
|
|
94
92
|
End Function
|
95
93
|
```
|
96
94
|
|
97
|
-
```実行結果
|
98
|
-
c : [ORDER BY Min(WEB求人一覧紹介].[金額)] DESC
|
99
|
-
b : [ORDER BY Min(WEB求人一覧紹介].[金額)] DESC
|
100
|
-
a :
|
101
|
-
SQL : SELECT Min(WEB求人一覧紹介.[No]) AS No, WEB求人一覧紹介.業者名 AS 業者名, Min(WEB求人一覧紹介.募集職種) AS 募集職種, Min(WEB求人一覧紹介.掲載期間_いつから) AS 掲載期間_いつから, Min(WEB求人一覧紹介.掲載期間_いつまで) AS 掲載期間_いつまで, Min(WEB求人一覧紹介.金額) AS 金額, Min(WEB求人一覧紹介.郵便番号) AS 郵便番号, Min(WEB求人一覧紹介.都道府県) AS 都道府県, Min(WEB求人一覧紹介.住所) AS 住所, Min(WEB求人一覧紹介.電話番号) AS 電話番号, Min(WEB求人一覧紹介.FAX番号) AS FAX番号, Min(WEB求人一覧紹介.担当部署名) AS 担当部署名, Min(WEB求人一覧紹介.担当者役職名) AS 担当者役職名, Min(WEB求人一覧紹介.担当者名) AS 担当者名, Min(WEB求人一覧紹介.担当者メールアドレス) AS 担当者メールアドレス, First(WEB求人一覧紹介.備考) AS 備考 FROM WEB求人一覧紹介 GROUP BY 業者名;
|
102
|
-
|
103
|
-
|
104
|
-
```
|
105
|
-
|
106
95
|
### 試したこと
|
107
96
|
|
108
97
|
accessでユーザー定義関数を触ったことなかったので、いろいろ調べながらここまで来ました。なのですが思い通り機能してくれません。
|