Access VBA質問箱 IV

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

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


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

397 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【5254】ありがとうございますYU-TANGさん

ハナ

- 05/6/4(土) 21:41 -


	引用なし

	パスワード

もいひとつ教えてください
> そのプロパティをみると＝handlebuttonclickとありました。
> けれどどこをさがしてもそんな関数やマクロ用語はありません。

VBA（ユーザー定義関数）なので、マクロを見ても載ってないと
思います。
フォームのクラスモジュールを開かないと。

ユーザー定義関数というのはどうやって作成するのですか？またクラスモジュールを開けてもみつけられなかったのですが？定義関数の設定はどこでするのでしょうか？ちんぷんかんな質問ですみません

・ツリー全体表示


	【5253】VBAでクエリ

kuri

- 05/6/4(土) 21:23 -


	引用なし

	パスワード

　はじめまして。
　現在VBAを用いてACCESSを構築しようとしているのですが、テーブル（T_001）の
フィールドが20個あるのですが、抽出条件となるフィールドが8つぐらいあり、そのつどクエリを作成していると管理するのが大変で困っています。
　VBAで何か便利な方法があるのでしょうか？また、その結果をレポートに出力したいのですがVBAが分かりません。助けてください。
　抽出条件はフォーム（F_001）にあり、非連結のテキストボックス（txt1(txt2)(txt3)(txt4)に入力しようと思っています。また、この抽出条件は１つのときもあれば、複数指定しAND条件としても使用したいと考えています。
　このように、抽出条件の組み合わせがたくさんあるときはどうしたら良いのでしょうか？漠然とした質問ですみませんが宜しくお願いします。

・ツリー全体表示


	【5252】Re:意味を教えてください

YU-TANG

- 05/6/4(土) 21:11 -


	引用なし

	パスワード

こんばんは、YU-TANG です。

> そのプロパティをみると＝handlebuttonclickとありました。
> けれどどこをさがしてもそんな関数やマクロ用語はありません。

VBA（ユーザー定義関数）なので、マクロを見ても載ってないと
思います。
フォームのクラスモジュールを開かないと。

> わたしもこのシステムと同様なものを作成したいので、意味が
> わからないと先に進めません。

そんなことはないと思いますよ。
おそらくメニュービルダで作成したものでしょうから、[ツール]-
[データベースユーティリティ]-[メニュー用フォームビルダ] を
選べば、誰でも同じようなものを作成できるはずです。
Access の入門書には必ずこのビルダの使い方が載っていますし。
本来は VBA を知らないユーザーでも作れるように MS が用意した
機能ですから、「同様なものを作成したい」のが目的であれば、
コードの意味を理解する必要は通常はありません。

# 好奇心か個人的な勉強のためであれば、頑張って解析してみて
# ください。

・ツリー全体表示


	【5251】意味を教えてください

ハナ

- 05/6/4(土) 20:24 -


	引用なし

	パスワード

会社で作成してるシステムのメインメニューのあるフォームのなかにコントロールボタンがあるのですが、そのプロパティをみると＝handlebuttonclickとありました。けれどどこをさがしてもそんな関数やマクロ用語はありません。いったいどういう意味でどこにあるのでしょうか？わたしもこのシステムと同様なものを作成したいので、意味がわからないと先に進めません。どなたか教えてください。よろしく

・ツリー全体表示


	【5250】Re:コンボボックスでのレコードソート

雅 - 05/6/4(土) 10:25 -


	引用なし

	パスワード

▼クロさん：
>値集合ソースのテーブルをするのでなく、同欄の右に出る[…]ボタンで
>SQLデザインビュー(クエリデザインビューと同様のもの)を開き必要な
>フィールドと並べ替え条件を入れてください。
>そうすると「値集合ソース」欄にテーブル名でなく、SELECTではじま
>るSQL文になります。これでいいと思いますがどうでしょう？

クロ　様

　解決しました。こんなに早くご回答いただけるなんて、感激です!
　本当にありがとうございました。

・ツリー全体表示


	【5249】Re:コンボボックスでのレコードソート

クロ - 05/6/4(土) 10:01 -


	引用なし

	パスワード

値集合ソースのテーブルをするのでなく、同欄の右に出る[…]ボタンで
SQLデザインビュー(クエリデザインビューと同様のもの)を開き必要な
フィールドと並べ替え条件を入れてください。
そうすると「値集合ソース」欄にテーブル名でなく、SELECTではじま
るSQL文になります。これでいいと思いますがどうでしょう？

・ツリー全体表示


	【5248】コンボボックスでのレコードソート

雅 - 05/6/4(土) 9:19 -


	引用なし

	パスワード

あるフォームにコンボボックスを作成し、値集合はテーブルを指定しています。実際にフォームでデータを入力する際、コンボボックスで表示されるレコードをソートしたいのですが、うまくいきません。値集合に指定しているテーブルをソートして保存しても、フォーム上ではソートされていないのですが、どうすればソートされるのでしょうか。どなたかお解かりでしたら、ご教授お願いします。

・ツリー全体表示


	【5247】フォーム作成

バリュー - 05/6/3(金) 16:54 -


	引用なし

	パスワード

度々すみません。
よろしくお願いします。

[#5232]でもお伺いした内容で重複してしまうのですが、、

コンボボックスで他テーブルのデータを表示させて選択して入力する、
という操作がフォーム上でできるのですが、
テーブルにはフォームで入力した他テーブルの値ではなく、
他テーブルの主キーが入ってきてしまっています。

こちらにはどう対処したらよいでしょうか？

・ツリー全体表示


	【5246】Re:一読してみてください。

バリュー - 05/6/3(金) 16:51 -


	引用なし

	パスワード

▼クロさん：

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

見てみました。
ご親切感謝です！！

・ツリー全体表示


	【5245】一読してみてください。

クロ - 05/6/3(金) 16:46 -


	引用なし

	パスワード

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

・ツリー全体表示


	【5244】Re:フォーム作成

バリュー - 05/6/3(金) 16:43 -


	引用なし

	パスワード

▼クロさん：
こんにちは。
返信誠にありがとうございます。

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

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

誠にありがとうございました。

・ツリー全体表示


	【5243】Re:リストのデータの移動

隆志 - 05/6/3(金) 16:38 -


	引用なし

	パスワード

これをしても出来ませんでした。
もう少し詳しく教えていただけると幸いです。
Frm1探しの所がわかりません？

・ツリー全体表示


	【5242】Re:フォーム作成

クロ - 05/6/3(金) 16:21 -


	引用なし

	パスワード

横レス失礼します。

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

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

たぶんその所為です。
発行No.→発行No
発効No.→発効No
に改名し、コードも書き換えてみては？

・ツリー全体表示


	【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

上記のように修正してみましたが、結果が変わらなかったです。。

・ツリー全体表示


	【5240】Re:フォーム作成

小僧 - 05/6/3(金) 15:52 -


	引用なし

	パスワード

▼バリューさん：
こんにちは。

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

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

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

のようになります。
外していたら申し訳ないです。

・ツリー全体表示


	【5239】フォーム作成

バリュー - 05/6/3(金) 15:23 -


	引用なし

	パスワード

さきほどまでやっていた操作を完成するに至らなかったので
（小僧さんごめんなさい！！）
少し前のバージョンに戻す事にしました。

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

こちらにはどう対処したらよいでしょうか？

・ツリー全体表示


	【5238】Re:テキストボックスに日付型の値のみを入...

バリュー - 05/6/3(金) 14:18 -


	引用なし

	パスワード

▼小僧さん：
誠にありがとうございました。

・ツリー全体表示


	【5237】Re:フォーム作成

バリュー - 05/6/3(金) 14:16 -


	引用なし

	パスワード

▼小僧さん：
返信誠にありがとうございます。

>骨格となる部分は見えてきたと思われますので、
>後は細かい部分を過去ログ、ヘルプ等を見ながら
>作っていきましょう。

Ａｃｃｅｓｓでの開発に専念できる環境にいない為、
作業の合間を見てこちらにお伺いをしておりました。
なので、自力で解決する時間が惜しくて教えて頂いておりました。
これまで本当にすみませんでした。
ありがとうございました。

・ツリー全体表示


	【5236】Re:連結オブジェクトフォーム

小僧 - 05/6/3(金) 14:05 -


	引用なし

	パスワード

▼T さん：
こんにちは。

非連結のテキストボックスを作成し、
そのテキストボックスの更新後処理に
検索の処理を組み込んでみてはいかがでしょうか？

外していたらすみません。

・ツリー全体表示


	【5235】リストの移動

隆志 - 05/6/3(金) 13:25 -


	引用なし

	パスワード

Form1 と　Form2があり。
Form1にはテキストボックスが複数あり（HIV,WBCなど)
Form2には選択クエリから引っ張っているリストボックスとコマンドボタンとコンボっクスがあります。（コンボボックスで選択した日の結果をリストボックスに表示できるようにVBAを使っています）

　Form2のコマンドボタンをクリックした時にForm1の各テキストボックスに移動できるようにVBAを組んでいます。
　Private sub コマンド1 Click
　　Form![Form1]![HIV] = Dlookup(結果,結果クエリ,[検査コード=01]
　　・・
こんな感じで作っているのですが、それだとForm1にはデータが移動はするのですが
HIVという数値の結果が2個有ったときや違う日に検査をしていたら、一回移動したデータが消えてまた該当する所にデータが移動してしまいます。
　一回で移動できる方法やデータが消えないでそのまま何回も移動しても消えないようにする方法はあるのでしょうか？宜しくお願いします。

・ツリー全体表示


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

397 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free