• 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ủ
•   Tạo file Access mới và xuất dữ liệu ra đó
  

  Viết bởi: Noname 23-08-10, 04:11 PM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (2)

• Đoạn code sau cho phép bạn tạo 1 file MDB mới trong cùng 1 thư mục với chương trình
  
  
  
  
  Mã:

  Sub CreateDatabaseX(DBname as String) Dim wrkDefault As Workspace Dim Bomtemp As Database 'Dim prpLoop As Property ' Get default Workspace. Set wrkDefault = DBEngine.Workspaces(0) ' Make sure there isn't already a file with the name of ' the new database. If Dir(CurrentProject.Path & "\" & "DBName") <> "" Then Kill CurrentProject.Path & "\"& DBName ' Create a new encrypted database with the specified ' collating order. Set Bomtemp = wrkDefault.CreateDatabase(CurrentProject.Path & "\" & "DBname", dbLangGeneral, dbEncrypt) Bomtemp.Close End Sub
  Đoạn Code sau cho phép bạn Export 1 table ra 1 file MDB khác cùng mục với chương trình
  
  
  Mã:

  Sub ExportTable(T As String, DBname) On Error GoTo err DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentProject.Path & "\" & "DBname", acTable, T, T Exit Sub err: If err.Number = 3024 Then CreateDatabaseX DBname ExportTable T End If End Sub
  
  
  Ứng dụng: bạn có thể có nhu cầu mỗi tháng tạo 1 file chứa dữ liệu riêng 1 cách tự động!...
  


•   Hàm thay thế chuỗi trong Access
  

  Viết bởi: Noname 23-08-10, 04:02 PM Chuyên mục: Thư Viện Hàm - Bài trả lời (7)

• Đôi khi bạn có nhu cầu thay 1 chuỗi này bằng 1 chuỗi khác. Khi đó bạn có thể dùng hàm Replace. Cú pháp như sau:
  
  
  Mã:

  Replace ( string1, find, replacement, [start, [count, [compare]]] )
  
  Ví dụ:
  
  Mã:

  Replace("alphabet", "bet", "hydro") would return "alphahydro" Replace ("alphabet", "a", "e") would return "elphebet" Replace("alphabet", "a", "e", 2) would return "lphebet" Replace("alphabet", "a", "e", 1, 1) would return "elphabet"
  
  Nguồn: techonthenet
  


•   Canh Form giữa màn hình
  

  Viết bởi: Noname 23-08-10, 03:57 PM Chuyên mục: Forms - Bài trả lời (5)

• Như các bạn biết. Mặc định Access đã cho ta thuộc tính auto Center và auto resize.
  Nhưng có vẻ như nó không đáp ứng được nhu cầu của chúng ta.
  Sau đây mình xin giới thiệu code canh giữa form.
  Trong Sự kiện Load Form, bạn cho code sau vào:
  
  
  Mã:

  Private Sub Form_Load() Const t = 567 Dim R As Integer, D As Integer, W As Integer, H As Integer ' với 10 là chieu rong cua form, tinh bang cm W = 10 * t ' 7 la chieu cao cua form tinh bang cm H = 7 * t R = (Me.InsideWidth + W) D = (Me.InsideHeight + H) DoCmd.MoveSize R, D, W, H End Sub
  
  


•   Gọi Form Chờ khi thực hiện tập lệnh !
  

  Viết bởi: Noname 23-08-10, 02:32 PM Chuyên mục: Forms - Không có hồi đáp

• Hỏi:Em đặt một nút command button, trong đó chạy một số câu lệnh và phải mất khoảng 5 phút.
  Trong quá trình thực hiện lệnh, em muốn hiện lên màn hình dòng chữ:
  " Đang thực hiện công việc, xin vui lòng chờ trong giây lát"
  
  Đáp:
  Giờ bạn thử theo cách sau nhé:
  
  Tạo 1 form đặt tên Form: frmStatus
  Title : Watting....
  
  Trong form, vẽ 1 Label, nội dung : Đang nhập dữ liệu, xin chờ trong giây lát
  
  Rồi set các thuộc tính như sau:
  
  Dung nhan Form thông báo của bạn sẽ thế này:
  
  Giờ Quay lại vấn đề chính.
  Trong events click của nút thực hiện, bạn làm như sau:
  
  Mã:

  Private Sub cmdThuchien_Click() ' load form frmStatus lên DoCmd.OpenForm "frmStatus" ' chờ load xong DoEvents ' Lệnh thực thi chương trình của bạn ở đây ' Xong rồi thì đóng Flash form lại! DoCmd.Close acForm, "frmStatus" End sub
  
  


•   Lấy về số seri CPU, ổ cứng MainBoard trong Access
  

  Viết bởi: Noname 23-08-10, 01:25 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (35)

• Đôi khi có 1 số nhu cầu lấy thông tin phần cứng trong chương trình (chẳng hạn để cấp bản quyền). Dưới đây là Đoạn Code cho phép bạn lấy thông tin CPU máy tính:
  Download Demo
  
  Chú ý: Một số Main của các máy tính đặc biệt (VAIO, Apple...) không cho lấy thông số, nên hàm lấy main chỉ mang tính tham khảo .
  
  Mã:

  ' Lay thong tin CPU Function GetCPUID() 'ta.o ?o^'i ty'o+.ng di.ch vu. WMI Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") 'ti`m các CPU ?ang cha.y cu?a máy Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor") 'la(.p hie^?n thi. ID cu?a tu+`ng CPU For Each objItem In colItems GetCPUID = objItem.ProcessorId Next End Function
  ' Lay Thong tin o Cung
  
  Mã:

  Function GetHDDserial() Dim fso As Object, Drv As Object 'Create a FileSystemObject object Set fso = CreateObject("Scripting.FileSystemObject") 'Assign the current drive letter if not specified Set Drv = fso.GetDrive(Environ("SystemDrive")) With Drv If .IsReady Then DriveSerial = Abs(.SerialNumber) Else '"Drive Not Ready!" DriveSerial = -1 End If End With 'Clean up Set Drv = Nothing Set fso = Nothing GetHDDserial = DriveSerial End Function
  ' Lay Thong tin Mainboard
  
  Mã:

  Function GetBoardSerial() Set WMI = GetObject("winmgmts:\\.\root\cimv2") Set objs = WMI.ExecQuery("Select * from Win32_BaseBoard") For Each obj In objs GetBoardSerial = obj.SerialNumber Next End Function
  =================================================================
  
  1.Lấy thông tin CPU (Click to View)

  Mã:

  Sub GetCPUID() 'ta.o ðo^'i týo+.ng di.ch vu. WMI Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") 'ti`m các CPU ðang cha.y cu?a máy Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor") 'la(.p hie^?n thi. ID cu?a tu+`ng CPU For Each objItem In colItems MsgBox "Processor Id: " & objItem.ProcessorId Next End Sub

  
  
  Lưu ý rằng trên các máy PC bình thường, chỉ có 1 CPU nên vòng lặp hiển thị thông tin sẽ chỉ chạy 1 lần và hiển thị ID của CPU duy nhất của máy.
  
  
  nguồn PC word
  2. Lấy thông tin ổ cứng: (Click to View)

  ' Đã update phần sửa lỗi của Cafe Via He
  

  Mã:

  Sub readserienumber() Dim fso As Object, Drv As Object 'Create a FileSystemObject object Set fso = CreateObject("Scripting.FileSystemObject") 'Assign the current drive letter if not specified Set Drv = fso.GetDrive(Environ("SystemDrive")) With Drv If .IsReady Then DriveSerial = Abs(.SerialNumber) Else '"Drive Not Ready!" DriveSerial = -1 End If End With 'Clean up Set Drv = Nothing Set fso = Nothing Msgbox "Serial là: " & DriveSerial End Sub
  3. Lấy Serial Main Board (Click to View)

  
  

  Mã:

  Sub readseriemainboard() Dim objs As Object Dim obj As Object Dim WMI As Object Dim sAns As String Set WMI = GetObject("WinMgmts:") Set objs = WMI.InstancesOf("Win32_BaseBoard") For Each obj In objs sAns = sAns & obj.SerialNumber If sAns < objs.Count Then sAns = sAns & "," Next Msgbox "Serial main: " & sAns End Sub
  Phần sửa lỗi lấy thông tin mainboard của Cafe Via He (Click to View)

  (11-11-10, 11:11 AM)Cafe Via He Đã viết: @ Bạn Quân: Thử lại đoạn code này, Cafe thêm mắm muối chút nè
  
  

  Mã:

  Sub readseriemainboard() Dim objs As Object Dim obj As Object Dim WMI As Object Dim sAns As String Set WMI = GetObject("WinMgmts:") Set objs = WMI.InstancesOf("Win32_BaseBoard") For Each obj In objs sAns = sAns & "Serial Number: " & obj.SerialNumber & vbCrLf sAns = sAns & "Model: " & obj.product & vbCrLf If sAns < objs.Count Then sAns = sAns & "," Next 'Set objs = Nothing Set objs = WMI.InstancesOf("Win32_BIOS") For Each obj In objs sAns = sAns & "BIOS: " & obj.Manufacturer & vbCrLf Next MsgBox sAns End Sub

  Cafe via He: sửa hàm GETCPU của Noname chút. (Click to View)

  (11-11-10, 11:25 AM)Cafe Via He Đã viết: --------->>>> Sửa lại đoạn code GETCPU của Noname chút. Lấy CPU name và Manufacturer
  

  Mã:

  Sub GetCPUID() 'ta.o ðo^'i týo+.ng di.ch vu. WMI Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") 'ti`m các CPU ðang cha.y cu?a máy Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor") 'la(.p hie^?n thi. ID cu?a tu+`ng CPU For Each objItem In colItems MsgBox "Processor Id: " & objItem.ProcessorId & vbCrLf & _ "Proccess Name: " & objItem.Name & vbCrLf & _ "Manufacturer: " & objItem.Manufacturer Next End Sub

  
  



Chủ đề Mới nhất

slon10.to — Как использов... -Chuyên mục: MS Word-Đăng bởi lần cuối: Jamesguink-20 Phút 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: 145

Đồ 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: 564

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: 165

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: 471

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: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,589




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 đủ