Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Hướng dẫn giúp: mở form và cập nhật số liệu duy nhất 1 lần khi ngày đến hạn
#1
Chào các bạn.
Mình có file đính kèm nhờ các bạn hướng dẫn giúp: 
Mình muốn khi đến ngày 01/01 hàng năm khi người sử dụng mở formchinh thì query "QryUpdate" sẽ tự chạy duy nhất một lần để cập nhật số liệu là "10" cho tất cả các records của trường "Sohopdong" trong table "Danhsach" và tương tự sang các năm tiếp theo cũng vậy. Theo file của mình thì nếu người sử dụng mà mở formchinh nhiều lần trong ngày sẽ bị cập nhật lại.
Trân trọng cám ơn các bạn.
Demomofiletheongay
Chữ ký của jeck09nt Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#2
Theo cách tôi làm thì sẽ tạo 1 table phụ để lưu thông tin ngày giờ Update.
VD: table SysPara có 2 field (TenSuKien - Text; GiaTri - text). Tại sao [GiaTri] dạng Text mà không phải Date/Time vì có thể sau này bạn cũng cần lưu sự kiện nào khác ví dụ: yes/No...
TenSuKien       GiaTri
CapNhatHD       '1/1/2015'
- Khi chạy QryUpdate, bạn sẽ lưu thời gian cập nhật vô table này.
- Sự kiện form Load của formchinh: bạn sẽ kiểm tra xem ngày giờ hệ thống so với ngày lưu trong field [GiaTri] => nếu thõa đk sẽ tiến hành chạy Update hoặc không.
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn jeck09nt
#3
Nhờ ongke0711 xem giúp lại file đính kèm mình đã thực hiện như sau nhưng không được theo ý muốn : 

Mã PHP:
[/color][/color][/size][/size][/color]
[
color=#333333][size=small][size=medium][color=#0072bc][color=darkred]Private Sub Form_Load()
[/color][/color][/size][/size][/color]
Set rs CurrentDb.OpenRecordset("Select giatri from Syspara")

If (
Now() - rs!giatri) >= 0 Then

        With DoCmd

         
.SetWarnings False

         
.OpenQuery "QryUpdate"

 
        .SetWarnings True

        End With



End 
If

rs.Close



End Sub
[color=#333333][size=small][size=medium][color=#0072bc][color=darkred] 


Xin cám ơn ah
Demo
Chữ ký của jeck09nt Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#4
Xin gửi lại code ah : 
Mã PHP:
Private Sub Form_Load()
Set rs CurrentDb.OpenRecordset("Select giatri from Syspara")
If (
Now() - rs!giatri) >= 0 Then
       With DoCmd
        
.SetWarnings False
        
.OpenQuery "QryUpdate"
        .SetWarnings True
       End With

End 
If
rs.Close
End Sub 
Chữ ký của jeck09nt Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#5
Cái điều kiện của bạn sai.
Mã PHP:
If (Now() > rs!giatri) And Now() < DateAdd("yyyy"1rs!giatriThen
    
"do nothing"
Else
   With DoCmd
       
.SetWarnings False
       
.OpenQuery "QryUpdate"
       .SetWarnings True
   End With
End 
If
rs.Close 

Nếu giờ hiện tại > ngày giờ đã lưu và nó phải < ngày 1/1 năm sau thì không chạy Update nữa.
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn jeck09nt
#6
Cám ơn ongke0711 thật nhiều, mình làm được rồi !
Chữ ký của jeck09nt Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
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] Cách thêm dữ liệu vào form Main_Sub NganNguyen 1 38 06-12-16, 02:23 AM
Bài mới nhất: maidinhdan
  Tự động hiện Form khi loading hết thời gian ChiMai 1 49 02-12-16, 08:59 PM
Bài mới nhất: ongke0711
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 208 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 194 22-11-16, 09:23 AM
Bài mới nhất: jason
  Query hiện lên trên form? feeling 4 165 09-11-16, 09:49 PM
Bài mới nhất: toancvp

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ơ