• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Thủ Thuật Access

• Trang chủ

  • Thủ Thuật Access
  • Trang chủ
•   [Bài tập Excel]Quản Lý Tiền Điện
  

  Viết bởi: Noname 03-09-10, 09:03 PM Chuyên mục: Ms Excel - Bài trả lời (3)

• Đề:1. Tạo lập cơ sở dữ liệu để quản lý tiền điện cho một chi nhánh điện gồm có các mục sau :
  Tên chủ công tơ, mã số công tơ , chỉ số đầu , chỉ số cuối, điện năng tiêu thụ, đơn giá , thành tiền , tháng. Nhập dữ liệu, cho ra kết quả
  
  Mình sưu tầm bài làm sẵn này trên Giải Pháp Excel, cũng gần tương tự yêu cầu của đề nên post lên các bạn tham khảo!
  
  [iframe]https://spreadsheets.google.com/ccc?key=0AlXcxCMU5rSWdEpFVUVfSUZsVXowY2h0MnNIZ2ZOdXc&hl=en[/iframe]
  
  
  DownLoad
  
  
  


•   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)
  
  
  



Chủ đề Mới nhất

Discussing diesel generat... -Chuyên mục: MS Word-Đăng bởi lần cuối: Murraymoife-1 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1

uZ8rlF0ykP7dzW5kxD3zdJ6ng... -Chuyên mục: MS Word-Đăng bởi lần cuối: Robertkeeby-9 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1

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: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,255

Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 125

Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 142

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 7,849

Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 147

Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 566

Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 167

Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 475




Diễn đàn Thống kê

» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ