Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Office > Visual Basic for Applications (VBA) > [Access - VBA] Clear σε αναζήτηση

Visual Basic for Applications (VBA) Ερωτήσεις / Απαντήσεις σε σχέση με τη χρήση της VBA.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 19-10-20, 08:56
Όνομα: Γιάννης
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 10-10-2017
Μηνύματα: 45
Προεπιλογή Clear σε αναζήτηση

Καλη εδομάδα,
Έχω τον παρακάτω κώδικα.
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 για να επιστρέφω στις εγγραφές. Μπορεί κάποιος να βοηθήσει;

Ευχαριστώ!

Τελευταία επεξεργασία από το χρήστη Ascinis : 19-10-20 στις 09:27.
Απάντηση με παράθεση
  #2  
Παλιά 19-10-20, 18:30
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.190
Προεπιλογή

Καλησπέρα

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

Κώδικας:
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
Απάντηση με παράθεση
  #3  
Παλιά 20-10-20, 12:48
Όνομα: Γιάννης
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 10-10-2017
Μηνύματα: 45
Προεπιλογή

Ευχαριστώ! Απλή και κατανοητή λύση!
Απάντηση με παράθεση
  #4  
Παλιά 20-10-20, 14:03
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.190
Προεπιλογή

Να είσαι καλά και καλή συνέχεια.
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας



Η ώρα είναι 17:27.