Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Demo_Code Lấy thời gian thực
#11
(07-09-15, 04:31 PM)tranhai_vn Đã viết: Cám ơn Bác maidinhdan

Bác hài lòng chưa, có chỗ nào không ôn không?, Hồi nảy Post lộn file RAR nên không thấy file, vừa Upload lại file *.Zip trong bài phía trên rồi.

Các bạn tải lại nhé.


Mình khuyến nghị bạn đổi lại tiêu đề là "Demo_Code Lấy thời gian thực"

Thân mến!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#12
Đã đổi lại tiêu đề để các Bác khác có tìm kiếm cũng dễ hình dung. 
Trân trọng!
Chữ ký của tranhai_vn Xin chào, mình là tranhai_vn, Tham gia http://thuthuataccess.com/forum từ ngày 02-06 -12.
Reply
Những người đã cảm ơn
#13
Bác maidinhdan có thể thêm một bẫy lỗi khi không có internet thì mặc định trở về internettime = now() không?
Chữ ký của tranhai_vn Xin chào, mình là tranhai_vn, Tham gia http://thuthuataccess.com/forum từ ngày 02-06 -12.
Reply
Những người đã cảm ơn
#14
(08-09-15, 11:02 AM)tranhai_vn Đã viết: Bác maidinhdan có thể thêm một bẫy lỗi khi không có internet thì mặc định trở về internettime = now() không?

Trả lời:
1. Tạo thêm 1 hàm kiểm tra Internet

Mã PHP:
Public Declare Function InternetGetConnectedState Lib "wininet.dll" _
    
(ByRef dwflags As LongByVal dwReserved As Long) As Long

Public Function TestInternet() As Boolean
TestInternet 
InternetGetConnectedState(0&, 0&)
End Function 


2. Gọi hàm

Mã PHP:
Private Sub cmdLaythoigianthuc_Click()
If 
TestInternet() = True Then
Me
.txtthoigianthuc.Value InternetTime(7)
Else
Me.txtthoigianthuc.Value Now()
End If
End Sub 


Hình minh họa

[Hình: HinhLaythoigiantuInterNet.jpg]

Đính kèm Demo bổ sung hàm Kiểm tra máy có Internet chưa?


File đính kèm
.zip   Ex-LaythoigianthuctrenInternet(Bosungham CoInternet khonf).zip (Kích cỡ: 24.97 KB / Tải về: 16)
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn tranhai_vn
#15
Cảm ơn Bác rất nhiều. Thân mến
Chữ ký của tranhai_vn Xin chào, mình là tranhai_vn, Tham gia http://thuthuataccess.com/forum từ ngày 02-06 -12.
Reply
Những người đã cảm ơn
#16
Code lấy thời gian thực của bạn maidinhdan chạy báo lỗi:
Access denied
Run-time error 80070005
ai đã chạy được lấy thời gian thực từ Internet xin giúp đỡ mình với ạ!
Chữ ký của trangdv.pchg trangdv.pchg,gia nhập Thủ Thuật Access từ 18-08 -16.
Reply
Những người đã cảm ơn
#17
Bạn sửa 1 đoạn code trong demo của maidinhdan như dưới đây:

Set Request = CreateObject("Microsoft.XMLHTTP") 
đổi lại ==>
Set Request = CreateObject("MSXML2.ServerXMLHTTP.6.0")

Cái này là do tính năng bảo mật của PC nên nó chặn không cho bạn truy cập link URL.
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 , trangdv.pchg , huuduy.duy


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Hướng Dẫn Lấy thời gian từ máy chủ trangdv.pchg 4 178 22-12-16, 10:54 AM
Bài mới nhất: ongke0711
  [Hỏi] chương trình đơn giản để so sánh chuỗi text kanmai07 4 381 28-09-16, 06:05 PM
Bài mới nhất: kanmai07
  [Help] Tính khoản thời gian trong ngày morosumo 6 461 02-12-15, 03:08 PM
Bài mới nhất: morosumo
  [Hỏi] Tìm kiếm trong một khoảng thời gian bằng VBA thanhtruong 4 744 20-07-15, 09:09 PM
Bài mới nhất: tranthanhan1962
Exclamation [Lỗi] Lỗi internet explore scripts trên WEbform from ms access khi thực hiện mở links quanghoasla 7 996 28-04-15, 08:35 AM
Bài mới nhất: trungn077

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ơ