Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

帮我看看这段程序有什么问题?

cloudy  发表于:2009-03-13 16:08:30  
复制

Private Sub Command4_Click()
Dim kesusu As Integer
Dim ca As Integer
Dim ch As Boolean

kesusu = 0: ca = 0: ch = True

kesusu = 件数
Do
   DoCmd.OpenQuery "toushinanbatukuri", , acAdd
  
   DoCmd.OpenQuery "koushinngo_insatu_jyunbi", , acAdd
   ca = ca + 1
     
     
     
      If ca = kesusu Then ch = False
Loop Until ch = False

End Sub

 

Top
ACMAIN.CHM 发表于:2009-03-13 20:09:36

又不是考试。 为什么不贴出你的出错信息,或者你为什么认为出错。

 

 


**************
*   一切皆有可能   *
**************


ACMAIN - Access论坛回贴准则(个人)


QQ群 48866293 / 12035577 / 7440532 / 13666209
http://www.accessbbs.cn/bbs/index.php
http://www.accessoft.com/bbs/index.asp
http://www.office-cn.net/vvb/?fromuid=141646
http://www.access-programmers.co.uk/forums

http://www.office-cn.net/home/space.php?uid=141646


cloudy 发表于:2009-03-15 16:23:09

请帮助看看窗体有个笔图标的命令按钮里面事件过程中程序有什么问题?

 Private Sub Command4_Click()
Dim kesusu As Integer
Dim ca As Integer
Dim ch As Boolean

kesusu = 0: ca = 0: ch = True

kesusu = 件数
Do
   DoCmd.OpenQuery "toushinanbatukuri", , acAdd
  
   DoCmd.OpenQuery "koushinngo_insatu_jyunbi", , acAdd
   ca = ca + 1
     
     
     
      If ca = kesusu Then ch = False
Loop Until ch = False

要求: 窗体一条记录输入以后,点那支笔的图票,就会在表的入库主帐里面增加跟件数同样多的数据,主帐里面只有一条。

 但是现在问题就是点一下,第一次加不了,等输第二条记录的时候才会加进去。也就是说第二个窗体记录加的是第一条的,没有对上。

点击下载此附件

黎红军 发表于:2009-03-19 17:57:45
Dim kesusu As Integer
Dim ca As Integer
Dim ch As Boolean

kesusu = 0: ca = 0: ch = True

kesusu =me. 件数

kesusu = 0: ca = 0: ch = True

kesusu = 件数
esusu =me. 件数



cloudy 发表于:2009-03-20 08:45:28
谢谢!

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