我用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