Office中国论坛/Access中国论坛

标题: 用/連接數字為何變成除以了？ [打印本页]

作者: lzx-shmily 时间: 2009-6-8 17:19
标题: 用/連接數字為何變成除以了？
本帖最后由 lzx-shmily 于 2009-6-8 17:22 编辑

Private Sub 發出單號_AfterUpdate()
Dim a As Integer, i As Integer, str2 As String
a = Right(Me.發出單號, 2)

For i = 1 To a

str2 = "insert into 發出表 ( 發出單號, 序號) select (forms![發出表]![發出單號])," & Me.發出單號 & "/" & i
DoCmd.SetWarnings False
DoCmd.RunSQL str2
DoCmd.SetWarnings True
Next
End Sub

我想要的是主窗體的發出單號輸入：A0905-04
然後子窗體自動添加4條記錄
單號分別為：A0905-04/01;A0905-04/02;A0905-04/03;A0905-04/04;
可是當我輸入發出單號是數字的時候就變成除以i，輸入發出單號是字符串的時候又彈出要輸入參數了
麻煩大家幫忙看下如何解決？謝謝！

作者: zyp 时间: 2009-6-8 17:31
str2 = "insert into 發出表 ( 發出單號, 序號) select (forms![發出表]![發出單號])," & Me.發出單號 & "/" & CStr(i)

试试

作者: lzx-shmily 时间: 2009-6-8 17:33
不行的，之前有試過加CSTR的

作者: zyp 时间: 2009-6-8 19:00
str2 = "insert into 發出表 ( 發出單號, 序號) VALUES ('"& forms![發出表]![發出單號] &"','" & Me.發出單號 & "/" & i &"')"

作者: lzx-shmily 时间: 2009-6-9 08:08
謝謝ZYP！

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