Forum

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

Πάμε!
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > Εξαγωγή παραμετρικού ερωτήματος σε .txt

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 17-04-13, 10:33
Όνομα: ΛΕΩΝΙΔΑΣ
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-04-2010
Μηνύματα: 15
Προεπιλογή Εξαγωγή παραμετρικού ερωτήματος σε .txt

Αγαπητοί φίλοι καλημέρα.
Είμαι εργαζόμενος σε έναν Δήμο της κεντρικής Ελλάδας και έφτιαξα για το Δήμο μου μια εφαρμογή σε access που απαιτεί κάθε μήνα την εξαγωγή σε αρχείο txt κάποιων δεδομένων. Βρήκα στο φορουμ μιά υπέροχη λύση με τίτλο "Εξαγωγή δεδομένων σε αρχείο κειμένου" (12/12/09) η οποία εξάγει δεδομένα από πίνακα.
Προσπαθώντας να εξάγω δεδομένα από ένα παραμετρικό ερώτημα ημερομηνιών του τύπου "between ημερομηνία and ημερομηνία" (δίνω τις ημερομηνίες σε ένα πλαίσιο κειμένου) παίρνω το μήνυμα "Runtime error 3061 πού λίγες παράμετροι. Aναμενόταν 2".
Δοκίμασα να δηλώσω τις παραμέτρους στο ερώτημα αλλά δεν είχα αποτέλεσμα.
Πάσα βοήθεια δεκτή.
Ευχαριστώ
Απάντηση με παράθεση
  #2  
Παλιά 17-04-13, 11:02
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.236
Προεπιλογή

Καλημέρα σε όλους!

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

Περιμένουμε νέα σου.

Με εκτίμηση

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση
  #3  
Παλιά 17-04-13, 13:03
Όνομα: ΛΕΩΝΙΔΑΣ
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-04-2010
Μηνύματα: 15
Προεπιλογή

Αγαπητέ Τάσο (και λοιποί φίλοι)
ανεβάζω μέρος της βάσης μου με τα απαραίτητα αντικείμενα και με τροποποιημένες εγγραφές, λειτουργική ωστόσο.
Το "κουμπί" ΔΗΜΙΟΥΡΓΙΑ ΑΡΧΕΙΟΥ λειτουργεί και δημιουργεί το αρχείο .txt όταν στο Ερώτημα 0000ΕΞΑΓΩΓΗ ΣΤΗ ΔΕΗ απαλείψω την έκφραση between... από το πεδίο ΗμερΜεταβολης, ενώ δεν λειτουργεί όταν το ερώτημα γίνεται παραμετρικό (που είναι και το ζητούμενο)
Ευχαριστώ
Συνημμένα Αρχεία
Τύπος Αρχείου: zip leopet.zip (60,1 KB, 29 εμφανίσεις)
Απάντηση με παράθεση
  #4  
Παλιά 17-04-13, 14:51
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.236
Προεπιλογή

Καλησπέρα!
Αγαπητέ Λεωνίδα,
Αφαίρεσε το κριτήριο από το πεδίο ΗμερΜεταβολής του ερωτήματος "0000ΕΞΑΓΩΓΗ ΓΙΑ ΔΕΗ"
και δοκίμασε στην Εντολή23 (τέτοια ονόματα προκαλούν σύγχυση κατά την ανάπτυξη μια εφαρμογής) τον παρακάτω κώδικα:

Κώδικας:
Dim rst As Recordset
    Dim strSQL As String, strChar As String, i As Integer
    strSQL = CurrentDb.QueryDefs("0000ΕΞΑΓΩΓΗ ΓΙΑ ΔΕΗ").SQL
    Do
        i = i + 1
        If Mid(StrReverse(strSQL), i, 1) = ";" Then Exit Do
    Loop
    strSQL = Left(strSQL, Len(strSQL) - i) & _
             " WHERE [00ΕΜΒΑΔΑ ΤΜΗΜΑΤΩΝ].ΗμερΜεταβολής Between #" & _
             Format(Nz(Me.ΑΠΟ, 2), "m\/d\/yyyy") & _
             "# And #" & Format(Nz(Me.ΕΩΣ, 2958465), "m\/d\/yyyy") & "#"
    Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
    On Error Resume Next
    If CreateTextFileFromRecordset(rst, "C:\TestFile.txt", 1, 8, 2, 2, 7, 7, 7, 7, 2, 7, 2, 4, 3, 1, 4) Then
        MsgBox "Text file created succesfully.", vbInformation
    Else
        MsgBox "Unable to create text file.", vbExclamation
    End If
    If Err Then MsgBox Err.Description, vbExclamation
    rst.Close
    Set rst = Nothing
Καλή συνέχεια!

Με εκτίμηση

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση
  #5  
Παλιά 18-04-13, 07:54
Όνομα: ΛΕΩΝΙΔΑΣ
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-04-2010
Μηνύματα: 15
Προεπιλογή

Καλημέρα σας
Ευχαριστώ πολύ. Μένω υπόχρεος.
Λεωνίδας.
Απάντηση με παράθεση
Απάντηση στο θέμα

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

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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[ Ερωτήματα ] Εξαγωγή ερωτηματος στο excel και μορφοποίηση yiannis1971 Access - Ερωτήσεις / Απαντήσεις 2 31-01-16 18:51
[ Ερωτήματα ] Κριτήριο ερωτήματος dimitrisp Access - Ερωτήσεις / Απαντήσεις 4 22-11-15 14:24
Κριτήρια ερωτήματος . bill72 Access - Ερωτήσεις / Απαντήσεις 2 07-11-11 14:24
[ Ερωτήματα ] Λειτουργικότητα Ερωτήματος dream-garden Access - Ερωτήσεις / Απαντήσεις 2 11-10-11 12:27
[ Ερωτήματα ] Συγχώνευση Ερωτήματος ΠΑΝΟΣ Access - Ερωτήσεις / Απαντήσεις 5 15-04-11 10:42


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