access 2000 vba addnew用法
Private Sub InsertButton1_Click()Dim rs As Recordset
Dim key As Long
Dim ITEM_CD As Variant, KANA_CD As Variant, SEISAN_SU As Variant
Dim ITEM_NM As Variant, DT As Long, SHIFT As Integer
Dim KIKAI_CD As Variant
Dim wdt As Double, ndt As Long
Dim e易做图 As Integer
Me.Refresh
DoCmd.Echo False
key = Me!WKEY
Set rs = Me.RecordsetClone
rs.FindFirst "WKEY = " + Str(key)
ITEM_CD = rs("ITEM_CD")
ITEM_NM = rs("ITEM_NM")
KANA_CD = rs("KANA_CD")
SEISAN_SU = rs("SEISAN_SU")
KIKAI_CD = Me!KIKAI_CD
DT = rs("DT")
SHIFT = rs("SHIFT")
ndt = rs("SHIFT_NO")
rs.AddNew
运行到 rs.addnew的时候 报错3426 有高手能帮解决下么
--------------------编程问答-------------------- 窗体是否已经设置了记录源？ --------------------编程问答-------------------- dennycat，帮我看下这个总是提示：缺少表达式。
Public Sub name()
Dim Par As Single
Par = Val(InputBox("请输入成绩:", "输入提示"))
If Par <= 100 Then
MsgBox "成绩值有效", vbOKOnly + vbInformation, "计算结果"
Else
MsgBox "成绩无效", vbOKOnly + vbInformation, "错误无效"
End If
End Sub --------------------编程问答--------------------
你的过程名起的是Name当然不行了。换个其他的名字，别和保留字冲突的。 --------------------编程问答-------------------- 自定义函数NAME 改成NAME1()试试 --------------------编程问答-------------------- 个人固执的认为，还是使用Sql语句感觉好些，Sql语句更灵活。当然这全然是个人愚见。
http://download.csdn.net/detail/veron_04/1644211
补充：VB , VBA
