選択されている複数のアドレスが知りたいので
標準モジュールに
Sub test(ByVal Target As Range)
Debug.Print Target.Address
End Sub
と書きました。
しかしF5ボタンを押しても何も起こりません。
デバッグ→コンパイルをしてもエラーになりません。
シートのイベントプロシージャーではなく
標準モジュールにした理由は
イベント発生時ではなく、任意で起動させたいためです。
ためしに、
Sub test(ByVal Target As Range)
Debug.Print Target.Address
End Sub
の下に、
Sub test2()
Call test
End Sub
と書いたら、
「引数は省略できません。」
というエラーになりました。
何がダメなのかわかりません。
ご教授よろしくお願い致します。
Access2003を使用しています。
単純な質問かもしれませんがよろしくお願いします。
ログイン画面を作成しておりログイン自体はできたのですが、ログインしたときに
ログイン画面を自動的に閉じたいのですが、うまくいきません。
現在の仕様では、ログイン画面(frm_ログイン)とメイン画面(frm_main)があり
ログインに成功するとメイン画面が開くようになっています。
ーー以下VBAコードーー
Private Sub rogin_Click()
Dim a
If IsNull(Me.[UserName]) Then
MsgBox "IDが未入力です"
Me.[UserName].SetFocus
ElseIf IsNull(Me.[password]) Then
MsgBox "パスワードが未入力です"
Me.[password].SetFocus
Else
a = DLookup("パスワード", "tbl_ユーザー", "ユーザー名='" & Me.[UserName] & "'")
If IsNull(a) Then
MsgBox "該当する ユーザー名 は存在しません"
Me.[UserName].SetFocus
ElseIf StrComp(a, Me.[password], vbBinaryCompare) = 0 Then
On Error GoTo Err_rogin_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm_main"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox "パスワードが違います"
Me.[password].SetFocus
End If
End If
Exit_rogin_Click:
Exit Sub
Err_rogin_Click:
MsgBox Err.Description
Resume Exit_rogin_Click
End Sub
ーー以上ーー
長くなって申し訳ないのですが、どのようにすればログイン後にログイン画面（frm_ログイン)を閉じるようにできるのでしょうか？
よろしくお願いします。
パソコンが立ち上がらない。
修復するための方法を連絡願います。
メッセージ内容
Ａ problem has been detected and windows has been shut down to prevent damage
to your computer.
Tte problem seems to be caused by the following file:klif.sys
The drider unloaded without cancelling pending operations.
If this is the first time you've seen this stop error screen,
resteart your computer, If this screen appears again, follow
these steps:
Check to make sure any new hardware or sftware is properly installed.
If this is a new installation, ask your hardware or sftoware manufacturer
for any windows updates you might need.
If problems continue, disable or remove any newly installed hardware
or sftware. Disable BIOS memory options such as caching or shadowing.
If you need to use Safe Mode to remove or disable components, restert
your computer, press F8 to select Advanced Startup Opetion, and then
seletct Safe Mode.
Technical information:
*** STOP: 0x000000D4 (0xAA24F938,0x000000FF,0x00000001,0x80544675)
