2016-08-11 6 views
0

私は私のフォームのいずれかのボックスにテキストのフォントとフォントサイズを変更しようとしている中でのフォントとテキストのサイズを変更するアクセス-VBAフォーム

With Me.[Notes:] 
.SetFocus 
.FontName = "Verdana" 
.FontSize = 8 
.ForeColor = vbBlack 
End With 

私はすでにここに

Access VBA programmatically setting font/size not workingを見てきました

私はまだいくつかの問題がありますが、それは働いているようです。

  1. それは右のボックスではなく、私のレコードの一人一人ではなく、私が編集してるだけで1上のテキストを変更します。
  2. テキストボックスに直接入力されたテキストに対してのみ動作します。フォームに貼り付けられたテキストには適用されません。それが重要な場合には

それはだ場合、私はMS Accessの事前に2016

おかげで、

ダニエル

+0

のafterupdateイベントの第二の問題は、コードを設定(またはプロシージャを作成し、それを呼び出す)ことができますについては

Private Sub Form_Current() if condition met then With Me.[Notes:] .SetFocus .FontName = "Verdana" .FontSize = 8 .ForeColor = vbBlack End With end if end sub 

が、これは、連続フォーム/サブフォームですか?またはデータシート - または通常のフォーム? – dbmitch

+0

私はそれが "セクション"内の "テキストボックス"だと思う –

+0

これは仕様です。コントロールはすべてのレコードで同じように連続して表示されます。 – Gustav

答えて

0

を使用しています(これは、最初の場所でボタンの理由があります)連続したフォームではなく、IF文を追加して、どの条件の下でこれを実行するかを指定する必要があるように思えます。フォームの現在のイベントに配置します。フィールド

Private Sub notes_AfterUpdate() 
if condition met then 
    With Me.[Notes:] 
    .SetFocus 
    .FontName = "Verdana" 
    .FontSize = 8 
    .ForeColor = vbBlack 
    End With 
    end if 
End Sub 
+0

私は次の仕事のときにテストしますが、このフォームだけを選択するためにはどのような条件を使用しますか? –

+0

いつこのフォントとサイズの変更を表示しますか? – jwill

+0

テキストフィールドを離れるとき、またはボタンを押すとき(残っているテキストフィールドで現在作業中) –