質問編集履歴

2

更新した

2022/10/06 09:26

投稿

syosinsya109
syosinsya109

スコア41

test CHANGED
File without changes
test CHANGED
@@ -66,10 +66,10 @@
66
66
  '空白チェック
67
67
  If sort(sql - 1) = "昇順" Then
68
68
  '昇順
69
- orderby = " ORDER BY 年齢"
69
+ orderByFunction = " ORDER BY 年齢"
70
70
  ElseIf sort(sql - 1) = "降順" Then
71
71
  '降順
72
- orderby = " ORDER BY 年齢 DESC"
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
- orderby = " ORDER BY 金額"
82
+ orderByFunction = " ORDER BY 金額"
83
83
  ElseIf sort(sql - 1) = "降順" Then
84
84
  '降順
85
- orderby = " ORDER BY 金額 DESC"
85
+ orderByFunction = " ORDER BY 金額 DESC"
86
86
  End If
87
87
  End If
88
88
  End If

1

自分が改変したところ

2022/10/06 09:24

投稿

syosinsya109
syosinsya109

スコア41

test CHANGED
File without changes
test CHANGED
@@ -10,45 +10,43 @@
10
10
 
11
11
  ```access
12
12
  Private Sub 検索btn_Click()
13
- 'グループ化は2、金額_並べ替えは3
13
+ '引数1は2、引数2は3
14
14
  '初期化
15
- Dim select句 As String
16
15
  select句 = "SELECT *"
17
- Dim where As String
16
+ Dim where As String
18
17
  Dim orderby As String
19
- orderby = ""
20
- Dim groupby As String
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(業者serch) = False Then
27
+ If IsNull(名) = False Then
30
28
  '空白チェック
31
- where = " WHERE 業者名 LIKE '*" & 業者名serch & "*'"
29
+ where = " WHERE 名 LIKE '*" & a & "*'"
32
30
  End If
33
31
  '金額並べ替え
34
- orderby = orderByFunction(グループ化, 金額_並べ替え)
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) = "業者" Then
38
+ If group(グループ化 - 1) = "名" Then
41
- '業者名別のグループ化
39
+ '名別のグループ化
42
- groupby = " GROUP BY 業者名"
40
+ groupby = " GROUP BY 名"
43
- ElseIf group(グループ化 - 1) = "募集職種別" Then
41
+ ElseIf group(グループ化 - 1) = "別" Then
44
- '募集職種別のグループ化
42
+ 'のグループ化
45
- groupby = " GROUP BY 募集職種"
43
+ groupby = " GROUP BY 性別"
46
44
  End If
47
- select = "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 備考"
45
+ select = "SELECT *
48
46
  End If
49
47
  End If
50
- Debug.Print "SQL : " & select & " FROM WEB求人一覧紹介" & where & groupby & orderby & ";"
48
+ Debug.Print "SQL : " & select & " FROM table" & where & groupby & orderby & ";"
51
- Me.RecordSource = select & " FROM WEB求人一覧紹介" & where & groupby & orderby & ";"
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 Min(WEB求人一覧紹介.金額)"
69
+ orderby = " ORDER BY 年齢"
72
70
  ElseIf sort(sql - 1) = "降順" Then
73
71
  '降順
74
- orderby = " ORDER BY Min(WEB求人一覧紹介.金額) DESC"
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でユーザー定義関数を触ったことなかったので、いろいろ調べながらここまで来ました。なのですが思い通り機能してくれません。