访问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是不正确的......

示例

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