Forum

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

Πάμε!
ms-office.gr > Forum > Microsoft Office > Visual Basic for Applications (VBA) > [Access - VBA] Εκτύπωση όσον έχει επιστρέψει η αναζήτηση σε φόρμα

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

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

 

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

Καλημέρα σας,
Έχω τον παρακάτω κώδικα για εκτύπωση:

'ektypwsi
Private Sub cmdPrint_Click()
DoCmd.RunCommand acCmdSelectRecord
DoCmd.PrintOut acSelection
End Sub

Και για αναζήτηση:
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

Τώρα, πώς μπορώ να επιστρέφει 10 εγγραφές η αναζήτηση, και να τις εκτυπώνω;

Ευχαριστώ!
Απάντηση με παράθεση
  #2  
Παλιά 06-11-20, 12:41
Όνομα: Γιάννης
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 10-10-2017
Μηνύματα: 45
Προεπιλογή

Το έχω φτιάξει. Βασικά είναι πολύ εύκολο. Πρώτα αναζητάς και μετά εκτυπώνεις: όλες ή την τρέχουσα. το μόνο που έχω αντικαταστήσει είναι την εντολή DoCmd.PrintOut acSelection με DoCmd.RunCommand acCmdPrint .
Απάντηση με παράθεση
Απάντηση στο θέμα

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

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

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


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Γενικά] Η πράξη έχει πρόβλημα; ΔΗΜΗΤΡΙΟΣ Excel - Ερωτήσεις / Απαντήσεις 3 12-06-20 21:06
[Γενικά] Χρωματισμοί όταν εχει κείμενο. Εμφάνιση ημερομηνίας. VBA. christakos Excel - Ερωτήσεις / Απαντήσεις 2 09-04-20 06:45
[Γενικά] CashRegister (παλιό αρχείο που έχει κλείσει) gfevran Excel - Ερωτήσεις / Απαντήσεις 7 23-04-13 14:25
Εκτύπωση σε συνεχή φόρμα stavros2244 Access - Ερωτήσεις / Απαντήσεις 4 09-04-10 08:46


Η ώρα είναι 02:39.