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

[γιώργοςΚ]

Χαιρετώ όλους του φίλους του φόρουμ,

Θα ήθελα για μια ακόμη φορά την βοήθεια σας σε ένα θέμα που αντιμετωπίζω:

Σε μια φορμα έχω ένα unbound object το οποίο παίρνει δεδομένα απο ένα ερώτημα και μου παρουσιάζει τα αποτελέσματα σε 6 στήλες. Η πρώτη στήλη περιέχει τον αριθμό πελάτη (CustomerNo) και θέλω εφόσον επιλέγω τον πελάτη να μου ανοίγει μια άλλη φόρμα η οποία περιέχει τα στοιχεία του συγκεκριμένου πελάτη.

Δηλαδή;

Εάν για παράδειγμα επιλέξω την τρίτη γραμμή (Row) απο τα αποτελέσματα που εμφανίζονται και είναι ο πελάτης με CustomerNo = 3, τότε όταν κάνω double click να ανοίγει η δεύτερη φόρμα φιλτράρωντας το CustomerNo.

Σας ευχαριστή εκ προτέρων

[kapetang]

Καλησπέρα

Γιώργο, θα μπορούσες να προσαρμόσεις στα δεδομένα σου τον κώδικα:

Private Sub cboCustomers_Click()
    If Nz(Me.cboCustomers, "") <> "" Then
        DoCmd.OpenForm "frmCustomer", acNormal, , "CustomerNo=" & Me.cboCustomers
    End If
End Sub

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

[γιώργοςΚ]

Γιώργο καλημέρα φίλε μου,

Δεν είναι ακριβώς αυτό το πρόβλημα που αντιμετωπίζω φίλε...έχω γνώση περί του πώς θα φιλτράρω το CustomerNo, αυτό που αντιμετωπίζω είναι το πώς θα καταλήξω να πέρνω το συγκεκριμένο της συγκεκριμένης γραμμής καθώς το unbound object είναι σαν datasheet view..

Θέλω λοιπόν να "βρώ" λύση στο πώς μπορώ να φιλτράρω το CustomerNo της εκάστοτε γραμμής (Row).... Για να γίνω πιο κατανοητός "ανεβάζω" μια σχετική φώτο του unbound που έχω.

Φιλικά,

[kapetang]

Καλημέρα

Ο κώδικας που σου πρότεινα κάνει αυτό που ζητάς στο αρχικό μήνυμά σου:

....Εάν για παράδειγμα επιλέξω την τρίτη γραμμή (Row) απο τα αποτελέσματα που εμφανίζονται και είναι ο πελάτης με CustomerNo = 3, τότε όταν κάνω double click να ανοίγει η δεύτερη φόρμα φιλτράρωντας το CustomerNo. ....

Το δεύτερο μήνυμα δεν το καταλαβαίνω.

Ελπίζω κάποιο άλλο μέλος να το αντιληφθεί και να βοηθήσει.

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

ΥΓ Το unbound Row Source object τι είναι (List Box, Combo Box, κάτι άλλο).

[γιώργοςΚ]

Γιώργο μου σε ευχαριστώ και πάλιν για την άμεση ανταπόκριση.

Έχω δοκιμάσει φίλε τον κώδικα που μου έστειλες και όταν και εφόσον κάνω double clik μου δίνει error εφόσον ψάχνει το CustomerNo... απο τον unbound object.

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

Σε κάθε περίπτωση σε ευχαριστώ θερμά

[γιώργοςΚ]

Γιώργο μια διευκρίνηση,

Το unbound object ονομάζεται "unbTask" και περιέχει μέσα το CustomerNo... . Άρα ο κώδικας τώρα πως διαμορφώνεται φίλε μου?

[γιώργοςΚ]

Η λύση στο πρόβλημα μου

Private Sub unbTask_DblClick(Cancel As Integer)
If Nz(Me.unbTask.Column(0), "") <> "" Then
DoCmd.OpenForm "frmTasksDueList", acNormal, , "CustomerNo=" & Me.unbTask.Column(0)
End If
End Sub

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