Kiểm tra dữ liệu Number trong Access

Đó hỏi: Tôi có một CSDL Access, trong đó có một trường chứa các số nguyên (gọi là "số thẻ", được nhập vào theo cách thủ công). Tôi muốn dùng một hàm để kiểm tra tính liên tục của các số này. Yêu cầu là: nếu phát hiện có số bất thường (không liên tục, thiếu số, trùng nhau) thì liệt kê ra. Xin e-CHÍP giúp đỡ. <thongtm@>

Đây trả lời: 
Ví dụ sau đây kiểm tra dữ liệu field SoThe (kiểu dữ liệu là Number, kích thước Long Integer) của table tbThe. Kết quả được chứa trong tập tin KetQua.TXT như hình 1. Trước hết, bạn phải chọn Tools > References trong bộ soạn thảo VBA để mở hộp thoại References, rồi chọn mục Microsoft DAO 3.6 Object Library hoặc phiên bản mới nhất có thể. Bạn thiết kế một form mới, vẽ một nút lệnh có tên cmdKiemTra rồi gõ vào đoạn mã 1.

Đoạn mã 1

Private Sub cmdKiemTra_Click()
  Dim db As Database, rsList As Recordset
  Dim sSQL As String, sKetQuaKT As String
  Dim nSoTheHienHanh As Long
  Dim sThieuSo As String, sTrungSo As String
  sKetQuaKT = Me.Application.CurrentProject.Path & "\KetQua.TXT"
  Open sKetQuaKT For Output As #1
  sSQL = "SELECT SoThe FROM tbThe ORDER BY SoThe"
  Set db = CurrentDb
  Set rsList = db.OpenRecordset(sSQL)
  With rsList
    .MoveFirst
    nSoTheHienHanh = 0
    sThieuSo = ""
    sTrungSo = ""
    While Not .EOF
      If !SoThe = nSoTheHienHanh Then
        sTrungSo = sTrungSo & _
          IIf(Len(sTrungSo) = 0, "", ", ") & _
            Trim(Str(nSoTheHienHanh))
      Else
        Do While !SoThe - nSoTheHienHanh > 1
          nSoTheHienHanh = nSoTheHienHanh + 1
          sThieuSo = sThieuSo & IIf(Len(sThieuSo) = 0, "", ", ") & _
            Trim(Str(nSoTheHienHanh))
        Loop
      End If
      nSoTheHienHanh = !SoThe
      .MoveNext
    Wend
  End With
  rsList.Close
  db.Close
  Print #1, "Danh sach so the thieu: "
  Print #1, sThieuSo
  Print #1,
  Print #1, "Danh sach so the bi trung lap: "
  Print #1, sTrungSo
  Close #1
End Sub

Hình 1: Kết quả

CHƯƠNG CAN CHÍP

Kiểu trường Autonumber trong SQL 2000

Đó hỏi:
Trong Microsoft Access, khi tạo bảng ta có thể chọn kiểu trường là kiểu Autonumber, xin hỏi trong SQL 2000 có kiểu nào như vậy không? Cám ơn e-CHÍP. <Bay_vien_dragon123@>

Đây trả lời: 
Khi tạo bảng dữ liệu trong SQL 2000, với kiểu trường là “int” và thuộc tính Identity, bạn chuyển thành “Yes” sẽ tương đương kiểu Autonumber trong Microsoft Access.

Quản lý tài khoản trong Windows Mail

Đó hỏi: Chào e-CHÍP, tôi có một vấn đề nhỏ mong e-CHÍP giúp đỡ. Trong Outlook Express, ta có thể quản lý nhiều tài khoản email khác nhau bằng Identities Manager, vậy xin hỏi trong Windows Mail của Windows Vista sao không thấy tính năng này? Nếu muốn dùng nhiều tài khoản thì phải làm sao? <Anh_hung_xadieu1000@>

Đây trả lời: Chức năng quản lý nhiều tài khoản email bằng Identities Manager trong Outlook Express không còn dùng trong Windows Mail. Windows Mail quản lý tài khoản email thông qua tài khoản người dùng của Windows Vista, mỗi tài khoản email tương đương một tài khoản Windows.

Không cài được Ubuntu

Đó hỏi: Khi cài đặt hệ điều hành Ubuntu tôi gặp thông báo gần giống như: "Can't copy file: failure of CD/DVD drive/ HDD. This happen when having a mistake of your CD, you should burn with slow to do not miss value/ your CD/DVD drive have a damage/ your HDD have a damage or it is too old to replace/ you put your computer in a hot place. You can move it to a cool". Tôi đã thử đem máy ra chỗ mát nhưng cũng không được. Đĩa CD Ubuntu tôi được nhận từ dịch vụ free của Ubuntu, nên tôi nghĩ nó không có vấn đề. Vậy có cách nào kiểm tra và sửa lỗi CD drive hay HDD không? <nogo_kaijin5@>

Đây trả lời: Lỗi trên có thể do ổ đĩa CD-ROM kén đĩa, hoặc ổ đĩa cứng bị lỗi, bạn có thể dùng phần mềm Partition Magic (trong đĩa Hiren’s Boot) phân vùng lại ổ cứng trước khi cài đặt.

^{Khai Trí}

[Đầu trang]