[ Φόρμες ] επιλογή σε αναδυόμενο πεδίο και τοποθέτηση σε πεδίο υποφορμας

[artchrist73]

Καλησπέρα και Χριστός ανέστη !!

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

1) με το που καταχωρώ ένα προϊόν σε κάθε σειρά να μου το αποδίδει στο πεδίο τιμοκατάλογος%

2) αλλάζοντας τιμοκατάλογο από το αναδυόμενο πεδίο να τοποθετεί το νέο ποσοστό στο πεδίο τιμοκατάλογος%

3) αφαιρώντας από το αναδυόμενο πεδίο κάθε είδους τιμοκατάλογο

Έχω παιδευτεί έχω κάνει δοκιμες το μονο που κατάφερα να φτιάξω μακαρόνια με κύμα !
θα επιθυμούσα αν μπορεί να με βοηθήσει κάποιος με τις γνώσεις του!
Ευχαριστώ πολύ!
-------------------------------------

[artchrist73]

Η photo βοηθά περισσότερο για το πρόβλημα μου η μπερδεύει?

[nasos23]

Καλησπέρα σε όλους.
Αντώνη δες το συνημμένο.

[artchrist73]

ΝΑΣΟ,ΝΑΣΟ,ΝΑΣΟ μου!!!!!!!!!!!!!!

Σε ευχαριστώ την ευχή μου να έχεις !!!!!!!!!!!!!!

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

[artchrist73]

ΝΑΣΟ ...............
θερμη παράκληση γιατί τα βρήκα σκούρα στο να προσαρμόσω στην κανονική βάση απο το παράδειγμα που μου έδειξες.

Αν γίνετε να ξέρω τις αντιστοιχίες μέσα από τον κώδικα,δηλαδή..........



Dim strSQL As String
Me.Êåßìåíï11 = Me.id.Column(1)
Me.Êåßìåíï13 = Me.id.Column(2)
DoCmd.SetWarnings False
strSQL = "UPDATE pol_2 SET pol_2.[ôéìïêáôáëïãïò%] =[Öüñìåò]![pol_1 Åñþôçìá]![Êåßìåíï13]" & _
" WHERE (([pol_1]![idpol]=[pol_2]![idpol]));"

DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
Me.Refresh


το id που το βρίσκεις παράδειγμα?

το idpol που το βρίσκεις?

[nasos23]

Αντώνη καλημέρα.
Στα ερωτήματά σου
Επιλέγοντας στη βάση και στο μενού εργαλεία-->Σχέσεις, θα δείς
τις σχέσεις των πινάκων σου. Εικόνα1.
Στη φόρμα σου εισήγαγα δύο βοηθητικά αδέσμευτα πεδία "Κείμενο11" & "Κείμενο13"
όπου εκεί εμφανίζονται οι τιμές των στηλών της επιλογής του σύνθετου πεδίου "id" (επιλογή τιμοκαταλόγου) το οποίο πεδίο αντλεί δεδομένα (βάσει σχέσης) από τον πίνακα "τιμοκατάλογοι".
Συνεπώς μετά την ενημέρωση ενεργοποιείται ο κώδικας VBA και κάνει ενημέρωση του πεδίου
"τιμοκαταλογος%" στον πίνακα pol_2.

"UPDATE pol_2 SET pol_2.[τιμοκαταλογος%] =[Φόρμες]![pol_1 Ερώτημα]![Κείμενο13]" & _
          " WHERE (([pol_1]![idpol]=[pol_2]![idpol]));"

1.ενημερώνει το πεδίο "τιμοκαταλογος%" του πίνακα pol_2 βάσει επιλογής [Κείμενο13]
2.Φιλτράρει της εγγραφές ενημέρωσης, οι τιμές του πεδίου idpol των δύο πινάκων να είναι ίδιες

ή εναλλακτικά (πιο σωστός κώδικας) χωρίς τα βοηθητικά πεδία της φόρμας

Private Sub id_AfterUpdate()
Dim strSQL As String
 
DoCmd.SetWarnings False
strSQL = "UPDATE pol_2 SET pol_2.[τιμοκαταλογος%] ='" & Me!id.Column(2) & "' " & _
" WHERE ([idpol]=" & Me!idpol & ")"
 DoCmd.RunSQL strSQL
    DoCmd.SetWarnings True
   Me.Refresh
End Sub

1.ενημερώνει το πεδίο "τιμοκαταλογος%" του πίνακα pol_2 βάσει επιλογής της δεύτερης στήλης του πεδίου id
2.Φιλτράρει της εγγραφές ενημέρωσης, βάσει του πεδίου idpol της φόρμας.
Ελπίζω να βοήθησα.