Đá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 Khóa form không cho click ra ngoài toidjtjmtoi 3 106 08-09-17, 12:30 PM
Bài mới nhất: toidjtjmtoi
  Giúp đỡ in form toaneurowindow 2 87 28-08-17, 08:06 PM
Bài mới nhất: tranthanhan1962
  [Lỗi] Lỗi không mở được form cawboy 5 128 28-08-17, 06:42 PM
Bài mới nhất: ongke0711
  Cập nhật dữ liệu cho subform ChiMai 1 80 26-08-17, 09:13 AM
Bài mới nhất: cpucloi
  Thiết lập mở file pdf từ form feeling 1 115 10-08-17, 04:57 AM
Bài mới nhất: cpucloi

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ơ