Access VBA質問箱 IV

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

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


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

490 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【3349】Re:エクスポートの方法

こもれび - 04/8/27(金) 23:39 -


	引用なし

	パスワード

Bのデータを100件ずつ抽出してAのデータとユニオンクエリーをつくります。
1から10のファイルエクスポートの繰り返しの最後にメッセージボックス
を表示するというのはいかがでしょう。

・ツリー全体表示


	【3348】エクスポートの方法

古池 - 04/8/27(金) 21:14 -


	引用なし

	パスワード

ＡというテーブルとＢというテーブルがあるとします。
Ｂというテーブルに1000件データが入っているとして、
エクスポートする際に、それを100件ずつ分けて、
その100件のかたまりそれぞれの頭に、Ａというテーブルのデータをくっつけてエクスポートしたいのです。
（Ａというテーブルのデータは見出しだと思ってください。）
またまたその際に、ひとつのかたまりごとにＦＤを分けたいのですが、
見出しデータ＋100件入ったら、ＦＤを変えるようなメッセージを出して、
処理することはできますでしょうか？

分かりにくくてすいません^_^;

・ツリー全体表示


	【3347】Re:追伸

クロ - 04/8/27(金) 14:28 -


	引用なし

	パスワード

If Me.入荷チェック = 1 Then
のところはテキスト型でしたよね
If Me.入荷チェック = "1" Then
と読み替えてください。

・ツリー全体表示


	【3346】Re:フォーム上で別のテーブルのデータを表...

クロ - 04/8/27(金) 14:27 -


	引用なし

	パスワード

>なにも表示されませんでした。
>>商品名(テキストボックス)の更新後処理のイベントで
としてあるので「商品名」が更新された後ということです。

※これから入力するものとして考えてました。既に入力されているものは
　更新クエリでやっちゃえばどうでしょうか？

UPDATE 商品テーブル INNER JOIN 単価テーブル ON 商品テーブル.商品名 = 単価テーブル.商品名 SET 商品テーブル.単価 = IIf([入荷チェック]="1",[単価1],[単価2]);

を実行すればいいかと

>閉じカッコ)が必要だと思いますが
If Me.入荷チェック = 1 Then
　Me.単価 = Dlookup("[単価1]","単価テーブル","[商品名] ='" & Me.商品名 & "'")
Else
　Me.単価 = Dlookup("[単価2]","単価テーブル","[商品名] ='" & Me.商品名 & "'")
End If
でしたね。スミマセン...m(. .)m

>角かっこが必要ですとエラーが表示されます。

If Me.入荷チェック = 1 Then
　Me.単価 = Me.商品名.Column(1)
Else
　Me.単価 = Me.商品名.Column(2)
End If

「.」が余計でした...重ねてスミマセンm(_ _)m

・ツリー全体表示


	【3345】Re:フォーム上で別のテーブルのデータを表...

お初 - 04/8/27(金) 14:09 -


	引用なし

	パスワード

▼クロさん：
>商品テーブルに単価フィールドを追加して、フォームAの単価テキストボックスを
>連結(コントロールソースに「単価」)にしてください。
>
>その1
>商品名(テキストボックス)の更新後処理のイベントで
>DLookupで単価を引いてくる方法
>If Me.入荷チェック = 1 Then
>　Me.単価 = Dlookup("[単価1]","単価テーブル","[商品名] ='" & Me.商品名 & "'"
>Else
>　Me.単価 = Dlookup("[単価2]","単価テーブル","[商品名] ='" & Me.商品名 & "'"
>End If
>
>その2
>商品名をコンボボックスに変更して
>集合値タイプ:テーブル/クエリ
>値集合ソース:
>SELECT [単価テーブル].[商品名], [単価テーブル].[単価1], [単価テーブル].[単価2] FROM [単価テーブル]
>列数:3
>列幅:2.54cm;0cm;0cm
>連結列:1
>リスト行数:8 　※あるいは適宜に
>リスト幅:2.54cm ※あるいは適宜に
>
>商品名コンボの更新後処理のイベントに
>If Me.入荷チェック = 1 Then
>　Me.単価 = Me.商品名..Column(1)
>Else
>　Me.単価 = Me.商品名..Column(2)
>End If
>
>ではどうですか？

クロさんへ
ご回答ありがとうございます。
その１のイベントで
閉じカッコ)が必要だと思いますが、おっしゃるとおり入力したのですが、
なにも表示されませんでした。
その２で試した所、こちらもイベントで
角かっこが必要ですとエラーが表示されます。

私としてはできれば、その１タイプで行いたいと思っております。
よろしくお願い致します。

・ツリー全体表示


	【3344】Re:VBAプロジェクトでパスワード

こもれび - 04/8/27(金) 13:52 -


	引用なし

	パスワード

#2282の投稿ツリーは参照されましたでしょうか?

・ツリー全体表示


	【3343】Re:フォーム上で別のテーブルのデータを表...

クロ - 04/8/27(金) 10:24 -


	引用なし

	パスワード

商品テーブルに単価フィールドを追加して、フォームAの単価テキストボックスを
連結(コントロールソースに「単価」)にしてください。

その1
商品名(テキストボックス)の更新後処理のイベントで
DLookupで単価を引いてくる方法
If Me.入荷チェック = 1 Then
　Me.単価 = Dlookup("[単価1]","単価テーブル","[商品名] ='" & Me.商品名 & "'"
Else
　Me.単価 = Dlookup("[単価2]","単価テーブル","[商品名] ='" & Me.商品名 & "'"
End If

その2
商品名をコンボボックスに変更して
集合値タイプ:テーブル/クエリ
値集合ソース:
SELECT [単価テーブル].[商品名], [単価テーブル].[単価1], [単価テーブル].[単価2] FROM [単価テーブル]
列数:3
列幅:2.54cm;0cm;0cm
連結列:1
リスト行数:8 　※あるいは適宜に
リスト幅:2.54cm ※あるいは適宜に

商品名コンボの更新後処理のイベントに
If Me.入荷チェック = 1 Then
　Me.単価 = Me.商品名..Column(1)
Else
　Me.単価 = Me.商品名..Column(2)
End If

ではどうですか？

・ツリー全体表示


	【3342】Re:ファイルが大きくなっていくのですが・...

こもれび - 04/8/27(金) 10:11 -


	引用なし

	パスワード

こもれびです

>スレ汚しみたいで申し訳ありませんでした。

スレ汚しとお書きになるのでしたら、調べた結果を記述されたほうが
よいのではないかなと思います。

[ツール]-[オプション]-[全般]　で、「閉じるときに最適化する」
チェックボックスをチェックすれば不必要に肥大化しないということでした (*^^*)

とか。

・ツリー全体表示


	【3341】Re:フォーム上で別のテーブルのデータを表...

こもれび - 04/8/27(金) 2:24 -


	引用なし

	パスワード

こもれびです

>とあり、Ａフォーム上では
>日付　商品名　入荷チェック（オプションボタン「済み(1)」「未(2)」）　単価（テキストボックスで表示）
>
>とあった時、Ａフォームの単価の項目には入荷チェックが「1」の時単価１を自動表示し、「2」の時単価２を自動表示して、尚且つＡのテーブルに保存（反映）できるようにしたいのですが、そのようなことは可能でしょうか？

商品テーブル（A)には単価を入れるフィールドもあるわけですね？
そして、自動表示とテーブルに保存ということでAフォームを開いた
時には作業が完了しているということでよろしいのでしょうか？

もし、お初様の想定されているものが上記のものでしたら可能です。
「自動表示とテーブル保存」のソースコードをForm_Open
イベントプロシージャに記述すれば完了です。

サンプルで想定されていると思われるAccessファイルを作成してみました。
Aフォーム上に配したリストボックスに単価テーブル（B)を表示させています。
商品テーブル（A)には単価を入れるフィールドの他、「単価入力済み」の
マークを入れるフィールドも設けました。
ご希望でしたら、メール添付でファイルをお送りします。

・ツリー全体表示


	【3340】フォーム上で別のテーブルのデータを表示...

お初 - 04/8/26(木) 19:02 -


	引用なし

	パスワード

こんばんは。
お初です。
何度も申し訳ありません。
ご質問があります。

現在テーブルがＡ・Ｂと２つあり、
Ａのテーブルに連結したＡフォームがあり、
Ｂのテーブルの一部のデータをＡフォームに表示してその内容を保存したいのですが、やり方がわかりません。
どなたかご教授お願い致します。
例：
商品テーブル（Ａ）
日付　商品名　入荷チェック
2004/08/02　みかん　1
2004/08/02　ぶどう　1
2004/08/02　なし　　1
2004/08/04　みかん　1
2004/08/04　みかん　2

単価テーブル（Ｂ）
商品名　単価１　単価２
みかん　300　　250
ぶどう　200　　180
なし　　150　　120

とあり、Ａフォーム上では
日付　商品名　入荷チェック（オプションボタン「済み(1)」「未(2)」）　単価（テキストボックスで表示）

とあった時、Ａフォームの単価の項目には入荷チェックが「1」の時単価１を自動表示し、「2」の時単価２を自動表示して、尚且つＡのテーブルに保存（反映）できるようにしたいのですが、そのようなことは可能でしょうか？

たびたび申し訳ありませんが、よろしくお願い致します。

・ツリー全体表示


	【3339】Re:ファイルが大きくなっていくのですが・...

saikoro - 04/8/26(木) 18:26 -


	引用なし

	パスワード

も、申し訳ありません。

自分で調べた結果解決しました。。。
調べる事にたいする力が不足していました。

スレ汚しみたいで申し訳ありませんでした。

・ツリー全体表示


	【3338】ファイルが大きくなっていくのですが・・

saikoro - 04/8/26(木) 17:59 -


	引用なし

	パスワード

先日は、コンボボックスの件で質問させて頂いた時は、
お世話になりました。m(_ _)m

今回の質問なのですが、
今現在、アクセスを使ってファイル管理をしようとしてるのですが、
作ったmdbファイルを動かしていると、異様にファイルがでかくなっていくのです。。

ファイルが、でかくなるたびに、[ツール]→[データベスユーティリティ]→[最適化]
と、やっているのですが、何故でかくなっていくのかがわかりません。。

テーブルとか、フォームに貼り付たりとかしてるわけではなく、
ただ動かしていくとファイルが重くなっていきます。。

漠然的で申し訳ありませんが、知っている方がいらしたら、こうだからでしょ、という事を教えてください。よろしくお願いします。

・ツリー全体表示


	【3337】Re:テキストボックスの中の値の表示変更

お初 - 04/8/26(木) 16:07 -


	引用なし

	パスワード

▼クロさん：
クロ様

解決いたしました。
ありがとうございます。

>表示だけなら非連結テキストボックスのコントロールソースに
>=IIf([入荷済みチェック]=1,"OK","NG")
>でいいのでは？
>※入荷済みチェックのデータ型が数値型の場合
>　テキスト型なら[入荷済みチェック]="1"としてください。

・ツリー全体表示


	【3336】Re:テキストボックスの中の値の表示変更

お初 - 04/8/26(木) 16:06 -


	引用なし

	パスワード

▼こもれびさん：
こもれび様
できました！ありがとうございます。
私の方こそ最初の説明が不足しておりましたことを
お詫び申し上げます。
誠に申し訳ありませんでした。

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

>こもれびです
>
>フォームはクエリと連結しているのですね?
>そうしますと、現在のクエリは「入荷済みチェック」で表示
>することになっているかと思います。
>解決方法は、次のようにクエリを作ります。
>QBEグリッド（デザイングリッド）の「入荷済みチェック」の
>表示チェックを外します。
>次に、グリッドの空いている列のフィールドに次のように式を
>記述してください。
>
>Disp: IIf([入荷済みチェック]="1","OK","NG")
>
>そして、この式を記述した列の表示チェックボックスをチェック
>してください。
>
>クエリのデザインが完了しましたら、フォームに配したテキストボックス
>のコントロールソースを式に記述した「Disp」としてください。
>
>蛇足ですが…
>お初様の最初の投稿を読ませていただいたとき、何のことか
>よく理解しないまま発言していました。ご勘弁願います。<m(__)m>

・ツリー全体表示


	【3335】Re:文字の検索

べる - 04/8/26(木) 12:28 -


	引用なし

	パスワード

▼こもれび様：

お返事が遅くなりまして、申し訳ございませんでした。
先週末から別件の作業でワタワタしていた為、現作業が滞ってました。
早速、ご連絡いただきましたソースで試してみます。
本当にありがとうございました。

・ツリー全体表示


	【3334】Re:レポートに画像を出力する方法

morik - 04/8/26(木) 10:58 -


	引用なし

	パスワード

▼こもれびさん：
いつも回答ありがとうございます。

画像を出力する件ですが、先にこもれびさんから頂いたプログラムで実現することができました。

親切に教えていただきありがとうございました。

今後も質問することがあるかもしれませんがよろしくお願い致します。

・ツリー全体表示


	【3333】Re:タブコントロールについて

カキ氷 - 04/8/26(木) 7:02 -


	引用なし

	パスワード

うまくいきました。簡単だったんですね★
クロさん、ぬぅさん、こもれびさん、ありがとうございました。

・ツリー全体表示


	【3332】Re:タブコントロールについて

こもれび - 04/8/25(水) 22:24 -


	引用なし

	パスワード

こもれびです

ボタン１のクリック時のイベントプロシージャ

　　Me!ページ2.SetFocus

ボタン２のクリック時のイベントプロシージャ

　　Me!ページ3.SetFocus

・ツリー全体表示


	【3331】Re:タブコントロールについて

ぬぅ - 04/8/25(水) 16:41 -


	引用なし

	パスワード

▼クロさん：
>Me.タブ名.SetFocusでいいのでは？

タブコントロールの各ページに、ページインデックスというのがあります。
オプションボタンと使い方は同様です。

表示したいページのインデックスが１の場合は
Me![タブコントロール名] = 1 でアクティブになります。

・ツリー全体表示


	【3330】Re:タブコントロールについて

クロ - 04/8/25(水) 11:09 -


	引用なし

	パスワード

Me.タブ名.SetFocusでいいのでは？

・ツリー全体表示


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

490 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free