กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
345 2
URL.หัวข้อ /
URL
link table index run-time error 13 "type mismatch"
เรียนอ.สุภาพ
ลองใช้ code ที่คุณเล็ก post #02146
Public Function OpenForSeek(TableName As String) As Recordset
' Assume MS-ACCESS table
Set OpenForSeek = DBEngine.Workspaces(0).OpenDatabase _
(Mid(CurrentDb().TableDefs(TableName).Connect, _
11), False, False, "").OpenRecordset(TableName, _
dbOpenTable)
End Function
Private Sub Form_Load()
Dim rst As Recordset
Set rst = OpenForSeek("Employees")
rst.Index = "employeeNumber"
End Sub
ขึ้น run-time error 13
Type mismatch
แก้ไขอย่างไรดีคะ
ขอบคุณค่ะ
ลองใช้ code ที่คุณเล็ก post #02146
Public Function OpenForSeek(TableName As String) As Recordset
' Assume MS-ACCESS table
Set OpenForSeek = DBEngine.Workspaces(0).OpenDatabase _
(Mid(CurrentDb().TableDefs(TableName).Connect, _
11), False, False, "").OpenRecordset(TableName, _
dbOpenTable)
End Function
Private Sub Form_Load()
Dim rst As Recordset
Set rst = OpenForSeek("Employees")
rst.Index = "employeeNumber"
End Sub
ขึ้น run-time error 13
Type mismatch
แก้ไขอย่างไรดีคะ
ขอบคุณค่ะ
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R05353
ได้แล้วค่ะ
เปลี่ยนสองที่ค่ะ
Public Function OpenForSeek(TableName As String) As Object
และ
Dim rst As Object
ขอบคุณมากค่ะ
เปลี่ยนสองที่ค่ะ
Public Function OpenForSeek(TableName As String) As Object
และ
Dim rst As Object
ขอบคุณมากค่ะ
Time: 0.1166s
ให้ลองเปลี่ยนจาก
Dim rst As Recordset
ไปเป็น
Dim rst As Object
ดูครับ