• 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

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: thaominhtam-11-09-25, 11:47 AM- » Bài trả lời: 69- » Lượt xem: 5,469

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,108

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

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: 12,946

(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: 113,413

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,042

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

E xin chia sẻ kiểm phiếu ... -Chuyên mục: Forms-Đăng bởi lần cuối: hoaithanh-18-07-25, 09:17 AM- » Bài trả lời: 14- » Lượt xem: 854

Giải pháp Chuyển đổi từ đ... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-09-07-25, 09:52 PM- » Bài trả lời: 6- » Lượt xem: 203

File Sổ Quỹ Tiền Mặt cho ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: gatayvn-08-07-25, 04:59 PM- » Bài trả lời: 31- » Lượt xem: 4,216




Diễn đàn Thống kê

» Thành viên: 6,399 » Thành viên mới nhất: Jun88topnet » Các chủ đề diễn đàn: 9,898 » Các bài viết diễn: 48,825 Thống kê đầy đủ