30-05-12, 18:05
|
Όνομα: Τάσος Έκδοση λογισμικού Office: Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 30-01-2011
Μηνύματα: 43
| |
δυστυχώς φίλοι μου αν και άλλαξα το όνομα της φόρμας είτε με
Private Sub ÅíôïëÞ40_Click()
Dim OpenFile As String
OpenFile = ShellExecute(0, "open", "G:\inv\forms![invoices]![inv_No].pdf", "", "C:\", SW_SHOWNORMAL)
End Sub
είτε με Private Sub ÅíôïëÞ40_Click()
Dim OpenFile As String
OpenFile = ShellExecute(0, "open", "G:\inv\Me![inv_No].pdf", "", "C:\", SW_SHOWNORMAL)
End Sub
δεν δουλεύει. Μόνο αν βάλω συγκεκριμένη τιμή μέσα από την vba δουλεύει
|