Доступ к текущему полю ID в ячейку Excel - PullRequest
Новая
       9

Доступ к текущему полю ID в ячейку Excel

0 голосов
/ 03 сентября 2018

Управление проектами
Детали проекта

Это стандартная база данных управления проектами, при нажатии идентификационного номера она переходит в Project Details - pic2.

После этого я вставил 2 кнопки по одной для создания папки и кнопку Excel, которая открывает определенный шаблон.

Кнопка одна делает это: 

Private Sub Command85_Click()


Const strParent = "F:\2. Prodaja\"
Dim projectID As String
Dim strFolder As String
Dim fso As Object
' Get ID from control
projectID = Me.ID
' Full path
strFolder = strParent & projectID
' Create FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
' Check whether folder exists
If fso.FolderExists(strFolder) = False Then
    ' If not, create it
    fso.CreateFolder strFolder
End If
' Open it
 Shell "explorer.exe " & strFolder, vbNormalFocus
 End Sub

И кнопка Excel: 

 Function OpenExcelFromAccess()
 Dim MyXL As Object

Set MyXL = CreateObject("Excel.Application")
With MyXL
    .Application.Visible = True
    .Workbooks.Open "F:\0. Main\01.Templates\ponuda.xltm"
    .Worksheets("Kupci").ListObjects("Employees__4").Refresh

   Dim EmpID As Integer
   EmpID = ID_Employees

.Worksheets("GlavnaTabela").Cells(3, 25).Value = EmpID

 End With
 End Function

Идея состояла в том, чтобы скопировать номер ID_Employee и вставить его в ячейку Y3, но он не дает мне текущего числа ID_Employees, он дает мне 0. Первая кнопка работает и создает папки на основе ID. Мой вопрос, как получить ID_employees из формы доступа в ячейку Excel Y3?

Я изменил функцию на Sub и сделал следующие изменения: 

Private Sub Command166_Click()

Dim EmpID As Integer
If IsNull(ID_Employees) Then EmpID = 0 Else EmpID = ID_Employees

Set MyXL = CreateObject("Excel.Application")
With MyXL
    .Application.Visible = True
    .Workbooks.Open "F:\0. Main\01.Templates\ponuda.xltm"
    .Worksheets("Kupci").ListObjects("Employees__4").Refresh
    .Worksheets("GlavnaTabela").Cells(3, 25).Value = EmpID

 End With
 End Sub
...