レポートのバインドされていないボックスに新しい値を割り当てる

Question

私はクエリからレポートを設計しました。

完全に書かれた赤ちゃんの名前が、レポートの特定の無制限のボックスに表示されることが重要です。名前が「ETA *」で始まる場所は、たとえば「Etanerella」と記入してください。

コードを実行すると警告は表示されませんが、無制限のボックスには何も書き込まれません。

Option Compare Database 
Option Explicit 
Sub testing() 
' Defining the rename baby names 

Dim newBio As String 
Dim sqlANA As String 
Dim sqlADA As String 
Dim sqlCAN As String 
Dim sqlETA As String 

    sqlANA = "Alice" 
    sqlABA = "About" 
    sqlCAN = "Canibal" 
    sqlETA = "Etanerella" 

    'newBio = Left(Me![tbl_PatientJADAS_B1.Therapie1], 3) 

    If Left(Reports![tbl_PatientJADAS_B1.Therapie1], 3) Like "*ETA*" Then 
     'Me!BIOnew.OptionValue = sqlETA 

    ElseIf Reports![tbl_PatientJADAS_B1.Therapie1] Like "*ADA*" Then 
     'Me!BIOnew.OptionValue = sqlADA 

    ElseIf Reports![tbl_PatientJADAS_B1.Therapie1] Like "*ANA*" Then 
     'Me!BIOnew.OptionValue = sqlADA 

    Else 
     Reports!BIOnew.OptionValue = "baba" 

    End If 
    'the code 
End Sub 

Answer 1

あなたは、テキストボックスのために値プロパティを使用する必要があります。

If Left(Reports![tbl_PatientJADAS_B1.Therapie1], 3) = "ETA" Then 
    Me!BIOnew.Value = sqlETA 

Answer 2

[tbl_PatientJADAS_B1.Therapie1]とは何ですか？あなたのレポート名ですか？レポート全体が文字列の値と等しくなることはありません。オブジェクト名も入れておく必要があります。

If Left(Reports![tbl_PatientJADAS_B1.Therapie1]!MyUnboundedTextBox, 3 Like "*ETA*" Then Me!BIOnew.Value = sqlETA 

あなたの最初の3 'の後の文はコメントアウトされているので、今は何もしません。

しようとするいくつかの他のもの： はあなたの無制限のボックスには、（幅と高さ）十分な大きさですか？ 背景色と同じ色のフォントを使用していますか？