Lọc dữ liệu khách hàng !

[ngoisaovn2008]

Tình hình là cty em đang cần lọc dữ liệu khách hàng của cty, do lượng khách hàng quá lớn nên em định dùng câu lệnh SQL trong access để lọc !
Yêu cầu : kiểm tra lại thông tin khách hàng ( mỗi khách hàng có tới 50 trường dữ liệu ) phải kiểm tra xem trường nào thiếu thì lọc ra, thêm nữa là kiểm tra xem trường nào bị sai. VD số đt có 8 số nếu nhập 7 số thì phải lọc ra ( cái này đang làm mình bó tay ),...

Các bác biết về SQL giúp em với !

 

[Hai Lúa Miền Tây]

Tình hình là cty em đang cần lọc dữ liệu khách hàng của cty, do lượng khách hàng quá lớn nên em định dùng câu lệnh SQL trong access để lọc !
Yêu cầu : kiểm tra lại thông tin khách hàng ( mỗi khách hàng có tới 50 trường dữ liệu ) phải kiểm tra xem trường nào thiếu thì lọc ra, thêm nữa là kiểm tra xem trường nào bị sai. VD số đt có 8 số nếu nhập 7 số thì phải lọc ra ( cái này đang làm mình bó tay ),...

Các bác biết về SQL giúp em với !

Tạo cột phụ, ..... len(SoDT) As So Where So=7.... Đại loại như thế, phải có dữ liệu mới test thử.

 

[ngoisaovn2008]

http://www.mediafire.com/?k0gc784k446nya8 | Dữ liệu của mình đây

Phần yêu cầu tương tự trên ngoài ra kiểm tra số CMND chỉ được 9 ký tự nếu ít hơn hay nhiều hơn hay không có thì lọc ra

Các bác giúp em với ! Thanks !

 

[ngoisaovn2008]

các bác cao thủ giúp em với

 

[Hai Lúa Miền Tây]

http://www.mediafire.com/?k0gc784k446nya8 | Dữ liệu của mình đây

Phần yêu cầu tương tự trên ngoài ra kiểm tra số CMND chỉ được 9 ký tự nếu ít hơn hay nhiều hơn hay không có thì lọc ra

Các bác giúp em với ! Thanks !

Chép code sau vào module

Function CheckID(strIn As String) As String
Dim re As Object
Set re = CreateObject("VBScript.RegExp")
re.Pattern = "[^0-9]"
If Len(strIn) <> 9 Or re.test(strIn) Then CheckID = "#Error"
Set re = Nothing
End Function

Tạo 1 Query như sau để tìm ra những số CMND bị lỗi

SELECT KH.CMND, CheckID([CMND]) AS Expr1
FROM KH;