ติดตรงที่ FindEmployee ครับ Private Sub cbo_FullName_AfterUpdate() If Not IsNull(Me.cbo_FullName) Then FindEmployee "[ÃËÑʾ¹Ñ¡§Ò¹]", Me.cbo_FullName Else Me.cbo_NO = "'" End If End Sub ลอง Debug Compile error : Sub or Function not defined ครับ จะแก้ตรงไหนครับอาจารย์