Question

我根据查询设计了报告。

对我来说，完全写好的婴儿名字出现在我的报告中的特定无界框中，即名称以＆＃34; ETA *＆＃34;请写出＆＃34; Etanerella＆＃34;，例如。

当我运行代码时，我没有收到任何警告，但是我的无框中没有写任何内容。

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

您需要为文本框使用 Value 属性：

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

Answer 2

什么是[tbl_PatientJADAS_B1.Therapie1]？这是你的报告名称吗？整个报告不能等于字符串值。您还需要输入您的对象名称。

this

你的第一个3'if之后的陈述被注释掉，所以现在不会做任何事情。

其他一些尝试：您的无界框是否足够大（宽度和高度）？它是否使用与背景颜色相同的颜色字体？

将新值分配给报表中的未绑定框

2 个答案: