Açılır kutunun odaklandığında olayını aşağıdaki gibi düzenleyip dener misiniz?

Private Sub ACK1_GotFocus()

Me.ACK1.RowSource = ""

kriter = IIf(IsNull(Çerçeve0), "", " where KATSAYILAR='" & Me.Çerçeve0 & "'")

Me.ACK1.RowSource = "select * from sorgu1 " & kriter

End Sub