hatena の Microsoft Access 掲示板



[7281] RE:フォームのフォーカスが移動しないようにしたい Name:ななーし Date:2017/08/09(水) 12:42
だいぶよくなりました。ありがとうございます。
PDF表示ボタンでもすぐその行が表示されるようにサブ関数にして組み込みました。帳票フォームのためなのかセットフォーカスをしても元の検索フォームにフォーカスがいかず、うまくいきません。検索項目のドロップダウンの方はドロップダウンを行うとフォーカスが移動したのですが><
何かいい方法はございますか?

Private Sub tglOpenDetail_AfterUpdate() 'PDF表示ボタン
On Error GoTo E
  If Me.tglOpenDetail Then
    DoCmd.OpenForm "PDF表示", , , , , , "S_AAA"
    Call pdfChange(Nz(Me.PDFPASS), False)
  Else
    DoCmd.Close acForm, "PDF表示"
  End If
E:
End Sub

Private Sub Form_Current()
On Error GoTo E
  If Me.tglOpenDetail Then Call pdfChange(Nz(Me.PDFPASS), False)
E:
End Sub

Private Sub pdfChange(pUrl As String, Optional PNameChk As Boolean = True)
  With Forms!PDF表示.WB0
    .Navigate pUrl
    While .ReadyState <> 4 Or .Busy = True
      DoEvents
    Wend
  End With
  If PNameChk = True Then
    pdfName = Me.U番号.Value & Me.工番号 & "_" & Me.登録番号 & ".pdf"
    Me.工番号.SetFocus
    Me.SetFocus
  End If
End Sub


スレッド記事表示 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