Access VBA質問箱 IV

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

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


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

466 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【3833】Re:関数についてですが

yamada - 04/11/10(水) 13:38 -


	引用なし

	パスワード

▼Gin_II さん：
>
>テキストボックスなら、DLookup 関数などを使ってください。
>リストボックスなら、SQL文を使えます。

さらに早い助言ありがとうございます。リストで頑張ってみたいと思いますが
lst_test.RowSource = "select A from A,B,C where..."
として、fromで　テーブルのリンクでリンクしたテーブルA,B,Cを
指定できるのでしょうか？　今、ADOを使ってODBC接続をしているのですが
接続部分から変えないといけなくなるのでしょうか？

・ツリー全体表示


	【3832】Re:関数についてですが

Gin_II - 04/11/10(水) 13:02 -


	引用なし

	パスワード

>フォームのテキストやリストボックスにSQLで絞ったリンクしたテーブルの
>データを入れることは可能なのでしょうか？

テキストボックスなら、DLookup 関数などを使ってください。
リストボックスなら、SQL文を使えます。

・ツリー全体表示


	【3831】Re:関数についてですが

yamada - 04/11/10(水) 12:45 -


	引用なし

	パスワード

▼Gin_II さん：
>
>関数の引数としてってことでしょうか？
>でしたら、ParamArray キーワードをヘルプで確認してください。
>
>関数の戻り値を、値リストの文字列として返すようにすれば大丈夫だと思います。
>

大変参考になりました、普通に配列として設定しただけでは駄目なんですね～。
早い対応、ありがとうございました。

便乗して、またわからないことが出てきてしまったのですが・・・

このツールはoracle9.0のDBからいくつかのテーブルを取得して
その抽出条件を返すものです。　コンボボックスは加工した日付を配列として
設定してます。
問題なく、動く予定だったのですが、環境に依存してしまう恐れが出てきてしまい
テーブルにテーブルのリンクを張り、そこから条件流してデータを取得してと
言われ、調べていますが・・・

フォームのテキストやリストボックスにSQLで絞ったリンクしたテーブルの
データを入れることは可能なのでしょうか？

便乗しての質問、申し訳ありません。

・ツリー全体表示


	【3830】Re:関数についてですが

Gin_II - 04/11/10(水) 11:37 -


	引用なし

	パスワード

>配列を関数の戻り値として使うのは無理なのでしょうか？

関数の引数としてってことでしょうか？
でしたら、ParamArray キーワードをヘルプで確認してください。

>また、関数で作成した配列をコンボボックスに入れるにあたり、いい方法は
>ありませんか？

関数の戻り値を、値リストの文字列として返すようにすれば大丈夫だと思います。

Microsoft Access でのコンボボックスコントロールとリストボックスコントロールのプログラミング
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/jpdnofftalk/htm/office03022000.asp

こちらも参考になるかな？

・ツリー全体表示


	【3829】関数についてですが

yamada - 04/11/10(水) 10:33 -


	引用なし

	パスワード

はじめまして、yamadaといいます。
Access2000を使用して、ツールを作成している仕事を任され、
関数についてわからないことがあり、困っているので質問させていただきます。

Public Function test(配列データ() as String) as String

ほしいデータを配列に加工
結果（例）
配列データ(0) = 1
配列データ(1) = 2
配列データ(2) = 10

end sub

配列データを作成、それをコンボボックスに関数として格納したいのですが
戻り値が違うのか何も戻ってきません。コンボボックスには　=test()
と指定してあります。
配列を関数の戻り値として使うのは無理なのでしょうか？
また、関数で作成した配列をコンボボックスに入れるにあたり、いい方法は
ありませんか？

よろしくお願いします。

・ツリー全体表示


	【3828】Re:２つのテーブルを１つのｔｘｔにエクス...

ブタゴリラ - 04/11/10(水) 9:03 -


	引用なし

	パスワード

すみません。なんとか自分でできました。とりあえずは応急処置で
すが、コマンドプロンプトでＦＴＰコマンドを実行させるように
させました。

・ツリー全体表示


	【3827】Re:半角カナ･特殊文字等でのチェックにつ...

山田 - 04/11/9(火) 8:41 -


	引用なし

	パスワード

参考にしてみます。
ありがとうございます。

・ツリー全体表示


	【3826】サブフォームへの移動

rin - 04/11/8(月) 20:15 -


	引用なし

	パスワード

親フォームAでサブフォームB・Cを2つのRequeryで表示できるようにしているのですが、元々のフォームC（サブフォームの１つ）ではコマンドで別のフォームDから検索してテキストに入力できるようVBA[Forms!予約時!他病院名 = Me!リストB.Column(0) ]をしているのですが、このフォームCを親フォームAから読み込みサブフォームCから別のフォームDから検索して入力してもエラーがでます。
誰か助けて下さい(?_?)

・ツリー全体表示


	【3824】Re:半角カナ･特殊文字等でのチェックにつ...

クロ - 04/11/8(月) 16:36 -


	引用なし

	パスワード

過去ログが参考になりませんか？
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=33;id=access

・ツリー全体表示


	【3823】半角カナ･特殊文字等でのチェックについて

山田 - 04/11/8(月) 11:37 -


	引用なし

	パスワード

VBAで項目でのチェックについて誰か教えてください｡
初心者なので全然わからなく困っています｡

入力項目でチェックを行いたいのですがどのようにすればよいのか・・・・｡
入力場所（ﾃｷｽﾄﾎﾞｯｸｽ）で半角カナ･特殊文字等を入力した時に指定文字以外の文字等が入力されたら登録ボタンを押したときにチェックを入れたいのですが。
　　
条件は一部ですが
ｱ～ﾝ　A～Z 0～9 ﾟﾞｽﾍﾟｰｽ % ! " # % & 等です。
できれば配列に定義してあって都度変えられれば良いと思うのですが｡

どのようにしたらよいのかどなたか詳しく教えてください｡

・ツリー全体表示


	【3822】Re:２つのテーブルを１つのｔｘｔにエクス...

ブタゴリラ - 04/11/8(月) 9:29 -


	引用なし

	パスワード

▼かみちゃんさん：
すいません。説明不足でした・・・^^;
まず、２つのテーブルは構造は違います
ＡとＢとすると、

Ａは商品名、売価、販売日などの個別商品情報のテーブルで、

ＢはＡのテーブルの商品の総件数、商品情報(新商品か販売終了、販売禁止など）
、txtのするときに何バイト使用するかなどのＡテーブルの集計結果のテーブルです。(１レコードで表現しています）
なので、リレーションできる項目はありません。

Ｂテーブルをtxtファイルへエクスポートしたあと、ＡテーブルをＢのtxtファイルへ追記できる方法はないでしょうか？また、ほかにいい方法はないでしょうか。
都合の良い話でしょうが、よろしくお願いします。
追伸・・返事おくれてスミマセン

・ツリー全体表示


	【3821】Re:２つのテーブルを１つのｔｘｔにエクス...

かみちゃん - 04/11/7(日) 23:14 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>２つのテーブルを１つのテキストにまとめる方法はないでしょうか？

フィールド構造が同じであれば、ユニオンクエリを作って、まずひとつにまとめて
そのユニオンクエリをテキストファイルにエクスポートすればいいかと思います。
フィールド構造が違うならば、どのような構造なのか教えていただく必要があるか
と思います。

・ツリー全体表示


	【3820】２つのテーブルを１つのｔｘｔにエクスポ...

ブタゴリラ - 04/11/7(日) 19:40 -


	引用なし

	パスワード

AccessVbaの初心者のものです。２つのテーブルを１つのテキストにまとめる方法はないでしょうか？理由はヘッダー部分のテーブルとボディ部分のテーブルを一つにまとめてフォルダに落したいんですが・・・教えて下さい。

・ツリー全体表示


	【3819】メニューバー、ツールバーをインポート

いこん - 04/11/6(土) 17:28 -


	引用なし

	パスワード

テーブル、フォーム同様に
メニューバー、ツールバーを他のmdbファイルから
VBAからインポートする方法を教えて下さい

DoCmd.TransferDatabase acImportのObjectTypeには
それらしきモノがないですよね？何か別の方法があるんすか？
　

・ツリー全体表示


	【3818】Re:Exitイベントで

YU-TANG

- 04/11/5(金) 17:04 -


	引用なし

	パスワード

こんにちは、YU-TANG です。

> ある項目のExitイベント内にてExitする際に
> 入力された値(KeyCode)は取得できるのでしょうか。

直接取得する方法は知りません。

当該コントロールのキークリック時（KeyDown）イベントで KeyCode を
モジュールレベル変数なり Tag プロパティなりに退避しておけば、
フォーカス喪失時（Exit）イベントで分岐することは可能だと思います。

もしどなたかが直接取得する方法をご存知であれば、それがベストだとは
思います。

・ツリー全体表示


	【3817】Re:ある条件のレコード数のみを数えるには...

shima - 04/11/5(金) 12:01 -


	引用なし

	パスワード

Gin_II さん：
返事が大変、遅くなりましたが
回答ありがとうございました。
説明不足ですみませんでした。
自分の式の指定が悪かっただけでした。
本当にすみません。
下記の式で理想の値が返されました。

=Sum(IIF([参加]=True,[参加],0))
ありがとうございました。

・ツリー全体表示


	【3816】Exitイベントで

Homes - 04/11/5(金) 10:32 -


	引用なし

	パスワード

ある項目のExitイベント内にてExitする際に
入力された値(KeyCode)は取得できるのでしょうか。
やりたい処理としては
Enterや→↓ではデータチェックをしてOKならば
次の項目へ、
↑や←ではチェック無しで前の項目に戻るといった
事を実現したいのですが、別の方法でも実現されている方が
いらっしゃればご教授頂ければ助かります。

・ツリー全体表示


	【3815】Accessページ番号の取り込みについて

runa2004 - 04/11/4(木) 17:39 -


	引用なし

	パスワード

Accessのレポートでページ番号の挿入をしました。
そのレポートでは、さまざまな条件により改ページされますが、
最高１０件の明細が表示＋印刷されます。
読み込むテーブルはＡテーブルとして、その中に「印刷ページNo.」
という項目があります。
レポートをプレビューした時に表示されるページ番号をＡテーブルの
「印刷ページNo.」に取り込みたいのですが、どのようにしたらできるのか
分かりません。
ページ番号をテーブルに取り込むことは可能でしょうか？

・ツリー全体表示


	【3814】Re:テーブル作成時のプロパティ設定につい...

桜坂 - 04/11/4(木) 14:15 -


	引用なし

	パスワード

クロ様

　返信いただき、ありがとうございました！
　こんな方法があったんですね。
　大変参考になりました。
　参照設定を追加する方法で対応したいと思います。

・ツリー全体表示


	【3813】Re:テーブル作成時のプロパティ設定につい...

クロ - 04/11/4(木) 10:27 -


	引用なし

	パスワード

WITH COMPRESSION NOT NULL キーワードで指定できますが
ANSI-92モードでしか使用できません。

Accessのオプションの「テーブル/クエリ」でモードの変更はできますが
他への影響があるかも？
新規mdbで「このデータベースのみ」チェックで試してみてください。

別の方法を考えるかしないと無理かもしれません。

ADOX例
「参照設定」で[Microsoft ADO Ext. 2.* for DD and Security] を参照する必要があります。

Dim cl As New ADOX.Catalog
Dim tb As New ADOX.Table
cl.ActiveConnection = CurrentProject.Connection
tb.Name = "テーブル名"
tb.Columns.Append "フィールド1", adWChar, 50
cl.Tables.Append tb
MsgBox tb.Name & "を作成しました"

・ツリー全体表示


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

466 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free