• 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ủ
•   Update các cột trong table thỏa mãn điều kiện khi tham chiếu tới 1 table khác
  

  Viết bởi: Đình Phán 30-05-22, 04:17 PM Chuyên mục: Query - Không có hồi đáp

• Chào các anh chị,
  
  Em có làm 1 ứng dựng quản lý kho.
  Em có 1 bảng tblCTGS chưa các tài liệu, và 1 bảng tblMuon để theo dõi các trường hợp mượn tài liệu.
  
  Tại bảng tblCTGS em có để 1 field để tích chọn trạng thái là Đang cho mượn hay không (Yes/No)
  Bây giờ em muốn Update dữ liệu cho cột Muon tại tblCTGS, cụ thể:
  
  Khi em thêm dữ liệu tại Form fmMuon, sau khi bấm Lưu thì cột Muon tại tblCTGS sẽ chuyển trạng thái thành Yes tại record tương ứng (tham chiếu 2 điều kiện là So_CTGS và Nam)
  
  Tương tự, khi em nhập thông tin vào fmTra thì dữ liệu tại tblCTGS sẽ thay đổi theo (cột Muon chuyển về trạng thái No, các cột So_Thung lấy dữ liệu = dữ liệu So_Thung tại tblTra)
  
  Em cảm ơn.
  
  Link file
  
  https://drive.google.com/file/d/1J2PpaXY...sp=sharing
  


•   Không lưu được khi chỉnh sửa định dạng form
  

  Viết bởi: utcom 30-05-22, 11:29 AM Chuyên mục: Thư Viện Giáo Trình - Bài trả lời (1)

• Mình có tạo một form trang chủ để liên kết với form cũ. Form trang chủ mới tạo thì chỉnh sửa định dạng được còn form cũ có dữ liệu thì không được. Nhờ mọi người giúp với ạ! File của mình đuôi là .accdb
  


•   Tạo Query lấy dữ liệu với điều kiện so sánh các ngày lớn nhất
  

  Viết bởi: Đình Phán 27-05-22, 03:32 PM Chuyên mục: Query - Bài trả lời (5)

• Chào các anh chị,
  
  Em có làm 1 ứng dụng để quản lý hồ sơ, nhưng đang vướng nhiều quá.
  
  1. Em tạo Query Q_Transit để lấy ra các hồ sơ đã mượn, nhưng chưa trả bằng cách Left Join từ tblMuon và tblTra
  (điều kiện thì chỉ là Nguoi_Tra = is null)
  Tuy nhiên có 1 vấn đề là nếu bộ hồ sơ đó được mượn 2 lần. Tức lần 1 đã mượn và đã trả, lần 2 mượn nhưng chưa trả thì query Q_Transit này không lấy lên được dữ liệu đó.
  Mong muốn của em là muốn thêm điều kiện Lấy ngày mượn lớn nhất so sánh với Ngày trả lớn nhất của bộ hồ sơ đó, nếu thỏa mãn thì gọi dữ liệu ra.
  Tuy nhiên khả năng SQL có hạn nên không làm được chỗ này.
  
  2. Hàm Dlookup và Dlookup lồng Dlookup
  
  Tại Report rpMuon, phần số Phiếu em có gọi thông tin từ 1 form khác, và Sub Report cũng lấy theo điều kiện số phiếu của Form đó.
  Tuy nhiên em muốn điền thêm các thông tin (Thu_Kho, Nguoi_Muon, Don_Vi) thì báo lỗi
  Riêng Nguoi_Muon thì sau khi Dlookup được từ tblMuon lại tiếp tục tham chiếu đến tblNhanVien để ra họ và tên
  
  3. Do Report rpMuon em đang gán thêm 1 subReport nên khi in ấn, kết quả không như mong đợi,
  Luôn bị lặp hoặc bị trang trống đan xen.
  Nhờ các anh chị chỉ giúp cách làm Report lấy trực tiếp từ Query Q_sfmPhieuMuon thay vì phải gán qua 1 Sub Report
  
  Em cảm ơn các anh, chị nhiều.
  
  Link file
  
  https://drive.google.com/file/d/1J2PpaXY...sp=sharing
  


•   Class Tạo Label (Button) động trên Form (On the fly)
  

  Viết bởi: ongke0711 24-05-22, 10:11 PM Chuyên mục: Forms - Không có hồi đáp

• Tôi chia sẻ các bạn demo dùng Class module để tạo Label/Command button "động" trên Form.
  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
  
  
  
  


•   Đánh số thứ tự theo điều kiện
  

  Viết bởi: Bluesphere 24-05-22, 03:47 PM Chuyên mục: Table - Bài trả lời (1)

• Chào bác bác, mình có vấn đề này mong các bác giúp với.
  
  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é!
  



Chủ đề Mới nhất

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,345

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: 146

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: 160

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: 8,101

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: 182

Đồ 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: 659

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: 185

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: 630

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,615

TẠO THÔNG BÁO NHẮC NHỞ CÔ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM- » Bài trả lời: 2- » Lượt xem: 285




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 đủ