Question

求助高手拜托啦~VB运行出现实时错误"424"：要求对象

新手试着操作数据库~周二要交作业~麻烦高手帮忙看下这段代码错误在哪~似乎和Datal.XX有关的函数调用就会出错~
Private Sub Data1_Reposition()
Data1.Caption = "第" & Datal.Recordset.AbsolutePosition + 1 & "个记录"
End Sub
Private Sub Data1_Validate(action As Integer, save As Integer)
If save = Ture Then
y = MsgBox("要保存已更改内容吗？", vbYesNo, "保存记录")
If y = vbNo Then
save = False
Datal.UpdateControls
End If
End If
End Sub
Private Sub Command0_Click(Index As Integer)
Select Case Index
Case 0
s = Trim(InputBox("请输入要查找的ID", "查找"))
id = "ID ='" & s & "'"
Datal.Recordset.FindFirst id
If Datal.Recordset.NoMatch Then
MsgBox "找不到ID为" & id & "的员工！"
Datal.Recordset.MoveFirst
End If
Case 1
Datal.Recordset.MoveLast
Datal.Recordset.AddNew
Case 2
Datal.Recordset.Edit
Case 3
y = MsgBox("要删除该记录么？", vbYesNo, "删除记录")
If y = vbYes Then
Datal.Recordset.Delete
Datal.Recordset.MoveNext
End If
End Select
End Sub
还有两个实时错误‘3251’这个对象类型不支持该操作
分别是在Data1.Caption = "第" & Data1.Recordset.AbsolutePosition + 1 & "个记录"
和Data1.Recordset.FindFirst id
下面是我数据库的表的信息~

Answer 1

Private Sub Data1_Reposition()
Data1.Caption = "第" & Data1.Recordset.AbsolutePosition + 1 & "个记录"
End Sub
Private Sub Data1_Validate(action As Integer, save As Integer)
If save = Ture Then
y = MsgBox("要保存已更改内容吗？", vbYesNo, "保存记录")
If y = vbNo Then
save = False
Data1.UpdateControls
End If
End If
End Sub
Private Sub Command0_Click(Index As Integer)
Select Case Index
Case 0
s = Trim(InputBox("请输入要查找的ID", "查找"))
id = "ID ='" & s & "'"
Data1.Recordset.FindFirst id
If Data1.Recordset.NoMatch Then
MsgBox "找不到ID为" & id & "的员工！"
Data1.Recordset.MoveFirst
End If
Case 1
Data1.Recordset.MoveLast
Data1.Recordset.AddNew
Case 2
Data1.Recordset.Edit
Case 3
y = MsgBox("要删除该记录么？", vbYesNo, "删除记录")
If y = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End If
End Select
End Sub

追问

还有两个实时错误‘3251’这个对象类型不支持该操作
分别是在Data1.Caption = "第" & Data1.Recordset.AbsolutePosition + 1 & "个记录"
和Data1.Recordset.FindFirst id
下面是我数据库的表的信息~麻烦啦~

追答

直接改成这样的呢：
Data1.Recordset.FindFirst "ID='" & s & "'"

另外你的程序之中还有错误，就如下面的同志回答：
save = Ture

Answer 2

If save = True Then '这里true写成ture
data1写成datal

Answer 3

要求对象的，都是对象名出错了，看看到底是哪一个，vb调试时，会停到那里，就是那个对象名错误！

Answer 4

Data1好几处写成了Datal
是数字1，不是英文字母l (L)

追问

还有两个实时错误‘3251’这个对象类型不支持该操作
分别是在Data1.Caption = "第" & Data1.Recordset.AbsolutePosition + 1 & "个记录"
和Data1.Recordset.FindFirst id
下面是我数据库的表的信息~

追答

一事一议

Answer 5

注意拼写，最好在VB下写代码，这样写错就没有提示了