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

[leopet]

Αγαπητοί φίλοι καλημέρα.
Είμαι εργαζόμενος σε έναν Δήμο της κεντρικής Ελλάδας και έφτιαξα για το Δήμο μου μια εφαρμογή σε access που απαιτεί κάθε μήνα την εξαγωγή σε αρχείο txt κάποιων δεδομένων. Βρήκα στο φορουμ μιά υπέροχη λύση με τίτλο "Εξαγωγή δεδομένων σε αρχείο κειμένου" (12/12/09) η οποία εξάγει δεδομένα από πίνακα.
Προσπαθώντας να εξάγω δεδομένα από ένα παραμετρικό ερώτημα ημερομηνιών του τύπου "between ημερομηνία and ημερομηνία" (δίνω τις ημερομηνίες σε ένα πλαίσιο κειμένου) παίρνω το μήνυμα "Runtime error 3061 πού λίγες παράμετροι. Aναμενόταν 2".
Δοκίμασα να δηλώσω τις παραμέτρους στο ερώτημα αλλά δεν είχα αποτέλεσμα.
Πάσα βοήθεια δεκτή.
Ευχαριστώ

[Tasos]

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

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

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

Με εκτίμηση

Τάσος

[leopet]

Αγαπητέ Τάσο (και λοιποί φίλοι)
ανεβάζω μέρος της βάσης μου με τα απαραίτητα αντικείμενα και με τροποποιημένες εγγραφές, λειτουργική ωστόσο.
Το "κουμπί" ΔΗΜΙΟΥΡΓΙΑ ΑΡΧΕΙΟΥ λειτουργεί και δημιουργεί το αρχείο .txt όταν στο Ερώτημα 0000ΕΞΑΓΩΓΗ ΣΤΗ ΔΕΗ απαλείψω την έκφραση between... από το πεδίο ΗμερΜεταβολης, ενώ δεν λειτουργεί όταν το ερώτημα γίνεται παραμετρικό (που είναι και το ζητούμενο)
Ευχαριστώ

[Tasos]

Καλησπέρα!
Αγαπητέ Λεωνίδα,
Αφαίρεσε το κριτήριο από το πεδίο ΗμερΜεταβολής του ερωτήματος "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

Καλή συνέχεια!

Με εκτίμηση

Τάσος

[leopet]

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