09-06-12, 10:53
|
Όνομα: Θάνος Έκδοση λογισμικού Office: Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 09-05-2012 Περιοχή: Λάρισα
Μηνύματα: 49
| |
Καλησπερα, δινω ενα δικο μου παράδειγμα... απο δικιά μου εφαρμογη
Η εκτυπωση γινετε απο button
Private Sub Command31_Click()
On Error GoTo HandleErr
Dim rst As DAO.Recordset
If Not IsNull(Me!TransactionLineID) Then
DoCmd.OpenReport "TransactionLine", acViewPreview, , "TransactionLineID = " & Me!TransactionLineID
End If
HandleErrExit:
On Error GoTo 0
Exit Sub
HandleErr:
Select Case Err.Number
Case Else
MsgBox "Error " & Err & " : " & Error$, vbCritical, "Προσοχή"
Resume HandleErrExit
End Select
End Sub
|