Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7 Professional : Access 2003)
windows内のアカウント名をフォームに表示するには
投稿日時: 17/04/11 14:19:46
投稿者: yrp05001

お世話になります。
  
現在フォームを作成しているのですが
以下の処理を実行したいとおもっております。
  
フォームに何か入力が行ったとき
  
IDキーを以下の法則に従ってIDのカラムにデータが自動でセットされる
 レコードが自動でセットされた日時
20170411141631-windowsのアカウント名
としたいのです
  
その際
  
Private Sub Form_BeforeInsert(Cancel As Integer)
   
 Me.ID = Format(Now, "yyyymmddhhmmss")
   
 End Sub
   
とすれば
日時は自動でセットされることはわかりました。
しかし
winsowsのアカウントを自動でセットするにはのように記載すればよいのでしょうか
 お手数ですがアドバイスの程宜しくお願い申し上げます

回答
投稿日時: 17/04/11 14:40:54
投稿者: sk

引用:
IDキーを以下の法則に従ってIDのカラムにデータが自動でセットされる
 レコードが自動でセットされた日時
20170411141631-windowsのアカウント名
としたいのです

引用:
Me.ID = Format(Now, "yyyymmddhhmmss")

Me.ID = Format(Now, "yyyymmddhhmmss") & "-" & Environ("USERNAME")

投稿日時: 17/04/11 15:37:04
投稿者: yrp05001

迅速かつ的確なコメントありがとうございました。
 
またなにかありましたら宜しくお願い申し上げます。
 Very Happy