Thủ Thuật Access

Trang chủ
- Thủ Thuật Access
- Trang chủ

Tính số ngày trong tháng

Viết bởi: Noname
03-09-10, 06:34 PM
Chuyên mục: Thư viện thủ thuật
- Không có hồi đáp
Hỏi: Tôi muốn biết trong tháng có bao nhiêu ngày thì làm thế nào

Đáp:
Hàm đếm số ngày trong tháng:

Code:

Mã:
Function totalDayOfMonth(m As Integer, y As Integer) As Integer totalDayOfMonth = Day(DateSerial(y, m + 1, 0)) End Function
m: tháng cần theo dõi
y: năm cần theo dõi
Kết quả trả về số ngày trong tháng cần theo dõi

Ví dụ:

Mã:
Private Sub Command0_Click() Dim m As Integer, y As Integer m = 2 y = 2010 MsgBox "thang " & m & " nam " & y & " co " & totalDayOfMonth(m, y) & " ngay " End Sub

kết quả là 28 ngày!
Xem demo Download

Thao tác với registry (nâng cao)

Viết bởi: Noname
02-09-10, 03:20 PM
Chuyên mục: Thư viện thủ thuật
- Không có hồi đáp
Trước đây mình có giới thiệu 1 bài viết giúp chúng ta thao tác với registry. Phạm vi bài viết đó chỉ là ghi/ đọc 1 giá trị vào đó nhằm tiện lợi cho lần mở chương trình kế tiếp. Các bạn có thể ứng dụng tùy biến cho user save password hay vài giá trị mà user muốn mặc định...

Xem thêm

Tuy nhiên, do một số nhu cầu đặc biệt, bạn muốn can thiệp sâu hơn vào registry. Điều này đòi hỏi bạn phải có chút am hiểu về nó. Ứng dụng là bạn có thể change workgroup, tạo ổ mạng, setting vài mặc định cho access hay các ứng dụng khác...

Dưới đây mình sẽ giới thiệu vài hàm hỗ trợ ta thao tác với registry :

Reading from the Registry:

Code:

Mã:
'reads the value for the registry key i_RegKey     'if the key cannot be found, the return value is ""     Function RegKeyRead(i_RegKey As String) As String     Dim myWS As Object     On Error Resume Next     'access Windows scripting     Set myWS = CreateObject("WScript.Shell")     'read key from registry     RegKeyRead = myWS.RegRead(i_RegKey)     End Function

Checking if a Registry key exists:

Code:

Mã:
'returns True if the registry key i_RegKey was found     'and False if not     Function RegKeyExists(i_RegKey As String) As Boolean     Dim myWS As Object     On Error GoTo ErrorHandler     'access Windows scripting     Set myWS = CreateObject("WScript.Shell")     'try to read the registry key     myWS.RegRead i_RegKey     'key was found     RegKeyExists = True     Exit Function     ErrorHandler:     'key was not found     RegKeyExists = False     End Function

Saving a Registry key:

Code:

Mã:
'sets the registry key i_RegKey to the     'value i_Value with type i_Type     'if i_Type is omitted, the value will be saved as string     'if i_RegKey wasn't found, a new registry key will be created     Sub RegKeySave(i_RegKey As String, _     i_Value As String, _     Optional i_Type As String = "REG_SZ")     Dim myWS As Object     'access Windows scripting     Set myWS = CreateObject("WScript.Shell")     'write registry key     myWS.RegWrite i_RegKey, i_Value, i_Type     End Sub
Deleting a key from the Registry:

Code:

Mã:
'deletes i_RegKey from the registry     'returns True if the deletion was successful,     'and False if not (the key couldn't be found)     Function RegKeyDelete(i_RegKey As String) As Boolean     Dim myWS As Object     On Error GoTo ErrorHandler     'access Windows scripting     Set myWS = CreateObject("WScript.Shell")     'delete registry key     myWS.RegDelete i_RegKey     'deletion was successful     RegKeyDelete = True     Exit Function     ErrorHandler:     'deletion wasn't successful     RegKeyDelete = False     End Function
Ví dụ sau cho phép bạn startip chương trình unikey lưu trong thư mục D:\\Soft\\UniKey4.0\\unikey40RC2-1101-win32\\UniKeyNT.exe

Key của nó muốn lưu trong registry là

Mã:
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run] "'UniKey"="D:\\Soft\\UniKey4.0\\unikey40RC2-1101-win32\\UniKeyNT.exe"

Ta phát biểu:

Mã:
Dim key as String, v as String     key="[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]     'UniKey'"     v="D:\\Soft\\UniKey4.0\\unikey40RC2-1101-win32\\UniKeyNT.exe"     RegKeySave key,v

Chúc thành công!

Ngoài ra việc thao tác với registry bạn phải thật cẩn thận vì có thể làm hỏng cả hệ thống. Nên trước khi làm việc, bạn nên sao lưu 1 bản dự phòng bất trắc.

Hướng dẫn đổi DNS-Kỹ năng không thể thiếu cho người dùng Net

Viết bởi: Noname
02-09-10, 11:50 AM
Chuyên mục: Tin Học Văn Phòng
- Không có hồi đáp
DNS là gì?
DNS ( Domain Name Server) hay còn gọi là máy chủ tên miền.
Mỗi máy tính trên Internet được đánh dấu bằng một địa chỉ IP, là một mớ số. Tuy nhiên, không thể bắt người dùng nhớ cái mớ số đó.Thay vì bắt con người nhớ số, mỗi số IP sẽ được đổi thành chữ và DNS có nhiệm vụ đổi chữ thành số tương ứng khi có yêu cầu.
Địa chỉ của DNS thường được cung cấp tự động trực tiếp mỗi khi bạn thiết lập kết nối với ISP (nhà cung cấp dịch vụ Internet). Ở VN, mỗi ISP thường có hai hoặc nhiều DNS để phục vụ số lượng khách hàng của mình.

Thế nhưng thường cũng không đủ dùng. Vì vậy không ai cấm việc xài dịch vụ của ISP này nhưng thiết lập DNS của ISP khác, hoặc một DNS nào đó tốt hơn trong các giờ cao điểm.

Dưới đây là Hướng dẫn đổi DNS dành cho Windows XP:

Bước 1:
Double
click vào biểu tượng card mạng

Bước 2:
Click Properties

Bước 3
Double
click vào dòng Internet
Protocol (TCP/IP)

Bước 4
Chọn Use
the following DNS server addresses
Điền DNS mới vào 2 dòng Preferred
DNS và Alternate
DNS như trong hình
Nhấn OK để
đồng ý thay đổi.

Dưới đây là một số DNS thông dụng, các bạn có thể thay đổi coi cái nào nhanh thì vào:

DNS Google:

Cái này mình thường xài vì tốc độ truy cập khá nhanh và kết nối hoàn hảo.

Open DNS

Cái này kẹt lắm mới xài chứ mình không ưa lắm vì nó hay quảng cáo.

Ngoài ra các DNS của các nhà cung cấp trong nước, mình đánh giá cao của viettel,

DNS VNN

DNS FPT

DNS Viettel
203.113.188.1
203.113.131.1

Không lấy được tổng số trang của report để đưa vào biến

Viết bởi: haquocquan
01-09-10, 09:40 AM
Chuyên mục: Report
- Bài trả lời (1)
Tôi có thiết kế một form chọn thông số in cho report. Các sự kiện xảy ra thứ tự như sau:
- Mở Report (docmd.openreport "reportname", acpreview):
có một biến lấy tên của report: mreportname = me.name
- Khi bấm nút in trên menu, mở form chọn tham số để in.
Tạo ra hai biến:
page1 = reports(mreportname).page (lấy trang hiện hành của report)
page2 = reports(mreportname).pages (lấy tổng số trang của report)

Gặp vấn đề: page2 luôn bằng 0.
Nhờ các PRO chỉ giúp: làm thế nào page2 bằng tổng số trang của report (mreportname)

Lập trình giao tiếp Web Server bằng thư viên WinHttp trên Access

Viết bởi: Noname
01-09-10, 09:27 AM
Chuyên mục: Tương tác Chương trình ngoài
- Bài trả lời (7)
Trên thực tế, rất nhiều dữ liệu ta cần lấy từ web, hoặc nhập liệu lên web site từ MS Access.
Bài viết dưới đây của mình nhằm hướng dẫn các bạn khái niệm cơ bản nhất để làm 1 ứng dụng tương tác Web server bằng Access thông qua thư viện winhttp

Để sự dụng thư viện này, các bạn phải khai báo trong khung soạn thảo code

Đầu tiên. Bạn tạo 1 file MDB mới. Tạo 1 form mới và vẽ
1 textbox tên texbox1
1 nút command button tên command1
1 đối tượng image tên pisture 1.

Trong khung soạn VBA, nhập đoạn code sau vào.

Mã:
Sub getPicture(url As String) Set WinHttpReq = New WinHttpRequest ' Tạo một mảng chứa dữ liệu trả về Dim d() As Byte ' Mở 1 thủ tục một yêu cầu lấy dữ liệu WinHttpReq.Open "GET", url, False ' Gửi yêu cầu đó tới server WinHttpReq.Send ' Lấy về tiến trình tải về . Text1.Value = WinHttpReq.Status & " - " & WinHttpReq.StatusText ' Đưa dữ liệu nhận được vào mảng đã khai báo với file tạm là temp.gif trong bộ nhớ Open "temp.jpg" For Binary As #1 d() = WinHttpReq.ResponseBody Put #1, 1, d() Close ' gán file vào giá trị đối tượng picture tạo sẵn Picture1.Picture = "temp.jpg" End Sub
Trong hành động click nút nhấn, ta gọi thủ tục trên:

Mã:
Private Sub Command1_Click() getPicture "http://i39.photobucket.com/albums/e193/duytuan2002/Access/Thuthuataccess.jpg" End Sub

Giờ bạn xem điều kì diệu xảy ra.
Down load demo ở đây: Click

Về tương lai có lẽ các bài hướng dẫn của mình sẽ hướng tương tác web. Mình sẽ cập nhật những gì học được sau.
các bạn có thể tham khảo các hàm của thư viện winhttp trên trang web của microsoft:
http://msdn.microsoft.com/en-us/library/...85%29.aspx

Chủ đề Mới nhất

Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: chuvanthom-08-12-25, 09:12 PM- » Bài trả lời: 2- » Lượt xem: 3,260

Demo - Tra cứu thông tin ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-16-11-25, 07:03 PM- » Bài trả lời: 26- » Lượt xem: 4,127

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: hoandokhai-18-10-25, 04:48 PM- » Bài trả lời: 70- » Lượt xem: 5,947

Thơ Nhạc Nhất Lang - Cảm ... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-09-10-25, 03:12 PM- » Bài trả lời: 1- » Lượt xem: 66

Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: tt1212-09-09-25, 05:03 PM- » Bài trả lời: 32- » Lượt xem: 7,340

Thử nghiệm upload hình -Chuyên mục: Phòng thử nghiệm-Đăng bởi lần cuối: Noname-29-08-25, 09:44 AM- » Bài trả lời: 2- » Lượt xem: 750

Quản Lý Công Văn -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Adung-23-07-25, 10:05 AM- » Bài trả lời: 8- » Lượt xem: 13,051

(Update v.1.0.85 - 30/06/... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: Adung-22-07-25, 10:46 AM- » Bài trả lời: 270- » Lượt xem: 114,475

Video Tự học Access ( Cơ ... -Chuyên mục: Thư Viện Giáo Trình-Đăng bởi lần cuối: Nguyễn Đình Thọ-21-07-25, 10:42 AM- » Bài trả lời: 7- » Lượt xem: 9,237

E chia sẽ Quản lý nhà trọ -Chuyên mục: Forms-Đăng bởi lần cuối: hoaithanh-18-07-25, 02:28 PM- » Bài trả lời: 0- » Lượt xem: 293

Diễn đàn Thống kê

» Thành viên: 8,045
» Thành viên mới nhất: 789pcenteritcom1
» Các chủ đề diễn đàn: 9,898
» Các bài viết diễn: 48,828

Thống kê đầy đủ

Thủ Thuật Access

Trang chủ