Hỏi về cách lấy field của ngày hôm trước hay 1 record trước đó

[mainguyen]

Mình có main form như sau :


Giờ khi mình nhập ngày thừ thì dữ liệu thế này :

Có nghĩa là khi mình nhập ngày thứ 2 thì cột : Skcu sẽ lấy giá trị :Skmmoi của ngày 01/11/2009. Sẽ gài bẫy khi field : xe ở thuộc after update.
Mình suy nghĩ hoài mà chưa làm ra, ai có cách nào giúp mình được không, có thể chỉ mình cách lấy số liệu của ngày trước ngày hiện tại mình đang cập nhật.

mình dùng access 2007

View more random threads:

• Quàn lý kho _ báo cáo các loại
• Khoá 1 record trong môi trường nhiều người dùng
• Kế toán kho bằng access
• Chương trình Quản lý quầy thuốc nhỏ lẻ
• Kết nối dữ liệu trong access
• Quản lý in hoá đơn điện 2.0
• Ẩn thanh menu
• Xin project hoặc bài mẫu về Quản lý Thu-Chi
• ẩn các dòng số liệu không cần thiết
• xin chương trình nhập xuất tồn bằng Access

[honganh_dn]

Ðề: Hỏi về cách lấy field của ngày hôm trước hay 1 record trước đó

Mình có main form như sau :


Giờ khi mình nhập ngày thừ thì dữ liệu thế này :

Có nghĩa là khi mình nhập ngày thứ 2 thì cột : Skcu sẽ lấy giá trị :Skmmoi của ngày 01/11/2009. Sẽ gài bẫy khi field : xe ở thuộc after update.
Mình suy nghĩ hoài mà chưa làm ra, ai có cách nào giúp mình được không, có thể chỉ mình cách lấy số liệu của ngày trước ngày hiện tại mình đang cập nhật.

mình dùng access 2007

Bắt sự kiện BeforeUpdate của form. Giả sử table source của subform có tên là table2.

Code trong BeforeUpdate của Form:

Dim rs As DAO.Recordset
If Nz(xe, "") <> "" Then ' field xe không rỗng
Set rs = CurrentDB.OpenRecordset("SELECT TOP 1 sokmmoi FROM table2 WHERE xe = '" & xe & "' AND ma < '" & ma & "' ORDER BY ma DESC", dbOpenSnapshot) ' lấy ra cái sokmmoi gần nhất
On Error Resume Next
rs.MoveFirst
On Error Goto 0
If rs.RecordCount <> 0 then
sokcu = rs("sokmmoi")
End If
Set rs = Nothing
End If

Tạm thời là thế.

[phamhuanmko]

Ðề: Hỏi về cách lấy field của ngày hôm trước hay 1 record trước đó

nó báo lỗi dòng này anh ơi.
hình :

Set rs = CurrentDB.OpenRecordset("SELECT TOP 1 sokmmoi FROM table2 WHERE xe = '" & xe & "' AND ma < '" & ma & "' ORDER BY ma DESC", dbOpenSnapshot) ' lấy ra cái sokmmoi gần nhất

em gửi cái file nhờ các anh giúp phát.
http://www.tanhlinh.com/Database1.zip

giúp em với.

[dunghoang]

Ðề: Hỏi về cách lấy field của ngày hôm trước hay 1 record trước đó

nó báo lỗi dòng này anh ơi.
hình :



em gửi cái file nhờ các anh giúp phát.
http://www.tanhlinh.com/Database1.zip

giúp em với.

Nếu xe và/hoặc mã có kiểu là số thì bỏ hai dấu nháy đơn trước và sau đi.
Nó báo là sai kiểu mà thôi.