
24-07-10, 20:50
|
| Όνομα: Στράτος Έκδοση λογισμικού Office: Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 19-01-2010
Μηνύματα: 29
| |
καλησπέρα Τόλη
αν κατάλαβα καλά ζητάς κάτι τέτοιο Κώδικας: Private Sub timi_a_AfterUpdate()
Me.[timi b] = Me.[timi a].Column(2)
Me.[timi g] = Me.[timi a].Column(3)
End Sub
Private Sub timi_b_AfterUpdate()
Me.[timi a] = Me.[timi b].Column(1)
Me.[timi g] = Me.[timi b].Column(3)
End Sub
Private Sub timi_g_AfterUpdate()
Me.[timi a] = Me.[timi g].Column(1)
Me.[timi b] = Me.[timi g].Column(2)
End Sub
όλο το παιχνίδι παίζετε με τα πεδία του πινάκα times abg όπου στον κώδικα vba αναφέρονται ως column(...) [0,1,2 και 3]. Το 0 είναι το πρώτο πεδίο = αναγνωριστικό πεδίο
Δεν ξέρω αν σε βοηθήσει αυτό, σου στέλνω επίσης και το αρχείο για περαιτέρω βοήθεια
Καλή συνέχεια
Στράτος
|