Access - VBA Clear σε αναζήτηση

Ascinis · #1 19-10-20, 08:56

Καλη εδομάδα,
Έχω τον παρακάτω κώδικα.
Private Sub Search_Click()

Dim strsearch As String
Dim Task As String
'Check if a keyword entered or not
If IsNull(Me.txtSearch) Or Me.txtSearch = "" Then
MsgBox "Ðáñáêáëþ, åéóÜãåôå êÜðïéá ëÝîç êëåéäß ãéá áíáæÞôçóç.", vbOKOnly, "×ñåéÜæåôáé ëÝîç êëåéäß"
Me.txtSearch.BackColor = vbRed
Me.txtSearch.SetFocus
Else
strsearch = Me.txtSearch.Value
Task = "SELECT * FROM Katagrafi_Antikeimenou WHERE ((Proelevsi Like ""*" & strsearch & "*"") OR (Date Like ""*" & strsearch & "*"") OR (Yli Like ""*" & strsearch & "*"") OR (Thesi Like ""*" & strsearch & "*"") OR (Arithmos_Antistrofou Like ""*" & strsearch & "*"") OR (ID_Antikeimenou Like ""*" & strsearch & "*"") OR (Arithmos_Evreteriou Like ""*" & strsearch & "*""))"
Me.RecordSource = Task
Me.txtSearch.BackColor = vbWhite
End If
End Sub

Και θέλω να βάλω και ένα clear button για να επιστρέφω στις εγγραφές. Μπορεί κάποιος να βοηθήσει;

Ευχαριστώ!

kapetang · #2 19-10-20, 18:30

Καλησπέρα

Γιάννη, δοκίμασε τον παρακάτω κώδικα:΅

Κώδικας:

Private Sub clear_Click()

    Dim Task As String

    Me.txtSearch.Value = Null
    Me.txtSearch.BackColor = vbWhite
    Task = "SELECT * FROM Katagrafi_Antikeimenou"
    Me.RecordSource = Task
    
End Sub

Ascinis · #3 20-10-20, 12:48

Ευχαριστώ! Απλή και κατανοητή λύση!

kapetang · #4 20-10-20, 14:03

Να είσαι καλά και καλή συνέχεια.

Εργαλεία Θεμάτων
Εμφάνιση έκδοσης για εκτύπωση Αποστολή αυτής της σελίδας μέσω email
Τρόποι εμφάνισης
Αλλαγή σε γραμμικό τρόπο Αλλαγή σε υβριδικό τρόπο Αλλαγή σε νηματικό τρόπο