私には1つの方法があります
Public CurrentFileNameNoExtension As String
Public Sub importexcelfile()
CurrentFileNameNoExtension ="Filename"
'do something
End Sub
ドロップダウンリスト(cmvalues)イベントのonEnterイベントでCurrentFileNameNoExtension値を使用したい。その値はSQLクエリで使用されます。私のコードは
Private Sub cmvalues_Enter()
Dim qstng As String
qstng = CurrentFileNameNoExtension
Me.cmvalues.RowSourceType = "Table/Query"
Me.cmvalues.RowSource = "Select F1 from " & qstng & " WHERE F1 <> 'Control Model';"
End Sub
しかし、qstng値は空です。importexcelfile()関数に値を指定していません。
この関数をMicrosoftAccessクラスオブジェクトフォームコントロールの下に配置します。cmvaluesドロップダウンが存在する場所
Public CurrentFileNameNoExtension As String
Public Sub importexcelfile()
CurrentFileNameNoExtension ="Filename"
'do something
End Sub
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加