Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Xử lý combo Box
#1
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
[Hình: 56495030.122.jpg]
Chữ ký của FA Cệ Bố Ok Xin chào, mình là FA Cệ Bố Ok, Tham gia http://thuthuataccess.com/forum từ ngày 08-06 -13.
Reply
Những người đã cảm ơn
#2
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é
Lightbulb Lightbulb Lightbulb Lightbulb Lightbulb
Chữ ký của cpucloi Tôi chỉ biết mỗi một điều là những điều tôi biết được còn quá ít 021
Gmail: cgiahuy13@gmail.com


ღღღღღTài sản của cpucloi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn FA Cệ Bố Ok , Noname
#3
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 big green
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 ạ
Chữ ký của FA Cệ Bố Ok Xin chào, mình là FA Cệ Bố Ok, Tham gia http://thuthuataccess.com/forum từ ngày 08-06 -13.
Reply
Những người đã cảm ơn
#4
Đầ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
Chữ ký của hadangpr Hỡi thế gian ngu là gì mà không ai chịu nhận!
Reply
Những người đã cảm ơn Noname
#5
(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 big green
Tks bác cái ạ
Chữ ký của FA Cệ Bố Ok Xin chào, mình là FA Cệ Bố Ok, Tham gia http://thuthuataccess.com/forum từ ngày 08-06 -13.
Reply
Những người đã cảm ơn
#6
À 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
Chữ ký của FA Cệ Bố Ok Xin chào, mình là FA Cệ Bố Ok, Tham gia http://thuthuataccess.com/forum từ ngày 08-06 -13.
Reply
Những người đã cảm ơn
#7
Visible= no nhé bạn
Chữ ký của hadangpr Hỡi thế gian ngu là gì mà không ai chịu nhận!
Reply
Những người đã cảm ơn
#8
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
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn FA Cệ Bố Ok
#9
(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 ạ
Chữ ký của FA Cệ Bố Ok Xin chào, mình là FA Cệ Bố Ok, Tham gia http://thuthuataccess.com/forum từ ngày 08-06 -13.
Reply
Những người đã cảm ơn Xuân Thanh
#10
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
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Combo box trong subform killer113 4 268 31-08-16, 10:02 AM
Bài mới nhất: killer113
  [Hỏi] Combo box ra toàn bộ các field toancvp 3 362 16-07-16, 09:33 PM
Bài mới nhất: toancvp
  [Hỏi] Cách hiện các record trong combo box theo điều kiện toancvp 5 334 02-07-16, 12:21 AM
Bài mới nhất: toancvp
  [Help] set giá trị cho Combo Box 2 từ combobox1 mic.nguyenhoang 11 2,337 30-05-16, 12:16 AM
Bài mới nhất: thiennamlong
  [Hỏi] Điều khiển combo box theo điều kiện tvn_hut 5 396 19-03-16, 09:42 PM
Bài mới nhất: tvn_hut

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ