Ανανέωση ιστοσελίδας

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 02-01-16, 22:51
Όνομα: Δημητρης
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 29-07-2015
Μηνύματα: 30
Προεπιλογή Σφάλμα σε κώδικα

Καλησπέρα και Καλή Χρονιά σε όλους! Για ακόμη μια φορά θα ήθελα την βοήθεία σας.Με τον παρακάτω κώδικα ουσιαστικά διαχωρίζω τι μπορούν οι διαφοροι χρήστες στη βάση μου, ομως μου βγάζει error 94 στο DLookup("UserSecurity", "tblUser", "[UserID]=" & InfoUser). Που κάνω λάθος;
Κώδικας:
Private Sub Insert_Click()
Dim InfoUser As String
Dim SecLevel As String
        InfoUser = Forms![MainMenu]![Level]
        SecLevel = DLookup("UserSecurity", "tblUser", "[UserID]=" & InfoUser)

     If SecLevel = 1 Then
        DoCmd.Close acForm, "MainMenu", acSaveNo
        DoCmd.OpenForm "InsertMenu"
        DoCmd.Maximize
        Forms![InsertMenu]![Level] = InfoUser
        Exit Sub
    ElseIf SecLevel = 2 Then
        DoCmd.Close acForm, "MainMenu", acSaveNo
        DoCmd.OpenForm "InsertMenu"
        DoCmd.Maximize
        Forms![InsertMenu]![Level] = InfoUser
        Exit Sub
    ElseIf SecLevel = 3 Then
        MsgBox "Access denaid!", vbOKOnly, "MS Office"
        Exit Sub
    Else
        MsgBox "Application shut Down!", vbCritical, "MS Office"
        Application.Quit
        Exit Sub
    End If
    
End Sub
Ευχαριστώ!
Απάντηση με παράθεση
  #2  
Παλιά 03-01-16, 08:25
Όνομα: ΝΑΣΟΣ
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-10-2010
Μηνύματα: 443
Προεπιλογή

Καλημέρα σε όλους
Δημήτρη εάν το UserID στον πίνακα είναι σε μορφή κειμένου δοκίμασε:
SecLevel = DLookup("UserSecurity", "tblUser","[UserID]='" & InfoUser & "'")
Απάντηση με παράθεση
  #3  
Παλιά 04-01-16, 02:02
Όνομα: Δημητρης
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 29-07-2015
Μηνύματα: 30
Προεπιλογή

Νάσο σε ευχαριστώ για την απάντησή σου. Ηταν κι αυτό μέρος του προβλήματος. Με μια άλλη αλλαγή και την παρατηρησή σου βρέθηκε λύση. Να σαι καλά!
Απάντηση με παράθεση
Απάντηση στο θέμα


Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[ Φόρμες ] SQL σε κωδικα asterix Access - Ερωτήσεις / Απαντήσεις 5 23-04-14 09:15
[ Φόρμες ] Σφάλμα σε κώδικα xristos Access - Ερωτήσεις / Απαντήσεις 0 31-12-13 21:52
Πρόβλημα σε κώδικα jimrenoir Access - Ερωτήσεις / Απαντήσεις 2 10-05-11 15:50
[ Φόρμες ] Σφάλμα: Table 'TempMSysAccessObjects' already exists xristos0718 Access - Ερωτήσεις / Απαντήσεις 2 13-04-10 10:25
σφάλμα στη συννένωση κριτηρίων amy Access - Ερωτήσεις / Απαντήσεις 10 13-03-10 22:14


Η ώρα είναι 20:14.