Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > μήνυμα επιβλαβή για το PC

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 11-01-18, 20:09
Όνομα: ΚΩΣΤΑΣ
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-04-2010
Περιοχή: Νέα Ιωνία
Μηνύματα: 113
Προεπιλογή μήνυμα επιβλαβή για το PC

Γεια σε όλο το forum.
Στο κουμπί μίας φόρμας έχω το εξής κώδικά

Private Sub Εντολή0_Click()
Dim Apath As String
Apath = "C:\Windows\system32\osk.exe"
FollowHyperlink Apath
End Sub

Μου βγαίνει το μήνυμα στο συνημμένο

Μπορεί να παρακάμπτω το μήνυμα ;
Ευχαριστώ
Συνημμένα Thumbnails
μήνυμα επιβλαβή για το PC-2018-01-11.jpg  
Συνημμένα Αρχεία
Τύπος Αρχείου: accdb τεστ.accdb (376,0 KB, 9 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 12-01-18, 09:56
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 2.828
Προεπιλογή

Καλημέρα

Κώστα θα πρότεινα αντί της εντολής: FollowHyperlink Apath να δοκιμάσεις την:

Shell Apath, vbNormalFocus.

Ίσως σου λύση το πρόβλημα.
Απάντηση με παράθεση
  #3  
Παλιά 13-01-18, 08:28
Όνομα: ΚΩΣΤΑΣ
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-04-2010
Περιοχή: Νέα Ιωνία
Μηνύματα: 113
Προεπιλογή

Γιώργο ευχαριστώ δεν κατάφερα να συντάξω τη Shell Apath, vbNormalFocus.Μετά από έρευνα βρήκα μια άλλη και αντί Osk.exe την tabtip.exe
ShellExecute 0, vbNullString, "tabtip.exe", vbNullString, "C:\", 1
Συνημμένα Αρχεία
Τύπος Αρχείου: zip TabTipDemoCode.zip (58,4 KB, 4 εμφανίσεις)
Απάντηση με παράθεση
  #4  
Παλιά 13-01-18, 09:50
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 2.828
Προεπιλογή

Καλημέρα

Κώστα το αρχικό μήνυμά σου περιέχει τον παρακάτω κώδικα:
Κώδικας:
Private Sub Εντολή0_Click()
    Dim Apath As String
    Apath = "C:\Windows\system32\osk.exe"
    FollowHyperlink Apath
End Sub
Όπως επίσης προκύπτει από το μήνυμα σου, ο κώδικας, που τρέχει πατώντας το κουμπί [Εντολή0] της φόρμας, ανοίγει κανονικά το αρχείο osk.exe, αλλά εμφανίζει ένα ενοχλητικό προειδοποιητικό μήνυμα.

Επειδή το μήνυμα το εμφανίζει η μέθοδος FollowHyperlink, σκέφτηκα ότι, αν ανοίξεις το αρχείο osk.exe με την εντολή Shell, δηλαδή αν χρησιμοποιήσεις τον κώδικα:
Κώδικας:
Private Sub Εντολή0_Click()
    Dim Apath As String
    Apath = "C:\Windows\system32\osk.exe"
    Shell Apath, vbNormalFocus
End Sub
Το προειδοποιητικό μήνυμα θα εξαφανιστεί.

Τρέξε τον παραπάνω κώδικα, ίσως σου λύσει το πρόβλημα (εξαφάνιση μηνύματος).

Δεν έχω ασχοληθεί με τα προγράμματα osk.exe και TabTip.exe. Συνεπώς δεν μπορώ να σε βοηθήσω
Απάντηση με παράθεση
  #5  
Παλιά 14-01-18, 12:22
Όνομα: ΚΩΣΤΑΣ
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-04-2010
Περιοχή: Νέα Ιωνία
Μηνύματα: 113
Προεπιλογή

Γιώργο δυστυχώς χτυπάει ο κώδικας Shell Apath, vbNormalFocus
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[VBA] msgBox Μήνυμα gfevran Excel - Ερωτήσεις / Απαντήσεις 13 02-02-14 22:00
Μήνυμα tcbhn xristos Ms-Office 1 05-06-13 22:07
[VBA] Αυτόματο μήνυμα anestaki Excel - Ερωτήσεις / Απαντήσεις 5 23-04-12 13:21
Μήνυμα Λάθους. foxone Access - Ερωτήσεις / Απαντήσεις 2 03-02-11 20:01
Ανέβασμα εικόνας σε μήνυμα. Θανάσης Off topic - Εκτός θέματος 1 15-11-09 18:44


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