Visual Basic for Applications (VBA) Ερωτήσεις / Απαντήσεις σε σχέση με τη χρήση της VBA. |
![]() |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
![]()
Καλη εδομάδα, Έχω τον παρακάτω κώδικα. 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
| |||
| |||
![]()
Καλησπέρα Γιάννη, δοκίμασε τον παρακάτω κώδικα:΅ Κώδικας: 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
| |||
| |||
![]()
Ευχαριστώ! Απλή και κατανοητή λύση! ![]() |
#4
| |||
| |||
![]()
Να είσαι καλά και καλή συνέχεια.
|
![]() |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
Εργαλεία Θεμάτων | |
Τρόποι εμφάνισης | |
| |
Η ώρα είναι 03:14.