Inspecteer de besturingsbron van alle besturingselementen in uw MS Access-project

Gelukkig nieuwjaar!

Onlangs werkte ik aan een project waarbij ik form spawning implementeerde, zodat mijn klant ten minste twee verschillende records kan zien met behulp van twee identieke formulieren, een van de werkelijke vormen en de andere een voortgebrachte versie van zichzelf (een onderwerp dat ik heb besproken op mijn SQL Server met Access-vergaderingen, klik om deel te nemen aan de aankondigingslijst!). Omdat de vorige ontwikkelaar geen formulier-spawning gebruikte, moest ik alle instanties in de controlebron van alle formulieren doorzoeken om verwijzingen naar het oorspronkelijke formulier te identificeren en het te vervangen door TempVars.

Het project heeft tientallen formulieren en duizenden besturingselementen, dus ik heb de volgende code gemaakt om alle formulierrecordbronnen te scannen op de overtredende rijbron en ook de besturingsbron van alle besturingselementen op het formulier.

Public Sub ScanForms()
On Error Resume Next
Dim obj As AccessObject, dbs As Object
Dim ctrl As Control
Dim strRowsource As String

Stel dbs =Application.CurrentProject in

Voor elke obj in dbs.AllForms
'Debug.Print "Werken aan:" &obj.Name
DoCmd.OpenForm obj.Name, acDesign
strRowsource =Forms(obj.Name).RecordSource
If Err.Number Then
strRowsource =vbNullString
End If
If Len(strRowsource) Then
If InStr(1, strRowsource, “frmPatientProcessing”)> 0 Then
Debug.Print “Form:” &obj.Name
End If
End If
For Each ctrl In Forms(obj.Name).Controls
On Error Resume Volgende
strRowsource =ctrl.ControlSource
If Err.Number Then
strRowsource =vbNullString
End If
On Error GoTo 0
If Len(strRowsource) Then
If InStr(1, strRowsource, “frmPatientProcessing”)> 0 Then
Debug.Print “Form:” &obj.Name &” Control:” &ctrl.Name
End If
End If
Next ctrl
DoCmd.Close acForm, obj.Name
Next obj
End Sub