Tùy chọn
Xóa record thỏa mãn nhiều điều kiện
- Xóa record thỏa mãn nhiều điều kiện
-
Xóa record thỏa mãn nhiều điều kiện
hongle516 > 15-03-12, 06:41 PM
Các bạn giúp tớ với
Form QLTHUOC của tớ có button thêm thuốc với code
Làm sao để tớ thêm 1 điều kiện nữa là NSX phải bé hơn ngày hiện tại nhỉ?Mã:Private Sub GHI_Click()
If IsNull(MATHUOC) = True Then
MsgBox "MA THUOC KHONG DUOC DE TRONG, YEU CAU NHAP LAI"
MATHUOC.SetFocus
ElseIf DCount("MATHUOC", "THUOC", "MATHUOC='" & MATHUOC & "'") = 1 Then
MsgBox "MA THUOC BI TRUNG, YEU CAU NHAP LAI"
MATHUOC.SetFocus
Else
DoCmd.RunCommand acCmdSaveRecord
MsgBox "THEM THUOC THANH CONG"
sangmo True
End If
End Sub
Và trong form fthuoc làm sao để so sánh mã hóa đơn nhập vào với mã hóa đơn ở bảng BANCHITIET. Nếu có mã hóa đơn như vậy thì thực hiện lệnh còn ko có thì hiện thông báo NHAP SAI MA
Chân thành cám ơn các bạn nhiều nhiềuMã:Private Sub Command20_Click()
If MsgBox("BAN CO MUON XEM TRUOC BAN IN HOA DON KO?", vbYesNo + vbQuestion, "NHAT THANH") = vbYes Then
DoCmd.SetWarnings False
DoCmd.OpenReport "hoadon", acViewPreview
End If
End Sub
File của mình đây
http://www.mediafire.com/?7dh8qp1ytrbyyyp
File nén mình đã để Recovery 10% rồi nha
-
RE: Xóa record thỏa mãn nhiều điều kiện
hoanglonglangtu > 16-03-12, 10:14 AM
- Ở form QLThuoc
con ở chổ form fthuoc của bạn mình nghĩ bạn xài Dcount vẫn đc chứ nhỉMã:Private Sub GHI_Click()
If IsNull(MATHUOC) = True Then
MsgBox "MA THUOC KHONG DUOC DE TRONG, YEU CAU NHAP LAI"
MATHUOC.SetFocus
exit sub
If DCount("MATHUOC", "THUOC", "MATHUOC='" & MATHUOC & "'") = 1 Then
MsgBox "MA THUOC BI TRUNG, YEU CAU NHAP LAI"
MATHUOC.SetFocus
exit sub
if isdate(NSX)=false then
msgbox "NSX nhap vao phai dung"
exit sub
end if
if date()-NSX <0 then
msgbox "Ngay SX phai < ngay hien tai "
exit sub
end if
DoCmd.RunCommand acCmdSaveRecord
MsgBox "THEM THUOC THANH CONG"
sangmo True
End If
End Sub
Mã:if Dcount("tttt","BANGCHITIET","MABAN='" & tttt & "'") = 0 then
msgbox "ma hoa doan khong ton tai "
exit sub
end if -
RE: Xóa record thỏa mãn nhiều điều kiện
hongle516 > 17-03-12, 03:45 PM
Cám ơn bạn nhiều nha. Tiếc là mình đã nạp bài kiểm tra rồi, để cho bài khác vậy
-
RE: Xóa record thỏa mãn nhiều điều kiện
pthamnb > 05-04-12, 12:50 AM
ko hiểu lắm.ai có code hoàn chỉnh phần xóa theo điều kiện này cho mình xem với nha
mình cũng đang cần gấp.mong các bạn giúp đỡ
-
RE: Xóa record thỏa mãn nhiều điều kiện
hoanglonglangtu > 05-04-12, 10:06 AM
- Bạn mún hoàn chỉnh thì còn tùy bạn có những fields nào, đk ntn nữa chứ :P -
RE: Xóa record thỏa mãn nhiều điều kiện
pthamnb > 06-04-12, 04:44 PM
(05-04-12, 10:06 AM)hoanglonglangtu Đã viết: - Bạn mún hoàn chỉnh thì còn tùy bạn có những fields nào, đk ntn nữa chứ :P
bạn xem giúp mình với nha
ví dụ mình có bài ntn
tạo một form dành cho các vận động viên
các field là:ID, FirstName, LastName, PlayingPosition, nationality, active, createon, lastupdate
trong đó: định dạng lastupdate là ngày tháng hiện tại và k hiển thị trên form mà sẽ tự động cập nhật vào access khi mà người sd nhập dữ liệu vào form
còn trên form thì chỉ hiển thị những bản ghi đang hoạt động và button xóa thì chỉ xóa các bản ghi k hoạt động (k xóa dạng vật lí)
khó quá nên mình bó tay. Mong các bạn giúp đỡ -
RE: Xóa record thỏa mãn nhiều điều kiện
hoanglonglangtu > 07-04-12, 10:43 AM
Bạn tham khảo bài mình demo, nếu ko đúng yc thì trao đổi thêm
Demo -
RE: Xóa record thỏa mãn nhiều điều kiện
dtv197 > 07-04-12, 04:36 PM
Theo mình nghĩ bạn nên thêm 1 trường Ẩn vào CSDL khi bạn muốn xoá record nào đó mà vẫn muốn nó không mất đi, (chỉ là không hiển thị lên thôi) thì bạn đặt thuộc tính Ẩn = yes, trong query bạn chỉ cần đưa ra điều kiện tại trường Ẩn = No là OK mà
Mình không hiểu xoá vật lý là ntn, và không biết ý kiến của mình có đúng ý của bạn không
mình lấy ví dụ nhé:
bạn có 1 danh sách vận động viên đúng không, danh sách này bạn lấy từ bảng DanhSachVDV chẳng hạn, bây giờ bạn muốn xoá 1 người nào đó ra khỏi danh sách đó mà vẫn không muốn thông tin của người đó mất đi thì bạn nên tạo thêm 1 trường nữa trong bảng DanhSachVDV có thể đặt tên trường là Ẩn hoặc Active, hoặc gì gì đó mà bạn thích, type là Yes/No.
Nút xoá của bạn bây giờ có tác dụng là làm cho trạng thái Ẩn từ "No" thành "Yes"
trong query gọi ra danh sách VĐV bạn đặt điều kiện cho trạng thái Ẩn là "No" có nghĩa là hiển thị những người không bị đánh dấu Ẩn.
ý kiến hơi dài dòng bạn thông cảm. -
RE: Xóa record thỏa mãn nhiều điều kiện
pthamnb > 08-04-12, 09:21 AM
(07-04-12, 10:43 AM)hoanglonglangtu Đã viết: Bạn tham khảo bài mình demo, nếu ko đúng yc thì trao đổi thêm
Demo
mình vừa tải về rùi.Thanks b nhìu nha
nếu có gì thắc mắc mong các b giúp đỡ
(07-04-12, 04:36 PM)dtv197 Đã viết: Theo mình nghĩ bạn nên thêm 1 trường Ẩn vào CSDL khi bạn muốn xoá record nào đó mà vẫn muốn nó không mất đi, (chỉ là không hiển thị lên thôi) thì bạn đặt thuộc tính Ẩn = yes, trong query bạn chỉ cần đưa ra điều kiện tại trường Ẩn = No là OK mà
Mình không hiểu xoá vật lý là ntn, và không biết ý kiến của mình có đúng ý của bạn không
mình lấy ví dụ nhé:
bạn có 1 danh sách vận động viên đúng không, danh sách này bạn lấy từ bảng DanhSachVDV chẳng hạn, bây giờ bạn muốn xoá 1 người nào đó ra khỏi danh sách đó mà vẫn không muốn thông tin của người đó mất đi thì bạn nên tạo thêm 1 trường nữa trong bảng DanhSachVDV có thể đặt tên trường là Ẩn hoặc Active, hoặc gì gì đó mà bạn thích, type là Yes/No.
Nút xoá của bạn bây giờ có tác dụng là làm cho trạng thái Ẩn từ "No" thành "Yes"
trong query gọi ra danh sách VĐV bạn đặt điều kiện cho trạng thái Ẩn là "No" có nghĩa là hiển thị những người không bị đánh dấu Ẩn.
ý kiến hơi dài dòng bạn thông cảm.
hjhj. Thanks b nhìu nha. Mình sẽ thử.Nói thật đề yc là ko xóa dưới dạng vật lí, mình cũng chẳng hiểu rõ lắm.hix
ah.còn một số thắc mắc nữa mong các bạn giúp mình giải quyết với:
mình muốn đặt kích thước của form là 1024x768 thì làm cách nào đc nhỉ
ai biết chia sẻ mình với nha. Thanks các bạn trước nha