
03-11-10, 18:06
|
 | Διαχειριστής Όνομα: Τάσος Φιλοξενιδης Έκδοση λογισμικού Office: Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική | | Εγγραφή: 21-10-2009
Μηνύματα: 2.035
| |
Καλησπέρα σε όλους!
Αγαπητέ Γιώργο, το Id δεν θα χρειαστεί και δεν θα μπορέσεις να του δώσεις τιμή αφού η μορφή του είναι "αυτόματη αρίθμηση" και συμπληρώνεται αυτόματα.
Έστω ότι η ετικέτα σου έχει το όνομα "MyLabel".
Στο συμβάν " Με το διπλό κλικ" (DblClick) της ετικέτας επίλεξε "Δόμηση κώδικα" και στον VBE πέρασε το παρακάτω: Κώδικας: Private Sub MyLabel_DblClick(Cancel As Integer)
DoCmd.OpenForm "tbl", , , , acFormAdd, acDialog, Me.EPONYMO
End Sub
Στη φόρμα " tbl" στο συμβάν " Με τη φόρτωση" (OnLoad) επίλεξε "Δόμηση κώδικα" και στον VBE πέρασε το παρακάτω: Κώδικας: Private Sub Form_Load()
If Nz(Me.OpenArgs, vbNullString) <> vbNullString Then Me.EPONYMO = Me.OpenArgs
End Sub
Καλή συνέχεια!
Τάσος
__________________ Ms-Office Development Team Ανάπτυξη επαγγελματικών εφαρμογών |