Access交流中心

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

Access问答 → 请教如何让窗体实现批量自动增加记录。

请教如何让窗体实现批量自动增加记录。

dddddd11　 发表于：2010-08-29 22:51:20 　
复制

向高手请教，如何让窗体实现批量记录增加，编号根据方位和行号及起始号，结束号自动批量生成，如东-01-0001，东-01-0002，。。。。。，上传附件，帮改一下，谢谢。

 

Top
煮江品茶 发表于：2010-08-30 06:33:17
做一循环即可

Top
dddddd11 发表于：2010-08-30 09:42:15
请教 代码如何改呢？ 编号根据方位和行号及起始号，结束号自动批量生成，如东-01-0001，东-01-0002，。。。。。

Private Sub Command23_Click()


Dim i

Dim b

If Len(Text3) > 0 And Len(Text4) > 0 Then

For i = Val(Text3) To Val(Text4)


b = "Insert INTO 表1 ( 编号,产品,状态 ) VALUES( " & i & ",Text5,Text6)"

   
DoCmd.RunSQL (b) '追加表查询

Next i

End If


End Sub

Top
dddddd11 发表于：2010-08-30 14:59:03

请帮看一下。



Top
煮江品茶 发表于：2010-08-30 15:01:19

如果text5和text6为文本型数据，语句应修改为：

.......

.......

b = "Insert INTO 表1 ( 编号,产品,状态 ) VALUES( " & i & ",'" & Text5 & "','" & Text6 & "')"
DoCmd.RunSQL b

......

......



Top
dddddd11 发表于：2010-08-30 15:47:27

不是text5,text6的问题，是编号的问题。

编号根据方位text1和行号text2及起始号text3，结束号text4合并生成编号，自动批量生成，如东-01-0001，东-01-0002，。。。。。，

b = "Insert INTO 表1 ( 编号,产品,状态 ) VALUES( " & i & ",'" & Text5 & "','" & Text6 & "')"。



Top
煮江品茶 发表于：2010-08-30 16:01:00

呵呵，这就更简单了：

1、设你的窗体上有两个控件分别名曰【方位】和【行号】

dim m as string

 

for i=。。。。。。

    m=me.方位.value & "-" & me.行号.value & "-" & format(i,"0000")

    b = "Insert INTO 表1 ( 编号,产品,状态 ) VALUES( '" & m & "','" & Text5 & "','" & Text6 & "')"

    .......

next

.......



Top
dddddd11 发表于：2010-08-30 16:07:26

我试试，谢谢。



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

Access软件网 版权所有 CopyRight 2006-2030
上海盟威软件有限公司 提供支持
沪ICP备12024966号-4