12-03-19, 08:10
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Καλημέρα
Δοκίμασε: Κώδικας: Private Sub cmdExportTable_Click()
On Error GoTo ExitHere:
DoCmd.OutputTo acOutputTable, "tblTim", acFormatXLSX
Exit Sub
ExitHere:
If Err.Number = 2501 Then
Exit Sub 'ή ένα μνμ πχ msgbox "Η Αποθήκευση Ακυρώθηκε..."
Else
MsgBox Err.Number & ":" & Err.Description
End If
End Sub
|