Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2051 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【4084】テーブルについて ＲＯＭＩ 05/1/7(金) 3:32 質問[未読]
【4085】Re:テーブルについて MJM 05/1/7(金) 9:35 回答[未読]
【4090】ありがとうございます。 ＲＯＭＩ 05/1/8(土) 0:08 質問[未読]
【4091】訂正 ＲＯＭＩ 05/1/8(土) 0:10 質問[未読]
【4098】Re:訂正 かろちん 05/1/9(日) 20:16 回答[未読]
【4106】Re:訂正 MJM 05/1/11(火) 9:31 回答[未読]
【4108】ありがとうございます！！！！！！！！ ＲＯＭＩ 05/1/11(火) 10:45 お礼[未読]
【4084】テーブルについて
質問  ＲＯＭＩ  - 05/1/7(金) 3:32 -
引用なし
パスワード
   テーブルから年と月が一致なかったら新規レコードを追加するということをしたいのですが、頭が固くてどーにもうまくプログラムを作れません。

年は「NNen」、月は「TTuki」という風にフィールドがあります。
---------------------------------------------------------------
　NNen　 TTuki

　2004　　　12
　2005　　　 1
　2005　　　 2
　2005　　　 3
---------------------------------------------------------------
という感じでデータが入っていて、今私がやろうとしていることは、現在の年と月が入っていなければ、現在の年と月をレコードに追加するということですが、もし今が2005年の3月だったら、年を先に見に行って、「2005」が見つかったら、次に「3」を探さなくてはいけなくて、Ｃ言語だったら二次元配列で簡単に処理できるけれど、ＶＢは始めたばかりなのでよくわかりません。
よろしくお願いします。
【4085】Re:テーブルについて
回答  MJM  - 05/1/7(金) 9:35 -
引用なし
パスワード
   こんにちは。

方法は、いくつかありますが、
DCount関数を用いては如何でしょうか。

DCount("*","テーブル名","NNen = " & Year(Date()) & " AND TTuki = " & Month(Date())
【4090】ありがとうございます。
質問  ＲＯＭＩ  - 05/1/8(土) 0:08 -
引用なし
パスワード
   処理の仕方がわかったのですが、カウント数を「変数ｉ」に入れたいのですが、

i = DCount("*", "年月", "[Nen] = " & Year(Date) & " AND [Tuki] = " & Month(Date))

となると、「抽出条件でデータ型が一致しません」となってしまい、何が違うのかがわかりません。申し訳ありませんが、もう一度一緒に考えてもらっていいでしょうか？お願いします。
【4091】訂正
質問  ＲＯＭＩ  - 05/1/8(土) 0:10 -
引用なし
パスワード
   あと、フィールド名を、Nen　と　Tuki　になおしました。
【4098】Re:訂正
回答  かろちん  - 05/1/9(日) 20:16 -
引用なし
パスワード
   横から失礼致します。

ＲＯＭＩさん　こんばんは

>処理の仕方がわかったのですが、カウント数を「変数ｉ」に入れたいのですが、
>i = DCount("*", "年月", "[Nen] = " & Year(Date) & " AND [Tuki] = " & Month(Date))
>となると、「抽出条件でデータ型が一致しません」となってしまい、何が違うのかがわかりません

年月テーブルのフィールド(NENとTUKI)は、数値型になっていますか？
【4106】Re:訂正
回答  MJM  - 05/1/11(火) 9:31 -
引用なし
パスワード
   > i = DCount("*", "年月", "[Nen] = " & Year(Date) & " AND [Tuki] = " & Month(Date))

Nen と Tuki フィールドが、テキスト型の場合は、

i = DCount("*", "年月", "[Nen] = '" & Year(Date) & "' AND [Tuki] = '" & Month(Date) & "'")

などとする必要がありますが、如何でしょう。
【4108】ありがとうございます！！！！！！！！
お礼  ＲＯＭＩ  - 05/1/11(火) 10:45 -
引用なし
パスワード
   お二人からの指摘どおり、テーブルのフィールドが数値型じゃなくテキスト型になっていました！
本当にありがとうございます。
これを応用して、テーブルのさまざまな更新に使えるので、本当に助かりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2051 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1081089
(SS)C-BOARD v3.8 is Free