パソコン1に入っているアクセスファイル(accdb)に
パソコン1とパソコン2で同時に開いています。
共有している状態です。
その際、現在ファイルを開いている全てのユーザー名を取得したいのですが
http://oshiete.goo.ne.jp/qa/3589812.html
を参考に
' // 標準モジュール
Private Declare Function GetUserName Lib "ADVAPI32.dll" Alias "GetUserNameA" ( _
ByVal lpBuffer As String, _
ByRef nSize As Long _
) As Long
Private Const MAX_PATH As Long = 256
' // Windows のログインユーザー名を取得する
Public Function GetLoginUserName() As String
Dim sBuffer As String
sBuffer = String$(MAX_PATH, vbNullChar)
If CBool(GetUserName(sBuffer, MAX_PATH) > 0) Then
GetLoginUserName = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
End If
End Function
Sub 使い方サンプル()
Dim sUserName As String
sUserName = GetLoginUserName()
MsgBox "USER: " & sUserName, vbInformation
End Sub
を実行してみたのですが、それぞれ自分のユーザー名しか取得されません。
http://billyboy.blog81.fc2.com/blog-entry-157.html
の
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long
Function GetLoginName()
Dim strBuffer As String * 255, retValue As Long
retValue = GetUserName(strBuffer, 255)
GetLoginName = Left(strBuffer, InStr(strBuffer, vbNullChar) - 1)
End Function
Sub sample()
MsgBox GetLoginName()
End Sub
を実行しても同じです。
http://www.tsware.jp/tips/tips_013.htm
も自分のユーザー名しか取得できません。
どれも標準モジュールに貼り付けました。
現在ファイルを開いているユーザー名を取得するにはどうすればいいでしょうか?
No.1ベストアンサー
- 回答日時:
参考にされたのは何れもコンピュータにログオンしている名前であって
Accessファイルを開いている人の名前ではありません。
参考にすべきはこちらです。
Access でデータベースにログオンしているユーザーを Microsoft Jet UserRoster で調べる方法
http://support.microsoft.com/kb/285822/ja
ただし、これもAccessファイルを開いたときに出来る同名で拡張子が、laccdb のファイルを
メモ帳で開いたときに表示されるのと内容は大差ありません。
ユーザー名はデフォルト設定のAdminです。
コンピュータ名が分かりますので、こちらを使っては?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ 1 2023/07/04 15:13
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る EXEの実行内容の結果によって、戻り値を0か1かで返したい 1 2023/07/04 16:40
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) Sub 分けてソートして貼り付ける() Dim srcSheet As Worksheet Dim 6 2023/08/04 19:57
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数アドレスにメール送信した...
-
これは本当に 「教えて!goo」 ?
-
どうしたらアドレスを青色で表...
-
@live.jpというメールアドレス...
-
空メールが送信されてくるのは?
-
アドレスの語尾 .com .co.jp ...
-
スイッチングハブのMACアドレス...
-
メール送信エラー。宛先アドレ...
-
@**dion.ne.jp は携帯アドレス...
-
件名と本文なしのメールが多い...
-
メールアドレスがばれても悪用...
-
アウトルックで受信メールが連...
-
Yahooメールアドレスを変更した...
-
内定先企業へのアドレス変更連...
-
楽天カードの申し込みに対する...
-
署名の中に自分のアドレスを書...
-
ヤフーメールの迷惑メールに困...
-
フリーメールアドレスから、身...
-
電話番号とメルアド、どっちが...
-
存在しないアドレスに送信した場合
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数アドレスにメール送信した...
-
どうしたらアドレスを青色で表...
-
@live.jpというメールアドレス...
-
アドレスの語尾 .com .co.jp ...
-
空メールが送信されてくるのは?
-
@**dion.ne.jp は携帯アドレス...
-
@gol.comというメールアドレス...
-
スイッチングハブのMACアドレス...
-
件名と本文なしのメールが多い...
-
ybbメールとyahoo.co.jpメール...
-
電話番号とメルアド、どっちが...
-
メール送信エラー。宛先アドレ...
-
メールがエラーで戻ってきまし...
-
アウトルックで受信メールが連...
-
メールアドレスがばれても悪用...
-
 ̄のアドレス入力方法教えて下さい
-
メールがはねかえされて送れな...
-
hotmailから携帯への送信
-
メールを送れません?(@lapis...
-
メールアドレスの先頭の文字が数字
おすすめ情報