EKIPMAN açılan kutusunun "Güncelleştirme Sonrasında" olayındaki kodu aşağıdaki ile değiştir.

Private Sub ekipman_AfterUpdate()

Dim deger As String

ADRES = Me.EKIPMAN.Column(1)

LOKASYON = Me.EKIPMAN.Column(2)

deger = Left(EKIPMAN, 2)



Select Case deger

    Case "KM"

        Me.ARZKD.RowSource = "SELECT [ARIZA KODLARI].[KESME ARIZA KODU], [ARIZA KODLARI].[KESME ARIZA TANIMI] FROM [ARIZA KODLARI];"

    Case "US"

        Me.ARZKD.RowSource = "SELECT [ARIZA KODLARI].[US ARIZA KODU], [ARIZA KODLARI].[US ARIZA TANIMI] FROM [ARIZA KODLARI];"

    Case Else

        Me.ARZKD.RowSource = "SELECT [ARIZA KODLARI].[KESME ARIZA KODU], [ARIZA KODLARI].[KESME ARIZA TANIMI] FROM [ARIZA KODLARI]; UNION SELECT [ARIZA KODLARI].[US ARIZA KODU], [ARIZA KODLARI].[US ARIZA TANIMI] FROM [ARIZA KODLARI];"

    End Select

End Sub

US ile başlıyorsa US Arıza Kodu, KM ile başlıyorsa Kesme Arıza Kodu, her ikisi de değilse tablodaki sütunlar birleşiyor.