根据具有if条件的多个文本框表达式值将值分配给表单上的文本框-MS ACCESS

达瓦

让我解释一下,我在以下表单上有字段(文本框)

textbox1 = can hold Yes or NO
textbox2 = can hold Yes or NO
textbox3 = can hold Yes or NO
textbox4 = can hold Yes or NO

textboxResult 仅保存那些值为“是”的文本框的标签(标题)的串联值

我尝试了许多可能的解决方案(在我看来),包括以下方法,但没有运气。还使用OR运算符测试了以下代码。

If Me.textbox1.Value = "Yes" And Me.textbox2.Value = "Yes" And _
               Me.textbox3.Value = "Yes" And Me.textbox4.Value = "Yes" Then
    Me.textboxResult.Value = Me.Label1.Caption & "," & 
    Me.Label2.Caption & "," & Me.Lable3.Caption & "," & 
    Me.Label4.Caption
Else
    Me.textboxResult.Value = "NA"
End If

我想为那些值为YES的文本框分配标签标题。请帮忙

保罗·弗朗西斯

如果我理解正确,则需要所有TextBox标签的串联值。因此,AND可能不是一个选择,也许检查每个控件。就像是。

Dim txtResult As String

If Me.textbox1 = "Yes" Then _
    txtResult = txtResult & Me.textbox1.Controls.Item(0).Caption & ","

If Me.textbox2 = "Yes" Then _
    txtResult = txtResult & Me.textbox2.Controls.Item(0).Caption & ","

If Me.textbox3 = "Yes" Then _
    txtResult = txtResult & Me.textbox3.Controls.Item(0).Caption & ","

If Me.textbox4 = "Yes" Then _
    txtResult = txtResult & Me.textbox4.Controls.Item(0).Caption & ","

If Len(txtResult) > 0 Then
    Me.textboxResult = Left(txtResult, Len(txtResult)-1)
Else
    Me.textboxResult = "NA"
End If

注意-Me.TextBoxName.Controls.Item(0)将返回带有TextBoxName的关联标签如果文本框没有关联,则可能会导致错误。


编辑-编辑后,如果您只想使用标签的标题,只需将替换Me.textbox.Controls(0).CaptionMe.LableName.Caption

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

如何在MS Access中通过VBA填充文本框?

来自分类Dev

列表框MS Access,项目添加到文本框

来自分类Dev

MS ACCESS VBA:Me.Dirty = False OnTimer事件还原编辑的文本框数据

来自分类Dev

将MS Access表单中的文本框设置为数组?

来自分类Dev

关闭分配给变量的MS Access表单的正确方法

来自分类Dev

仅允许MS Access在文本框中输入字母

来自分类Dev

MS Access:使用VBA将字符串从文本框拆分为其他文本框

来自分类Dev

MS Access:如何在筛选的搜索中筛选多个字段(文本框)

来自分类Dev

不允许在所有文本框中输入特定字母以用于MS Access

来自分类Dev

为什么我的MS Access文本框(RTF)缺少单词之间的空格?

来自分类Dev

VBA MS Access在文本框中更改值的范围为2个字符

来自分类Dev

在文本框中继续循环以从数据库,MS Access中搜索多个值

来自分类Dev

如何在MS Access中比较两个文本框?

来自分类Dev

使用循环从表中选择多个记录以填充MS Access中的未绑定文本框

来自分类Dev

MS Access:如何用查询绑定表格的文本框?

来自分类Dev

Javascript根据文本框值从MS Access检索值

来自分类Dev

如何在MS Access中将从表单上的文本框(对象)获取的值插入到“ LIKE”查询中

来自分类Dev

ms access-将光标在文本字段中的位置设置为仅在文本框为空时开始

来自分类Dev

将MS Access表单中的文本框设置为数组?

来自分类Dev

如何在连续表单页脚中将文本框的值设置为0“零”,而表单的详细信息没有数据MS Access

来自分类Dev

MS Access VBA显示列表框计数到文本框

来自分类Dev

关闭分配给变量的MS Access表单的正确方法

来自分类Dev

如何将文本框绑定到MS Access中子窗体的链接子字段?

来自分类Dev

MS Access填充文本框和组合框

来自分类Dev

不允许在所有文本框中输入特定字母以用于MS Access

来自分类Dev

将查询记录计数到MS Access中的文本框

来自分类Dev

ms-access 根据表单选项在文本框中生成字符串

来自分类Dev

如何在 MS Access VBA 上将文本框注释值输入设置为表数据插入

来自分类Dev

将文本框中的数据保存到 MS Access 数据库

Related 相关文章

  1. 1

    如何在MS Access中通过VBA填充文本框?

  2. 2

    列表框MS Access,项目添加到文本框

  3. 3

    MS ACCESS VBA:Me.Dirty = False OnTimer事件还原编辑的文本框数据

  4. 4

    将MS Access表单中的文本框设置为数组?

  5. 5

    关闭分配给变量的MS Access表单的正确方法

  6. 6

    仅允许MS Access在文本框中输入字母

  7. 7

    MS Access:使用VBA将字符串从文本框拆分为其他文本框

  8. 8

    MS Access:如何在筛选的搜索中筛选多个字段(文本框)

  9. 9

    不允许在所有文本框中输入特定字母以用于MS Access

  10. 10

    为什么我的MS Access文本框(RTF)缺少单词之间的空格?

  11. 11

    VBA MS Access在文本框中更改值的范围为2个字符

  12. 12

    在文本框中继续循环以从数据库,MS Access中搜索多个值

  13. 13

    如何在MS Access中比较两个文本框?

  14. 14

    使用循环从表中选择多个记录以填充MS Access中的未绑定文本框

  15. 15

    MS Access:如何用查询绑定表格的文本框?

  16. 16

    Javascript根据文本框值从MS Access检索值

  17. 17

    如何在MS Access中将从表单上的文本框(对象)获取的值插入到“ LIKE”查询中

  18. 18

    ms access-将光标在文本字段中的位置设置为仅在文本框为空时开始

  19. 19

    将MS Access表单中的文本框设置为数组?

  20. 20

    如何在连续表单页脚中将文本框的值设置为0“零”,而表单的详细信息没有数据MS Access

  21. 21

    MS Access VBA显示列表框计数到文本框

  22. 22

    关闭分配给变量的MS Access表单的正确方法

  23. 23

    如何将文本框绑定到MS Access中子窗体的链接子字段?

  24. 24

    MS Access填充文本框和组合框

  25. 25

    不允许在所有文本框中输入特定字母以用于MS Access

  26. 26

    将查询记录计数到MS Access中的文本框

  27. 27

    ms-access 根据表单选项在文本框中生成字符串

  28. 28

    如何在 MS Access VBA 上将文本框注释值输入设置为表数据插入

  29. 29

    将文本框中的数据保存到 MS Access 数据库

热门标签

归档