Private Sub outexcel_Click()
Dim filename As String
If IsNull(Me.mo.Value) = True Then
filename = "D:\temp.xls"
Else
filename = "D:\" & Me.mo.Value & ".xls"
End If
DoCmd.OutputTo acReport, "rptMO", acFormatXLS, filename, False, "", 0
End Sub
在那个位置??
Private Sub outexcel_Click()
Dim filename As String
If IsNull(Me.mo.Value) = True Then
filename = "D:\temp.xls"
Else
filename = "D:\" & Me.mo.Value & ".xls"
End If
DoCmd.OutputTo acReport, "rptMO", acFormatXLS, filename, False, "", 0
End Sub
在那个位置??