07-02-22, 21:26
|
| Όνομα: Πάκος Έκδοση λογισμικού Office: Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 17-12-2011 Περιοχή: Θεσσαλονικη
Μηνύματα: 169
| |
Καλησπέρα
στον κώδικα σου πρόσθεσε τα παρακάτω
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
|