amvExplorer Version 1.0.0.3

Diese Version bringt Änderungen, die für folgenden Fall hilfreich sind:

• Du möchtest beim Entwickeln in die Entwurfsansicht wechseln, während der Watcher läuft, also auf Dateioperationen gelauscht wird.

Willst Du diese Version in eine vorhandene Lösung integrieren, sind folgende Schritte nötig:

• Ersetze die Module CLASS_AMV_EXPLORER und CLASS_AMV_WATCH aus der Datei amvExplorer_AKTUELLEDEMO_1.0.0.3.accdb.

• Füge die Ereignisprozedur Form_Error wie folgt hinzu oder ergänze die vorhandene Form_Error-Prozedur:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
Dim sName As String
On Error Resume Next
  Select Case DataErr  
    Case 2174 ' Current View can not change to acDesign, stop the Watcher to change the View    
      Response = acDataErrContinue  
      objExplorer.RegisterTerminate ' Must be... to terminate all events    
      Set objExplorer = Nothing      
      DoEvents      
      sName = Me.Name      
      DoCmd.Close acForm, sName      
      DoCmd.OpenForm sName, acDesign  
    Case Else  
      Response = acDataErrContinue  
  End Select
End Sub

Füge außerdem in Form_Unload Folgendes ein:

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
  objExplorer.RegisterTerminate
End Sub

Wenn Du das Verhalten für den amvExplorer im Unterformular erhalten möchtest, schaue Dir die Beispielformulare FRM_MAIN und FRM_SUB an.