Открыть форму выбрав из поля со списком

Private Sub ПолеСосписком_123465789_AfterUpdate()
    If Me!ПолеСосписком_123465789.ListIndex = -1 Then Exit Sub
    
    Select Case Me!ПолеСосписком_123465789
        Case 1: DoCmd.OpenForm "Форма 001"
        Case 2: DoCmd.OpenForm "Форма 002"
        Case 3: DoCmd.OpenForm "Форма 003"
    End Select
    
End Sub

Private Sub ПолеСосписком_123465789_AfterUpdate()
    If Me!ПолеСосписком_123465789.ListIndex = -1 Then Exit Sub
    
    DoCmd.OpenForm Me!ПолеСосписком_123465789
    
End Sub

Public Function FillForms(ctl As Access.Control, varlD As Variant, lngRow As Long, lngCol As Long, intCode As Integer) As Variant
Dim varRetval As Variant: varRetval = Null
Static astrForms() As String
Dim i As Long
On Error Resume Next
 
    Select Case intCode
        Case acLBInitialize
                With CurrentProject.AllForms
                    ReDim astrForms(0 To .Count - 2) As String
                        For i = LBound(astrForms) To UBound(astrForms) + 1
                            With .Item(i)
                                If Not .Name = Me.Name Then
                                    astrForms(i) = .Name
                                End If
                            End With
                        Next i
                End With
            varRetval = True
        Case acLBOpen
            varRetval = Timer
        Case acLBGetRowCount ' Количество строк в списке
            varRetval = UBound(astrForms) + 1
        Case acLBGetColumnCount ' Количество столбцов в списке
            varRetval = 1
        Case acLBGetValue ' Значение на пересечении заданной строки и столбца
            varRetval = astrForms(lngRow)
        Case acLBEnd
            Erase astrForms
    End Select
FillForms = varRetval
End Function