16-01-25, 10:17
|
| Όνομα: Δημητρης Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 29-07-2015
Μηνύματα: 32
| |
Τάσο σε ευχαριστώ πολύ για την απάντηση σου, αλλά τελικά κατέληξα στην παρακάτω λύση: Κώδικας:
formName = Form_mainfrm.formKindcbo.Value
Select Case formName
Case 1
Form_subfrm_1.myLIst.AddItem Item:=Me.addValuecbo.Column(0)
Form_subfrm_1.myLIst.Requery
Case 2
Form_subfrm_2.myLIst.AddItem Item:=Me.addValuecbo.Column(0)
Form_subfrm_2.myLIst.Requery
Case Else
Form_subfrm_1.myLIst.AddItem Item:=Me.addValuecbo.Column(0)
Form_subfrm_1.myLIst.Requery
End Select
Ευχαριστώ πολύ!
|