Có rất nhiều bạn thắc mắc về autonumber, thắc mắc tại sao nó không tăng liên tục khi mình xóa 1-2 record...Sau đây xin giới thiệu 1 bài viết của nick huudung, trang fithou.net
AutoNumber, đây thực chất là 1 kiểu số có kích thước tương đương với Long Integer (hoặc Replication ID).
Autonumber khác với kiểu Number thông thường ở chỗ: giá trị của trường này được Access tự động sinh ra với mỗi bản ghi mới. cách thức sinh giá trị mới có thể là tăng dần (increment) hoặc ngẫu nhiên (random).
Mỗi khi ta sử dụng 1 giá trị của AutoNumber thì giá trị đó sẽ không bao giờ được sử dụng lại nữa. Điều này có lí do của nó: người ta thường dùng AutoNumber cho những trường khóa chính mà không cần quan tâm tới giá trị của nó, chỉ cần nó đảm bảo tính duy nhất --> muốn duy nhất thì những gì đã dùng sẽ không được dùng nữa.
Thực ra thì chẳng mấy khi ta muốn dùng lại giá trị Autonumber cũ cả, nếu muốn dùng lại thì ta nên dùng trường Number và phải tự làm việc sinh giá trị mới sao cho nó không trùng với bất kì giá trị hiện có nào (lưu ý là trong CSDL quan hệ, 1 giá trị của khóa chính có thể vẫn còn ở 1 khóa ngoại nào đó nếu ràng buộc không chặt --> dùng lại giá trị đó có thể khiến dữ liệu không đúng đắn, điều này mình đã nói trên lớp rồi nhỉ) Nếu em vẫn muốn dùng giá trị AutoNumber tăng liên tiếp (trông cho đẹp) thì có thể làm cách sau: 1. Quay về Design Table đó 2. Delete Field autoNumber cũ đi 3. Thêm 1 Field mới, đặt kiểu dữ liệu là AutoNumber --> thế là xong nhưng cũng chỉ để cho đẹp thôi, :d lần sau lại bị như vậy
Hỏi : Tôi có 1 combo box (cboMaHang), tôi muốn khi con chuột hoặc con trỏ nhảy đến cboMahang thì hộp danh sách tự động thả xuống, phải làm sao ?
Đáp : có nhiều cách, cách đơn giản nhất là tận dụng method sãn có của combo box : Dropdown.
Cách dùng:
Mã:
Private Sub cboMahang_GotFocus()
cboMahang.Dropdown
End Sub
__________________________________ Hỏi : Tôi có 1 combo box (cboMaHang), tôi muốn khi người dùng đánh mã hàng không có trong hộp danh sách thì hiện lên thông báo lỗi, phải làm sao ?
Đáp : dùng sự kiện NotInList của combo box
Private Sub cboMaHang_NotInList(NewData As String, Response As Integer)
Mã:
Response = acDataErrContinue
MsgBox "Ma hang nay khong co.", , "Bao loi !"
End Sub
Bổ sung : Mở properties của cboMaHang --> Tab Data --> Limit To List : Yes
1/ Các bạn tải file "Cach tao MeNu bang macro" được đính kèm dưới bài viết về máy và giải nén nó vào một thư mục nào đó trong máy của bạn
2/ Nhấn chuột phải vào màn hình Desktop, chọn Properties, trong tab Appearance, nhấn Advanced. Trong khung Item chọn Active Title Bar, trong khung font chọn Tahoma(nhằm thể hiện tiếng Việt Unicode)
3/ Mở file (Nhớ nhấn phím Shift khi mở, nếu không sẽ không thấy cái Database đâu, chỉ thấy mỗi thanh MeNu thôi)
4/ Trong phần Macro của Database, các bạn lần lượt mở từng macro một để nghiên cứu, trong đó mrcMain là macro chính để tạo MeNu, các macro còn lại là phục vụ cho mrcMain
5/ Để có thể tạo MeNu, sau khi tạo các macro xong, các bạn chọm mrcMain(không cần Desgin), vào MeNu Tools/Macro/Create MeNu from Macro. Nhấn Yes khi có thông báo
6/ Vào MeNuTools/Startup, ghi tên chương trình vào hộp Application Title, chọn Icon cho chương trình nếu muốn, tắt hết tất cả các hộp kiểm, chọn mrcMain trong Menu Bar
Như vậy là các bạn đạ tạo được MeNu riêng của minh rồi đấy
Chúc các bạn thực hành tốt
Thân
P/S : Khi các bạn muốn dùng file mẫu để thử và xem cái Menu được tạo ra như thế nào, các bạn chỉ được nhấn nút Thoát hoặc Tác Giả thôi, còn các menu khác sẽ báo lỗi đấy
Viết bởi: Noname
17-09-10, 04:44 PM
Chuyên mục: Ms Excel
- Không có hồi đáp
Giáo trình Pivot table
Tác Giả: Ptm0412 ( Phạm thành Mỹ)
Site: Giaiphapexcel
[iframe]https://docs.google.com/gview?a=v&pid=explorer&chrome=false&api=true&embedded=true&srcid=0B1XcxCMU5rSWNzY0ZTkyMzEtZTk0NS00NGVhLThiZmUtYjhjZTBmYmQ5ZDI0&hl=en[/iframe]