• Sửa code đếm số record trong table
  • Sửa code đếm số record trong table

    yamakashi2003 > 11-09-20, 02:23 PM

    Các bác cho em hỏi trong table của e có 7 record có dữ liệu (trong đó có 1 số record không có dữ liệu ở 1 số cột)
    Em có dùng code sau để đếm số record có dữ liệu trong table mà nó toàn ra là 1.
    Nhờ bác nào biết sửa giúp em
    EM xin cảm ơn

    sub dem ()
    Dim rs As dao.Recordset
    Set rs = CurrentDb.OpenRecordset(" SELECT * FROM T_Dulieu")
    If rs.RecordCount > 0 Then MsgBox "so dong trong bảng:" & rs.RecordCount 
    rs.Close
    Set rs = Nothing
    end sub
  • RE: Sửa code đếm số record trong table

    yamakashi2003 > 11-09-20, 02:59 PM

    Em đã tìm ra, post cho ai cần nhé

    sub dem ()

    If DCount("*","T_table") > 0 Then MsgBox "so dong trong bảng:"  DCount("*","T_table")

    end sub
  • RE: Sửa code đếm số record trong table

    ongke0711 > 11-09-20, 03:40 PM

    Vậy bạn không tìm ra nguyên nhân nó ra =1 mà tìm giải pháp khác à.
  • RE: Sửa code đếm số record trong table

    yamakashi2003 > 12-09-20, 12:16 AM

    (11-09-20, 03:40 PM)ongke0711 Đã viết: Vậy bạn không tìm ra nguyên nhân nó ra =1 mà tìm giải pháp khác à.
    Có khi nào code nó chưa load hết các dòng,e bắt nó đếm nên nó chỉ đếm đc 1 không bác
  • RE: Sửa code đếm số record trong table

    ongke0711 > 12-09-20, 07:18 AM

    Chính xác là vậy.
    Dùng rs.RecordCount mức độ tin tường sẽ không cao nếu đi một mình nó. Bạn phải thêm rs.MoveLast để nó duyệt hết các mẫu tin rồi mới cho số lượng chính xác.
  • RE: Sửa code đếm số record trong table

    yamakashi2003 > 13-09-20, 10:22 PM

    (12-09-20, 07:18 AM)ongke0711 Đã viết: Chính xác là vậy.
    Dùng rs.RecordCount mức độ tin tường sẽ không cao nếu đi một mình nó. Bạn phải thêm rs.MoveLast để nó duyệt hết các mẫu tin rồi mới cho số lượng chính xác.
    Bác cho em hỏi có cách nào để khi tạo query hoặc table thì font chữ mặc định của record sẽ là Times new roman không ạ
  • RE: Sửa code đếm số record trong table

    ongke0711 > 14-09-20, 09:08 AM

    (13-09-20, 10:22 PM)yamakashi2003 Đã viết: Bác cho em hỏi có cách nào để khi tạo query hoặc table thì font chữ mặc định của record sẽ là Times new roman không ạ

    Bạn phải vô RegEdit chỉnh sửa font mặc định của hệ thống.

    HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Access\Settings

    - Chọn phiên bản Office đang cài trên máy: 15.0, 16.0...
    - Sửa DefaultFontName/Size


    Lưu ý thêm: 
    Các font chữ có chân như Times New Roman chỉ dùng trong các văn bản (dài) để người đọc khỏi mỏi mắt, còn đối với các ứng dụng, bài thuyết trình thì nên dùng font chữ không chân (Arial, Tahoma...) để người đọc khỏi đọc nhầm các ký tự (vì các dấu móc, chân của font chữ).
    Hơn nữa, trong lập trình, viết code, cần phải đọc chính xác các ký tự con số nên mặc định các ứng dụng hay dùng font Consolas (hiển thị số 0 khác chữ O, chữ "i" phân biệt rõ với chữ "l") , Courier (các chữ có kích cỡ bằng nhau),...