具有vba访问权限的导出选择查询

Question

经过大量研究，我来寻求您的帮助。我的应用程序具有访问权限，要执行的操作是使按钮生成选择查询，然后将结果导出到Outlook邮件中（或至少在Excel中），该查询应在末尾销毁，因此没有最后重复。我的代码在下面：

Private Sub Commande24_Click()
Dim db As Database
Dim Qdf As QueryDef

Dim strSQL As String    
Dim matr As Double

matr = DLookup("Matricule", "Employée", "Nom = '" & Me.Nom & "'")

strSQL = "SELECT Employée.Matricule, Employée.Département, Employée.Nom, Employée.Prénom, Employée.Grade, Employée.Silo, Entree.date_entree_g, Sortie.Date_sortie_e, Sortie.Type_s FROM (Employée INNER JOIN Entree ON Employée.N° = Entree.N_emp) INNER JOIN Sortie ON Employée.N° = Sortie.N_emp WHERE Employée.Matricule = '" & matr & "'"

Debug.Print sql 

如果有人可以加入并帮助我，我将不胜感激。

Answer 1

创建一个删除查询，将从表中删除所有值

为要导出到excel的值创建一个选择查询
1. 使用选择查询作为记录源创建报告
2. [通过两个动作创建宏A.格式化导出（将上面3中的报告名称用作对象名称，并将报告作为对象类型，输出格式-选择excel）B打开查询，选择删除查询

然后在单击事件上将宏附加到命令按钮。