WScriptを使用する。
Dim shell As Object Set shell = CreateObject("WScript.Shell") shell.Popup "5秒後、自動的に閉じます", 5, "タイトルバー", vbInformation Set shell = Nothing
人生の最終目標は気ままな老後生活
WScriptを使用する。
Dim shell As Object Set shell = CreateObject("WScript.Shell") shell.Popup "5秒後、自動的に閉じます", 5, "タイトルバー", vbInformation Set shell = Nothing
Environ関数を使う。引数に%はいらない。
Environ("USERPROFILE")
結果 C:\Documents And Settings\User
ADOX(Microsoft ADO Ext. 2.X for DDL and Security)の参照設定が必要。
Dim startNo As Long startNo = InputBox("開始Noを指定してください。") Dim cat As New ADOX.Catalog Set cat.ActiveConnection = CurrentProject.Connection With cat.Tables("テーブル名").Columns .Item("フィールド名").Properties("Seed") = startNo .Refresh End With Set cat = Nothing