23-12-15, 15:29
|
| Όνομα: ΝΑΣΟΣ Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 14-10-2010
Μηνύματα: 455
| |
Καλησπέρα σε όλους.
Γιώργο μπορείς να δοκιμάσεις αυτό: Κώδικας: Private Sub Tab1_Change()
Select Case Me!Tab1.Value
Case 0
Me.Control.Value = "1"
MsgBox "Έχετε επιλέξει τη Σελίδα 1"
Case 1
Me.Control.Value = "2"
MsgBox "Έχετε επιλέξει τη Σελίδα 2"
End Select
End Sub
Τελευταία επεξεργασία από το χρήστη nasos23 : 23-12-15 στις 15:43.
|