طب جرب
On Error Resume Next
'DoCmd.OutputTo acOutputTable, "Data", acViewPreview
DoCmd.SetWarnings False
' EXPORT_TO_EXCEL_01
DoCmd.RunSQL "SELECT [name],[phone],[date] INTO Access IN'" _
& CurrentProject.Path & "\bb'[Excel 8.0;HDR=yes;] FROM qyrcustomer"
MsgBox "تم تصدير الجدول بنجاح إلى نفس مجلد قاعدة البيانات سيتم فتح المجلد الآن... "
On Error GoTo 1
Application.FollowHyperlink CurrentProject.Path
1:
DoCmd.SetWarnings True
من موضوع