Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 03-11-10, 18:06
Το avatar του χρήστη Tasos
Tasos Ο χρήστης Tasos δεν είναι συνδεδεμένος
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού 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
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση