Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: ongke0711 24-05-22, 10:11 PM Chuyên mục: Forms - Không có hồi đáp |
Khi gọi Form, tùy dữ liệu thời điểm đó để tạo ra số lượng Label tương ứng với các sự kiện (Eventprocedure) kèm theo.
Bộ code này có thể áp dụng trong các ứng dụng quản lý số bàn trong nhà hàng, số phòng khách sạn/ nhà trọ v.v..
Class RoomLabel:
Mã PHP:
Option Compare Database
Option Explicit
Private WithEvents mLabel As Access.Label
Private mName As String
Public Property Get Name() As String
Name = mLabel.Name
End Property
Public Property Get RoomLabel() As Access.Label
Set RoomLabel = mLabel
End Property
Public Property Set RoomLabel(TheLabel As Access.Label)
' On Error GoTo ErrHandler
Set mLabel = TheLabel
mLabel.OnClick = "[Event Procedure]"
Exit Property
ErrHandler:
If Not (Err.Number = 459 Or Err.Number = 91) Then
MsgBox ("Error: " & Err.Number _
& " " & Err.Description _
& " " & Err.Source)
End If
Resume Next
End Property
Private Sub mLabel_Click()
'MsgBox "Chon phong [" & mLabel.Tag & "]"
DoCmd.OpenForm "frmBooking", OpenArgs:=mLabel.Tag
End Sub
Class RoomLabels (Collection)
Mã PHP:
Option Compare Database
Option Explicit
Private mRoomLabels As New Collection
Public Function Add(TheLabel As Access.Control, ctlName As String) As RoomLabel
Dim newRoomLabel As RoomLabel
Set newRoomLabel = New RoomLabel
Set newRoomLabel.RoomLabel = TheLabel
mRoomLabels.Add newRoomLabel, ctlName
Set Add = newRoomLabel
End Function
Public Property Get count() As Integer
count = mRoomLabels.count
End Property
Public Property Get Item(ByVal index As Variant) As RoomLabel
Set Item = mRoomLabels(index)
End Property
Private Sub Class_Terminate()
Set mRoomLabels = Nothing
End Sub
Public Sub Clear()
Set mRoomLabels = New Collection
End Sub
Public Property Get Item_ByName(ByVal TheName As String) As RoomLabel
Dim Roomlbl As RoomLabel
For Each Roomlbl In mRoomLabels
If Roomlbl.Name = TheName Then
Set Item_ByName = Roomlbl
End If
Next
End Property
Link demo: https://www.mediafire.com/file/d6mqfgn6s...accdb/file
|
Viết bởi: Bluesphere 24-05-22, 03:47 PM Chuyên mục: Table - Bài trả lời (1) |
Hiện tại mình đang có 1 table NoteList với 2 trường là NoteNumber và Display (Nhận giá trị Yes/No)
Mình muốn làm sao mà mỗi khi cái cột Display nó thay đổi thì cái cột NoteNumber nó sẽ nhảy số thứ tự tăng dần theo với điều kiện là nếu cột Display là Yes thì mới đánh số, còn No thì nó là số 0.
Mình có thử vào After Update Event nhưng mà nó vẫn không nhảy theo đúng ý.
Mình cảm ơn trước nhé!
|
|
Viết bởi: ongke0711 23-05-22, 01:01 AM Chuyên mục: Forms - Không có hồi đáp |
------------------------------------------------------------------------------------------------------------------------------------
Trong bài trước đây, tôi có làm demo việc tìm kiếm ngay khi gõ trong Combobox. Trong demo này, tôi dùng cách thông thường là dùng DAO Recordset làm nguồn cho ComboBox. Nhưng do đối với một số trường hợp dùng Ms Access làm Font end và SQL Server làm Back end và dùng ADO để kết nối thao tác dữ liệu (không dùng Linked Table), thì cái Class module dùng cho DAO Recordset sẽ không chạy được. Do vậy trong Demo lần này sẽ áp dụng cho Combobox có Row source là ADO Recordset (lấy về từ SQL Server).
Link demo trước đây (DAO Recordset): https://thuthuataccess.com/forum/post-42...l#pid42818
Link Demo mới (ADO Recordset - kết nối SQL Server): https://www.mediafire.com/file/ajmakduid...r.zip/file
- Trong file đính kèm tôi có kèm theo 1 đoạn script để tạo Table tblPhuLieu như trong file Demo để các bạn dễ dàng test thử.
- Demo có thêm một cái Class để kết nối với SQL Server và các hàm để tương tác dữ liệu với nó (Insert, Update).
tạo tự động tables
|
Viết bởi: hugox03 19-05-22, 02:31 AM Chuyên mục: Forms - Bài trả lời (3) |
mình có tables gồm : STT , mã phòng , tên phòng , số người , giá tiền , loại phòng , trạng thái ở
có cao nhân nào chỉ giúp mình cách tạo ra button hay label tự động không ? nếu phòng trống sẽ hiển thị màu đỏ .
Cái này phù hợp với việc kinh doanh phòng trọ , quán cafe , karaoke .....
![[Hình: ApdCpqn.png]](https://i.imgur.com/ApdCpqn.png)
link : tạo tự động tables
|
|
Viết bởi: Thảo Duyên 16-05-22, 09:04 PM Chuyên mục: Query - Bài trả lời (3) |
Dưới đây là kết quả mình tính được điểm 1 môn:
https://i.imgur.com/lpFb6Kx.png
Mình cảm ơn.
| Chủ đề Mới nhất |
| Dòng Video Ngâm Nga Thơ N... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-10-01-25, 06:15 PM- » Bài trả lời: 0- » Lượt xem: 2 |
| Video YouTube Ngâm Nga Bà... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-10-01-25, 06:11 PM- » Bài trả lời: 1- » Lượt xem: 27 |
| Đành Thôi! Phũ Phàng! &Vi... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-31-12-24, 04:34 PM- » Bài trả lời: 0- » Lượt xem: 18 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: tuanpham-31-12-24, 11:46 AM- » Bài trả lời: 58- » Lượt xem: 3,302 |
| Dòng Video Youtube Ngâm N... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-30-12-24, 01:51 PM- » Bài trả lời: 46- » Lượt xem: 459 |
| Tin Học Văn Phòng: Khái N... -Chuyên mục: Tin Học Văn Phòng-Đăng bởi lần cuối: Tinhocvanphong-27-12-24, 11:54 AM- » Bài trả lời: 0- » Lượt xem: 28 |
| NHỜ NÂNG CẤP CODE TÌM DỮ ... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: ongke0711-27-12-24, 09:28 AM- » Bài trả lời: 12- » Lượt xem: 495 |
| Trang thủ thuật Access ít... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: huyhoang22-25-12-24, 08:41 AM- » Bài trả lời: 11- » Lượt xem: 316 |
| Tạo query tổng hợp dữ liệ... -Chuyên mục: Query-Đăng bởi lần cuối: ongke0711-19-12-24, 07:58 PM- » Bài trả lời: 1- » Lượt xem: 373 |
| Test phần mềm QUẢN LÝ TÀI... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: AnNguyen-19-12-24, 05:33 PM- » Bài trả lời: 44- » Lượt xem: 5,234 |
| Diễn đàn Thống kê |
|
» Thành viên: 5,143 » Thành viên mới nhất: nhatminh485 » Các chủ đề diễn đàn: 9,882 » Các bài viết diễn: 48,670 Thống kê đầy đủ |