
No.3
- 回答日時:
k_ebaさんからの回答があって恐縮なのですが作ってしまったのでアップします。
参照設定にMicrosoft DAO 3.6 Object Library にチェックを入れ、
以下の関数を標準モジュールに貼り付けます。
Function Kotoshi_No(Nen As Integer) As Long
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim StSQL As String
Set DB = CurrentDb
StSQL = "select count(日付) as 件数 from テーブル1 where Year(日付)=" & Nen
Set RS = DB.OpenRecordset(StSQL)
If RS.EOF Then
Kotoshi_No = 0
Else
Kotoshi_No = RS!件数
End If
RS.Close
Set DB = Nothing
End Function
フォームのテキストボックスなど呼び出す側で以下のようにコントロールソースを書くと
2001年の件数が表示されます。
=kotoshi_no(2001)
尚、テーブル名、フィールド名は環境に合わせて修正してください。
No.2
- 回答日時:
フォーム上に表示されれば良いのですよね?
1.新しいクエリーを作成
1)日付は元、集計:WHERE条件、表示無し
2)年:YEAR(日付)、集計:グループ化、抽出条件はYEAR(DATE())
3)件数:[年]、集計:カウント
2.出来たクエリーを入力フォームに張付け
参考になれば幸いです
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
word2007で日付挿入したら翌日...
-
Wordで、ヘッダーに印刷日付を...
-
Word2010 フィールド内での和...
-
【Tableau Desktop】文字列から...
-
日付のデータ型について
-
Accessでデータを「間引き」す...
-
FileMaker Pro 10 で令和を表示
-
クエリで日付型のIIF関数の使用
-
挿入した日付の自動更新を中止...
-
Accessで秒を時間で表示させる...
-
日付を昇順で並び替えし、空白...
-
Wordの日付変換ってできますか?
-
ピポットテーブルの月のグルー...
-
ファイルメーカーの日付の検索
-
ファイルメーカー 実在の日付...
-
重複を除外したカウント方法を...
-
「時間」、「期日」、「日付」...
-
VBAでエクセルシートを更新...
-
差し込み印刷に当日の日付が入...
-
エクセルのチェックボックスを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
差し込み印刷で日付の曜日を表...
-
日付を差し込み印刷で表示した...
-
日付を昇順で並び替えし、空白...
-
日付がインポートされない
-
クエリで日付型のIIF関数の使用
-
Wordの日付変換ってできますか?
-
Wordで、ヘッダーに印刷日付を...
-
重複を除外したカウント方法を...
-
【Word】 今日の「年」「月」...
-
Word2010 フィールド内での和...
-
word2007で日付挿入したら翌日...
-
【Tableau Desktop】文字列から...
-
日付型のテキストボックスに数...
-
日付のデータ型について
-
Accessで秒を時間で表示させる...
-
ウィンドウィズ メモ帳で日付だ...
-
FileMaker Pro 10 で令和を表示
-
ファイルメーカーPro7でカレン...
-
ファイルメーカーで検索結果を...
-
エクセルデータをファイルメー...
おすすめ情報