Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
527 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【11277】フォームをクエリのフィルタを使って開く場合について koppe 09/12/9(水) 20:13 質問[未読]
【11280】Re:フォームをクエリのフィルタを使って開... 小僧 09/12/10(木) 9:57 回答[未読]
【11287】Re:フォームをクエリのフィルタを使って開... koppe 09/12/11(金) 8:08 質問[未読]
【11288】Re:フォームをクエリのフィルタを使って開... cocoa 09/12/11(金) 10:32 発言[未読]
【11293】Re:フォームをクエリのフィルタを使って開... koppe 09/12/12(土) 9:51 お礼[未読]
【11277】フォームをクエリのフィルタを使って開く...
質問  koppe E-MAIL  - 09/12/9(水) 20:13 -
引用なし
パスワード
   クエリ名　名簿
ID
氏名
点数
３つのフィールドがあります。
フォーム名　フォーム１
フォームのコマンドボタンをクリックすると、フォーム１を開く
ただし、氏名を選んでその人だけの平均の点数を抽出したいのですが
下のＶＢＡだとエラーになります。
何が間違っているのか教えてください。

Private Sub コマンド2_Click()

Me!テキスト0 = DAvg("点数", "名簿","氏名='"&Me!氏名&"'")

End Sub
氏名に１０人いたとして、そのうちの１人を抽出して、点数の平均値を求める
出来ましたら、ＶＢＡを直していただければ大変助かります
よろしくお願いいたします。
【11280】Re:フォームをクエリのフィルタを使って...
回答  小僧  - 09/12/10(木) 9:57 -
引用なし
パスワード
   ▼koppe さん：
こんにちは。

>下のＶＢＡだとエラーになります。

どのようなエラーが出ているのでしょうか。
こちらの掲示板に写した時のタイプミスでなければ
いくつかスペースが欠けていますね。

> >Me!テキスト0 = DAvg("点数", "名簿","氏名='"&Me!氏名&"'")

Me!テキスト0 = DAvg("点数", "名簿", "氏名='" & Me!氏名 & "'")
【11287】Re:フォームをクエリのフィルタを使って...
質問  koppe E-MAIL  - 09/12/11(金) 8:08 -
引用なし
パスワード
   ありがとうございました。解決いたしました。
ACCESSの初心者なのでいろいろ教えてください。
2個の条件を設定して平均値を求めるＶＢＡの式ですが
テキスト1とテキスト2に条件を入力して、コマンドボタン3をクリックすると、結果をテキスト3にかえす。

Private Sub コマンド3_Click()

If IsNull(Me!テキスト1) Then

Me!テキスト3 = DAvg("点数","名簿")

Else

Me!テキスト3 =Davg("点数","名簿", "氏名='" & Me!テキスト1 & "' And 学科='" &Me!テキスト2 & "'")
End If
End Sub

訳ですが、どうしても構文エラーになります。
エラー文章
　エラーコメント　
実行時エラー　３０７５
クエリ式　氏名＝山本太郎,　And学科＝国語の構文エラー
演算子がありません。

こんなエラーになります、どこが間違っているのでしょうか
出来ましたら、ＶＢＡの修正コードを書いて教えてもらえないじょうか。
よろしくお願いいたします。
【11288】Re:フォームをクエリのフィルタを使って...
発言  cocoa  - 09/12/11(金) 10:32 -
引用なし
パスワード
   ▼koppeさん
And学科が怪しいような。
【11293】Re:フォームをクエリのフィルタを使って...
お礼  koppe E-MAIL  - 09/12/12(土) 9:51 -
引用なし
パスワード
   ▼cocoa さん：
>▼koppeさん
>And学科が怪しいような。
小僧さんcocoaさんありがとうございました
Andと学科の間に半角スペースを入れたら解決しました。
VBAはしびやですね、本当に助かりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
527 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078195
(SS)C-BOARD v3.8 is Free