访问 Instr Vba

Question

我想将 bi!hersteller 和 bi!produktname 复制到新字段中但是当 bi!hersteller 已经在 bi!produktname 中时，它只会将 bi!produktname 复制到新字段中，所以我会告诉你，我已经尝试过哪些代码

 If InStr(1, Bi!Hersteller, Bi!Produktname, 1) > 0 Then ....

 If InStr(1, Bi!Hersteller, Bi!Produktname, 1) Len(Bi!Hersteller) Then ....

要么根本没有在 Bi!Produktname 中找到字符串 Bi!Hersteller，要么 InStr 的 return 不正确...

一个例子

Bi!Hersteller = "Siemens"
Bi!Produktname = "Siemens LC67KA532"

新字段应该是 "Siemens LC67KA532"

Answer 1

试试这个：

Dim sNewField
Dim Bi!Hersteller : Bi!Hersteller = "Siemens"
Dim Bi!Produktname : Bi!Produktname = "Siemens LC67KA532"

If InStr(Bi!Produktname, Bi!Hersteller) > 0 Then
   sNewField = Bi!Produktname
Else
   sNewField = Bi!Hersteller & Bi!Produktname
End If

访问 Instr Vba

Access Instr Vba

string

vba

comparison

field