hatena の Microsoft Access 掲示板



[7279] フォームのフォーカスが移動しないようにしたい Name:ななーし Date:2017/08/08(火) 13:40 [ 返信 ]
お世話になります。ななーしです。
現在、組図検索システムの改修をしているのですが、少しつまずいてしまいどうしたらよいかご相談致します。

内容はPDF表示用フォームを作成し、検索フォームからそのPDF表示フォームを開き、2つのフォームで検索したレコードのPDFをその表示フォームで見せるといったものを作成しました。

PDF表示フォームはMicrosoft Web Browserを使用し、以下のフォームのタイマーを利用して表示を更新しています。
Private Sub Form_Timer()
On Error GoTo ErrorTrap
If pdfUrl <> "" Then
Dim pdfCrl As String
pdfCrl = Me.OpenArgs

WB0.Navigate pdfUrl
WB0.Tag = pdfUrl
While WB0.ReadyState <> 4 Or WB0.Busy = True
DoEvents
Wend
pdfUrl = ""
End If
'Forms(pdfCrl).SetFocus
ErrorTrap:
End Sub

仕組みはpdfUrlはグローバル関数として定義し、各検索フォームにて行が移動した際にイベントでpdfUrlに値を入れます。その値を確認し値が入っていれば表示を更新し、pdfUrlの値をなくします。

現在の問題は行を更新した際にPDF表示フォームがタイマーによりフォーカスがそちらに移動するため、いちいち行を移動するのにフォームを戻って選択する必要がある状態です。改善としてはPDF表示フォームにフォーカスがいかず元の検索フォームにフォーカスを固定したいです。

以上、よろしくお願い致します。


スレッド記事表示 No.7279 フォームのフォーカスが移動しないようにしたい ななーし2017/08/08(火) 13:40 [ 返信 ]
   ┣No.7280 RE:フォームのフォーカスが移動しないようにしたい hatena2017/08/08(火) 23:30
   ┣No.7281 RE:フォームのフォーカスが移動しないようにしたい ななーし2017/08/09(水) 12:42
   ┣No.7282 RE:フォームのフォーカスが移動しないようにしたい hatena2017/08/09(水) 13:41
   ┣No.7283 RE:フォームのフォーカスが移動しないようにしたい  ななーし2017/08/11(金) 17:31
   ┣No.7284 RE:フォームのフォーカスが移動しないようにしたい hatena2017/08/11(金) 18:35
   ┣No.7291 RE:フォームのフォーカスが移動しないようにしたい 朱色2017/08/16(水) 22:16
   ┣No.7293 Accessファイルの動作がおかしくなったら、 hatena2017/08/17(木) 14:55
   ┗No.7294 RE:フォームのフォーカスが移動しないようにしたい ななーし2017/08/21(月) 12:32

  




無料レンタル掲示板・日記・ブログ Progoo