08-02-22, 17:04
|
| Όνομα: ΝΑΣΟΣ Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 14-10-2010
Μηνύματα: 443
| |
Καλησπέρα στην παρέα.
Μια διόρθωση στον κώδικα του φίλου Πάκου. Κώδικας: 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
|