如何将组合框的值转换为 vba 模块中的字符串？

Posted 2023-05-07

【中文标题】如何将组合框的值转换为 vba 模块中的字符串？

【英文标题】：How can I get the value of a combobox into a string in vba module?

【发布时间】：2017-08-17 10:02:52

【问题描述】：

我有一个表单，example 导出基于查询执行 xml。该查询是使用组合框的条件构建的。 组合框只有一个字段。 我想要的是，在 vba 模块中，使用组合框的条件命名 de xml 文件。

示例：组合框的值：03，Lucas，Roger，23。

文件：myXML.Save "C:\teste\03_Lucas_Roger_23.xml"

【问题讨论】：

这是在访问表单上吗？

是的，我正在使用 access 2010

网络搜索“如何在 VBA 中连接字符串”

我的问题不在于，我知道如何连接。我的问题是将组合框的值放入字符串中。

您是如何生成 xml 的，您是否在不知道 .value 属性的情况下解决了所有这些问题？

【参考方案1】：

你可以使用这个表达式：

FileName = "C:\teste\" & Replace(Replace(Me!YourCombobox.Value, ",", "_"), " ", "") & "xml"

file: myXML.Save FileName

【讨论】：

谢谢，它工作:) 我必须改变我！到表格！frmMyForm！和那工作。

【参考方案2】：

您可以像这样连接这些值。 我为 null 添加了一个额外的测试，因为如果在一个或多个 ComboBoxes 上没有选择任何值，它将引发错误。

If IsNull(ComboBox1.Value) Or IsNull(ComboBox2.Value) Or IsNull(ComboBox3.Value) Or IsNull(ComboBox4.Value) Then
     MsgBox ("Not all values selected!")
Else
    Dim myFileName As String
    myFileName = "C:\teste\" & ComboBox1.Value & "_" & ComboBox2.Value & "_" & ComboBox3.Value & "_" & ComboBox4.Value & ".xml"
    myXML.Save myFileName
End If

【讨论】：

我已经尝试过了，但我得到：需要运行时错误“424”对象

那么这应该是你的问题。我认为您只是拼错了一个 ComboBox 的名称，因为这会引发 424 错误。