![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.3ベストアンサー
- 回答日時:
テーブル名をテーブル1として、
UPDATE テーブル1 SET テーブル1.判定 = IIf([頁数]>=0 And [頁数]<90,0,IIf([頁数]>=90 And [頁数]<100,90,100));
または、
UPDATE テーブル1 SET テーブル1.判定 = IIf([頁数]>=0 And [頁数]<90,0,70);
または、
UPDATE テーブル1 SET テーブル1.判定 = funcAAA([頁数]);
のような更新クエリを作成します。
クエリのデザインビューでは、
フィールド|判定
テーブル|テーブル1
レコードの更新|IIf([頁数]>=0 And [頁数]<90,0,IIf([頁数]>=90 And [頁数]<100,90,100))
または、
フィールド|判定
テーブル|テーブル1
レコードの更新|IIf([頁数]>=0 And [頁数]<90,0,70)
または、
フィールド|判定
テーブル|テーブル1
レコードの更新|funcAAA([頁数])
のようになっています。
この度は丁寧に教えていただきありがとうございました。
あとは工夫して自分なりにやりたいと思います。
また分からない場合はご教授願います。
No.2
- 回答日時:
No1の返す値が違っていたようです。
Function funcAAA(num As Long) As Long
If num >= 0 And num < 90 Then
funcAAA = 0
End If
If num >= 90 And num <= 100 Then
funcAAA = 70
End If
End Function
クエリの判定2のところを以下。
判定2: IIf([データ]>=0 And [データ]<90,0,IIf([データ]>=90 And [データ]<=100,70,90))
あるいは、
判定2: IIf([データ]>=0 And [データ]<90,0,70)
No1ともども検討してみてください。
No.1
- 回答日時:
方法はいろいろありますが。
以下を標準モジュールに貼り付け、保存します。
Function funcAAA(num As Long)
If num >= 0 And num < 90 Then
funcAAA = 0
End If
If num >= 90 And num < 100 Then
funcAAA = 90
End If
If num >= 100 Then
funcAAA = 100
End If
End Function
Ifの連荘ではなく、Select Caseを
使う方法もありますが、一応ベタなところで。
次に、クエリを作成します。
テーブルの名前をテーブル1、データを
表示しているフィールドをデータとします。
SELECT テーブル1.データ, funcAAA([データ]) AS 判定
FROM テーブル1;
のようにして判定を表示します。
自作関数の代わりにIIfの入れ子で対応する方法も
ありますが、データの範囲が今ひとつわからないので、
IIfの入れ子とfuncAAAの両方を使った方法を以下に
表示しておきます。
SELECT テーブル1.データ, funcAAA([データ]) AS 判定1, IIf([データ]>=0 And [データ]<90,0,IIf([データ]>=90 And [データ]<100,90,100)) AS 判定2
FROM テーブル1;
この回答への補足
prioin654さん早速ありがとうございます。
仮にテーブルを作るとして、
書名 頁数 判定
とした場合に、頁数に"95"を入れた場合に"70"が判定に入るようにしたいのですが、可能でしょうか。
何分素人です、よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) EXCELの外部データ取得ができない 1 2023/03/23 09:03
- Access(アクセス) Accessクエリで年月フィールドを年のみで抽出する方法について 2 2022/08/29 18:10
- 統計学 統計学、エクセルがわかりません!解答と詳しい解説をお願いします! (1)それぞれの地域別に記述統計量 9 2022/08/21 16:30
- WordPress(ワードプレス) ワードプレスの403エラーについて 2 2023/03/06 14:38
- Access(アクセス) 本日、会社のパソコンでAccessを開いたとき ウイルス警告のようなものが出ていました。 毎日Acc 3 2022/10/18 23:33
- Access(アクセス) Accessテキストボックス内に2つのフィールドの値を比較して大きい方の値を表示させる方法 1 2022/09/09 10:50
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- JavaScript jQueryローディングアニメーションのコードの以下のURL内参考サイトで提示されている 3 2023/07/03 18:29
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Access(アクセス) お世話になります ACCESSを使用しています 下記のクエリデータ(1)があります 商品名 行数 A 1 2022/09/05 08:52
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessクエリーで両方のテーブ...
-
Accessのクエリでデータの入力...
-
Excel→Accessへ貼り付けがおかしい
-
Accessファイルを作成者以外は...
-
Accessのリンクテーブルのパス...
-
ACCESSのサブフォームでの既定...
-
GETPIVOTDATAを使...
-
EXCEL データテーブルの数字を...
-
ORACLEでINSERT処理が遅い
-
AccessからExcelのデータを消す...
-
アクセスのコンボボックスのデ...
-
アクセス2000でデータが抽出さ...
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Accessでテーブル名やクエリ名...
-
Accessでテーブルの値をテキス...
-
Access 昇順・降順で並び替え...
-
ACCESSのクエリで集計で、先頭...
-
Accessのフィールド数が255しか...
-
作番ってどういう意味でしょうか?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのクエリでデータの入力...
-
Accessのリンクテーブルのパス...
-
Accessクエリーで両方のテーブ...
-
Excel→Accessへ貼り付けがおかしい
-
Accessファイルを作成者以外は...
-
Accessのことで教えてください...
-
AccessのDBを理解するコツは?
-
GETPIVOTDATAを使...
-
アクセスのコンボボックスのデ...
-
AccessのクエリをExc...
-
Access 旧データを新データに入...
-
EXCEL データテーブルの数字を...
-
AccessからExcelのデータを消す...
-
EXCELからSharepointデータを参照
-
グラフとデータテーブルの順序...
-
ExcelデータをAccessにてリンク...
-
what-if分析ツールのデータテー...
-
Accessでオートナンバーの値を...
-
Excel2007のデータテーブルボタ...
-
ACCESSデータを削除してしまい...
おすすめ情報