用/連接數字為何變成除以了？

lzx-shmily

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

str2 = "insert into 發出表 ( 發出單號, 序號) select (forms![發出表]![發出單號])," & Me.發出單號 & "/" & CStr(i)

试试

lzx-shmily

不行的，之前有試過加CSTR的

zyp

str2 = "insert into 發出表 ( 發出單號, 序號) VALUES ('"& forms![發出表]![發出單號] &"','" & Me.發出單號 & "/" & i &"')"

lzx-shmily

謝謝ZYP！