[ Εκθέσεις ] Δεν είναι δυνατό το άνοιγμα περισσοτέρων πινάκων

[Meteora]

Καλησπέρα

Το σύνολο των πεδίων που μπορούμε να εμφανίσουμε σε μια έκθεση είναι περί τα 256. Το όριο αυτό αυξάνεται με την χρήση μιας υπο-έκθεσης, όπως περιγράφει η Λία.
Σχετικά με το μήνυμα που παίρνεις, έχω την πεποίθηση ότι θα πάψει να εμφανίζεται, αν ζητηθεί από το report να αντλήσει τα πεδία από ερώτημα άμεσα. Δοκίμασε το...

...Δεν θα ήθελα να είμαι ο παραλήπτης μιας έκθεσης με τόσα πολλά πεδία.

Με εκτίμηση
Νίκος Δ.

[synti]

Αρχική Δημοσίευση από Meteora

Καλησπέρα

Το σύνολο των πεδίων που μπορούμε να εμφανίσουμε σε μια έκθεση είναι περί τα 256. Το όριο αυτό αυξάνεται με την χρήση μιας υπο-έκθεσης, όπως περιγράφει η Λία.
Σχετικά με το μήνυμα που παίρνεις, έχω την πεποίθηση ότι θα πάψει να εμφανίζεται, αν ζητηθεί από το report να αντλήσει τα πεδία από ερώτημα άμεσα. Δοκίμασε το...

...Δεν θα ήθελα να είμαι ο παραλήπτης μιας έκθεσης με τόσα πολλά πεδία.

Με εκτίμηση
Νίκος Δ.

Πως γίνεται αυτό!

[Meteora]

Καλημέρα

Μάλλον δεν έχεις κατανοήσει την λογική της παρουσίασης πληροφοριών μέσω report, αφού μόνο με τη σκέψη ότι δεν μετράς τα πεδία ενός record, αλλά τα συνολικά δεδομένα που παρουσιάζονται σε μια αναφορά, μπορώ να "δικαιολογήσω" τα γραφόμενά σου.
Περίπου 50 πεδία είναι αρκετά για την έκδοση κοινοχρήστων. Δες!

Έχεις δυσκολία να φτιάξεις ερωτήματα;

Με εκτίμηση
Νίκος Δ.

[synti]

Αρχική Δημοσίευση από Meteora

Καλημέρα

Μάλλον δεν έχεις κατανοήσει την λογική της παρουσίασης πληροφοριών μέσω report, αφού μόνο με τη σκέψη ότι δεν μετράς τα πεδία ενός record, αλλά τα συνολικά δεδομένα που παρουσιάζονται σε μια αναφορά, μπορώ να "δικαιολογήσω" τα γραφόμενά σου.
Περίπου 50 πεδία είναι αρκετά για την έκδοση κοινοχρήστων. Δες!

Έχεις δυσκολία να φτιάξεις ερωτήματα;

Με εκτίμηση
Νίκος Δ.

Kαλημέρα! δεν είναι τόσο απλά τα πράγματα! για κάθε μία ομάδα δαπάνης (κοινόχρηστες δαπάνες,ιδιοκτητών κ.λ.π) θα πρέπει να υπολογιστούν τα κοινόχρηστα και να κατανεμηθούν σωστά όταν ένα η περισσότερα διαμερίσματα είναι κλειστά ή όταν ένας ένοικος της πολυκατοικίας θέλει κάποια από τις δαπάνες να θέλει και να έχει κάνει συμφωνία με τον διαχειρστή να πληρώνει ένα ποσοστό! συν ότι για την θέρμανση υπάρχουν 3 τρόποι υπολογισμού (Ωρομέτρηση,Θερμηδομέτρηση ,χιλιοστά) τα έχω φτιάξει με συννένωση ερωτημάτων το πρόβλημα μου ότι στα 5 ερωτήματα μου εμφανίζει αυτό το μήνυμα! δοκίμασα και τις υποφόρμες αλλά πάλι το ίδιο!!

[Tasos]

Καλησπέρα!

Αγαπητέ Πάνο, δεν γνωρίζουμε πως έχεις στήσει τη βάση σου για να μπορέσουμε ενδεχομένως να σου δώσουμε μια ακριβέστερη απάντηση.

Ωστόσο δοκίμασε τα παρακάτω:

1. Φρόντισε να έχεις εγκαταστήσει το τελευταίο Service pack της έκδοσης Office που χρησιμοποιείς.

2. Δημιούργησε ένα αντίγραφο ασφαλείας για κάθε ενδεχόμενο.

4. Κάνε συμπύκνωση και επιδιόρθωση της βάσης σου.

4. Βάλε τον παρακάτω κώδικα ( Από την Microsoft ) σε μια λειτουργική μονάδα και τρέξε τον μια φορά αφού προηγουμένως έχεις κλείσει όλους τους πίνακες της βάσης:

Option Compare Database
Option Explicit

Sub TurnOffSubDataSheets()
    Dim MyDB As DAO.Database
    Dim MyProperty As DAO.Property
    Dim propName As String, propVal As String, rplpropValue As String
    Dim propType As Integer, i As Integer
    Dim intCount As Integer

    On Error GoTo tagError

    Set MyDB = CurrentDb
    propName = "SubDataSheetName"
    propType = 10
    propVal = "[None]"
    rplpropValue = "[Auto]"
    intCount = 0

    For i = 0 To MyDB.TableDefs.Count - 1
        If (MyDB.TableDefs(i).Attributes And dbSystemObject) = 0 Then
            If MyDB.TableDefs(i).Properties(propName).Value = rplpropValue Then
                MyDB.TableDefs(i).Properties(propName).Value = propVal
                intCount = intCount + 1
            End If
        End If
tagFromErrorHandling:
    Next i

    MyDB.Close

    If intCount > 0 Then
        MsgBox "The " & propName & " value for " & intCount & " non-system tables has been updated to " & propVal & "."
    End If

    Exit Sub

tagError:
    If Err.Number = 3270 Then
        Set MyProperty = MyDB.TableDefs(i).CreateProperty(propName)
        MyProperty.Type = propType
        MyProperty.Value = propVal
        MyDB.TableDefs(i).Properties.Append MyProperty
        intCount = intCount + 1
        Resume tagFromErrorHandling
    Else
        MsgBox Err.Description & vbCrLf & vbCrLf & " in TurnOffSubDataSheets routine."
    End If
End Sub

Αν το σφάλμα (υποθέτω το σφάλμα με το νούμερο 3014) συνεχίζει να εμφανίζεται τότε 2 πράγματα μπορούν να συμβαίνουν:

1. Ένα ή περισσότερα αντικείμενα της βάσης σου έχει "σπάσει"

Σ΄ αυτή την περίπτωση δοκίμασε να κάνεις εισαγωγή όλων των αντικειμένων της βάσης σου σε μια νέα βάση.

2. Υπάρχει σχεδιαστικό σφάλμα που προκαλεί την επανάληψη ανοίγματος πινάκων μέχρι να φτάσει η Access όρια της και να σου εμφανίσει το εν λόγω μήνυμα σφάλματος.

Πρέπει να περιορίσεις τα "ερωτήματα των ερωτημάτων" και να χρησιμοποιήσεις ερωτήματα δημιουργίας πινάκων πάνω στου οποίους θα βασίζεται η έκθεση σου.

Τώρα εάν η έκθεση σου πρόκειται να εκτυπωθεί, θα πρέπει να προσέχεις την αναγνωσιμότητα της (αριθμός & διάταξη πεδίων κλπ...)

Εάν δεν έχεις σκοπό να εκτυπώσεις την έκθεση θα σου πρότεινα να χρησιμοποιήσεις Συγκεντρωτικό πίνακα.

Φιλικά

Τάσος