Office中国论坛/Access中国论坛

标题: 分拆表的后续（求助） [打印本页]

作者: 若离ヘ不弃° 时间: 2012-11-9 14:19
标题: 分拆表的后续（求助）
之前发了个帖子求助33-35怎么变成333435
现在发现数字比较长3004562-3004570这样的话就显示溢出
求真相
http://www.office-cn.net/thread-114665-1-1.html

作者: Agent 时间: 2012-11-9 14:36
字段的类型是什么?

作者: 若离ヘ不弃° 时间: 2012-11-9 14:38

Agent 发表于 2012-11-9 14:36
字段的类型是什么?

Private Sub Command2_Click()
Dim rs As New ADODB.Recordset
Dim strSQL As String
Dim i As Integer, j As Integer, k As Integer, P As Long
Dim str As String
      rs.Open "A", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
Do While Not rs.EOF
      str = rs.Fields(0)
      P = InStr(str, "-")
      j = Left(str, P - 1)
      k = Mid(str, P + 1)
      For i = j To k
         strSQL = _
            "INSERT INTO B ( [S/N], [I S/N], [型号-Model], [Sell STATUS], [Product STATUS], [Plan Produce Month], [DINEMA BOX N], [Final MC], [W-order],[MC Code])VALUES('" & i _
            & "','" & rs.Fields(1) & "','" & rs.Fields(2) & "','" & _
            rs.Fields(3) & "','" & rs.Fields(4) & "','" & rs.Fields(5) & "','" & rs.Fields(6) & "','" & rs.Fields(7) & "','" & rs.Fields(8) & "','" & rs.Fields(9) & _
            "')"
                     CurrentDb.Execute strSQL
      Next
      rs.MoveNext
Loop
Me.[B子窗体].Requery

rs.Close
Set rs = Nothing
End Sub

现在的语句还是Henry版主帮的忙，前面都拿短数字试的，今天拿来用就发现实际的太长了啊

作者: 若离ヘ不弃° 时间: 2012-11-9 14:39
P As Integer，我瞎改的

作者: 若离ヘ不弃° 时间: 2012-11-9 14:52
改好了

作者: Agent 时间: 2012-11-9 20:14

若离ヘ不弃° 发表于 2012-11-9 14:52
改好了

自己来更好啊.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)