I have one method
Public CurrentFileNameNoExtension As String
Public Sub importexcelfile()
CurrentFileNameNoExtension ="Filename"
'do something
End Sub
I want to use **CurrentFileNameNoExtension** value in **onEnter** event of the dropdown list(**cmvalues**) event. That Value use in sql query. My code is
Private Sub cmvalues_Enter()
Dim qstng As String
qstng = CurrentFileNameNoExtension
Me.cmvalues.RowSourceType = "Table/Query"
Me.cmvalues.RowSource = "Select F1 from " & qstng & " WHERE F1 <> 'MT Model';"
End Sub
But **qstng** value is empty. it is not giving the value in the **importexcelfile()** function.
Public CurrentFileNameNoExtension As String
Public Sub importexcelfile()
CurrentFileNameNoExtension ="Filename"
'do something
End Sub
I want to use **CurrentFileNameNoExtension** value in **onEnter** event of the dropdown list(**cmvalues**) event. That Value use in sql query. My code is
Private Sub cmvalues_Enter()
Dim qstng As String
qstng = CurrentFileNameNoExtension
Me.cmvalues.RowSourceType = "Table/Query"
Me.cmvalues.RowSource = "Select F1 from " & qstng & " WHERE F1 <> 'MT Model';"
End Sub
But **qstng** value is empty. it is not giving the value in the **importexcelfile()** function.