试图在表单值的字符串中查找单词

Question

我有一个表格，我所有的标准输入都是刨花板的PB。但是，如果它是胶合板，我希望能够在表单值中搜索字符串以在单独的报告中报告为胶合板。

我的示例语法明显错误。

Private Sub UnfinishedInterior_AfterUpdate()

If [Forms]![Cover Sheet]![UnfinishedInterior].Value contains Ply in it Then

[Forms]![Cover Sheet]![CV8AppliedEnds].Value = DFirst
("CV8PlyName", "AppliedEndsPlyReport_Query") 

Else

If [Forms]![Cover Sheet]![UnfinishedInterior].Value contains PB in it Then 

[Forms]![Cover Sheet]![CV8AppliedEnds].Value = DFirst("CV8Name", "AppliedEndsReport_Query")

End Sub

我似乎遇到的问题是找到正确的方法来提取 ply 或 PB 字符串并应用我的 table.

中的数据

Answer 1

您可以使用 InStr Function 或 Like 比较来确定一个字符串是否包含在另一个字符串中。

InStr returns 找到时第二个字符串在第一个字符串中的位置，未找到时为零。

? InStr(1,"Hello World", "or")
 8 
? InStr(1,"abcdef", "xyz")
 0

Like比较returnsTrue或False来表示字符串是否匹配模式。

? "Hello World" Like "*or*"
True
? "abcdef" Like "*xyz*"
False

所以对于你的 If 条件 ...

If [Forms]![Cover Sheet]![UnfinishedInterior].Value contains Ply in it Then

...选择其中一项...

If InStr(1, [Forms]![Cover Sheet]![UnfinishedInterior].Value, "Ply") > 0 Then
If [Forms]![Cover Sheet]![UnfinishedInterior].Value Like "*Ply*" Then

试图在表单值的字符串中查找单词

Trying to find word in string of a form value

ms-access

vba