Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1321 / 9994

←次へ　｜　前へ→


	【11971】カレンダーコントロールとファイル選択ダイアログ

さつき - 11/3/16(水) 23:22 -


	引用なし

	パスワード

こんにちは、さつきと申します。
いつもいろいろ教えていただきありがとうございます。

あるページを参考にして、下記のようなコードを書きました。
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

488 hits

▼

【11971】カレンダーコントロールとファイル選択ダイアログ さつき 11/3/16(水) 23:22