增加50张**号码怎样写代码

MARK　发表于：2010-06-29 23:26:21 　

追加一条**号码: DoCmd.RunSQL "INSERT INTO 票据号码表 ( [票据号码],[票据类型]) values(" & 开始号码 & ",'" & 票据类型 & "')"

如果有50张**,该怎样写方便呀?
能不能帮忙修改下?

点击下载此附件

Top

wyh99999 发表于：2010-06-29 23:51:44

For i = 1 To 追加张数.Value
        strSQL = "INSERT INTO 票据号码表 ( [票据号码],[票据类型]) values(" & 开始号码 & ",'" & 票据类型 & "')"
        DoCmd.RunSQL strSQL
       Next i

   Me.Child9.Requery '刷新子窗体

点击下载此附件

Top

MARK 发表于：2010-06-30 08:30:45

哈哈。。谢谢你的帮忙。。不过我想问问，我加了50个号码，他要我按50次“你正准备追加1行”有没有办法解决

Top

Victor Duane 发表于：2010-06-30 08:36:48

docmd.setwarning flase

for....

....

docmd.runsql......

docmd.setwarning true

Top

MARK 发表于：2010-06-30 09:21:14

谢谢你的帮忙。不明白这句是什么，加在哪里啊

Top

Victor Duane 发表于：2010-06-30 09:44:07

DOCMD.SETWARNING FALSE

For i = 1 To 追加张数.Value
        strSQL = "INSERT INTO 票据号码表 ( [票据号码],[票据类型]) values(" & 开始号码 & ",'" & 票据类型 & "')"
        DoCmd.RunSQL strSQL
       Next i
  DOCMD.SETWARNING TRUE
   Me.Child9.Requery '刷新子窗体

Top

wyh99999 发表于：2010-06-30 11:54:00

没看懂 "他要我按50次“你正准备追加1行”有没有办法解决 "是什么意思。

Top

MARK 发表于：2010-06-30 13:10:17

不好意识我得意思是，我按了追加后，他会弹出“你正准备追加1行"，如果我追加50份，信息就会弹出50次。有没有帮法使信息部弹出来直接追加。

Top

wyh99999 发表于：2010-07-01 18:43:00

"不好意识我得意思是，我按了追加后，他会弹出“你正准备追加1行"，如果我追加50份，信息就会弹出50次。" 我想可进入：工具-选项-编辑\查询中的《操作查询》对勾去掉，就可没有这样的提示了。请试一试。

Top

MARK 发表于：2010-07-03 00:02:29

哦。。谢谢你的帮忙问题已经解决！十分感谢

Top

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

Access交流中心

增加50张**号码怎样写代码