aşağıdaki kodları dener misiniz?
form yüklneme olayı

Private Sub Form_Load()

For x = 1 To 8

        Controls("Açılan_Kutu" & x).OnGotFocus = "=Odaklan(" & x & ")"

Next x

End Sub

açılır kutu odaklanma olayı

Public Function Odaklan(ByRef ctl As Byte)

SqlX = "SELECT Tablo1.DENEME " & _

      "FROM Tablo1 "

For x = 1 To 8

  If ctl <> x Then Krtr = Krtr & IIf(Controls("Açılan_Kutu" & x) <> "", "','" & Controls("Açılan_Kutu" & x), "")

Next x

Krtr = Mid(Krtr, 3)

SqlX = SqlX & IIf(Krtr <> "", "WHERE ((Tablo1.DENEME) Not In (" & Krtr & "'));", ";")



Controls("Açılan_Kutu" & ctl).RowSource = SqlX



End Function