字符之间怎么拆分

chinajax

产品
  123456电视
  2345-r洗衣机
  R-3LS空调


要求把型号和名字拆分开 如-- 123456   电视   怎么做????

kangking

选建一个表,字段为:产品,型号,产品名称,在产品中录入你的"123456电视"等等.
建立一个模块,建立一个过程,在过程中录入下面的代码:
Dim rs As DAO.Recordset
Dim i As Integer

Set rs = CurrentDb.OpenRecordset("表1")

rs.MoveFirst
Do Until rs.EOF
    For i = 1 To Len(rs(0))
        If Asc(Mid(rs(0), i, 1)) < 0 Then
            rs.Edit
            rs(1) = Mid(rs(0), 1, i - 1)
            rs(2) = Mid(rs(0), i)
            rs.Update
            Exit For
        End If
    Next
    rs.MoveNext
Loop

然后运行之.

chinajax

再详细点撒. 运行什么????