把照片的文件名字符串保存到表的字段里

zzyyjj　发表于：2011-11-01 13:25:42 　

能帮我看一下问题在哪吗？
我想通过按钮实现将“D:\照片”下所有照片的文件名写入“照片文件”表中。但不知哪里有问题，按钮后没反应。

只把照片的文件名字符串保存到表的字段里

煮江品茶发表于：2011-11-01 13:55:28

Dim str As String
Dim i As Integer
l = "D:\照片\*.*"
str = Dir(l, vbNormal)
Do While str <> ""
       i = i + 1
       照片文件.Value = str

照片文件.Value = Trim(Left(str, InStrRev(str, ".", -1) - 1))

DoCmd.GoToRecord , "照片文件", acNewRec
str = Dir
Loop

学习发表于：2011-11-01 14:58:40

学习中……

虽虽TV 发表于：2011-11-01 16:57:30

这是个好主意，我也正想问这个问题呢！

煮江品茶发表于：2011-11-01 17:06:44

呵呵，这其实不是好主意，字段中不必存地址，存一个图片名称足矣。

学习发表于：2011-11-16 13:21:03

"i = i + 1
照片文件.Value = str "

我将上述代码删除后发现程序依然正常工作，呵呵。

总记录：5篇页次：1/1 9 1 :

Access交流中心