Sắp xếp một cột của bảng trong Access

Đó hỏi: Tôi muốn tạo một nút lệnh "Sắp xếp" trên form để thực hiện những việc như sau: mở một table ra, sắp xếp lại một field (ví dụ field HOTEN) theo thứ tự tăng hoặc giảm nhưng vẫn giữ nguyên field STT, đóng table này lại với kết quả đã được sắp xếp theo thứ tự. Xin e-CHÍP hướng dẫn. <vanbang_sg@>

Đây trả lời: Giả sử table cần sắp xếp có tên tbDanhSach. Bạn tiến hành các bước như sau khi bấm nút lệnh:
• Dùng query dạng Make-Table để tạo một table có tên tbSapXep chỉ có cấu trúc gồm một field HoTen (là nội dung cần sắp xếp) và được tạo từ table tbDanhSach.
• Mở cùng lúc 2 table tbDanhSach và tbSapXep.
• Lần lượt duyệt hết các record trong table tbDanhSach, ứng với một record trong table này cập nhật field HoTen từ field HoTen của record tương ứng bên table tbSapXep.
• Xóa table tbSapXep khỏi database hiện hành.
Đoạn mã 1 minh họa các thao tác nêu trên. Nếu muốn thứ tự sắp xếp giảm dần, bạn thêm từ khóa DESC sau tên field HoTen trong mệnh đề ORDER BY của câu lệnh SQL. Lưu ý: bạn phải chọn Tools > References trong trình 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ể.

Đoạn mã 1

Private Sub cmdSapXep_Click()
     Dim sSQL As String
     Dim db As Database, rs As Recordset, rsDuLieuGoc As Recordset
     sSQL = "SELECT HoTen INTO tbSapXep " & _
                 "FROM tbDanhSach " & _
                 "ORDER BY HoTen;"
     Set db = CurrentDb
     db.Execute (sSQL)
     Set rsDuLieuGoc = db.OpenRecordset("tbDanhSach")
     Set rs = db.OpenRecordset("tbSapXep")
     With rsDuLieuGoc
          .MoveFirst
          rs.MoveFirst
          While Not .EOF
               .Edit
               !HoTen = rs!HoTen
               .Update
               .MoveNext
               rs.MoveNext
          Wend
          .Close
     End With
     rs.Close
     db.Close
     DoCmd.DeleteObject acTable, "tbSapXep"
     MsgBox "Xong"
End Sub

CHƯƠNG CAN CHÍP

Tên dành riêng cho hệ thống

Đó hỏi: Khi đặt tên “Com1” cho một tập tin thì bị thông báo tập tin này đã có rồi (mặc dù chưa hề được tạo) và khi đặt cho thư mục thì sau khi Enter nó tự động trả về tên cũ. Tôi đã thử lại nhiều và ở nhiều máy khác nhau đều cho kết quả như vậy. Nên tôi nghĩ rằng đây là tên hệ thống Windows không cho đặt, có phải vậy không? e-CHÍP có thể giải thích rõ cho tôi biết tại sao không thể đặt tên “Com1” cho tập tin và thư mục vậy? <spaceboy_vn171@>

Đây trả lời: Đây là vấn đề lịch sử, vào những năm 1980 máy tính chỉ dùng một số port (cổng kết nối) khi gắn thêm các thiết bị ngoại vi như: máy in, modem... (ngày nay, các port này thường được thay bằng cổng USB). Mỗi port trên máy tính đều có tên: COM1, PRT,... Những tên này thuộc về hệ thống nên không thể dùng đặt tên cho tập tin hay thư mục. Để đặt được tên theo dạng COM1, bạn có thể làm như sau: Tạo thư mục mới -> nhập COM1 -> giữ phím ALT, nhập 255 -> thả phím ALT.

Cài Nero 8 theo ý mình

Đây trả lời: Để gỡ bỏ các tiện ích cài đặt theo Nero, bạn phải Remove chương trình Nero ra khỏi máy tính. Trong quá trình cài Nero, bạn có thể bỏ chọn các phần không muốn cài đặt thêm theo ý bạn.

Phục hồi tính năng mở tab của Internet Explorer

Đây trả lời: Để thực hiện điều này, bạn mở trình duyệt Internet Explorer, vào Tools -> Internet Options, nhấn Setting ở mục Tabs, trong cửa sổ Tabbed Browsing Settings, chọn “Enable Tabbed Browsing”, nhấn OK. Đóng rồi mở lại Internet Explorer.

Khai Trí

[Đầu trang]