Office中国论坛/Access中国论坛

标题: 求助：能否实现输入234~245 可以显示为234、235、236…… [打印本页]
作者: 若离ヘ不弃°    时间: 2012-10-11 12:52
标题: 求助：能否实现输入234~245 可以显示为234、235、236……
本帖最后由 若离ヘ不弃° 于 2012-10-11 14:59 编辑

[attach]50495[/attach]如题：
一张表格里面的字段是按S/N为主键，为数字，在批量输入是需要一个个输入很麻烦
能不能另外建一张表将S/N 和其它的信息批量输入呢。
作者: admin    时间: 2012-10-11 13:03
具体看你需求，可以将 用ADO 读取另一张表中的S/N值
作者: Henry D. Sy    时间: 2012-10-11 13:07
可以的吧
作者: andymark    时间: 2012-10-11 13:22
追加查询或更新查询
作者: 若离ヘ不弃°    时间: 2012-10-11 13:32
admin 发表于 2012-10-11 13:03
具体看你需求，可以将 用ADO 读取另一张表中的S/N值

能不能建立一张表如下：
S/N        型号        Workorder        MC CODE        计划日期
1~4        TOP2        111        S02112        NOV
54~60        SOCKS        232        D54554        SEP

这张表中输入的内容可以反映到主表中，并且主表中还可以另外输入其它的信息，如下：
S/N        型号        Workorder        MC CODE        计划日期
1        TOP2        111        S02112        2012-11
2        TOP2        111        S02112        2012-11
3        TOP2        111        S02112        2012-11
4        TOP2        111        S02112        2012-11
54        SOCKS        232        D54554        2012-09
55        SOCKS        232        D54554        2012-09
56        SOCKS        232        D54554        2012-09
57        SOCKS        232        D54554        2012-09
58        SOCKS        232        D54554        2012-09
59        SOCKS        232        D54554        2012-09
60        SOCKS        232        D54554        2012-09
77              SMDJ          155           M111          2012-12
作者: 若离ヘ不弃°    时间: 2012-10-11 13:34
andymark 发表于 2012-10-11 13:22
追加查询或更新查询

能不能稍微具体点啊
作者: 若离ヘ不弃°    时间: 2012-10-11 13:35
Henry D. Sy 发表于 2012-10-11 13:07
可以的吧

大概怎么弄啊，我只会基本的access语句，这种不会
作者: Henry D. Sy    时间: 2012-10-11 14:30
若离ヘ不弃° 发表于 2012-10-11 13:35
大概怎么弄啊，我只会基本的access语句，这种不会

你传例子呀
作者: 若离ヘ不弃°    时间: 2012-10-11 15:00
Henry D. Sy 发表于 2012-10-11 14:30
你传例子呀

[attach]50496[/attach]
作者: Henry D. Sy    时间: 2012-10-11 15:32
我是2003版的打不开你的库
给你做个例子吧
  1. Private Sub Command2_Click()
  2.     Dim rs As New ADODB.Recordset
  3.     Dim strSQL As String
  4.     Dim i As Integer, j As Integer, k As Integer, P As Integer
  5.     Dim str As String
  6.         rs.Open "A", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
  7.     Do While Not rs.EOF
  8.         str = rs.Fields(0)
  9.         P = InStr(str, "-")
  10.         j = Left(str, P - 1)
  11.         k = Mid(str, P + 1)
  12.         For i = j To k
  13.             strSQL = _
  14.                 "INSERT INTO B ( [S/N], 型号, Workorder, McCODE, 计划日期 )VALUES('" & i _
  15.                 & "','" & rs.Fields(1) & "','" & rs.Fields(2) & "','" & _
  16.                 rs.Fields(3) & "','" & Format(Date, "yyyy") & "-" & rs.Fields(4) & _
  17.                 "')"
  18.                        CurrentDb.Execute strSQL
  19.         Next
  20.         rs.MoveNext
  21.     Loop
  22.     Me.B_子窗体.Requery
  23.     rs.Close
  24.     Set rs = Nothing
  25. End Sub
复制代码
[attach]50498[/attach]
作者: 若离ヘ不弃°    时间: 2012-10-11 16:36
Henry D. Sy 发表于 2012-10-11 15:32
我是2003版的打不开你的库
给你做个例子吧

谢谢啊，功能上是这样的，
就是A表跟B表的连接性能不能去掉，在A表里输入后分拆粘到B表里后，如果删除A中的内容，有时候B中的内容也不见了，在A中新输入内容，B表中会将A中所有的都贴进去。
A表能不能对刚输入的内容进行分拆粘贴到B表，并且删除的时候不影响B表内容呢。
作者: aslxt    时间: 2012-10-11 17:06
[attach]50499[/attach]
给你一个excel的，用于号码、号段之间进行转换的实例
作者: 若离ヘ不弃°    时间: 2012-10-12 09:09
Henry D. Sy 发表于 2012-10-11 15:32
我是2003版的打不开你的库
给你做个例子吧

我准备将这个用作数据的制作，再粘贴进总表里面，我现有的版本是07版的，然后rs As New ADODB.Recordset这句会说用户定义类型未定义。这个该怎么弄啊，以前的好多例子用07的也会这样
作者: koutx    时间: 2012-10-12 13:01
应为
Set rs = New ADODB.Recordset
作者: Henry D. Sy    时间: 2012-10-12 14:07
若离ヘ不弃° 发表于 2012-10-12 09:09
我准备将这个用作数据的制作，再粘贴进总表里面，我现有的版本是07版的，然后rs As New ADODB.Recordset这 ...

要先引用ado
作者: 若离ヘ不弃°    时间: 2012-10-12 15:48
Henry D. Sy 发表于 2012-10-12 14:07
要先引用ado

不会啊，ado神马的一直不懂
作者: lazybird    时间: 2012-10-13 21:37
版主威武   又学到了



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3