MS Access VBA：オブジェクト変数は使用されていないときに宣言されているスコープを超えていますか？

Question

オブジェクト変数の宣言、設定、呼び出し、および関連するクリーンアップの面倒な、おそらくは混乱を招くプロセスを実行するコード例が頻繁に見られます。それはその機能にプライベートです。

これは本当に必要なのですか？完全なリファレンスを書くときにも同様ですか？

私は議論を聞いたことがあります。コードは読みやすく、速く動作します。前者は非常に主観的であり、後者は本当に気づいていない。

例;

Public Sub TransactionExample() 

    On Error GoTo trans_Err 
    DAO.DBEngine.BeginTrans 

    CurrentDb.Execute "SomeActionQuery", dbFailOnError 
    CurrentDb.Execute "SomeOtherActionQuery", dbFailOnError 

    DAO.DBEngine.CommitTrans 

Exit Sub 

trans_Err: 
    DAO.DBEngine.Rollback 
    MsgBox "Transaction failed. Error: " & Err.Description 
End Sub 

対

Public Sub TransactionExample() 

    Dim wrkSpaceVar As DAO.Workspace 
    Dim dbVar As DAO.Database 

    Set wrkSpaceVar = DBEngine(0) 
    Set dbVar = CurrentDb 

    On Error GoTo trans_Err 
    wrkSpaceVar.BeginTrans 

    dbVar.Execute "SomeActionQuery", dbFailOnError 
    dbVar.Execute "SomeOtherActionQuery", dbFailOnError 

    wrkSpaceVar.CommitTrans 

    trans_Exit: 
    wrkSpaceVar.Close 
    Set dbVar = Nothing 
    Set wrkSpaceVar = Nothing 

Exit Sub 

trans_Err: 
    wrkSpaceVar.Rollback 
    MsgBox "Transaction failed. Error: " & Err.Description 
    Resume trans_Exit 
End Sub 

私は "何も" への変数の設定についての質問ではないのです。彼らが必要なのかどうか尋ねています。そしてそれが価値があるものについては、必要な、提供された例の範囲内。

Answer 1

要するに、参照は両方のコードサンプルで同じになるため、ローカル変数に格納する必要はありません。 をにローカル変数に設定するのは、必要なオブジェクト逆参照呼び出しを避けるためです。あなたの例では、DAO.DBEngineが3回呼び出されます。それぞれは本質的に、処理しているオブジェクト参照を取得するための処理オーバーヘッドを伴う関数呼び出しです。あなたの上の例では、その関数呼び出しはに一度だけとされ、結果はローカル変数参照にキャッシュされます。あなたはローカル変数を宣言したくない場合は

、あなたはWithブロックにおいて同一の参照を使用するコードをラップすることにより、同じことを行うことができます：あなたがのトンをやっている場合を除き

Public Sub TransactionExample() 
    With DBEngine(0) 
     On Error GoTo trans_Err 
     .BeginTrans 
     With CurrentDb 
      .Execute "SomeActionQuery", dbFailOnError 
      .Execute "SomeOtherActionQuery", dbFailOnError 
     End With 
     .CommitTrans 
trans_Exit: 
     .Close 
     Exit Sub 

trans_Err: 
     .Rollback 
     MsgBox "Transaction failed. Error: " & Err.Description 
     Resume trans_Exit 
    End With 
End Sub 

（それを広範囲にわたってループする）場合、パフォーマンスの差はごくわずかなものにすぎません。

注 - 変数をNothingに設定する必要はありません。ランタイムはスコープを離れるときにそれを処理します。