请问如何“记忆式键入”

碧云天

真是不好意思,水平太差,照着原样来,你的命令输入还是有问题,郁闷
Private Sub BBB_Change()
Dim C As String
C = BBB
BBB = DLookup("BBB", "表A", "BBB LIKE " & C & " & *")
If BBB = "" Then
BBB = C
End If
End Sub

Trynew

改为：
BBB = DLookup("BBB", "表A", "BBB LIKE '" & C & "'*")

碧云天

我的基础差,不好意思,我试着将""号和''号换了几个位置,都还是不对,这是我的图,请指点

sunredday

文件下载
谁能帮助改一下

mymicrosoft

To sunredday:我用了你的方法，还是不行，显示代码错误，需要修改。

To everybody: 请大家多多指教.

TKS

mymicrosoft

诸位帮忙看看吧。[em08]

goodorbad

ctrl＋‘