UC知道运行时错误438
来源：百度知道 编辑：UC知道 时间：2024/05/14 08:54:50
我用access软件填写数据，在添加照片的时候，出现错误，显示“运行时错误'438' 对象不支持该属性或方法。”
调试后出现
Private Sub zp_DblClick(Cancel As Integer)
Dim FileName As String
Dialog3.Filter = "JPG文件|*.jpg"
Dialog3.ShowOpen '显示打开文件对话框
FileName = Dialog3.FileName '获取所选择的文件名
If FileName <> "" Then
Dim db As Database
Dim tbMain As Recordset
Set db = CurrentDb()
Set tbMain = db.OpenRecordset("KcsjQyrygk")
If Not tbMain.EOF Then
tbMain.MoveLast
tbMain.MoveFirst
End If
If tbMain.RecordCount <> 0 Then
调试后出现
Private Sub zp_DblClick(Cancel As Integer)
Dim FileName As String
Dialog3.Filter = "JPG文件|*.jpg"
Dialog3.ShowOpen '显示打开文件对话框
FileName = Dialog3.FileName '获取所选择的文件名
If FileName <> "" Then
Dim db As Database
Dim tbMain As Recordset
Set db = CurrentDb()
Set tbMain = db.OpenRecordset("KcsjQyrygk")
If Not tbMain.EOF Then
tbMain.MoveLast
tbMain.MoveFirst
End If
If tbMain.RecordCount <> 0 Then
反复检查代码写法，如果语法是没问题。
解决方法：
先停止运行代码→进入窗体设计视图，仔细检查了控件的事件过程及控件名称，发现控件名称搞错了，不小心把文本框的名称改到了标签上面，文本框是可以有事件过程的，如更新后等，而标签只是显示用的，类似于标题，是不可以有事件过程，所以我们代码里面写了标签的事件过程，实际上是不支持该属性或方法就会报错。
把标签里面的名称换到文本框保存在运行（或者在文本框属性里选择对应的事件过程在写代码），问题解决！
注：其他控件或者窗体里面，遇到同样的报错提示，也按这样处理，即把事件过程代码，不要写在一些不可以写事件的控件里面。