[求助]insert语句不能插入二条记录？[已解决]

zyz218

    For m = 1 To 2
        lackstr = Format(Year(DateAdd("m", n, Me.intime)) & "-" & Month(DateAdd("m", n, Me.intime)), "yyyy-mm")
        stemp = "INSERT INTO lack"
        stemp = stemp & "(emid,shoes,clothing,electricity,others,yearmonth)"
        stemp = stemp & "VALUES('" & Me.emid & "',0,50,0,0,'" & lackstr & "')"
        DoCmd.RunSQL stemp
        n = n + 1
    Next m

以上代码执行后，只向LACK表中插入一行数据，应该是二行才对，不知为什么？

[此贴子已经被作者于2007-3-28 13:11:03编辑过]

zyz218

    '计算服装费
    Dim lackstr As String
    Dim m, n As Integer
    If Day(Me.intime) <= 15 Then
        n = 1
    Else
        n = 2
    End If
        lackstr = Format(Year(DateAdd("m", n, Me.intime)) & "-" & Month(DateAdd("m", n, Me.intime)), "yyyy-mm")
        stemp = "INSERT INTO lack"
        stemp = stemp & "(emid,shoes,clothing,electricity,others,yearmonth)"
        stemp = stemp & "VALUES('" & Me.emid & "',0,50,0,0,'" & lackstr & "')"
        DoCmd.RunSQL stemp
        n = n + 1
        lackstr = Format(Year(DateAdd("m", n, Me.intime)) & "-" & Month(DateAdd("m", n, Me.intime)), "yyyy-mm")
        stemp = "INSERT INTO lack"
        stemp = stemp & "(emid,shoes,clothing,electricity,others,yearmonth)"
        stemp = stemp & "VALUES('" & Me.emid & "',0,50,0,0,'" & lackstr & "')"
        DoCmd.RunSQL stemp
    MsgBox "社员:" & Me.emname & "的" & Month(Me.intime) + n - 1 & "月与" & Month(Me.intime) + n & "月服装费已预定扣除!", vbInformation, "服装费已扣除"



以上执行的效果也是一样，问题出在那？？？？

zyz218

希望高手指点一下！！！！实在是想不通这个道理！

轻风

两条记录的关健字段值是否一样？

zyz218

是一样的，就是yearmonth字段不一样

谢谢，经你提醒后我突然发现emid那个字段是不能设为主键的，取消它的主键后，问题已解，多谢了！

[此贴子已经被作者于2007-3-28 13:10:34编辑过]