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
Adı Soyadı:
ZE....
Yaşı:
55
Konum:
Eskişehir
Ofis Versiyonu:
Ofis 2013 64 Bit
Son Oturumu:
30/09/2019,13:28
Cevapla