18-05-10, 11:13
|
 | Διαχειριστής Όνομα: Τάσος Φιλοξενιδης Έκδοση λογισμικού Office: Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική | | Εγγραφή: 21-10-2009
Μηνύματα: 2.035
| |
Καλημέρα Βασίλη!
Στην κορυφή μιας λειτουργικής μονάδας δήλωσε τη μεταβλητή : App_User
Public App_User As String
Στην Splash_Screen, βρες στο Private Sub cmdGo_Click() τη γραμμή:
DoCmd.OpenForm "frmData", , , , , acHidden, CStr(Allow_ByPass_Key)
Ακριβώς μια γραμμή πάνω από το σημείο δίνεις τιμή στη μεταβλητή App_User:
App_User = cboUsr
Κατόπιν στη συνάρτηση LogAction()
αντικατέστησε τη γραμμή:
.Fields("AppUser") = Application.CurrentUser
με τη γραμμή:
.Fields("AppUser") = App_User
Καλή συνέχεια!
Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Τελευταία επεξεργασία από το χρήστη Tasos : 18-05-10 στις 12:55.
|