tự động thống báo lổi khi nhập liêu cho table

[longvit04]

em đang viết phầm mềm văn thư, gặp rất nhiều khó khăn do mới làm quan với acess nên mong nhận được sự giúp đỡ của các anh.
table có các trường như sao: so, ngaynh, sovb, ngayvb, maloai, trichyeu, noigoi, maphong, ngayhet. trong đó trích yếu là khóa chính, maloai được lookup sang table khác gồm 2 trường là maloai và tenloai, maphong được lookup sang table khác cũng gồm 2 trường là maphong và tenphong. em thiết lập from nhập liêu cho table trên vây em muốn tự thông báo lổi khi: nhập cùng so mà lại củng maloại(theo nguyên tắc là cùng loại là không cùng số) và ngaynh sau mà so lại nhỏ hơn(theo nguyên tắc là nhận sau số phài lớn hơn), trường ngayhet tự động cập nhật theo điều kiện là nếu maloai là A hoặc B hoặc C thì ngayhet=ngaynh+20ngày,các trường hợp còn lại đề là "chưa xác định".

 

[phatnq2002]

Ðề: tự động thống báo lổi khi nhập liêu cho table

nhập cùng so mà lại củng maloại(theo nguyên tắc là cùng loại là không cùng số)

Bạn có thể định Primary key là 2 field này (so, maloai)

ngaynh sau mà so lại nhỏ hơn(theo nguyên tắc là nhận sau số phài lớn hơn)
Bạn viết code để bắt sự kiện BeforeUpdate của Form để khi chuẩn bị lưu thì kiểm tra.

Dim st As String
st = "SELECT MAX(so) As somax FROM table WHERE Format(ngaynh, 'yyyymmdd') < '" & Format(txtngaynh, "yyyymmdd") & "'"
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(st, dbOpenSnapshot)
If Not rs.Eof Then

If rs("somax") > txtso Then

MsgBox "So nay nho hon so da nhap o nhung ngay truoc."
Cancel = True​

End If​

End If
Set rs = Nothing

Chỉ ví dụ thôi, vì trong trường hợp bạn nói còn thiếu trường hợp cùng ngày mà số nhỏ hơn?

ngayhet tự động cập nhật theo điều kiện là nếu maloai là A hoặc B hoặc C thì ngayhet=ngaynh+20ngày,các trường hợp còn lại đề là "chưa xác định"

Làm cái BeforeUpdate của maloai và ngaynh giống nhau:
If Not IsNull(maloai) And Not IsNull(ngaynh) Then

ngayhet = IIf(maloai = "A" Or maloai = "B" Or maloai = "C", ngaynh + 20, "Chua xac dinh")
​

End If

Cứ tạm thời thế.