18-06-20, 18:48
|
 | Διαχειριστής Όνομα: Τάσος Φιλοξενιδης Έκδοση λογισμικού Office: Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική | | Εγγραφή: 21-10-2009
Μηνύματα: 2.035
| |
Καλησπέρα σε όλους!
Αν η διαδρομή του αρχείου περιέχει κενούς χαρακτήρες τότε ο κώδικας στο VBS πρέπει να τροποποιηθεί: Κώδικας: Dim WshShell
Function currentDir()
Dim l
l = Len(Wscript.scriptname)
currentDir = Left(Wscript.scriptfullname, Len(Wscript.scriptfullname) - l - 1)
End Function
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("msaccess " & chr(34) & currentDir & "\Login_SplashScreen.mdb" & chr(34) & " /x OpenSplashScreen"),0
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών |