Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1795 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【5239】フォーム作成 バリュー 05/6/3(金) 15:23 質問[未読]
【5240】Re:フォーム作成 小僧 05/6/3(金) 15:52 回答[未読]
【5241】Re:フォーム作成 バリュー 05/6/3(金) 16:01 質問[未読]
【5242】Re:フォーム作成 クロ 05/6/3(金) 16:21 発言[未読]
【5244】Re:フォーム作成 バリュー 05/6/3(金) 16:43 お礼[未読]
【5245】一読してみてください。 クロ 05/6/3(金) 16:46 発言[未読]
【5246】Re:一読してみてください。 バリュー 05/6/3(金) 16:51 お礼[未読]
【5239】フォーム作成
質問  バリュー  - 05/6/3(金) 15:23 -
引用なし
パスワード
   さきほどまでやっていた操作を完成するに至らなかったので
（小僧さんごめんなさい！！）
少し前のバージョンに戻す事にしました。

自分からのお伺い[#5152]のところの処理を
違う項目で再度試みたところエラーメッセージがでました。
「”が見つかりません。パラメータや別名が正しいこと、
無効な文字や区切り記号が含まれていないこと、
または名前が長すぎないことを確認してください」

こちらにはどう対処したらよいでしょうか？
【5240】Re:フォーム作成
回答  小僧  - 05/6/3(金) 15:52 -
引用なし
パスワード
   ▼バリュー さん：
こんにちは。

>Private Sub 検索コンボ_AfterUpdate()
>　　Me.Filter = "背番号 = " & Me.検索コンボ
>　　Me.FilterOn = True
>End Sub

上のコードは「検索コンボ」が数値の時にフィルタを掛けるものです。
「検索コンボ」にあたるモノが文字列だった場合は

>　　Me.Filter = "背番号 = '" & Me.検索コンボ & "'"

のようになります。
外していたら申し訳ないです。
【5241】Re:フォーム作成
質問  バリュー  - 05/6/3(金) 16:01 -
引用なし
パスワード
   ▼小僧 さん：
度々すみません。
返信誠にありがとうございます。


>>Private Sub 検索コンボ_AfterUpdate()
>>　　Me.Filter = "背番号 = " & Me.検索コンボ
>>　　Me.FilterOn = True
>>End Sub
>上のコードは「検索コンボ」が数値の時にフィルタを掛けるものです。
>「検索コンボ」にあたるモノが文字列だった場合は
>>　　Me.Filter = "背番号 = '" & Me.検索コンボ & "'"
>のようになります。

Private Sub 発効No._AfterUpdate()
　　Me.Filter = "発行No. = '" & Me.発効No. & "'"
　　Me.FilterOn = True
End Sub

上記のように修正してみましたが、結果が変わらなかったです。。
【5242】Re:フォーム作成
発言  クロ  - 05/6/3(金) 16:21 -
引用なし
パスワード
   横レス失礼します。

フィールド/コントロール名に「.」を入れているなら
止めてください。

>　　Me.Filter = "発行No. = '" & Me.発効No. & "'"
>　　Me.FilterOn = True

たぶんその所為です。
発行No.→発行No
発効No.→発効No
に改名し、コードも書き換えてみては？
【5244】Re:フォーム作成
お礼  バリュー  - 05/6/3(金) 16:43 -
引用なし
パスワード
   ▼クロ さん：
こんにちは。
返信誠にありがとうございます。


>フィールド/コントロール名に「.」を入れているなら
>止めてください。
>>　　Me.Filter = "発行No. = '" & Me.発効No. & "'"
>>　　Me.FilterOn = True
>たぶんその所為です。
>発行No.→発行No
>発効No.→発効No
>に改名し、コードも書き換えてみては？

できました！！
改名後、コードも書き換えました。

誠にありがとうございました。
【5245】一読してみてください。
発言  クロ  - 05/6/3(金) 16:46 -
引用なし
パスワード
   フィールド、コントロール、オブジェクトや変数等の名前について
こちらが参考になりますので、一読してみてください。
http://ww3.tiki.ne.jp/~kaya/Ac_tips.html#Tips0_001
【5246】Re:一読してみてください。
お礼  バリュー  - 05/6/3(金) 16:51 -
引用なし
パスワード
   ▼クロ さん：

>フィールド、コントロール、オブジェクトや変数等の名前について
>こちらが参考になりますので、一読してみてください。
>http://ww3.tiki.ne.jp/~kaya/Ac_tips.html#Tips0_001

見てみました。
ご親切感謝です！！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1795 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1084358
(SS)C-BOARD v3.8 is Free