VBA+Access，根据单元格内容匹配数据库，能否实现单行匹配刷新？

春不老 · 发表于 2022-1-14 16:56

见附件。已实现根据H列编码匹配Access数据库，显示K-N整列内容。
能否实现：输入H列的某一行编码，回车或点击某个单元格只刷新匹配当前行？

2022年订单表.rar (91.91 KB, 下载次数: 19)

春不老 · 发表于 2022-2-2 22:41

过年好

ly · 发表于 2022-2-6 09:58

本帖最后由 ly 于 2022-2-6 10:02 编辑

2022年订单表.rar (69.87 KB, 下载次数: 43)

春不老 · 发表于 2022-2-11 22:02

ly 发表于 2022-2-6 09:58

谢谢！这个思路厉害！
希望改进一下，能否留住匹配内容？即新输入编码匹配，前面已匹配的内容不消失。

ly · 发表于 2022-2-12 09:15

春不老发表于 2022-2-11 22:02
谢谢！这个思路厉害！
希望改进一下，能否留住匹配内容？即新输入编码匹配，前面已匹配的内容不消失。

只需要把代码中关于清空的一行代码注释一下即可。

春不老 · 发表于 2022-2-12 16:47

本帖最后由春不老于 2022-2-12 17:34 编辑

ly 发表于 2022-2-12 09:15
只需要把代码中关于清空的一行代码注释一下即可。

谢谢老师！
我再改进一下：如果删除编码或编码为空，则删除当前行匹配的内容。
我用了个笨办法，删除当前行指定单元格内容。不知道还有没有更简单的方法，谢谢！Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Column = 8 And Target <> "单品编码" Then
If Target > 0 Then
Call Access2(Target.Row, Target.Value)
Else
With Target
If .Row > 1 Then
   r = .Row
   Union(Cells(r, 11), Cells(r, 12), Cells(r, 13), Cells(r, 14)).ClearContents
End If
  End With
End If
End If
End Sub

		自动登录	找回密码
密码			免费注册

[求助] VBA+Access，根据单元格内容匹配数据库，能否实现单行匹配刷新？