Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
102 / 500 ﾍﾟｰｼﾞ ←次へ　｜　前へ→
【11253】Re:共有ドライブへのデータ接続方法
お礼  AccessVBA初心者  - 09/11/25(水) 1:02 -
引用なし
パスワード
   ご返信有難う御座います。

結論から申し上げますと、パスワード付きMDBへADO接続をしたいということです。

説明不足で失礼致しました。小僧さんのご提示頂いたヒントで

問題は解決致しました。有難う御座いました。


>こんにちは。
>
>ご提示された内容ですと、
>どの辺が行き詰っているのかが解りづらいですね。
>
>
>> 共有ドライブへのデータ接続方法（題名）
>共有ドライブでなかったら接続できますか？
>
>> セキュリティーの関係上パスワードがついております。
>パスワードが付いてなかったら接続できますか？
>
>> クラスモジュールで下記のような書き方だとエラーになります。
>クラスモジュールを使わなければエラーが出ないのですか？
>
>
>> ◇Rﾄﾞﾗｲﾌﾞ：共有用◇　　　←　　　◇Gﾄﾞﾗｲﾌﾞ：個人用◇
>> ABC.mdb　　　　　　　　　　　　　DEF.mdb
>> Const myPath As String = "D:\6108"
>> DBQ=" & Application.CurrentProject.Path & "\database.mdb;"
>
>提示されている情報がバラバラですよね。
>
>そのままご提示されている内容から判断すると、
>ただ単に データMDBのパス名、ファイル名が違う為
>ファイルが存在しないエラーが発生しているだけに思えてしまいます。
>
>
>パスワード付きMDBへADO接続をしたい、という事であれば
>ConnectionString に "PWD=xxxx;" を追加してみて下さい。
・ツリー全体表示
【11252】Re:共有ドライブへのデータ接続方法
回答  小僧  - 09/11/24(火) 17:12 -
引用なし
パスワード
   ▼AccessVBA初心者 さん：
こんにちは。

ご提示された内容ですと、
どの辺が行き詰っているのかが解りづらいですね。


> 共有ドライブへのデータ接続方法（題名）
共有ドライブでなかったら接続できますか？

> セキュリティーの関係上パスワードがついております。
パスワードが付いてなかったら接続できますか？

> クラスモジュールで下記のような書き方だとエラーになります。
クラスモジュールを使わなければエラーが出ないのですか？


> ◇Rﾄﾞﾗｲﾌﾞ：共有用◇　　　←　　　◇Gﾄﾞﾗｲﾌﾞ：個人用◇
> ABC.mdb　　　　　　　　　　　　　DEF.mdb
> Const myPath As String = "D:\6108"
> DBQ=" & Application.CurrentProject.Path & "\database.mdb;"

提示されている情報がバラバラですよね。

そのままご提示されている内容から判断すると、
ただ単に データMDBのパス名、ファイル名が違う為
ファイルが存在しないエラーが発生しているだけに思えてしまいます。


パスワード付きMDBへADO接続をしたい、という事であれば
ConnectionString に "PWD=xxxx;" を追加してみて下さい。
・ツリー全体表示
【11251】共有ドライブへのデータ接続方法
質問  AccessVBA初心者  - 09/11/22(日) 18:20 -
引用なし
パスワード
   質問です。

・共有(Rﾄﾞﾗｲﾌﾞ)ドライブにあるMDBにｸﾗｲｱﾝﾄ側(Gﾄﾞﾗｲﾌﾞ)から接続する方法がしりたいです。
共有ドライブにあるMDBはセキュリティーの関係上パスワードがついております。

クラスモジュールで下記のような書き方だとエラーになります。
上記のようにパスワードがついているとどうしたらいいのか分かりません。

ご返答の程宜しくお願い致します。

Private adoCon As ADODB.Connection 'コネクションオブジェクト
Private adoRS　As ADODB.Recordset　'レコードセットオブジェクト

'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
'■クラス初期処理（生成時に自動実行）
'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
Private Sub Class_Initialize()

　 Const myPath As String = "D:\6108"
　 Dim Path As String
　 Path = myPath

　 Set adoCon = New ADODB.Connection

　 adoCon.Open "Driver={Microsoft Access Driver (*.mdb)};" _
　　　　　　 & "DBQ=" & Application.CurrentProject.Path & "\database.mdb;"

End Sub

◇Rﾄﾞﾗｲﾌﾞ：共有用◇　　　←　　　◇Gﾄﾞﾗｲﾌﾞ：個人用◇
ABC.mdb　　　　　　　　　　　　　DEF.mdb
ﾃｰﾌﾞﾙのみある　　　　　　　　　　フォームのみある
※ﾊﾟｽﾜｰﾄﾞ設定有り

という「←」の部分にたいする質問です。
・ツリー全体表示
【11250】セフレ確定♪
発言  裕次郎 E-MAIL  - 09/11/21(土) 14:44 -
引用なし
パスワード
   まんちょのにおいって本当に一人一人違うんだなｗｗ
すっぱいのやらしょっぱいのやら色々経験してきましたわｗ
でも昨日の女は神だった！！まんちょの温もり！締まり具合！
そしてにおいから味まで最高すぎ！！
tp://zip.koreikura.net/ibpmqlg/.htm
マジ気持ち良過ぎて3分持たなかったわｗｗｗ
・ツリー全体表示
【11249】Re:フォームの変数を　レポートへ
回答  hatena  - 09/11/20(金) 20:27 -
引用なし
パスワード
   >フォーム内でパブリック宣言した変数の値を
>レポートへ引継ぎ　印刷したい

フォームモジュールで、

Public X As String

と宣言すれば、レポートのコントロールソースで、

=Forms!フォーム名.X

とすれば変数の値を表示できます。
レポートのモジュール内でも、
Forms!フォーム名.X
で参照できます。

AC2003以降なら、OPenReportメソッドの OpenArgs引数で
渡すという方法も可能です。
・ツリー全体表示
【11248】Re:フォームの変数を　レポートへ
発言  超初心者  - 09/11/19(木) 9:52 -
引用なし
パスワード
   ▼おじさんです さん：
> フォーム内でパブリック宣言した変数

標準モジュール内でパブリック宣言する、というのはダメですかね？

素人考えで申し訳ないです＾＾；；
・ツリー全体表示
【11247】フォームの変数を　レポートへ
質問  おじさんです  - 09/11/18(水) 14:29 -
引用なし
パスワード
   フォーム内でパブリック宣言した変数の値を
レポートへ引継ぎ　印刷したい

アドバイスお願いします
・ツリー全体表示
【11246】ヴィィィッィィィンン！！
発言  押忍番長 E-MAIL  - 09/11/14(土) 14:26 -
引用なし
パスワード
   俺テクとか全くないけどそれでも月収40万！！
まぁ〜ちょっとした裏技使ってんだけどなｗｗｗ
秘密は電マｗｗ使った奴なら分るけど電マ使って逝きそうに
なった時にすかさず寸止め→交渉ｗｗただこれだけ！！
電マは自腹切っても買っとくべしｗ
tp://zoo.donune.net/spln3-3.html
・ツリー全体表示
【11245】Re:レポートの文字切れ
発言  超初心者  - 09/11/12(木) 17:00 -
引用なし
パスワード
   ▼初心者です さん：
案です。

> 文字数が少ないところは空白が目立って
ということは、そのテキストボックスの右にも
テキストボックスを配置しているのですよね。

２つ（以上）のテキストボックスの内容を
「＆」でつないで、一つのテキストボックスで
表示してみてはいかがでしょう。


ＬＥＮ関数で文字数を取得して、「スペース」を
適当数追加すれば、列合わせも可能かと思います。
（Ｐ無しフォントにする必要はありますが）


ちょっと強引な方法ですが、参考までに。。。
・ツリー全体表示
【11244】レポートの文字切れ
質問  初心者です  - 09/11/12(木) 12:24 -
引用なし
パスワード
   レポート機能についての質問です。リストをレポートを使って打ち出したいのですが、文字数に幅があるため、一部隠れて表示されないところが出てしまい困っています。あらかじめかなり広く行を設定しておくと解決できるのですが、全体がその幅になってしまうため、文字数が少ないところは空白が目立ってしまっている状況です。できれば自動的にその文字数に併せた幅に設定できればと思うのですが、どなたかお分かりでしたらご教示いただければ幸いです。宜しくお願いいたします。
・ツリー全体表示
【11243】Re:アクセスからコンボボックスを使って...
お礼  やまネコ122 E-MAIL  - 09/11/12(木) 9:19 -
引用なし
パスワード
   小僧さん

ご指摘ありがとうございます。

今一度、基礎からじっくり勉強します。

ありがとうございました。
・ツリー全体表示
【11242】Re:上位２ランクの割合を出すには
お礼  にしもり  - 09/11/11(水) 19:19 -
引用なし
パスワード
   ▼小僧 さん：
できました！
有難うございました。
SQLが面白く思えてきました。
・ツリー全体表示
【11241】Re:アクセスからコンボボックスを使って...
回答  小僧  - 09/11/11(水) 19:14 -
引用なし
パスワード
   ▼やまネコ122 さん：
こんにちは。

ご投稿された際にただ単純にコードを打ち間違えたのか
それともそのままのコードが載っているのかが不安ですが
直接の原因は

> Exit_コマンド285_Click
↓
Exit_コマンド285_Click:
　　　　　　　　　　　^^
だと思われます。

・Excel.exe と ファイル名の間にスペースがない
・文字列連結の & の前後にスペースがない
・テキスト283が2回出てきている
・2回目の テキスト283 と Me の間に「.」がない
・そもそも起動する為のShell関数が記述されていない

等、突っ込み所がたくさんありますね…。
・ツリー全体表示
【11240】Re:上位２ランクの割合を出すには
回答  小僧  - 09/11/11(水) 18:55 -
引用なし
パスワード
   ▼にしもり さん：
こんにちは。

> クエリの結果、或るフィールドに5,4,3,2,1のいずれかの値が入っています。

更にクエリを作って良いのであれば

SELECT -Sum([ランク]>3) AS ランク４以上
　　　, Sum(1) AS 全カウント
　　　,-Sum([ランク] >3) / Sum(1) AS 割合
FROM クエリ名;

クエリ名、ランクを適宜変更した上で
上記クエリをSQLビューに貼り付けて
結果を確認されてみて下さい。
・ツリー全体表示
【11239】Re:アクセスからコンボボックスを使って...
質問  やまネコ122 E-MAIL  - 09/11/11(水) 16:32 -
引用なし
パスワード
   フォームにテキストボックスは配置し、コマンドボタンでエクセルを開くこうと
しています。テキストボックス名：テキスト283、コマンドボタン名：コマンド285

Gドライブにある見積書フォルダの○○○.xlsを開くものです。

Private Sub　コマンド285_Click()
On Error GoTo Err_コマンド285_Click

Dim stAppName As String

stAppName="Excel.exe\\servoer0\G:見積書\"& Me.テキスト283&"\"& Meテキスト283 & "*.xls"

Exit_コマンド285_Click
Exit Sub

Err_コマンド285_Click
MsgBoxErr.Description
Resume Exit_コマンド285_Click

End Sub
-------------------------------------------------------------------------
上記の中で「Exit_コマンド285_Click 」がコンパイルエラーが出て
”SubまたはFunctionが定義されていませんと”表示されます。

解決方法をご教示頂きたく、宜しくお願い致します。
・ツリー全体表示
【11238】上位２ランクの割合を出すには
質問  にしもり  - 09/11/11(水) 14:31 -
引用なし
パスワード
   こんにちは。

VBAでないかしれませんが教えてください。
クエリの結果、或るフィールドに5,4,3,2,1のいずれかの値が入っています。
いま、5または4の合計個数を、全ての個数（excelでいえばcounta）で除算した結果が出るようなクエリを作りたいとき、どうすればよろしいでしょうか。
問題なのは、全ての個数というが定まっておらず、つどにcountaしないといけない点です。
抽出条件になにか式を入れればできるでしょうか。
=(countif,4 + countif,5)/counta　みたいな。
むちゃくちゃな聞き方ですみません。

いってみれば通信簿の上位２ランクの者の割合を出したいのです。
・ツリー全体表示
【11237】Re:アクセスからコンボボックスを使って...
お礼  やまネコ122 E-MAIL  - 09/11/11(水) 9:36 -
引用なし
パスワード
   ご指摘ありがとうございます。
ご指摘自体に自らの未熟さに改めて気付かされてます。

アクセスから特定のエクセル（ブック）を開きたいので
コンボボックスによる方法にこだわりはありませんでした。

教えていただいた「ファイルを開く/ダイアログ」でチャレンジ
してみます。

取り急ぎお礼まで。
ありがとうございました。
・ツリー全体表示
【11236】Re:アクセスからコンボボックスを使って...
発言  超初心者  - 09/11/10(火) 8:54 -
引用なし
パスワード
   ▼やまネコ122 さん：

コンボボックスに表示する、ということは、
フォルダ内のファイル一覧を取得する、ということでしょうか？

そうであった場合、
フォルダごとに取得？
サブフォルダ等は無視してとにかくファイル名一覧？

シートを選択、ということは、
エクセルブック内の特定のシートを選択したい、ということでしょうか？
それとも「ブック名」の間違い？


いずれにしても、コンボボックスで取得するより
「ファイルを開く」ダイアログを使った方が簡単な気もしますが・・・
（「Ｇ：￥」を既定にすることもできますし）

コンボボックスに表示するデータを取得する処理で時間も掛かりそうな気がします＾＾；；
それでもコンボボックスを使用したい特別な理由でもあるのでしょうか？

「ファイルを開く」ダイアログの使用方法は検索するとたくさん出てきます。
・ツリー全体表示
【11235】アクセスからコンボボックスを使って特定...
質問  やまネコ122 E-MAIL  - 09/11/9(月) 17:10 -
引用なし
パスワード
   初心者です。
ＡＣＣＥＳＳ2002，ＸＰです。

Gドライブ（共有ハードディスク）にあるシートを開く為、
コンボボックスで特定シートが含まれるフォルダから、
さらにシートを表示し、選択してエクセルを開きたい（読み書き）のです。

コンボボックスにコマンドボタンのイメージです。

ご存知の方、ご教示方、宜しくお願いいたします。
・ツリー全体表示
【11234】アクセスからコンボボックスを使って特定...
質問  やまネコ122 E-MAIL  - 09/11/9(月) 17:08 -
引用なし
パスワード
   初心者です。
ＡＣＣＥＳＳ2002，ＸＰです。

Gドライブ（共有ハードディスク）にあるシートを開く為、
コンボボックスでフォルダを特定させ、
さらにシートを選択し、エクセルを開きたい（読み書き）のです。

コンボボックスに実行コマンドのイメージです。

ご存知の方、ご教示方、宜しくお願いいたします。
・ツリー全体表示
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
102 / 500 ﾍﾟｰｼﾞ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1082727
(SS)C-BOARD v3.8 is Free