Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tạo nút lưu thay đổi ngày giờ 1 lần
#1
Mình có file demo
File demon_luu

Mình muốn khi bấm lưu lần thứ nhất thì ô ngày và giờ sẽ cập nhật giờ hệ thống.
Khi bấm lưu lần thứ 2 thì 2 cái ô này sẽ không thay đổi ngày và giờ nữa.

Vì ngày hôm qua mình nhập liệu mà nhập sai cái tên.
ngày hôm nay mình muốn sửa lại cái tên, rồi bấm lưu thì ngày và giờ lại cập nhật thành ngày hôm nay.

vì thế mình muốn bấm lưu lần thứ 2 thì cái ngày và giờ sẽ khồng thay đổi thì phải làm sao ạ.?
Chữ ký của thanhtruong Xin chào, mình là thanhtruong, Tham gia http://thuthuataccess.com/forum từ ngày 23-06 -14.
Reply
Những người đã cảm ơn
#2
007  Bạn đã tự thiết kế form này để theo dõi việc cập nhật dữ liệu và bây giờ bạn lại muốn phá luật của mình.
Nếu bạn không muốn lưu thay đổi ngày giờ thì bạn cho check xem trường ngày giờ có Null không, nếu không Null thì không cập nhật, nếu Null thì mới chạy Me.Gio = Time.
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 thanhtruong
#3
Theo mình
C1: Bạn đặt thuộc tính default value của các textbox ngày và giờ tương ứng theo ngày và giờ hiện tại
Ngay: format(date(),"dd/mm/yyyy")
Giờ: tương tự nhưng sử dụng hàm về thời gian (mình cố tình không viết để bạn tự suy luận).
(bỏ 2 câu lệnh gán ngày và giờ trong thủ tục Lưu)

C2: Chỉ cần dùng 1 filed sẽ hiển thị cả ngày tháng và thời gian nhập (không tách thành ngày, giờ)
Chữ ký của cpucloi Tôi chỉ biết mỗi một điều là những điều tôi biết được còn quá ít 021


ღღღღღTài sản của cpucloi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn thanhtruong
#4
Mã:
Private Sub Command7_Click()
If Me.gio = Null And Me.ngay = Null Then
Me.gio = Time
Me.ngay = Data
Else
Me.Refresh
End If
End Sub
Chữ ký của thanhtruong Xin chào, mình là thanhtruong, Tham gia http://thuthuataccess.com/forum từ ngày 23-06 -14.
Reply
Những người đã cảm ơn
#5
(20-07-17, 04:54 PM)thanhtruong Đã viết: [code]Private Sub Command7_Click()
If Me.gio = Null And Me.ngay = Null Then
...

Đã là NULL thì nó không bao giờ bằng(=) cái gì cả nên bạn dùng Me.gio= Null là sai nhé, nó không trả về đúng kết quả đâu. Bạn test code này chưa? 

- Đổi qua dùng hàm IsNull().
         If IsNull(Me.gio.Value) AND IsNull(Me.Ngay.Value) Then …

- Một cách khác toàn diện hơn là chuyển giá trị Null thành chuỗi (string) rồi kiểm tra độ dài chuỗi, nếu = 0 tức là textbox đó là trống (Empty). Tại sao cách này toàn diện hơn vì nếu gặp trường hợp bạn dùng phím Delete hay Backspace xóa nội dung textbox thì lúc này textbox không còn nội dung gì nữa nhưng nó không phải là NULL. Nếu bạn chỉ kiểm tra bằng hàm IsNull() thì đã bỏ sót trường hợp trên.
+ Null: là cái textbox đó không được gán một giá trị gì cả.
+ Empty: tức là textbox có độ dài chuỗi = 0 nếu ở dạng Text (“”), hoặc = 0 nếu là dạng Number.

- Đổi textbox đang Null thành Empty bằng cách nối thêm chuỗi “” hoặc dùng hằng (Constant) vbNullString.
         If Len(Trim(Me.gio.Value) & “”)= 0 Then …
Hoặc
         If Len(Trim(Me.gio.Value) & vbNullString)= 0 Then …

Tốt nhất là dùng Constant vbNullString trong trường hợp này vì trong code cũng dễ nhìn và phân biệt hơn là dấu nháy kép “” (nếu bạn gõ dư 1 phím space thì cũng khó biết “ “). Hơn nữa theo tôi biết là đối với các hằng (constant) thì chương trình đã cấp phát bộ nhớ cho nó rồi nên sẽ chạy trơn tru hơn (đối với trường hợp đơn giản thì cũng không đáng kể  007 ).
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 maidinhdan , thanhtruong , cpucloi , duynamvnn1208


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Tìm kiếm Record ngay khi gõ trong Combobox - Class ongke0711 9 640 25-09-18, 12:00 PM
Bài mới nhất: ledangvan
  [Hỏi] Cách đặt mặc định là ngày cuối tháng! NguyenDungAnh 4 397 11-05-18, 06:52 PM
Bài mới nhất: NguyenDungAnh
  [Hỏi] Form thay đổi kích thước text tùy chỉnh khi xem dataview toidjtjmtoi 8 949 08-03-18, 10:26 AM
Bài mới nhất: toidjtjmtoi
  [Hỏi] Tạo các Button trên FORM với với số lượng button thay đổi theo dữ Liệu minhtungph 4 854 19-10-17, 08:43 AM
Bài mới nhất: minhtungph
  [Help] Code update dữ liệu từ subform vào table history(có ghi nhận ngày update) subasatran 5 1,138 10-07-17, 02:07 PM
Bài mới nhất: tranthanhan1962

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line