เกิดปัญหา Run-time error 13 Type mismatch ไม่สามารถเพิ่มข้อมูลที่เป็นหนังสือได้

[werapon201]

Code: Select all

Private Sub Reg1_AfterUpdate()

If WorksheetFunction.CountIf(Sheet2.Range("B:B"), Me.Reg1.Value) = 0 Then
MsgBox "ไม่มีข้อมูลบันทึกอยู่"
Me.Reg1.Value = ""
Exit Sub
End If

With Me
.Reg2 = Application.WorksheetFunction.VLookup(CLng(Me.Reg1), Sheet2.Range("Lookup"), 2, 0) <<< Error บรรทัดนี้
.Reg3 = Application.WorksheetFunction.VLookup(CLng(Me.Reg1), Sheet2.Range("Lookup"), 3, 0)
'.Reg4 = Application.WorksheetFunction.VLookup(CLng(Me.Reg1), Sheet2.Range("Lookup"), 4, 0)
'.Reg5 = Application.WorksheetFunction.VLookup(CLng(Me.Reg1), Sheet2.Range("Lookup"), 5, 0)
'.Reg6 = Application.WorksheetFunction.VLookup(CLng(Me.Reg1), Sheet2.Range("Lookup"), 6, 0)
End With
End Sub

[werapon201]

Code: Select all

Private Sub Reg1_AfterUpdate()

If WorksheetFunction.CountIf(Sheet2.Range("B:B"), Me.Reg1.Value) = 0 Then
MsgBox "ไม่มีข้อมูลบันทึกอยู่"
Me.Reg1.Value = ""
Exit Sub
End If

With Me
.Reg2 = Application.WorksheetFunction.VLookup(CLng(Me.Reg1), Sheet2.Range("Lookup"), 2, 0)
.Reg3 = Application.WorksheetFunction.VLookup(CLng(Me.Reg1), Sheet2.Range("Lookup"), 3, 0)
'.Reg4 = Application.WorksheetFunction.VLookup(CLng(Me.Reg1), Sheet2.Range("Lookup"), 4, 0)
'.Reg5 = Application.WorksheetFunction.VLookup(CLng(Me.Reg1), Sheet2.Range("Lookup"), 5, 0)
'.Reg6 = Application.WorksheetFunction.VLookup(CLng(Me.Reg1), Sheet2.Range("Lookup"), 6, 0)
End With
End Sub

[snasui]

แนบไฟล์ Excel ที่เขียน Code นี้แล้วมาด้วยจะได้สะดวกในการตอบครับ