Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   [ Εκθέσεις ] Κατάργηση κενού διαστήματος (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/3556-katargisi-kenoi-diastimatos.html)

mgeorge 13-02-15 22:14
Κατάργηση κενού διαστήματος
 
Καλησπέρα σε όλους,
Θα ήθελα για μια ακόμη φορά την πολύτιμη βοήθειά σας.

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

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

kapetang 14-02-15 18:08
Γιώργο, θα διευκόλυνε αν ανέβαζες ένα δείγμα της ΒΔ με τη φόρμα και την έκθεση.

mgeorge 14-02-15 21:21
1 Συνημμένο(α)
Γιώργο ανεβάζω το δείγμα

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

kapetang 15-02-15 09:23
1 Συνημμένο(α)
Καλημέρα

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

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

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

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

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

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

kapetang 16-02-15 10:42
1 Συνημμένο(α)
Καλημέρα

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

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

Κώδικας:
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 17-02-15 18:43
Γιώργο καλησπέρα,
Σε ευχαριστώ και πάλι,η βοήθειά σου είναι για μια ακόμη φορά πολύ σημαντική.

Καλό βράδυ!


Η ώρα είναι 06:48.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2