| |
こんにちは、さつきと申します。
いつもいろいろ教えていただきありがとうございます。
あるページを参考にして、下記のようなコードを書きました。
renrakuというフォームにあるコマンド1ボタンを押すと、
calというカレンダーだけのフォームが開き、日付を選択したら、
renrakuフォームの中のtxt日付というテキストボックスに日付が入り、
その日付をファイル名にしているエクセルファイルを開く形にしたいのですが、
カレンダーフォームとファイル選択ダイアログが同時に開いてしまいます。
どのように直したらいいでしょうか？
どなたかご教示お願いいたします。
Private Sub コマンド1_Click()
DoCmd.OpenForm "cal"
myfullpath = FileSelect
Dim oApp As Object
Set oApp = CreateObject("Excel.Application")
txt日付で指定された日付のエクセルファイルを開くコード
End Sub
Private Sub calendar0_Click()
Dim hiduke As Date
DoCmd.SelectObject acForm, "renraku", False ' --- A
Forms!renraku!txt日付 = Me.Calendar0.Value
DoCmd.Close acForm, "cal" ' --- C
End Sub
Function FileSelect()
Dim inttype As Integer
Dim varSelectedFile As Variant
inttype = msofiledialogfilepicker
With Application.FileDialog(inttype)
.Title = "ファイル選択"
.InitialFileName = CurrentProject.Path
If .Show = -1 Then
For Each varSelectedFile In .SelectedItems
FileSelect = varSelectedFile
Next
End If
End With
End Function
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
