Access VBA質問箱 IV

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

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


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

389 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【5418】Re:テーブルの削除について教えてください...

クロ - 05/6/20(月) 10:44 -


	引用なし

	パスワード

他所ですが、こちらが参考になると思います。
http://www.ruriplus.com/msaccess/tch/tch_029.html

・ツリー全体表示


	【5417】リストボックスから指定したデータの表示

トミー - 05/6/20(月) 10:30 -


	引用なし

	パスワード

どなたか教えて下さい
処理概要は、名称マスタの登録修正フォームから登録済みデータを別のフォームでリストボックスの形式で表示して、特定のデータを選択して、もとの名称マスタの登録修正のフォームに表示する処理です。リストボックスまでは上手く表示できていますが、特定のデータ（例えば　２行目のデータ）を選択しても名称マスタのテーブルの第１件目のデータを表示します。　リストボックスは３列表示です。　テーブルの検索するキーはリストボックス上では第１列（区分）と第２列（コード）です。以下にコードを表示しますがＳＱＬのＳＥＬＥＣＴコマンドの記述が間違っていると思いますが正しいコーディングを教えて下さい。

　SQL ="SELECT * FROM T_名称マスタ WHERE 区分 = '" & Me.名称マスタ一覧 & "'"
　******(ここのコーディングが悪いと思っているのですが）*******
　Set Rst = DB>OpenRecordset(SQL)
　If Rst.Recordcount = 0 then
　　 Forms![F_名称マスタ]![区分] = Me.名称一覧
　　 Forms![F_名称マスタ]![コード] = ""
　　 Forms![F_名称マスタ]![名称] = ""
　Else
　　 Forms![F_名称マスタ]![区分] = Me.名称一覧
　　 Forms![F_名称マスタ]![コード] = Rst!コード
　　 Forms![F_名称マスタ]![名称] = Rst!名称
　End If
以上のようなコーディングですが宜しくご指導下さい。お願いします

・ツリー全体表示


	【5416】テーブルの削除について教えてください。

NEMOTAKE - 05/6/20(月) 10:29 -


	引用なし

	パスワード

Ａ.ｍｄｂからのモジュールでＢ．ｍｄｂのテーブル、Ｘテーブルを削除する場合どのような記述をすればいいですか？

・ツリー全体表示


	【5415】Re:縦方向（レコード）のデータを横方向（...

さつき - 05/6/20(月) 10:13 -


	引用なし

	パスワード

小僧さん
できました。ありがとうございました。
またわからないことがあったらよろしくお願いいたします。

・ツリー全体表示


	【5414】Re:ハイパーリンク先のファイルの更新日

小僧 - 05/6/20(月) 10:09 -


	引用なし

	パスワード

▼YESNO_OK さん：
おはようございます。

>1.ハイパーリンク先のファイルの日付を引っ張ってくることは出来るでしょうか？

フォーム内の「ハイパーラベル」のリンク先のファイル更新日付を
イミディエイトウィンドウに表示する例です。

Debug.Print FileDateTime(CurrentProject.Path & _
　　　　　　　　　　　　"/" & Me.ハイパーラベル.HyperlinkAddress)

>2.ハイパーリンクのファイルをクリックした回数はカウントできるでしょうか？

Accessを開いている間のカウント数でしたら
Public変数を用いて値を記憶させておく事ができます。

ハイパーリンクが設定されているラベルをクリックする度に
Pcblicで宣言した変数に1を足すような処理をすれば可能ですが…。

「カウンターテーブル」みたいなモノを用意して、
クリックする度にテーブルの値に1ずつ足していった方が
汎用性のあるものが作れると思います。

・ツリー全体表示


	【5413】ハイパーリンク先のファイルの更新日

YESNO_OK

- 05/6/20(月) 9:34 -


	引用なし

	パスワード

いつもお世話になっております。
ハイパーリンク関連で質問です。

1.ハイパーリンク先のファイルの日付を引っ張ってくることは出来るでしょうか？

2.ハイパーリンクのファイルをクリックした回数はカウントできるでしょうか？

もしご存知の方がいらっしゃれば教えてください。

・ツリー全体表示


	【5412】Re:Excelファイル範囲指定のインポート方法

小僧 - 05/6/19(日) 22:17 -


	引用なし

	パスワード

▼sakaiII さん：
こんばんは。
こんな感じでしょうか？

Sub 日付名でクエリをエキスポート()
Dim QPath As String　　 '出力先フォルダ
Dim QName As String　　 'クエリ名
Dim SDate As String
　　QPath = "c:\"
　　QName = "クエリ1"
　　SDate = Format(Date, "yyyymmdd")

　　DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, _
　　　　　　　　　　　　QName, QPath & "\" & QName & "_" & SDate

End Sub

・ツリー全体表示


	【5411】Re:リストボックスで,,

ILMARI - 05/6/19(日) 21:28 -


	引用なし

	パスワード

ありがとうございました。
RowSource で試してみます。

・ツリー全体表示


	【5410】Re:リストボックスで,,

YU-TANG

- 05/6/19(日) 21:18 -


	引用なし

	パスワード

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

> Additem "XXX ; YYY ; ZZZ"
> と記述し、 XXXなどの文字列の中に [;] セミコロンを含ませたい

RowSource に追加するのであれば、引用符（シングルクォーテーション）で
全体を括れば問題ありません。

もし何かの理由で AddItem にこだわるのであれば、分かりません。

・ツリー全体表示


	【5409】Re:Excelファイル範囲指定のインポート方法

sakaiII - 05/6/19(日) 19:02 -


	引用なし

	パスワード

小僧さんへ　回答をいただき、ありがとうございます。実行結果を報告します。まず >※要参照設定　Excel x.x Object　Library 設定して、実行してみました、問題解決！もう一つの質問がありますので、よろしくお願いします。　セルB5を基点したExcelファイル取り込みを実行して、あるクエリをExcelへExport したいです。Filenameはクエリ_Systemdate.xlsにするために、どうすれば、いいでしょうか？ DoCmd.TransferSpreadsheet acExport, 8, "クエリ", _ "c:\クエリ", True, "" Filename：クエリ_20050619.XLS

・ツリー全体表示


	【5408】Re:Ver2002なら

雅 - 05/6/19(日) 13:39 -


	引用なし

	パスワード

ちゅう吉さん。ありがとうございました。
Microsoft Office の SP-1をインストールして解決することが、できました。
本当に助かりました。

・ツリー全体表示


	【5407】リストボックスで,,

ILMARI - 05/6/19(日) 13:14 -


	引用なし

	パスワード

リストボックスに複数行データを追加するとき
Additem "XXX ; YYY ; ZZZ"
と記述し、 XXXなどの文字列の中に [;] セミコロンを含ませたい
時はどのように記述すればよいのでしょうか？
どなたかアドバイスお願いします。

・ツリー全体表示


	【5406】Ver2002なら

ちゅう吉 - 05/6/19(日) 10:29 -


	引用なし

	パスワード

雅さんの環境のバージョンが書いていないので分かりませんが、2002だったら

http://support.microsoft.com/default.aspx?scid=kb;ja;418927
[ACC2002] IME 無変換モードの設定が有効にならない

が当てはまるかもしれません。
（解決策は記述されていない模様です）

ちなみに、当方でもこの不具合が発生しました。
AC2000とIME2002で作成した時はＯＫだったのが、
AC2002とIME2002環境に移行したら、上記結果になりました。
とりあえず[無変換]を使わないように修正しました。

・ツリー全体表示


	【5405】質問再送

雅 - 05/6/18(土) 20:08 -


	引用なし

	パスワード

先ほどの送信で、誤って「お礼」としてしまいましたが、「質問」

フォームに数値のフィールドをレイアウトしてありますが、そのフィールド
で数値を入力しようとしても、必ずKANAキーがロックされた状態になってし
まいます。もちろんプロパティはきちんと設定してあります。他のパソコン
でそのフォームを開いて実行すると正常に動作するのですが、どこに問題が
あるのでしょうか。すみません、VBAのことではないのですが、どなたか解決
方法をご存知の方がいらっしゃいましたら、ご教示のほどよろしくお願いい
たします。

・ツリー全体表示


	【5404】ＩＭＥがKANAキーロックの状態になる

雅 - 05/6/18(土) 20:07 -


	引用なし

	パスワード

フォームに数値のフィールドをレイアウトしてありますが、そのフィールド
で数値を入力しようとしても、必ずKANAキーがロックされた状態になってし
まいます。もちろんプロパティはきちんと設定してあります。他のパソコン
でそのフォームを開いて実行すると正常に動作するのですが、どこに問題が
あるのでしょうか。すみません、VBAのことではないのですが、どなたか解決
方法をご存知の方がいらっしゃいましたら、ご教示のほどよろしくお願いい
たします。

・ツリー全体表示


	【5403】Re:縦方向（レコード）のデータを横方向（...

小僧 - 05/6/17(金) 15:00 -


	引用なし

	パスワード

▼さつきさん：
こんにちは。

メーカー名は空白にならない事が前提なのですが、

>>　　　　　　J = 0
>>'空のフィールドを検索
>>　　　　　　Do Until rs2(J) = "" Or IsNull(rs2(J))
>>　　　　　　　　J = J + 1
>>　　　　　　Loop

この部分、現在は「0」「1」「2」…が空白の時、となっていますよね？

これを「1」「4」「7」…が空白の時、と判断させれば良いと思います。

>>　　　　　　Do Until rs2(J) = "" Or IsNull(rs2(J))
→　　　　　　Do Until rs2(J*3+1) = "" Or IsNull(rs2(J*3+1))

これで空白のセルを３つおきに調べていくと思います。
いかがでしょうか？

・ツリー全体表示


	【5402】Re:ＥＸＣＥＬファイルのインポートについ...

bejikeni - 05/6/17(金) 14:57 -


	引用なし

	パスワード

ＴＯ小僧さん

特急の返信ありがとうございます。

オートメーションの処理ですか。聞きなれない方法ですが、調べてみます。
また、LinkCellは考えたのですが、セル情報を変更できないようにシート保護を使っていたために断念しました。

範囲指定はゴリゴリ処理して行きます。

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

※早急な対応を得たかった為とはいえ、以後気をつけます。すいません。

・ツリー全体表示


	【5401】Re:ＥＸＣＥＬファイルのインポートについ...

小僧 - 05/6/17(金) 14:44 -


	引用なし

	パスワード

▼bejikeni さん：
こんにちは。

>チェックボックスおよびオプションボックスの情報が変換されません。

これはオートメーションの処理が必要となってくると思います。
Excel VBA を使いながらチェックボックス・オプションボタンの値を
引っ張ってくる事ができます。
ただExcel側でチェックボックスやオプションボタンのプロパティで「LinkCell」を設定できるので、
あらかじめアンケートとして使わないセルに値を代入しておいた方が
高速に処理できると思われます。

>TransferSpreadsheet"メソッドで範囲指定

ヘルプの用例を見ても、複数の範囲の指定はできないと思われます。
２つ以上指定したところで、その関係（フィールドとして横になるのか
レコードとして縦になるのか…等）はAccessが判断できる訳ではないでしょうし。

その判断を付けるためにもVBAでゴリゴリ処理していくしかないと思います。

方法として、

A) Excelから欲しい情報を１つ１つ抜き出してテーブルに保存。

B) 使っていない場所（セル、もしくは新しいシートを用意）に欲しい情報を
　並べて「TransferSpreadsheet」メソッドで取込む。

どちらもオートメーションの処理が必要になりますがVBAで可能です。

※こちらの掲示板ではマルチポスト（複数の掲示板にまったく同じ話題を
投稿すること）容認されてますが、他の掲示板には禁止となっている所も
もちろんあります。気をつけましょう。

・ツリー全体表示


	【5400】Re:縦方向（レコード）のデータを横方向（...

さつき - 05/6/17(金) 14:31 -


	引用なし

	パスワード

小僧さん、ありがとうございます。

できました。でも、ちょっと問題が出てきてしまいました。
せっかく空白フィールドを検索して、次の品目を並べるよう配慮して頂いたのですが。
データによって個数や品目の欄が空白になっている場合があるのです。

それで、１品目ごとに規則的に３つフィールドをとるために以下のようにしたのですが、上手く行きません。どうしたらよいでしょうか？
こんな基本的なこともわからず、すいません。よろしくお願いいたします。

>　　　　If rs2.EOF Then
>　　　　　　rs2.AddNew
>　　　　　　For I = 1 To 4
>　　　　　　　　rs2(I - 1) = rs1(I)
>　　　　　　Next I
>'データあり（追加）
>　　　　 Else
>　　　　　　For I = 0 To 2
>　　　　　　　　rs2(J + 4) = rs1(I + 2)
　　　　　　　　 J = J + 1
>　　　　　　Next
　　　　　　J = J + 1
>　　　　End If
　　　　 J = 0
>'更新
>　　　　rs2.Update
>　　End If
>　　rs1.MoveNext
>　　Loop
>

・ツリー全体表示


	【5399】ＥＸＣＥＬファイルのインポートについて

bejikeni - 05/6/17(金) 13:51 -


	引用なし

	パスワード

こんにちは、ここでは勉強になることが多くて助かります。

早速ですが、ＥＸＣＥＬファイルのインポートについて質問します。
ＥＸＣＥＬのシート上に、チェックボックスおよびオプションボックスを使用したアンケート形式ファイルを作成しました。
このアンケート形式のＥＸＣＥＬファイルを、ＡＣＣＥＳＳのＶＢＡを使用してインポートした場合に、セルの情報は変換されますが、チェックボックスおよびオプションボックスの情報が変換されません。
あと、VBAの".TransferSpreadsheet"メソッドで範囲指定をする際に、"A1:D1"といったような一まとめの範囲は指定できますが、"A1:C1"と"G1:R1"といったような双方の範囲の場合は、同時に指定できるのでしょうか？色々策は尽くしたつもりですが、こちらも別々にメソッドを使用しないとできません。

どなたか、ぜひともご教授願います。

・ツリー全体表示


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

389 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free