上礼拜可以用的导出按钮，这个礼拜不能用了，求大神看看什么原因啊

若离ヘ不弃°

如果是不筛选的话还能导出，要是筛选过想要导出相应名称的时候就out put to 取消了
而且是有时候可以导出，有时候又不可以了


Private Sub Command564_Click()
On Error GoTo Err_Command564_Click
Dim filename As String
Me.Refresh
Me.Requery
If IsNull(Me.[Ctr no/Ref no].Value) = True Then
     filename = CurrentProject.Path & "\" & "sales" & ".pdf" 'if the contro is null,the file nanme is sales
Else
     filename = CurrentProject.Path & "\" & Me.[Ctr no/Ref no].Value & ".pdf" 'use the ctr no as file name and save it in current file
End If
DoCmd.OutputTo acOutputForm, "sales", acFormatPDF, filename, True, "", 0
Me.Refresh
Me.Requery

Exit_Command564_Click:
     Exit Sub

Err_Command564_Click:
     MsgBox Err.Description
     
    Resume Exit_Command564_Click

End Sub

笑嘻嘻哦

导出的按钮在哪里呢

roych

上个星期说要发的年终奖，这个星期没发，Access罢工抗议了吧？
附件稍微看了下，请注意特殊字符（这里只是把斜杠【/】替换为短划线【-】，如果还有其他特殊字符，最好用数据有效性或者正则表达式来禁止用户输入，保证数据合法性）：

1. Private Sub Command564_Click()
   
2. On Error GoTo Err_Command564_Click
   
3. Dim filename As String
   
4. Me.Refresh
   
5. Me.Requery
   
6. If IsNull(Me.[Ctr no/Ref no].Value) = True Then
   
7.      filename = CurrentProject.Path & "" & "sales" & ".pdf" 'if the contro is null,the file nanme is sales
   
8. Else
   
9.      filename = CurrentProject.Path & "" & Replace(Me.[Ctr no/Ref no].Value, "/", "-") & ".pdf" 'use the ctr no as file name and save it in current file
   
10. End If
    
11. DoCmd.OutputTo acOutputForm, "sales", acFormatPDF, filename, True, "", 0
    
12. Me.Refresh
    
13. Me.Requery
    
14. Exit_Command564_Click:
    
15.      Exit Sub
    
16. Err_Command564_Click:
    
17.      MsgBox Err.Description
    
18.     Resume Exit_Command564_Click
    
19. End Sub

复制代码

若离ヘ不弃°

roych 发表于 2013-2-5 15:47
上个星期说要发的年终奖，这个星期没发，Access罢工抗议了吧？
附件稍微看了下，请注意特殊字符（这里只 ...

多谢，祝新年快乐，感谢版主差不多半年多的支持啊

ycxchen

“如果还有其他特殊字符，最好用数据有效性或者正则表达式来禁止用户输入，保证数据合法性”，版主，能否再举个例子详细说明此规则？拜托了！

conqueror

呵呵  还不错的呢！！！！