Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

68 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【11951】Re:ﾃｷｽﾄﾎﾞｯｸｽとｺﾝﾎﾞﾎﾞｯｸｽの連動

よろずや - 11/2/7(月) 21:05 -


	引用なし

	パスワード

▼めぐおさん：
>大変ありがたいのですが、私のやりたいことではないようです・・・。

おやりになりたいことが、伝わってきません。
もうすこし具体的に説明しないと、有用な回答は得られないでしょう。

・ツリー全体表示


	【11950】Re:ﾃｷｽﾄﾎﾞｯｸｽとｺﾝﾎﾞﾎﾞｯｸｽの連動

雅 - 11/2/7(月) 10:55 -


	引用なし

	パスワード

雅です。

テキストボックスに入力したものでコンボボックスの内容を
絞り込むんじゃないんですか？

・ツリー全体表示


	【11949】Re:ﾃｷｽﾄﾎﾞｯｸｽとｺﾝﾎﾞﾎﾞｯｸｽの連動

めぐお - 11/2/7(月) 10:12 -


	引用なし

	パスワード

▼雅さん：
ご回答ありがとうございます。

大変ありがたいのですが、私のやりたいことではないようです・・・。

すみません。

・ツリー全体表示


	【11948】Re:ﾃｷｽﾄﾎﾞｯｸｽとｺﾝﾎﾞﾎﾞｯｸｽの連動

雅 - 11/2/5(土) 0:17 -


	引用なし

	パスワード

雅です。

こんな感じのことですかね？
www.miyabi-homeserver.net/program/technic/technic.php?Category=1&Topic=16

・ツリー全体表示


	【11947】Re:ﾃｷｽﾄﾎﾞｯｸｽとｺﾝﾎﾞﾎﾞｯｸｽの連動

めぐお - 11/2/4(金) 16:21 -


	引用なし

	パスワード

補足します。

T01分類マスターには[分類CD]、[正式分類名]、[分類名]とあり、
検索するワードは正式分類名の中に入っており、
テキストボックスのワードが［正式分類名］と一部一致で
コンボボックスに［分類名］を表示させたいということです。

・ツリー全体表示


	【11946】ﾃｷｽﾄﾎﾞｯｸｽとｺﾝﾎﾞﾎﾞｯｸｽの連動

めぐお - 11/2/4(金) 15:16 -


	引用なし

	パスワード

いつもお世話になっております。

このようなことをやってみたいのですが、
調べてもわからなかったので、教えてください。

XP　Access2003を使用しています。

1.ﾃｷｽﾄﾎﾞｯｸｽに入力された文字の中から任意の文字を部分一致で検索
　(検索文字が多数あります。）
2.その文字があったら、ｺﾝﾎﾞﾎﾞｯｸｽの選択肢を減らす。

ｺﾝﾎﾞﾎﾞｯｸｽはT01分類マスターを使用しています。
ﾃｷｽﾄﾎﾞｯｸｽへの検索文字は"銀行"、"信用金庫"、"信用組合"他があり、
銀行が含まれていたら、ｺﾝﾎﾞﾎﾞｯｸｽは"MB"、"BK"、"2B"を選択肢にする。
信用金庫が含まれていたら、ｺﾝﾎﾞﾎﾞｯｸｽに"信金"を表示する。

というようなかたちにしたいのです。

自分で作ったものを載せて教えてもらうのが、常識かと思いますが、
試行錯誤のうえ、たどり着けませんでしたので
申し訳ないですが、最初から教えてください。
宜しくお願いいたします。

・ツリー全体表示


	【11945】Re:ハイパーリンクでシート名指定

さつき - 11/1/27(木) 23:03 -


	引用なし

	パスワード

▼YU-TANG さん
ご回答ありがとうございます。

>先頭に「#」が足りません。
ご指摘の通りに追加しましたら、リンクできました。
ありがとうございました。

>とりあえず下記あたりを熟読してみてはいかがでしょうか。
>ハイパーリンクについて - Access - Microsoft Office
>ht tp://office.microsoft.com/ja-jp/access-help/HP005188817.aspx
こちらに詳しく書かれているのですね。これから参考にします。
YU-TANG さんのサイトはいつも参考にさせていただいております。
本当に助かっています。これからもよろしくお願いいたします。

・ツリー全体表示


	【11944】Re:ハイパーリンクでシート名指定

YU-TANG - 11/1/27(木) 9:02 -


	引用なし

	パスワード

先頭に「#」が足りません。
とりあえず下記あたりを熟読してみてはいかがでしょうか。

ハイパーリンクについて - Access - Microsoft Office
ht tp://office.microsoft.com/ja-jp/access-help/HP005188817.aspx

・ツリー全体表示


	【11943】ハイパーリンクでシート名指定

さつき - 11/1/26(水) 22:57 -


	引用なし

	パスワード

こんばんは、さつきと申します。

テーブルのフィールドにハイパーリンク型を設定し、
コードで自動的にリンク先を入力して行きたいのですが、
シートも指定しないといけません。
手入力で下記のように入れてみましたが、リンクを開いてくれません。
ヘルプでも探してみましたが、上手く見つけられませんでした。
C:\テスト.xls#sheet2!A1

どのように入力したらいいでしょうか？
どなたかご教示お願いいたします。

・ツリー全体表示


	【11942】Re:帳票フォームと単票フォームの連携

さつき - 11/1/26(水) 20:31 -


	引用なし

	パスワード

▼雅さん
ご回答ありがとうございます。

>よろずやさんとのやり取りをざっと見ましたがやりたいことが
>いまいちつかめません。
>さつきさんもいまいち整理できていないのではないですか？
>いま一度何をしたいか整理されてはいかがでしょう？

説明の仕方が悪かったようで、伝え切れなくて申し訳ありません。
やりたかったことは、帳票フォームで検索した後、
その中から特定のデータを選択して単票フォームで詳細を表示したいのですが、
その単票側でも、帳票フォームで検索した後の絞り込んだデータだけを
詳細確認していきたかったのです。
似たような目的のサンプルを見つけて、下記のようにしてみたら上手く行きました。

帳票フォームでの検索

Private Sub setfilter()

Dim strfilter As String
Dim ctl As Access.Control

For Each ctl In Me.Section(acHeader).Controls
if ctl.ControlType = Access.acCheckBox
　If ctl.Value Then
　 strfilter = strfilter & " and 資料名 like '*" & ctl.Controls.tag & "*'"
　End If
End if
Next

Me.Filter = mid(strfilter,6)
Me.FilterOn = true

単票フォームを表示するボタンのクリックイベント
Dim rs As DAO.Recordset

DoCmd.OpenForm "単票フォーム", , , Me.Filter
Set rs = Forms!単票フォーム.Recordset.Clone
rs.FindFirst "連番 = '" & Me!連番.Value & "'"
Forms!単票フォーム.Bookmark = rs.Bookmark
Set rs = Nothing

まだ質問したいことが他にありますので、その際もよろしくお願いします。

・ツリー全体表示


	【11941】Re:帳票フォームと単票フォームの連携

さつき - 11/1/26(水) 20:16 -


	引用なし

	パスワード

▼よろずやさん：
ご回答ありがとうございます。

>単票フォームで何をしたいのでしょう？
>よく判りません。
>1レコードだけ表示したいという話ですか？
>それなら、変数strfilter なんて使わずに
>フィルターに連番をセットするだけでいいと思うのですが。
説明の仕方が悪く、やりたいことが伝わっていなかったようで
申し訳ありません。
RecordsetCloneについて調べているうちに
同じ目的のサンプルを見つけました。
↓
Dim rs As DAO.Recordset

DoCmd.OpenForm "単票フォーム", , , Me.Filter
Set rs = Forms!単票フォーム.Recordset.Clone
rs.FindFirst "連番 = '" & Me!連番.Value & "'"
Forms!単票フォーム.Bookmark = rs.Bookmark
Set rs = Nothing

フォームにフィルタをかけた状態で、
単票フォームを呼び出すのでRecordsetCloneにも
フィルタがかかっているのではないかと思っていましたが、
上記のように再度直前でMe.Filterを実行しないといけないようです。

長々おつきあい頂きありがとうございました。
まだ質問したいことが他にありますので、よろしくお願いします。

・ツリー全体表示


	【11940】Re:帳票フォームと単票フォームの連携

雅 - 11/1/26(水) 10:40 -


	引用なし

	パスワード

雅です。

よろずやさんとのやり取りをざっと見ましたがやりたいことが
いまいちつかめません。
さつきさんもいまいち整理できていないのではないですか？
いま一度何をしたいか整理されてはいかがでしょう？

・ツリー全体表示


	【11939】Re:帳票フォームと単票フォームの連携

よろずや - 11/1/25(火) 23:24 -


	引用なし

	パスワード

▼さつきさん：
>と書いてあったので、理屈からいうと、検索後のデータがRecordsetCloneに
>入っているとしか考えられないのですが、なぜ単票フォームですべての
>データが表示されてしまうのでしょう？

単票フォームで何をしたいのでしょう？
よく判りません。
1レコードだけ表示したいという話ですか？
それなら、変数strfilter なんて使わずに
フィルターに連番をセットするだけでいいと思うのですが。

・ツリー全体表示


	【11938】Re:帳票フォームと単票フォームの連携

さつき - 11/1/25(火) 22:52 -


	引用なし

	パスワード

▼よろずやさん
ご回答ありがとうございます。

>ときどき唐突にコードが登場しますが、
>単票／帳票どちらのフォームに書かれているのか明確にしてください。
11930に載せたコードです。
帳票フォームで検索する部分です。

・ツリー全体表示


	【11937】Re:帳票フォームと単票フォームの連携

よろずや - 11/1/25(火) 21:15 -


	引用なし

	パスワード

▼さつきさん：
>Private Sub setfilter()
>　・
>　・
>　・
>Me.Filter = mid(strfilter,6)
>Me.FilterOn = true
>Me.txtfilter.value = mid(strfilter,6)

ときどき唐突にコードが登場しますが、
単票／帳票どちらのフォームに書かれているのか明確にしてください。

・ツリー全体表示


	【11936】Re:帳票フォームと単票フォームの連携

さつき - 11/1/25(火) 20:22 -


	引用なし

	パスワード

▼よろずやさん：
ご回答ありがとうございます。

>RecordsetCloneではなくフォームに対してフィルタを掛ければ、
>そこから作ったRecordsetCloneにも
>フィルタが掛かっているという意味です。
Private Sub setfilter()
　・
　・
　・
Me.Filter = mid(strfilter,6)
Me.FilterOn = true
Me.txtfilter.value = mid(strfilter,6)
↑のところでフォームにフィルタをかけた状態で、
単票フォームを呼び出すのでRecordsetCloneにも
フィルタがカかっているのではないかと思ったのですが、
そうではないのですね？

・ツリー全体表示


	【11935】Re:帳票フォームと単票フォームの連携

よろずや - 11/1/25(火) 6:40 -


	引用なし

	パスワード

▼さつきさん：
>「フォームのRecordsetCloneオブジェクトを扱うことによって、
> フィルタリングされたデータ、すなわち画面上に実際に表示されている
> レコードだけを走査することができます」
> と書いてあったので、理屈からいうと、検索後のデータが
> RecordsetCloneに入っているとしか考えられないのですが、
> なぜ単票フォームですべてのデータが表示されてしまうのでしょう？
RecordsetCloneではなくフォームに対してフィルタを掛ければ、
そこから作ったRecordsetCloneにも
フィルタが掛かっているという意味です。

・ツリー全体表示


	【11934】Re:帳票フォームと単票フォームの連携

さつき - 11/1/24(月) 23:52 -


	引用なし

	パスワード

▼よろずやさん
ご回答ありがとうございます。

>.FilterOn というプロパティは、Recordset にはありません。
>ここで一つ一つ質問するよりも、
>ヘルプの見方を覚えた方がよっぽど速いと思います。
>知りたい単語をマウスでクリックし（単語全体を選択する必要はありません）
>F1キーを押してみましょう。
ヘルプは時々見ていますが、いつも難しくてあきらめてしまっていました。
今回は、RecordsetCloneについてヘルプおよびネットで調べてみました。
「フォームのRecordsetCloneオブジェクトを扱うことによって、フィルタリングされたデータ、すなわち画面上に実際に表示されているレコードだけを走査することができます」
と書いてあったので、理屈からいうと、検索後のデータがRecordsetCloneに入っているとしか考えられないのですが、なぜ単票フォームですべてのデータが表示されてしまうのでしょう？

・ツリー全体表示


	【11933】Re:帳票フォームと単票フォームの連携

よろずや - 11/1/24(月) 19:25 -


	引用なし

	パスワード

▼さつきさん：
>後、エラーが出る場所を書き忘れておりました。申し訳ありません。
>「オブジェクトは、このプロパティまたはメソッドをサポートしていません」
>というエラーは↓で出ます。
>　.FilterOn = True

.FilterOn というプロパティは、Recordset にはありません。
ここで一つ一つ質問するよりも、
ヘルプの見方を覚えた方がよっぽど速いと思います。
知りたい単語をマウスでクリックし（単語全体を選択する必要はありません）
F1キーを押してみましょう。

・ツリー全体表示


	【11932】Re:帳票フォームと単票フォームの連携

さつき - 11/1/24(月) 6:23 -


	引用なし

	パスワード

▼よろずやさん
ご回答ありがとうございます。

>この渡した値はどこで使っているのですか？
>見た限りでは使われていないようですが...
↓は、値を渡しているのではないのですね？よくわかっていませんでした。
.FindFirst "連番 = '" & Me.連番 & "'"

後、エラーが出る場所を書き忘れておりました。申し訳ありません。
「オブジェクトは、このプロパティまたはメソッドをサポートしていません」
というエラーは↓で出ます。
　.FilterOn = True

以上、よろしくお願いいたします。

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

68 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free