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

Xử lý combo Box

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] Xử lý combo Box
• Xử lý combo Box

• Xử lý combo Box

  FA Cệ Bố Ok > 26-06-13, 01:10 AM

  Tình hình là E có 1 Form như thế này ạ
  Và Yêu cầu là : 1 Đọc giả không thể mượn đc 3 cuốn sách trên cùng 1 phiếu mượn
  -E mò mãi ko biết làm thế nào
  - Các Pro chỉ e với ạ
  
  CSDL của e Đây
  

• RE: Xử lý combo Box

  cpucloi > 26-06-13, 12:16 PM

  Của bạn đây...
  sự kiện After Insert của subform
  if dcount("masach","tên bảng","Mã đọc giả like forms!tenform!tencboMadocgia and Mã phiếu mượn like forms!tenform!tencboMaphieumuon")>3 then
  msgbox "Mỗi độc giả không thể mượn nhiều hơn 3 cuốn trong một lần",,"Thông báo"
  Docmd.CancelEvent
  end if
  
  
  Thử xem sao nhé
  

• RE: Xử lý combo Box

  FA Cệ Bố Ok > 26-06-13, 01:16 PM

  Mình thử nhưng ko làm đc
  Bạn làm giúp mình với
  Mình code kém lắm
  mới học accsess nữa
  Bài của mình đây ạ
  
  Chỉ cần không cho phép người dùng nhập quá 3 dòng trên subform thôi cũng đc ạ

• RE: Xử lý combo Box

  hadangpr > 26-06-13, 04:55 PM

  Đầu tiên vào subform tạo một textbox đặt tên là dem gõ lệnh này vào =count(masach)
  sau đó nhấp phải vào combo mã sách ấy tại dòng GotFocus click vào gõ đoạn này vào
  If dem >= 2 Then
  MsgBox "baoloi"
  DoCmd.CancelEvent
  masach.Locked = True
  Else
  masach.Locked = False
  End If
  
  Cái này nếu có 2 mẫu tin ở subform là nó khó cái cột mã sách lại luôn không cho nhập liệu nửa.
  Nhưng khi sang phiếu mượn sách khác, nếu mẫu tin nhỏ hơn hai sẽ mở ra lại cho chúng ta nhập liệu

• RE: Xử lý combo Box

  FA Cệ Bố Ok > 26-06-13, 05:09 PM

  (26-06-13, 04:55 PM)hadangpr Đã viết: Đầu tiên vào subform tạo một textbox đặt tên là dem gõ lệnh này vào =count(masach)
  sau đó nhấp phải vào combo mã sách ấy tại dòng GotFocus click vào gõ đoạn này vào
  If dem >= 2 Then
  MsgBox "baoloi"
  DoCmd.CancelEvent
  masach.Locked = True
  Else
  masach.Locked = False
  End If
  
  Cái này nếu có 2 mẫu tin ở subform là nó khó cái cột mã sách lại luôn không cho nhập liệu nửa.
  Nhưng khi sang phiếu mượn sách khác, nếu mẫu tin nhỏ hơn hai sẽ mở ra lại cho chúng ta nhập liệu

  
  Cái này dễ hiểu hơn.
  E làm đc rồi, tuy ko triệt để lắm nhưng e nghĩ là dùng đc
  Tks bác cái ạ

• RE: Xử lý combo Box

  FA Cệ Bố Ok > 26-06-13, 05:20 PM

  À bác hadangpr ơi..
  E muốn không hiện cái textbox mình tạo trong subform thỳ làm thế nào ạ
  Chỉ e luôn đi, e mò mãi ko đc, visible cũng ko đc

• RE: Xử lý combo Box

  hadangpr > 26-06-13, 05:24 PM

  Visible= no nhé bạn

• RE: Xử lý combo Box

  Xuân Thanh > 26-06-13, 05:24 PM

  1/ CSDL của bạn bị lỗi, chắc là do convert nên khiông mở được
  
  2/ Bài toán của bạn dựa vào 3 table sau :
  2.1/ tblSach : MaSach, TenSach, GiaTien
  2.2/ tblPhieuMuon : MaPhieu, MaDocGia, MaThuThu, NgayMuon, NgayHenTra
  2.3/ tblPhieuMuonChiTiet : MaPhieu, MaSach, NgayTra
  
  3/ Form Main có nguồn là tblPhieuMuon, form Sub có nguồn là tblPhieuMuonChiTiet, dùng tblSach để lấy Tên sach và giá
  
  4/ Câu lệnh trong form Sub là
  

  Mã:

  Private Sub MaSach_AfterUpdate()
    If DCount("MaSach", "tblPhieuMuonChiTiet", "MaSach = '" & Me.MaSach & "'") > 1 Then
        MsgBox "Khong the muon 2 lan 1 cuon sach" , , "Chu y"
        Me.MaSach = "": Me.MaSach.SetForcus
    End If
    If DCount("MaSach", "tblPhieuMuonChiTiet", "MaPhieu = '" & Forms!frmPhieuMuon!MaPhieu & "'") > 2 Then
        MsgBox "Khong the muon qua 3 cuon trong 1 phieu muon" , , "Chu y"
        Me.MaSach ="": Me.MaSach.Loked
        Forms!frmPhieuMuon!cmdLuu.SetForcus
    End If
End Sub

  
  Bạn test lại thử xem nhé, tôi chưa test
  Thân mến

• RE: Xử lý combo Box

  FA Cệ Bố Ok > 26-06-13, 05:38 PM

  (26-06-13, 05:24 PM)Xuân Thanh Đã viết: 1/ CSDL của bạn bị lỗi, chắc là do convert nên khiông mở được
  
  2/ Bài toán của bạn dựa vào 3 table sau :
  2.1/ tblSach : MaSach, TenSach, GiaTien
  2.2/ tblPhieuMuon : MaPhieu, MaDocGia, MaThuThu, NgayMuon, NgayHenTra
  2.3/ tblPhieuMuonChiTiet : MaPhieu, MaSach, NgayTra
  
  3/ Form Main có nguồn là tblPhieuMuon, form Sub có nguồn là tblPhieuMuonChiTiet, dùng tblSach để lấy Tên sach và giá
  
  4/ Câu lệnh trong form Sub là
  

  Mã:

  Private Sub MaSach_AfterUpdate()
    If DCount("MaSach", "tblPhieuMuonChiTiet", "MaSach = '" & Me.MaSach & "'") > 1 Then
        MsgBox "Khong the muon 2 lan 1 cuon sach" , , "Chu y"
        Me.MaSach = "": [b]Me.MaSach.SetForcus[/b]
    End If
    If DCount("MaSach", "tblPhieuMuonChiTiet", "MaPhieu = '" & Forms!frmPhieuMuon!MaPhieu & "'") > 2 Then
        MsgBox "Khong the muon qua 3 cuon trong 1 phieu muon" , , "Chu y"
        Me.MaSach ="": Me.MaSach.Loked
        Forms!frmPhieuMuon!cmdLuu.SetForcus
    End If
End Sub

  
  Bạn test lại thử xem nhé, tôi chưa test
  Thân mến

  
  E làm như bác nhưng bị lỗi chỗ e bôi đen kia ạ

• RE: Xử lý combo Box

  Xuân Thanh > 26-06-13, 06:13 PM

  Sory bạn nhé, do viết vội nên gõ nhầm. Bạn sửa SetForcus thành SetFocus nhé (thừa chữ r sau chữ o)
  Thân mến
• Bài trước Bài tiếp