Ανανέωση ιστοσελίδας

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Κλειστό Θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 22-05-24, 12:06
Όνομα: Γεώργιος
Έκδοση λογισμικού Office: Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 26-05-2023
Μηνύματα: 28
Προεπιλογή search

καλή σας μέρα ,

Έχω ένα ερώτημα προς επίλυση. Ευχαριστώ εκ των προτέρων .
Στο δείγμα που ανέβασα έχω έναν φάκελο με αρχεία XML στον υπολογιστή μου έχω βάλλει τον φάκελο και το δείγμα της βάσης στον c: ="C:\search"

Η φόρμα έχει ως περιεχόμενο αποκλειστικά αρχεία XML.
Τα ονόματα των αρχείων είναι αποκλειστικά αριθμητικά.
ΖΗΤΟΥΜΕΝΟ
1. Η προβολή του περιεχομένου της φόρμας να είναι από προεπιλογή σταθερή: Σε λίστα και η ταξινόμηση αύξουσα ανά όνομα. Δηλαδή όταν κάνω ταξινόμηση και στη συνέχεια κλείσω και ανοίξω την φόρμα να είναι προεπιλεγμένη λίστα και ΑΩ κατά όνομα, κάτι που δεν συμβαίνει σήμερα.
2. Αν μπορώ να κάνω αναζήτηση πληκτρολογώντας τον αριθμό
3. Εάν ο αριθμός που βρέθηκε με το ENTER να μετονομάζεται σε αριθμό 1 ( το αρχείο που μετονομάστηκε σε 1 θα είναι μοναδικό κάθε φορά 1 επειδή θα μεταφέρεται σε άλλο φάκελο μετά από επεξεργασία.
Γιώργος
Συνημμένα Αρχεία
Τύπος Αρχείου: zip search.zip (52,1 KB, 5 εμφανίσεις)
  #2  
Παλιά 22-05-24, 13:06
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.027
Προεπιλογή

Καλημέρα Γιώργο.

Πρόσθεσε τον παρακάτω κώδικα στη φόρμα και δοκίμασε:

Κώδικας:
Private Sub web1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    On Error Resume Next
    pDisp.Document.CurrentviewMode = 4 'Προβολή:  4 = Λεπτομέρειες, 3 = Λίστα
    pDisp.Document.SortColumns = "prop:System.ItemTypeText;System.ItemNameDisplay;"  'ταξινόμηση με αύξουσα σειρά
   'pDisp.Document.SortColumns = "prop:-System.ItemTypeText;-System.ItemNameDisplay;"   'ταξινόμηση με φθίνουσα σειρά
End Sub
Καλή συνέχεια.

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
  #3  
Παλιά 22-05-24, 18:48
Όνομα: Γεώργιος
Έκδοση λογισμικού Office: Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 26-05-2023
Μηνύματα: 28
Προεπιλογή

Τάσο ευχαριστώ για μια ακόμα φορά. Η προβολή και η ταξινόμηση είναι όπως ζητήθηκε. Υπάρχει τρόπος να ισχύσει το 2ο και 3ο ερώτημα ; Η γενικά να μπορώ να κάνω αναζήτηση εντός του πλασίου web1 της φόρμας b ;
Ευχαριστώ
  #4  
Παλιά 22-05-24, 22:39
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.027
Προεπιλογή

Καλησπέρα Γιώργο.

Όσον αφορά το δεύτερο σου ερώτημα, μπορεί να γίνει.

Το τρίτο σου ερώτημα δεν το κατάλαβα.


Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
  #5  
Παλιά 23-05-24, 10:00
Όνομα: Γεώργιος
Έκδοση λογισμικού Office: Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 26-05-2023
Μηνύματα: 28
Προεπιλογή

Τάσο ας απαλείψουμε το τρίτο και να πάμε σε αναζήτηση με πληκτρολόγηση - ευχαριστώ
  #6  
Παλιά 23-05-24, 16:23
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.027
Προεπιλογή

Καλησπέρα σε όλους:

Γιώργο, στο συνημμένο αρχείο υπάρχει ένα απλό παράδειγμα που νομίζω ότι θα σε βοηθήσει αν το προσαρμόσεις σύμφωνα με στις απαιτήσεις σου.

Πριν ξεκινήσεις τις δοκιμές σου θα χρειαστεί να δημιουργήσεις έναν επιπλέον φάκελο με το όνομα C:\XML_EditFolder για να λειτουργήσει το παράδειγμα.

Η φόρμα frmMain περιέχει 2 αντικείμενα "Microsoft Web Browser" (ActiveX).

Το αριστερό εμφανίζει τον φάκελο C:\search και τα σχετικά στοιχεία ελέγχου για την αναζήτηση.

Αν με κάποια εντολή (πχ. διπλό κλικ, Enter κλπ.) τρέχεις το αρχείο, τότε το αρχείο θα μεταφερθεί ή θα αντιγραφεί στο φάκελο C:\XML_EditFolder που απεικονίζεται στο δεξί αντικείμενο "Microsoft Web Browser".

Μπορείς επίσης να χρησιμοποιήσεις Drag & Drop για να μεταφέρεις αρχεία από και προς κάθε κατεύθυνση.

Στο έργο VBA του αρχείου έχουν προστεθεί από το μενού Tools>References οι παρακάτω αναφορές:
  • Microsoft Shell Controls And Automation
  • Microsoft Scripting Runtime

Δες το, κάνε τις αλλαγές σου και αν χρειαστείς κάτι γράψε στο φόρουμ.
Συνημμένα Αρχεία
Τύπος Αρχείου: accdb search_xml.accdb (448,0 KB, 16 εμφανίσεις)
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
  #7  
Παλιά 23-05-24, 18:54
Όνομα: Γεώργιος
Έκδοση λογισμικού Office: Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 26-05-2023
Μηνύματα: 28
Προεπιλογή

από καρδιάς ευχαριστώ να είσαι καλά.
Κλειστό Θέμα

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

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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Γενικά] search box jimis Excel - Ερωτήσεις / Απαντήσεις 10 01-02-17 22:18
cboBox Search γιώργοςΚ Access - Ερωτήσεις / Απαντήσεις 2 04-05-16 11:28
[ Φόρμες ] Phone Book Search noname Access - Ερωτήσεις / Απαντήσεις 8 30-06-15 14:21
[ Συναρτήσεις ] ΒΔ.πρόβλημα με το search asarigiannis Access - Ερωτήσεις / Απαντήσεις 9 04-04-14 18:12
[Γενικά] Online Smart Search Spirosgr Excel - Ερωτήσεις / Απαντήσεις 2 03-02-12 10:50


Η ώρα είναι 16:32.