• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Thủ Thuật Access

• Trang chủ

  • Thủ Thuật Access
  • Trang chủ
•   Sort List theo Alphabe
  

  Viết bởi: Noname 27-08-10, 09:56 AM Chuyên mục: Thư viện thủ thuật - Bài trả lời (3)

• Mới lang thang tìm thấy 1 đoạn code cho phép Sort 1 Listbox theo Alphabe. Mời mọi người tham khảo, có gì thắc mắc cứ comment hỏi nhé!
  
  
  Mã:

  Function SortListBox(objListBox As ListBox) Dim intFirst As Integer Dim intLast As Integer Dim intNumItems As Integer Dim i As Integer Dim j As Integer Dim strTemp As String Dim MyArray() As Variant 'Re-Dim the array ReDim MyArray(objListBox.ListCount - 1) 'Get upper and lower boundary intFirst = LBound(MyArray) intLast = UBound(MyArray) 'Set array values For i = LBound(MyArray) To UBound(MyArray) MyArray(i) = objListBox.ItemData(i) Next i 'Loop through array values to determine sort For i = intFirst To intLast - 1 For j = i + 1 To intLast If MyArray(i) > MyArray(j) Then strTemp = MyArray(j) MyArray(j) = MyArray(i) MyArray(i) = strTemp End If Next j Next i 'Remove all items For i = intLast - 1 To intFirst Step -1 objListBox.RemoveItem i Next i 'Add all items in order For i = intFirst To intLast - 1 objListBox.AddItem MyArray(i), i Next End Function
  Bạn tạo 1 module mới rồi copy đoạn code trên vào.
  tạo 1 form, tạo 1 listbox và 1 nút nhất. Để tên mặc định hết cho nhanh nha.
  Row source type của lis bạn chọn Value list
  Row Source bạn điền: "Rượu;Socola;Bánh;Bao Bì;Bột Ngọt;Cà Chua;Chanh;Đường;Gạo;Hành;Kem Đánh Răng;Khoai Tây;Mì Gói;Mức;Muối;Ớt;Sữa;Tiêu;Hộp quẹt"
  
  hoặc gì tùy bạn
  
  Trong event click nút nhấn, bạn gọi:
  
  
  Mã:

  Private Sub Command1_Click() Call SortListBox(List0) End Sub
  
  
  Mời xem demo:
  SortList
  


•   Tùy biến kích thước Form
  

  Viết bởi: Noname 27-08-10, 09:53 AM Chuyên mục: Forms - Bài trả lời (8)

• 
  
  
  Bạn hoaipnb vừa sưu tầm 1 đoạn code rất thú vị có thể tăng/ giảm kích thước form theo 1 hằng số cho trước trong table.
  Tuy nhiên, vì thiếu thông tin nên bạn ấy chưa biết sử dụng thế nào.
  Nhân đó mình đã chế biến lại thành 1 form có 2 nút cho phép tăng/giảm kích thước.
  
  Đầu tiên, ta qua cửa sổ VBA thêm 1 module mới. Copy đoạn code sau vào:
  
  
  Mã:

  Private Sub FormReSize(giatri As Single) Me.InsideHeight = Me.InsideHeight / giatri Me.InsideWidth = Me.InsideWidth / giatri Dim ctrl As Control For Each ctrl In Me.Controls ctrl.Height = ctrl.Height / giatri ctrl.Width = ctrl.Width / giatri ctrl.Left = ctrl.Left / giatri ctrl.Top = ctrl.Top / giatri Next Me.Repaint End Sub
  
  Sau đó, trong form, ta tạo hai nút tăng/ giảm kích thước, để cho nhanh mình để tên mặc định . Và gọi thủ tục trên :
  
  
  Mã:

  Private Sub Command0_Click() FormReSize 1.1 End Sub Private Sub Command1_Click() FormReSize 0.9 End Sub
  
  Bạn có thể thay thế chỗ mình tô đỏ cho phù hợp với sở thích của mình. Mời Xem chương trình demo:
  Download
  


•   Trình tự các sự kiện khi mở-đóng 1 form/report
  

  Viết bởi: Noname 27-08-10, 09:49 AM Chuyên mục: Forms - Bài trả lời (2)

• Khi ta mở/ đóng form thì có 1 chuỗi các sự kiện diễn ra, Nếu biết điều đó ta có thể chặn các sự kiện để cài mã vào cho thích hợp.
  Theo đó, khi bạn mở form/report thì trình tự các sự kiện như sau:
  Open → Load → Resize → Activate → Current
  
  Khi đóng form, trình tự các sự kiện như sau:
  
  Unload → Deactivate → Close
  
  ------------------
  Từ điều này cho thấy, nếu ta muốn chỉnh kích thước các đối tượng thì phải gọi trước sự kiện resize. Tức là Load hoặc open, nếu ta gọi sau (active) thì không có tác dụng.
  Tương tự, ta muốn gọi 1 form, điền vào 1 tham số và nhảy setforcut 1 form khác, lấy giá trị từ form này thì phải gọi nó ở sự kiện Current. Vì chưa Active thì nó chưa được điền giá trị vào đó.
  ....
  Tương tự, khi đóng form/report. Ta cũng có thể bẫy chặn các sự kiện nhằm lưu hệ thống . Cụ thể khi form không còn hiện nữa (unload), ta vẫn có thể lưu dữ liệu vì nó chưa hoàn toàn close...
  


•   Làm sao để mở data Access ở chế độ Exclusively
  

  Viết bởi: Noname 27-08-10, 09:43 AM Chuyên mục: Thư viện thủ thuật - Bài trả lời (1)

• 
  
  
  Hỏi: Trong Access 2003/XP/2000/97, tôi đã cố gắng sửa đổi một số các đối tượng trong cơ sở dữ liệu Access của tôi.Và thường nhận 1 báo lỗi "database exclusively". Vậy làm thế nào để mở Database ở chế độ Exclusively.
  Đáp: Bởi vì trong Advanced Option của chương trình, bạn đang để chế độ Share cho nhiều người dùng. Vì vậy,để chỉnh sửa Form/report/table , đôi khi bạn bị buộc phải mở Database ở chế độ Exclusively.
  
  Để làm việc này, bạn phải đảm bảo file Access của bạn hiện không có ai đang mở.
  Mở Ms Access. Vào menu File--> Open
  Chọn file dữ liệu mà bạn muốn mở ở chế độ Exclusively. Bấm vào mũi tên bên phải của nút Open. Một danh sách các tùy chọn sẽ xuất hiện (Open, Open Read-Only, Open Exclusive, Open Exclusive Read Only). Bạn chọn vào Open Exclusive.
  
  
  Chúc Thành Công
  
  
  


•   Tìm ngày có thứ đầu tiên trong tháng
  

  Viết bởi: Noname 27-08-10, 12:56 AM Chuyên mục: Thư viện thủ thuật - Không có hồi đáp

• Hỏi: Công ty tôi họp thường kỳ vào thứ 3 tuần đầu tiên của tháng. Xin giúp 1 đoạn code để tôi biết chính xác thứ 3 đầu tiên của tháng là ngày mấy!
  
  
  Đáp: bạn có thể tạo 1 function như sau:
  
  
  Mã:

  Public Function FirstDayofMonth(intYr As Integer, intMth As Integer, intWeekday As Integer) As Date Dim dteMonthStart As Date Dim intDayofWeek As Integer, intIncrement As Integer dteMonthStart = DateSerial(intYr, intMth, 1) intDayofWeek = Weekday(dteMonthStart) If intDayofWeek <= intWeekday Then intIncrement = intWeekday - intDayofWeek FirstDayofMonth = DateAdd("d", intIncrement, dteMonthStart) Else intIncrement = (7 - intDayofWeek) + intWeekday FirstDayofMonth = DateAdd("d", intIncrement, dteMonthStart) End If End Function
  
  Bây giờ bạn có thể gọi function trên, truyền tham số
  FirstDayofMonth(Năm xem xét, tháng xem xét, Thứ trong tuần)
  Ví dụ muốn biết ngày thứ 3 của tháng 1 năm 2010 bạn gọi:
  msgbox FirstDayofMonth(2010,1,3)
  
  
  



Chủ đề Mới nhất

uZ8rlF0ykP7dzW5kxD3zdJ6ng... -Chuyên mục: MS Word-Đăng bởi lần cuối: Robertkeeby-3 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1

Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,255

Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 125

Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 142

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 7,849

Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 146

Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 565

Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 166

Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 473

Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,589




Diễn đàn Thống kê

» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ