データベースにログオンしているユーザーを Microsoft Jet UserRoster で調べる方法
http://support.microsoft.com/kb/285822/
を調べたのですが、この方法だとDebug.Printでイミディエイト ウィンドウに値を返していますよね??
これをフォームを作成しテキストBoxなどに返す方法を教えて下さい。
宜しくお願いします。
No.2ベストアンサー
- 回答日時:
ただ見せるだけでよいのですよね?
フォーム名を、F1
テキストボックス名を、TX1
としたら下記の感じで如何でしょ。
テキストボックスのフォントは、Pの付かない当幅フォントにして下さい。
Sub ShowUserRosterMultipleUsers2()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim i, j As Long
Dim s As String
Set cn = CurrentProject.Connection
' The user roster is exposed as a provider-specific schema rowset
' in the Jet 4.0 OLE DB provider. You have to use a GUID to
' reference the schema, as provider-specific schemas are not
' listed in ADO's type library for schema rowsets
Set rs = cn.OpenSchema(adSchemaProviderSpecific, _
, "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
'Output the list of all users in the current database.
s = Format(rs.Fields(0).Name, String(20, "@")) _
& Format(rs.Fields(1).Name, String(20, "@")) _
& Format(rs.Fields(2).Name, String(20, "@")) _
& Format(rs.Fields(3).Name, String(20, "@"))
While Not rs.EOF
s = s & vbCrLf _
& Format(Left(rs.Fields(0), Len(Trim(rs.Fields(0))) - 1), String(20, "@")) _
& Format(Left(rs.Fields(1), Len(Trim(rs.Fields(1))) - 1), String(20, "@")) _
& Format(rs.Fields(2), String(20, "@")) _
& Format(Nz(rs.Fields(3), "Null"), String(20, "@"))
rs.MoveNext
Wend
Forms!f1!tx1 = s
rs.Close
Set rs = Nothing
cn.Close
End Sub
説明
Format(rs.Fields(0).Name, String(20, "@"))
文字の桁数を20に揃える為に行っています。20は適当に変えて下さい
s = s & vbCrLf は改行
Format(Left(rs.Fields(0), Len(Trim(rs.Fields(0))) - 1), String(20, "@"))
Trim(rs.Fields(0)) で余分なスペース削除
さらに私の環境に依存するかもしれませんが、文字の最後ににごみが付くので
Left で一文字削っています。
上記モジュールを適当なコマンドボタンとか何かで
Call ShowUserRosterMultipleUsers2 してあげればよいと思います。
注
提示されたリンク先では、参照設定に Microsoft ActiveX Data Objects 2.6 Library
とありますが、2.6 にチェックを入れると、ADO のヘルプが見られなくなります。
(中身が真っ白なヘルプしかでてこない)
なので、2.5 にチェックを入れておいた方が良さそうです。
当方Access2002 ですが、2.5でも動きました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(パソコン・スマホ・電化製品) Microsoftファミリー機能 2 2022/05/01 11:50
- PDF PDF化するときのサイズについて 2 2023/07/15 10:16
- Access(アクセス) Accessテキストボックス内に2つのフィールドの値を比較して大きい方の値を表示させる方法 1 2022/09/09 10:50
- 画像編集・動画編集・音楽編集 Microsoft Clipchamp のフォントサイズの変更方法 1 2022/09/09 05:10
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- 画像編集・動画編集・音楽編集 Native Accessのインストールが先に進みません 2 2022/09/14 13:34
- その他(プログラミング・Web制作) python fbprophetについて 1 2022/09/29 19:44
- Windows 10 Microsoft IMEを無効化する方法 1 2022/07/28 08:20
- Windows 10 Windows11でMP3 CDを作る方法 17 2022/10/17 19:17
- MySQL 参考書に従って入力したつもりでしたが、最後はエラーがでました。 1 2022/09/28 03:45
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
勃起する時って痛いんですか? ...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
ある範囲のセルから任意の値を...
-
甲状腺が腫れているが血液検査...
-
【Excelで「正弦波」のグラフを...
-
エクセル指定した範囲からラン...
-
精子が黄色?
-
2つの数値のうち、数値が小さい...
-
これって喉仏ですか? 私は女性...
-
至急!尿検査前日にオナニーし...
-
EXCELで条件付き書式で空白セル...
-
Excelで""で囲む方法
-
EXCELで式からグラフを描くには?
-
中出しをするとお腹が痛い・・・。
-
筋トレするとチンコが縮んじゃ...
-
エクセルの質問。 対象範囲...
-
精子に血が・・・
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
至急!尿検査前日にオナニーし...
-
白血球が多いとどんな心配があ...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
尿検査の前日は自慰控えたほう...
-
精子が黄色?
-
中出しをするとお腹が痛い・・・。
-
EXCELで条件付き書式で空白セル...
-
口の中に黒い血の塊
-
これって喉仏ですか? 私は女性...
-
2つの数値のうち、数値が小さい...
-
納豆食べた後の尿の納豆臭は何故?
-
EXCELで式からグラフを描くには?
-
小数点以下を繰り上げたものを...
-
excelでsin二乗のやり方を教え...
-
エクセル指定した範囲からラン...
おすすめ情報