Εμφάνιση ενός μόνο μηνύματος
  #6  
Παλιά 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 δουλεύει
Απάντηση με παράθεση