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
Açılır kutunun odaklandığında olayını aşağıdaki gibi düzenleyip dener misiniz?