01 |
Private Sub Form_Load |
02 |
Data_Table.SourceObject
= "Query.Data
View" |
03 |
Data_Table.Visible
= False |
04 |
End Sub |
05 |
06 |
Public Sub DataSource() |
07 |
Data_Table.Visible
= True |
08 |
KeyFindTxt.SetFocus |
09 |
KeyFindTxt.Tag
= KeyFindTxt.Text |
10 |
NameFindTxt.SetFocus |
11 |
NameFindTxt.Tag
= NameFindTxt.Text |
12 |
Data_Table.Requery |
13 |
End Sub |
14 |
15 |
Private Sub OutputData_Click() |
16 |
If Data_Table.Visible Then |
17 |
With Application.FileDialog(msoFileDialogSaveAs) |
18 |
.AllowMultiSelect
= False |
19 |
'.Filters(0).Description
= "Excel 2007 Files" |
20 |
'.Filters(0).Extensions
= "*.xlsx" |
21 |
'.Filters.Add
"Excel 2007 Files", "*.xlsx" |
22 |
'.Filters.Add
"All Files", "*.*" |
23 |
If .Show
= -1 Then |
24 |
DoCmd.TransferSpreadsheet
acExport, acSpreadsheetTypeExcel12Xml, "Data
View" ,
.SelectedItems(1), True |
25 |
End If |
26 |
End With |
27 |
End If |
28 |
End Sub |