[ Εκθέσεις ] Κατάργηση κενού διαστήματος

[mgeorge]

Καλησπέρα σε όλους,
Θα ήθελα για μια ακόμη φορά την πολύτιμη βοήθειά σας.

Γράφοντας σε πεδίο Φόρμας κείμενο με κενό διάστημα π.χ ΑΑΑ 1111 γίνεται στην Έκθεση να εμφανίζεται ως συνεχόμενο κείμενο χωρίς το κενό (ΑΑΑ1111) και επίσης γίνεται να εμφανίζεται σε διαφορετικά πεδία,στο ένα πεδίο (ΑΑΑ) και στο άλλο (1111);

Σας ευχαριστώ!

[kapetang]

Γιώργο, θα διευκόλυνε αν ανέβαζες ένα δείγμα της ΒΔ με τη φόρμα και την έκθεση.

[mgeorge]

Γιώργο ανεβάζω το δείγμα

Στο πεδίο ΑΡ ΚΥΚΛ θέλω στην έκθεση να μην υπάρχει κενό και το πεδίο ΜΑΡΚΑ/ΜΟΝΤΕΛΟ στην έκθεση να είναι σε διαφορετικά πεδία.

[kapetang]

Καλημέρα

Γιώργο, δες μια προσέγγιση στη συνημμένη ΒΔ.

Για την υλοποίηση δημιουργήθηκαν υπολογιζόμενα πεδία στο υποκείμενο ερώτημα της έκθεσης.

Για να δεις το ερώτημα άνοιξε την έκθεση σε προβολή σχεδίασης.

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

Φιλικά/Γιώργος

[mgeorge]

Γιώργο καλησπέρα,
Σε ευχαριστώ πάρα πολύ για μια ακόμη φορά.
Υπάρχει μόνο ένα θεματάκι αν το πεδίο ΜΑΡΚΑ/ΜΟΝΤΕΛΟ αποτελείται από 3 λέξεις όπως ALFA ROMEO 156,σε αυτή την περίπτωση εμφανίζει στην ΜΑΡΚΑ το (ALPHA) και στο μοντέλο (ROMEO 156).
Φαντάζομαι ότι σε αυτή την περίπτωση δεν μπορεί να γίνει κάτι.
Επίσης και κάτι τελευταίο,στο δείγμα της βάσης που ανεβάζω έχω προσθέσει στην φόρμα και το πεδίο ΗΜΕΡΟΜΗΝΙΑ_ΚΑΤΑΣΚΕΥΗΣ όπου αναγράφω ολόκληρη την ημερομηνία π.χ 01/01/2000,γίνεται στην έκθεση να εμφανίζει μόνο το έτος κατασκευής (2000) και όχι την πλήρη ημερομηνία;

[kapetang]

Καλημέρα

Γιώργο, δες το συνημμένο αρχείο.

Για τον προσδιορισμό της μάρκας και του μοντέλου χρησιμοποιείται η παρακάτω συνάρτηση χρήστη.

Public Function SplitField(ByVal fld As Variant, j As Integer) As Variant
    Dim x As Variant
    If Not IsNull(fld) Then
        fld = Trim(fld)
        Do While Len(fld) > Len(Replace(fld, "  ", " "))
            fld = Replace(fld, "  ", " ")
        Loop
        x = Split(fld, " ")
        If UBound(x) > 0 Then
            SplitField = x(j)
        Else
            SplitField = x(0)
        End If
    End If
End Function

Φιλικά/Γιώργος

[mgeorge]

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

Καλό βράδυ!