04-06-19, 18:24
|
| Όνομα: Πέτρος Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 03-10-2014
Μηνύματα: 22
| |
Παιδιά ΟΚ!!
το έλυσα το πρόβλημα με vba. Ο κώδικας που χρησιμοποίησα είναι ο παρακάτω:
Private Sub btnTade_Click()
Dim sFlt As Variant
If IsNull(Me.boxID) Then
sFlt = ""
Else
sFlt = "([Αναγνωριστικό] IN (" & Me.boxID & "))"
End If
DoCmd.OpenReport "rptΕκθεση", acViewPreview, , sFlt, acDialog
End Sub
Ευχαριστώ πολύ!! Καλή συνέχεια σε όλους
|