Đá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
  [Help] Lấy dữ liệu từ subform qua textbox dutuan80637 2 54 21-03-17, 06:31 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Vấn đề về form field "String too long" vuthaiha90 2 85 18-03-17, 07:40 AM
Bài mới nhất: vuthaiha90
  [Help] Thay đổi hiện thị trên from dữ liệu ngày tháng lấy từ query. HoangManh 10 148 16-03-17, 07:54 PM
Bài mới nhất: HoangManh
  [Help] Hàm tìm kiếm dữ liệu với hàm dayadd. HoangManh 14 360 13-03-17, 09:56 AM
Bài mới nhất: tranthanhan1962
  [Help] Lọc Form theo ngày tháng Godspear 3 171 03-03-17, 08:22 AM
Bài mới nhất: Godspear

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ơ