大変申し訳ありません。一度、この件で質問し、その回答を締め切ったばかりなのですが、やはりもう少し知りたくて質問させていただきます。
ある方の回答への補足で、以下のマクロを具体例としてあげました。ただし、以下のマクロは、時にはpublic変数が消えてしまいますが、しかし、消えないこともあります。
消える理由として、
回答していただいたものから考えて、
１．End Sub を通っていないままに終了しているから
２．不完全なマクロ
３．きちんと作られたマクロの流れ（ルーチン）ではない流れがある
４．「Public 変数は、標準モジュールを経由して、ローカルのUserForm に供給、しかし、それを戻すということはしない。つまり、a.ローカルで発生した値 →標準モジュールのPublic 変数 →UserFormのローカルのプロシージャ b.標準モジュールのPublic 変数 → UserFormのローカルのプロシージャ
※ただし、起動時の一回きり、それ以上の持ち回しはしない。逆もしない。」この件に関して、以下のマクロに問題がある。
この様なことを考えました。
４．の場合、testMainからtest1.showを呼び出し、a=10とするが、このaの値は、testMainには戻らない(戻らないことがある)のでしょうか、あるいは、testMainのend sub の後は値が保障されないのでしょうか。
あるいは、 Worksheet_SelectionChange でend sub で終わっているので、それ以降は値が保持されないのでしょうか。
あるいは、どこかに欠陥のあるマクロなのでしょうか。
http://okwave.jp/qa/q6420530.html
への回答のno.6の例のマクロでendをコメントにするかしないかで、endをコメントにした場合はend subで終わった後、値が保持されています。このこととも合わせて考えると、どこに問題があるのか、どのような問題があるのか、よく分からなくなってしまいます。
よろしくお願いします。
標準モジュールにーーーーーーーーーーーーーーーーー
Option Explicit
Public a As String
Sub ini()
MsgBox "初期化します"
a = "5"
End Sub
Sub testMain()
If a = "" Then ini
MsgBox a
test1.Show
End Sub
test1 というフォームのモジュールにーーーーーーーーーーーーーー
(このフォームに コマンドボタンがあります。)
Private Sub CommandButton1_Click()
a = "10"
Unload Me
End Sub
シートのモジュールにーーーーーーーーーーーーーーーーー
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
testMain
End Sub
初めて質問させていただきます。
Excelファイルを読み込む処理をAcsess2000を使用して作成しております。
下記、プログラムを実行すると「↓エラー発生個所」箇所にて、
「アプリケーション定義またはオブジェクト定義エラー」が発生します。
Acsessについて、まだ知識不足なため困っております。
どなたか、原因または改善方法について教えていただけないでしょうか？
宜しくお願い致します。
Public Function RoadExcelData(ByVal P_strSheetName As String, ByRef P_valDataArea As Variant)
Dim objExl2 As Object
Dim strSheetName As String
Dim strReadStart As String
Dim valDataArea As Variant
On Error GoTo Err_Handle
'シート名称取得する
strSheetName = m_rsCarrirData.Fields("SHEET_NAME_" & P_strSheetName)
'読み込み開始位置を取得する
strReadStart = m_rsCarrirData.Fields("READ_START_" & P_strSheetName)
'↓エラー発生個所
Set objExl2 = GetObject(m_rsCarrirData.Fields("FILENAME_PATH") & "\" & m_rsCarrirData.Fields("FILE_NAME_" & P_strSheetName))
objExl2.Worksheets(strSheetName).Activate
'Excelデータを読み込む
With objExl2.Worksheets(strSheetName)
P_valDataArea = .Range(strReadStart, .Range("A1").SpecialCells(11)).Value
End With
Exit Function
Err_Handle:
MsgBox Err.Description
End Function
ＮＥＣ製VS700BDを使用しております。本日、起動したところ、
「hal.dllがない」と表示されてしまいました。
windows xpのシステムディスクから起動して回復コンソールを呼び出したのですが、administratorのパスワードの入力画面で、パスワードを入力してEnterを押してもパスワードが正しくないとはねられてしまいます。また、パスワードを入力せずにEnterを押してもはねられてしまいます。
質問なのですが、administratorのパスワードをリセット、または変更する方法はあるのでしょうか？
検索しても、windowsが通常、もしくはセーフモードで起動できる状態での話なので、今回の問題には通用しませんでした。
ＮＥＣのリストアディスク等は、できるだけ使いたくないので、これ以外での方法をお教えください。よろしくお願いいたします。
なお、ＯＳはWindows XP SP3であり、起動できないのを発見したのは本日の１９時ごろです。
MySQLで、UPDATE tablename SET hoge = ? WHERE id = ? (どっちの?もランダムな数値)で、UPDATEのベンチマークをとったのですが、idにインデックスがついている状態だと高速に処理できました。500プロセスで1000回実行しましたが1000QPSでした。
ちなみに100万レコード入ってます。カラムは20程度でintとvarcharしかありません。
単純にUPDATEもレコード検索するからインデックス使うということなんですかね???
どなたか詳しい方この現象について詳しく教えて頂けないでしょうか。
よろしくおねがいします。
