ΜΕΤΑΦΟΡΑ ΤΙΜΩΝ ΣΕ ΥΠΟΦΟΡΜΑ ΑΛΛΗΣ ΦΟΡΜΑΣ

[exarhos]

Καλήσπερα σας. θα ήθελα τη βοήθεια σας . στην επισυναπτομενη ΒΔ TEST SHIPS 1 εχω τη φόρμα "ARSEIS" και τη φόρμα PLOIA Η οποια εχει την υποφόρμα apagor
το κουμπί αποθήκευση στη φόρμα "ARSEIS" αφενός αποθηκεύει τα δεδομένα στον πινακα "arsi" αφετερου με μεταφέρει στη φόρμα PLOIA στο ίδιο πλοίο. (ID_PLOIOU = ID_PLOIOU)
θα ήθελα επίσησ πατώντασ το κουμπι αποθήκευση στη φόρμα "ARSEIS " οι τιμέσ των πεδίων "op_arsi" και "kod_arsis" τησ φόρμασ "ARSEIS" να μεταφέρονται στην υποφόρμα "apagor" και το κουμπί "ARSI" να ειναι ορατό (visible)
σασ ευχαριστώ πολυ εκ των πρωτερων

[pakos]

Καλησπέρα

στον κώδικα σου πρόσθεσε τα παρακάτω

Private Sub Εντολή11_Click()
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenForm "PLOIA", acNormal, WHERECONDITION:="ID_PLOIOU=" & Me.ID_PLOIOU
'................................................. .......................................... Πρόσθεσε της παρακάτω εντολές στον κώδικα σου
Form_apagor.op_arsi = Form_ARSEIS.op_arsi
Form_apagor.kod_arsis = Form_ARSEIS.kod_arsis
Form_apagor.ARSI.Visible = True
'................................................. ..........................................

End Sub

[exarhos]

Φίλε μου ευχαριστώ πολύ για τη βοήθεια αλλα ο κωδικασ που εγραψεσ δεν ανταποκρίνεται.

[pakos]

καλησπερα

ο κώδικας έγινε συμφωνα με το παράδειγμα σου

Θα κάνεις προβολή σχεδίαση της φόρμας
στο κουμπί αποθήκευση δεξί κλικ ιδιότητες
συμβαν
με το κλικ
και θα ανοίξει η vba
πριν το end θα προσθέσεις τις τον κώδικα
εσυ στο πρόγραμμα σου μπορεί να έχεις άλλη ονομασία στο κουμπί αποθήκευσης
στο παράδειγμα είχε αυτο που αναφέρεται

[exarhos]

ΦΙΛΕ ΜΟΥ ΕΚΑΝΑ ΑΥΤΟ ΑΚΡΙΒΩΣ ΠΟΥ ΛΕΣ. ΑΛΛΑ ΔΕΝ ΠΑΙΖΕΙ. ΣΤΟ ΠΑΡΑΔΕΙΓΜΑ ΠΟΥ ΑΝΕΒΑΣΑ ΠΑΙΖΕΙ Ο ΣΥΓΚΕΚΡΙΜΕΝΟΣ ΚΩΔΙΚΑΣ?
ΚΑΙ ΠΑΛΙ ΕΥΧΑΡΙΣΤΩ ΓΙΑ ΤΟ ΕΝΔΙΑΦΕΡΟΝ

[nasos23]

Καλησπέρα στην παρέα.
Μια διόρθωση στον κώδικα του φίλου Πάκου.

Private Sub Εντολή11_Click()
DoCmd.RunCommand acCmdSaveRecord
      DoCmd.OpenForm "PLOIA", acNormal, WHERECONDITION:="ID_PLOIOU=" & Me.ID_PLOIOU
Forms![PLOIA]![apagor].Form![op_arsi] = Form_ARSEIS.op_arsi
Forms![PLOIA]![apagor].Form![kod_arsis] = Form_ARSEIS.kod_arsis
Form_apagor.ARSI.Visible = True


End Sub

[pakos]

Σε εμένα παίζει έχω access 2019

[exarhos]

Φίλε μου σ' ευχαριστώ πολύ για τη βοήθεια. εγω χρησιμοποιώ ACCESS 2016. Άλλαξα λίγο τον κώδικα (πειραματίστηκα) και δούλεψε

DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenForm "PLOIA", acNormal, WHERECONDITION:="ID_PLOIOU=" & Me.ID_PLOIOU

Forms![PLOIA]![apagor].Form![op_arsi] = me!.op_arsi.value
Forms![PLOIA]![apagor].Form![kod_arsis] =me!.kod_arsis.value
Forms![PLOIA]![apagor].Form![ARSI].visible = true
αυτό δούλεψε. και πάλι ευχαριστώ πολύ