Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   Εντολή για εμφάνιση Υπολογιστηκής Windows (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/4148-entoli-gia-emfanisi-ypologistikis-windows.html)

γιώργοςΚ 18-04-16 12:33
Εντολή για εμφάνιση Υπολογιστηκής Windows
 
Χιαρετώ όλους τους φίλους του φόρουμ,

Υπάρχει τρόπος με την βοήθεια μιας εντολής vba να μπορεί να εμφανίζεται η υπολογιστική μηχανη των windows ?

Θα εκτιμήσω κάθε βοήθεια

kasampas 18-04-16 13:47
Υποθέτω εννοείς το κομπιουτεράκι σωστα;
Μορείς να χρησιμοποιήσεις τον παρακάτω κώδικα

Κώδικας:
    Call Shell("C:\WINDOWS\system32\calc.exe", 1)
Με την κλήση της
Κώδικας:
Shell(pathName, windowsStyle)
μπορείς να ανοίξεις οποιαδήποτε εφαρμογή του PC σου

Υπ' όψιν ότι η παραπάνω γραμμή κώδικα δουλεύει για WIN_XP.
Δε θυμάμαι σε πιο φάκελο βρίσκεται το κομπιουτεράκι σε άλλες εκδόσεις των Windows

γιώργοςΚ 18-04-16 13:53
Βάγγο σε ευχαριστώ φίλε μου για την βοήθεια. Μόνον που δεν δουλεύει σε Win10 που έχω και πρέπει να δώ τι θα κάνω

Σε κάθε περίπτωση ευχαριστώ και πάλιν

alex 18-04-16 14:24
Γιώργο Καλησπέρα!!!
Βάλε τον παρακάτω κώδικα σε κουμπί εντολής εγώ το ονόμασα Computeraki.

Κώδικας:
Private Sub Computeraki_Click()
On Error GoTo Err_Computeraki_Click

    Dim stAppName As String

    stAppName = "C:\WINDOWS\system32\Calc.exe"
    Call Shell(stAppName, 1)

Exit_Computeraki_Click:
    Exit Sub

Err_Computeraki_Click:
    MsgBox Err.Description
    Resume Exit_Computeraki_Click
   
End Sub

γιώργοςΚ 18-04-16 16:04
Γειά σου Αλέξανδρε,

Τζάμι η δουλειά..!! Δουλεύει μια χαρά φίλε μου.

Σε ευχαριστώ πολύ

alex 18-04-16 19:12
Νά σαι καλά φίλε μου.


Η ώρα είναι 15:54.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2