Access VBA質問箱 IV

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

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


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

418 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【4827】OutputToを使用した時の不具合について

ち～ - 05/4/6(水) 16:54 -


	引用なし

	パスワード

こんにちは。ち～と申します。

現在、WindowsXP　Office2003（Access2003 SP-1）を使用しています。
AccessからExcelへエクスポートする際に、Docmd.OutputToを使用していたのですが、メモ型を転送しようとした時に値が表示されなくなってしまいます。
かつ、メモ型なのに値が表示されている場合は255文字以降が無くなっています。
データを表示させた状態で、メニューバー⇒「ツール」⇒「OfficeLinks」⇒「MicrosoftExcelに出力」とすれば正しい状態でエクスポートができます。

TransfarSheetを使用せずに正しい状態でのエクスポートはできないものでしょうか？ご指導お願い致します。

・ツリー全体表示


	【4826】Re:1レコードずつに計算式を入れる方法は...

ち～ - 05/4/6(水) 16:40 -


	引用なし

	パスワード

▼みやさん：
>［本文なし］
>テーブルで、1レコードづつ違う計算式を入れる事は可能でしょうか？
>例）フィールド名1〔得意先〕、フィールド名2〔掛率〕、フィールド名3〔単価〕で、Ａ社は掛率3でＢ社は、掛率4というように単価も掛率も違うレコードを持たし式を入れておいて、フィールド名2の掛率のところの数字を変えるとその1レコードだけの単価が変わるように設定したいのです。
>エクセルでは簡単なのですが、ACCESSの場合1つのフィールドに式を入れると全レコードに反映してしまうので、なにか方法はありますでしょうか？

みやさん、こんにちは。
私も以前同じような問題に当たってしまい悩んでいました。他にもいらっしゃるのでは？？

私が解決方法として選んだのは、テーブルにもう１項目テキスト型を追加して計算式を入れておくようにしました。
先ほどの例ですと、項目の中に
Ａ社の場合：　”[掛率３]*[単価]”
Ｂ社の場合：　”[掛率４]*[単価]”
と入れておき、後はＶＢＡにてその追加した項目を使用して計算します。
他にも方法は色々あると思いますのでこれが最適かはわかりません。

・ツリー全体表示


	【4825】Re:コンボボックスでの並べ替え

マッハン - 05/4/6(水) 15:50 -


	引用なし

	パスワード

▼クロさん：
ありがとうございます。。そんな簡単な事だったのですね・・・

・ツリー全体表示


	【4824】Re:コンボボックスでの並べ替え

クロ - 05/4/6(水) 15:08 -


	引用なし

	パスワード

同クエリビルダでグループ化(集計)させてしまえばよいかと...

・ツリー全体表示


	【4823】Re:コンボボックスでの並べ替え

マッハン - 05/4/6(水) 14:53 -


	引用なし

	パスワード

このリストで重複するものは一つにしたいのですが、
出来ますでしょうか？

・ツリー全体表示


	【4822】Re:ボタンの使い方

クロ - 05/4/6(水) 14:47 -


	引用なし

	パスワード

フォームを開く時のイベントに
Me.コマンドボタン.Enabled = False
とすればいいのですが...

逆にどのタイミングで使用可能にしたいのでしょうか？
デフォルトでコマンドボタンプロパティの「使用可能」を「いいえ」にして
何かのタイミングで使用可能にした方がいいのでは？

・ツリー全体表示


	【4821】Re:ボタンの使い方

hatena - 05/4/6(水) 14:30 -


	引用なし

	パスワード

▼takataka さん： >ご返答有難うございます。 >できましたが、一度フォームを閉じて再度開くとボタンが使用可にしまいます。 >この様な状況でも使用不可にできますでしょうか? ボタンのあるフォームを閉じて再度開いても、該当フォームが開いている場合は、使用不可にしたいということですね。フォームを開くときに、該当フォームが開いているかどうかチェックして開いていれば、使用不可にすればいいですね。 Me!ボタン.Enabled = Not CurrentProject.AllForms("該当フォーム").IsLoaded とか、 Me!ボタン.Enabled = SysCmd(acSysCmdGetObjectState,acForm,"該当フォーム") = 0

・ツリー全体表示


	【4820】Re:ボタンの使い方

takataka - 05/4/6(水) 14:02 -


	引用なし

	パスワード

ご返答有難うございます。
できましたが、一度フォームを閉じて再度開くとボタンが使用可にしまいます。
この様な状況でも使用不可にできますでしょうか?
▼クロさん：
>一度別のコントロールに逃がしてからEnabledをしてみては？
>※別のコントロールがあればの話だけど...
>
>Me.別のコントロール.SetFocus
>Me.コマンドボタン.Enabled = False

・ツリー全体表示


	【4819】1レコードずつに計算式を入れる方法はあり...

みや

- 05/4/6(水) 13:49 -


	引用なし

	パスワード

［本文なし］
テーブルで、1レコードづつ違う計算式を入れる事は可能でしょうか？
例）フィールド名1〔得意先〕、フィールド名2〔掛率〕、フィールド名3〔単価〕で、Ａ社は掛率3でＢ社は、掛率4というように単価も掛率も違うレコードを持たし式を入れておいて、フィールド名2の掛率のところの数字を変えるとその1レコードだけの単価が変わるように設定したいのです。
エクセルでは簡単なのですが、ACCESSの場合1つのフィールドに式を入れると全レコードに反映してしまうので、なにか方法はありますでしょうか？

・ツリー全体表示


	【4818】Re:ボタンの使い方

クロ - 05/4/6(水) 12:45 -


	引用なし

	パスワード

一度別のコントロールに逃がしてからEnabledをしてみては？
※別のコントロールがあればの話だけど...

Me.別のコントロール.SetFocus
Me.コマンドボタン.Enabled = False

・ツリー全体表示


	【4817】ボタンの使い方

takataka - 05/4/6(水) 12:11 -


	引用なし

	パスワード

一度　ボタンをクリックした場合　該当フォームを開いてもそのボタンは使用
出来ない様な方法はありますか?
enabledなど試みたのですが上手くいかなかったので投稿しました。

・ツリー全体表示


	【4816】Re:コンボボックスでの並べ替え

マッハン - 05/4/6(水) 11:56 -


	引用なし

	パスワード

▼クロさん：
無事できました。有難うございます。

・ツリー全体表示


	【4815】Re:コンボボックスでの並べ替え

クロ - 05/4/6(水) 11:35 -


	引用なし

	パスワード

値集合ソースを[…]ボタンで「SQLステートメントクエリビルダ」を
開いて昇降順対象のフィールドをセットし、昇降順を設定して「表示」
チェックを外せばいいと思います。

・ツリー全体表示


	【4814】コンボボックスでの並べ替え

マッハン - 05/4/6(水) 10:39 -


	引用なし

	パスワード

他テーブルのフィールドをコンボボックスを使って選択できるようにしているのですが、
ここに表示されるリストの並べ替えは出来ますでしょうか。
名前をリストで表示しているのですが、ばらばらで非常に不便なんです。
リストの元となっているテーブルを並べ替えしても、リストでは反映されていません。
VBAで解決できるものなのでしょうか。よろしくお願いします。

・ツリー全体表示


	【4813】Re:AccessとHiRDBのリンクが分かりません

たん - 05/4/6(水) 9:21 -


	引用なし

	パスワード

>HiRDBでAというテーブルとカラムを作成し、データを数個入れました。
>Accessでそのデータを見たいのですが、
>リンクの方法が分かりません。

まず、私はHiRDBというデータベースソフトの詳細が分かりませんが、
例えばOracle等であれば、Oracleデータベースに対し、Windowsから
接続するために、「Net Assistant」という形でOracleデータベースと
接続出来る形が用意されています。

その上でODBCドライバがインストールされていれば、リンクマネージャで
リンクを張る事が可能になります。

そういうWindowsと連携する機能をHiRDBというソフトが持っているか
どうかはアクセスからは残念ながら分かりません。

HiRDB側に問い合わせるべきと思います。

・ツリー全体表示


	【4812】Re:拡張子CSVデータの取り込み

sakai - 05/4/5(火) 22:00 -


	引用なし

	パスワード

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

・ツリー全体表示


	【4811】Re:拡張子CSVデータの取り込み

小僧 - 05/4/5(火) 17:44 -


	引用なし

	パスワード

▼sakai さん：

>DoCmd.TransferSpreadsheet acImport, 8, "kansai", "C:\text.CSV", True, ""

→
DoCmd.TransferText acImportDelim, , _
　　　　　　　　　　 "kansai", "C:\text.CSV", True

普通の「，」で区切ったCSVファイルであれば
そのまま取り込めるかと思います。

・ツリー全体表示


	【4810】Re:拡張子CSVデータの取り込み

sakai

- 05/4/5(火) 17:05 -


	引用なし

	パスワード

小僧さん
　調べましたが、なんかポントがこないですが、
もう少しおしえていただけないでしょうか？

DoCmd.TransferSpreadsheet acImport, 8, "kansai", "C:\text.CSV", True, ""

拡張子がXLSの場合は、うまくいきますが、なんかCSVの場合はエラーでます。

・ツリー全体表示


	【4809】Re:拡張子CSVデータの取り込み

小僧 - 05/4/5(火) 16:25 -


	引用なし

	パスワード

▼sakai さん：

.CSVの拡張子の関連付けがエクセルなってると
テーブルのインポートもエクセルと同じように思えますよね。

.TXT や .CSV などは別のメソッドが用意してあります。

ヘルプファイルで「TransferText」を調べてみてください。

・ツリー全体表示


	【4808】拡張子CSVデータの取り込み

sakai

- 05/4/5(火) 15:34 -


	引用なし

	パスワード

お世話になります。
　csvのファイルを取り込みたいです。一応下記のコードを書きましたが、
うまく動作しないです。
アドバイスをいただけませんか？よろしくお願いします。
いままでXLSファイルを取り込んだことがあります。

DoCmd.TransferSpreadsheet acImport, 8, "ASKO_001", "C:\FISH_DATA\ASKO_001.CSV, True, ""

・ツリー全体表示


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

418 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free