açılan kutunun tuşa basıldığı olayını aşağıdaki kodla değiştirirseniz esc tuşuna bastığınızda aramayı temizlemiş olursunuz.
Private Sub Açılan_Kutu258_KeyPress(KeyAscii As Integer)
Me.arama = arama & (Chr(KeyAscii))
If Chr(KeyAscii) = Chr(27) Then
Me.arama = ""
End If
Me.Liste262.Requery
End Sub
