Сохранение отчета о доступе с отдельным именем - PullRequest
Новая
       51

Сохранение отчета о доступе с отдельным именем

1 голос
/ 15 мая 2019

Я пытаюсь сохранить каждое заявление сотрудника, используя Отчеты о доступе.Однако у меня возникают проблемы с добавлением поля Employee Name к переменной MyFileName.

Я могу экспортировать отчеты отдельных сотрудников в формате PDF в следующем формате: 

Statement_[EENo].pdf

Однако я хотел бы, чтобы это включало имя сотрудника в следующем формате: 

Statement_[Employee Name]_[EENo].pdf

Private Sub Command2_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim MyFileName As String
    Dim mypath As String
    Dim temp As String

    mypath = "FILE LOCATION"

    Set db = CurrentDb()

    Set rs = db.OpenRecordset("SELECT distinct [EENo] & [Employee Name] FROM [Query]", dbOpenSnapshot)

    rs.MoveFirst
    Do While Not rs.EOF
        temp = rs("EENo" & "Employee Name")
        MyFileName = "Statement" & "_" & [Employee Name] & "_" & Format(rs("EENo"), "000000") & ".PDF"

        DoCmd.OpenQuery "1 - Query: Firm Admin_EE"
        DoCmd.Close acQuery, "1 - Query: Firm Admin_EE", acSaveYes
        DoCmd.OpenReport "REPORT", acViewReport, , "[EENo]=" & temp
        DoCmd.OutputTo acOutputReport, "", acFormatPDF, mypath & MyFileName
        DoCmd.Close acReport, "REPORT"
        DoEvents

        rs.MoveNext
    Loop

    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub

1 Ответ

0 голосов
/ 15 мая 2019

Это должно работать: 

temp = rs("EENo").Value & rs("Employee Name").Value
MyFileName = "Statement_" & rs("Employee Name").Value & "_" & _
              Format(rs("EENo").Value, "000000") & ".PDF"

РЕДАКТИРОВАТЬ: Я на самом деле не смотрел на ваш SQL, и пропустил, что вы объединяете два столбца в вашем запросе. Я не пользуюсь доступом, но попробуйте: 

Set rs = db.OpenRecordset("SELECT distinct [EENo] , [Employee Name] FROM [Query]", _
                           dbOpenSnapshot)
...