Chào mừng, Khách
Bạn cần phải đăng ký trước khi bạn có thể đăng trên trang web của chúng tôi.

Tên người dùng
  

Mật khẩu
  





Diễn đàn Tìm kiếm

(Tìm kiếm nâng cao)

Diễn đàn Thống kê
» Thành viên: 3,347
» Thành viên mới nhất: mnavye207
» Các chủ đề diễn đàn: 8,710
» Các bài viết diễn: 38,367

Thống kê đầy đủ

Thành viên online
Hiện đang có 44 người dùng trực tuyến.
» 1 Thành viên | 40 Khách
AhrefsBot, Bing, Google, soluuhuong85

Chủ đề Mới nhất
Tạo form tìm kiếm theo nh...
Chuyên mục: Forms
Đăng bởi lần cuối: dangvanhoavc
11 Giờ trước
» Bài trả lời: 20
» Lượt xem: 14,787
Forms đăng nhập
Chuyên mục: Forms
Đăng bởi lần cuối: mrsiro
24-05-19, 05:37 PM
» Bài trả lời: 2
» Lượt xem: 88
Khong chon duoc "Property...
Chuyên mục: Forms
Đăng bởi lần cuối: Cuong Servenet
24-05-19, 03:14 PM
» Bài trả lời: 3
» Lượt xem: 173
Help ACE Sửa giúp em code...
Chuyên mục: Table
Đăng bởi lần cuối: Cuong Servenet
24-05-19, 02:45 PM
» Bài trả lời: 7
» Lượt xem: 337
Thơ Họa Nguyễn Thành Sáng...
Chuyên mục: Góc Thơ
Đăng bởi lần cuối: Nguyễn Thành Sáng
23-05-19, 10:44 PM
» Bài trả lời: 39
» Lượt xem: 513
Chuyển công thức ở chuỗi ...
Chuyên mục: Ms Excel
Đăng bởi lần cuối: Noname
23-05-19, 11:53 AM
» Bài trả lời: 0
» Lượt xem: 58
Bài tập excell
Chuyên mục: Bài tập Access
Đăng bởi lần cuối: Xuân Thanh
19-05-19, 02:28 PM
» Bài trả lời: 3
» Lượt xem: 138
Lỗi main form cần giúp đỡ
Chuyên mục: Forms
Đăng bởi lần cuối: ongke0711
18-05-19, 05:57 PM
» Bài trả lời: 5
» Lượt xem: 246
[Demo Phần 1] Tạo khóa bả...
Chuyên mục: Thư viện thủ thuật
Đăng bởi lần cuối: huan.backan1983
18-05-19, 03:50 PM
» Bài trả lời: 25
» Lượt xem: 3,128
Tạo key bản quyền gồm hạn...
Chuyên mục: Thư viện thủ thuật
Đăng bởi lần cuối: toidjtjmtoi
18-05-19, 09:11 AM
» Bài trả lời: 0
» Lượt xem: 67

 
  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

In mục này

  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:
[Hình: frmthongbao_thuoctinh.jpg]
Dung nhan Form thông báo của bạn sẽ thế này:
[Hình: frmthongbao.jpg]
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

In mục này

  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)
2. Lấy thông tin ổ cứng: (Click to View)
3. Lấy Serial Main Board (Click to View)
Phần sửa lỗi lấy thông tin mainboard của Cafe Via He (Click to View)
Cafe via He: sửa hàm GETCPU của Noname chút. (Click to View)

In mục này

  Chương trình quản lý kế toán của công ty Việt tiến soft
Viết bởi: Noname - 23-08-10, 01:24 AM - Chuyên mục: Thư Viện Ứng Dụng - Bài trả lời (5)

Share by: chihienphuco
pass: VTS
Download: Download

In mục này

  Template-Selling Your Ideas
Viết bởi: Noname - 22-08-10, 11:13 AM - Chuyên mục: Ms PowerPoint - Không có hồi đáp

[iframe]https://docs.google.com/present/view?id=ddjj65v9_117wr797ccw[/iframe]


In mục này

Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line| Phần mềm quản lý bán hàng, công nợ- tồn kho- nhà phân phối