Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Xóa record thỏa mãn nhiều điều kiện
#1
Các bạn giúp tớ với
Form QLTHUOC của tớ có button thêm thuốc với code
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
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ỉ?
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
Mã:
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
Chân thành cám ơn các bạn nhiều nhiều
File của mình đây
http://www.mediafire.com/?7dh8qp1ytrbyyyp
File nén mình đã để Recovery 10% rồi nha happy
Chữ ký của hongle516 Xin chào, mình là hongle516, Tham gia http://thuthuataccess.com/forum từ ngày 30-09 -11.
Reply
Những người đã cảm ơn
#2
- Ở form QLThuoc
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
con ở chổ form fthuoc của bạn mình nghĩ bạn xài Dcount vẫn đc chứ nhỉ
Mã:
if Dcount("tttt","BANGCHITIET","MABAN='" & tttt & "'") = 0 then
  msgbox "ma hoa doan khong ton tai "
  exit sub
end if
Chữ ký của hoanglonglangtu Chiều tắt nắng trên con đường quen thuộc
Mưa rơi buồn qua ngõ vắng không em
Từng hạt ngọc rơi đùa qua kẽ lá
Những giọt tràn đầy ngõ ngách tâm tư
Em có biết chiều nay anh vẫn nhớ
Ở nơi nào em có nhớ chăng anh

Trên đời có quá nhiều chữ nếu,đáng tiếc là đều đã qua,việc đã xảy ra,hối hận cũng vô dụng
ღღღღღTài sản của hoanglonglangtu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , hongle516 , pthamnb
#3
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 happy
Chữ ký của hongle516 Xin chào, mình là hongle516, Tham gia http://thuthuataccess.com/forum từ ngày 30-09 -11.
Reply
Những người đã cảm ơn
#4
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 đỡ
Tongue_smile
Chữ ký của pthamnb Xin chào, mình là pthamnb, Tham gia http://thuthuataccess.com/forum từ ngày 28-03 -12.
rất mong trao đổi với các bạn: ptham_nb91@yahoo.com
pthamnb91@gmail.com
Reply
Những người đã cảm ơn
#5
- 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
Chữ ký của hoanglonglangtu Chiều tắt nắng trên con đường quen thuộc
Mưa rơi buồn qua ngõ vắng không em
Từng hạt ngọc rơi đùa qua kẽ lá
Những giọt tràn đầy ngõ ngách tâm tư
Em có biết chiều nay anh vẫn nhớ
Ở nơi nào em có nhớ chăng anh

Trên đời có quá nhiều chữ nếu,đáng tiếc là đều đã qua,việc đã xảy ra,hối hận cũng vô dụng
ღღღღღTài sản của hoanglonglangtu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn pthamnb
#6
(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í)47_47
khó quá nên mình bó tay. Mong các bạn giúp đỡ
Chữ ký của pthamnb Xin chào, mình là pthamnb, Tham gia http://thuthuataccess.com/forum từ ngày 28-03 -12.
rất mong trao đổi với các bạn: ptham_nb91@yahoo.com
pthamnb91@gmail.com
Reply
Những người đã cảm ơn
#7
Bạn tham khảo bài mình demo, nếu ko đúng yc thì trao đổi thêm
Demo
Chữ ký của hoanglonglangtu Chiều tắt nắng trên con đường quen thuộc
Mưa rơi buồn qua ngõ vắng không em
Từng hạt ngọc rơi đùa qua kẽ lá
Những giọt tràn đầy ngõ ngách tâm tư
Em có biết chiều nay anh vẫn nhớ
Ở nơi nào em có nhớ chăng anh

Trên đời có quá nhiều chữ nếu,đáng tiếc là đều đã qua,việc đã xảy ra,hối hận cũng vô dụng
ღღღღღTài sản của hoanglonglangtu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn pthamnb
#8
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.
Chữ ký của dtv197 Xin chào, mình là dtv197, Tham gia http://thuthuataccess.com/forum từ ngày 20-08 -11.
Reply
Những người đã cảm ơn pthamnb
#9
(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 đỡTongue_smile

(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 nhaTongue_smile
Chữ ký của pthamnb Xin chào, mình là pthamnb, Tham gia http://thuthuataccess.com/forum từ ngày 28-03 -12.
rất mong trao đổi với các bạn: ptham_nb91@yahoo.com
pthamnb91@gmail.com
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
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 209 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq
  Lọc có điều kiện ở listbox phiacuoiconduong 2 96 18-11-16, 06:40 PM
Bài mới nhất: ongke0711
  Lọc theo điều kiện trong listbox Ranju 3 183 06-10-16, 05:26 PM
Bài mới nhất: Ranju
  Thay đổi màu nền các dòng theo điều kiện trên form Continuous tranthanhan1962 9 1,701 27-09-16, 11:01 PM
Bài mới nhất: ongke0711
  Không cho phép điều chỉnh kích thước của Form ChiMai 1 129 18-09-16, 01:27 PM
Bài mới nhất: ongke0711

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ơ