Προς το περιεχόμενο

VBA INSERT QUERY!!!


euoukos

Προτεινόμενες αναρτήσεις

Δημοσ.

Λοιπόν,

έχω δημιουργήσει μια φόρμα που θα μπαίνει ο χρήστης με username και password, με access level και την ώρα που θα κάνει το login το module που έχω φτιάξει θέλω να παίρνει και το timestamp, δηλαδή την ημερομηνία και την ώρα που logastike ο user.

 

'Get logon Timestamp for user with level access 3

'Απενεργοποιώ τα μηνύματα σχετικά με το "append 1 row ...."

DoCmd.SetWarnings (False)

'Τραβάω το user_id για να το χρησιμοποιήσω μετά στο insert query

GetUsrname1 = Nz(DLookup("[user_id]", "tbl_myusers", "user_id = forms!frm_main!user_id"))

'Και εδώ στο insert query χρησιμοποιώ την μεταβλητή που την έχω ορίσεει ως string ως value για το πεδίο "History_UserID" του πίνακα (tbl_myusers_Logon)

QInsGetUsername1 = "INSERT INTO tbl_myusers_Logon (History_UserID)" & _

"VALUES (GetUsrname1)"

DoCmd.RunSQL (QInsGetUsername1)

 

ΤΟ ΠΡΟΒΛΗΜΑ ΜΟΥ ΕΙΝΑΙ ότι το "GetUsrname1" το θεωρεί ως "εισαγωγή παραμέτρου από τον χρήστη", οπότε όταν κάνει είσοδο ο Admin, πληκτρολογεί username: Admin password: Admin και του πετάει πλαίσιο διαλόγου όπου του ζητάει να πληκτρολογήσει τιμή για GetUsrname1, δηλαδή δεν το βλέπει ως μεταβλητή!!!! :cry::cry::cry:

Μήπως γνωρίζει κάποιος πως μπορεί να επιλυθεί αυτό το κομμάτι???

Δημοσ.

Τελικά το έγραψα ως εξής και περνάει σωστά.

---------------------------------------------------------------------------

QInsGetUsername1 =

"INSERT INTO tbl_myusers_Logon (History_UserID,History_Movement)" & _

"VALUES (forms!frm_main!user_id,""LogIn"")"

DoCmd.RunSQL (QInsGetUsername1)

Αρχειοθετημένο

Αυτό το θέμα έχει αρχειοθετηθεί και είναι κλειστό για περαιτέρω απαντήσεις.

  • Δημιουργία νέου...