paulsteigel > 29-03-14, 03:49 PM
danhxetnghiem > 30-03-14, 10:50 AM
(29-03-14, 03:49 PM)paulsteigel Đã viết: Liên kết tải về giống như các bài trước, nhưng để tiện lợi, tôi post lại luôn
http://www.sfdp.net/thuthuataccess/thuth...ects=0&d=1
Mình có thêm chức năng hiển thị ảnh vừa chụp!
Xin chân thành cảm ơn!
danhxetnghiem > 01-04-14, 02:13 PM
(29-03-14, 03:49 PM)paulsteigel Đã viết: Mình xin lỗi, vô tình hôm qua lúc xử lý form StartUp mình quên mất việc đưa vào thủ tục kiểm tra tham chiếu của bộ thư viện.
Hiện tại, mình đã sửa lại cơ chế kiểm tra đăng ký điều khiển Camera. Chương trình sẽ tự động kiểm tra xem trong máy tính của bạn đã có bộ thư viện và điều khiển chưa, nếu chưa thì sẽ tự giải nén trong cơ sở dữ liệu kèm theo (bảng tblRef) và đăng ký điều khiển + bộ thư viện liên quan.
Để chương trình chạy được, các bạn cần thiết lập chế độ an ninh Macro ở mức trung bình hoặc chấp nhận chạy Macro. Cái này chắc đa số các bạn đều biết nên tôi sẽ không hướng dẫn nữa.
Đây là chương trình tôi sửa từ một ứng dụng khác của mình nên code cũng có phần lằng nhằng, đặc biệt là phần khởi động ban đầu.
Liên kết tải về giống như các bài trước, nhưng để tiện lợi, tôi post lại luôn
http://www.sfdp.net/thuthuataccess/thuth...ects=0&d=1
Mình có thêm chức năng hiển thị ảnh vừa chụp!
Xin chân thành cảm ơn!
Salomon > 01-04-14, 03:09 PM
(01-04-14, 02:13 PM)danhxetnghiem Đã viết: Được rồi Bạn àh, kết nối được với máy siêu âm rồi, vui quá đi, nhưng bên cạnh niềm vui đó thì còn nhiều cái cần phải suy nghĩ và tập tà làm để viết được cái phần mềm siêu âm này, một lần nữa rất cảm ơn bạn! Mình sẽ tiến hành vào công đoạn viết phần mềm siêu âm, nhưng có rât nhiều thắc mắc về nhiều vấn đề khác của phần mềm này, mình sẽ hỏi ở chủ đề khác!
paulsteigel > 01-04-14, 04:00 PM
(29-03-14, 02:51 PM)danhxetnghiem Đã viết: Được rồi Bạn àh, kết nối được với máy siêu âm rồi, vui quá đi, nhưng bên cạnh niềm vui đó thì còn nhiều cái cần phải suy nghĩ và tập tà làm để viết được cái phần mềm siêu âm này, một lần nữa rất cảm ơn bạn! Mình sẽ tiến hành vào công đoạn viết phần mềm siêu âm, nhưng có rât nhiều thắc mắc về nhiều vấn đề khác của phần mềm này, mình sẽ hỏi ở chủ đề khác!
danhxetnghiem > 01-04-14, 05:11 PM
(01-04-14, 03:09 PM)Salomon Đã viết:(01-04-14, 02:13 PM)danhxetnghiem Đã viết: Được rồi Bạn àh, kết nối được với máy siêu âm rồi, vui quá đi, nhưng bên cạnh niềm vui đó thì còn nhiều cái cần phải suy nghĩ và tập tà làm để viết được cái phần mềm siêu âm này, một lần nữa rất cảm ơn bạn! Mình sẽ tiến hành vào công đoạn viết phần mềm siêu âm, nhưng có rât nhiều thắc mắc về nhiều vấn đề khác của phần mềm này, mình sẽ hỏi ở chủ đề khác!
Chúc mừng danhxetnghiem nha. Sal chưa cài thử trên desktop PC có siêu âm nên chưa thử được gì. Hix. Khi nào danhxetnghiem làm được thì chia sẻ cho Sal và mọi người nha
(01-04-14, 04:00 PM)paulsteigel Đã viết:(29-03-14, 02:51 PM)danhxetnghiem Đã viết: Được rồi Bạn àh, kết nối được với máy siêu âm rồi, vui quá đi, nhưng bên cạnh niềm vui đó thì còn nhiều cái cần phải suy nghĩ và tập tà làm để viết được cái phần mềm siêu âm này, một lần nữa rất cảm ơn bạn! Mình sẽ tiến hành vào công đoạn viết phần mềm siêu âm, nhưng có rât nhiều thắc mắc về nhiều vấn đề khác của phần mềm này, mình sẽ hỏi ở chủ đề khác!
Chúc mừng bạn! Nếu có gì cần giúp đỡ, bạn cứ liên lạc và đặt câu hỏi. Mail của tôi là ngocdd@sfdp.net! Hy vọng bạn sẽ đi tiếp với khởi đầu này!
Thân!
danhxetnghiem > 13-04-14, 04:03 PM
meocon11 > 14-11-14, 03:10 PM
paulsteigel > 14-11-14, 09:14 PM
Private Sub RemoveKey()
On Error Resume Next
Dim strComputer As String, strKeyPath As String, arrSubkeys As Variant, objSubkey As Variant, objRegistry As Object
Const HKEY_CURRENT_USER = &H80000001
'[HKEY_CURRENT_USER\System\CurrentControlSet\Control\ado_vc5]
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "System\CurrentControlSet\Control"
objRegistry.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubkeys
For Each objSubkey In arrSubkeys
If InStr(UCase(objSubkey), "ADO_VC") Then objRegistry.DeleteKey HKEY_CURRENT_USER, strKeyPath & "\" & objSubkey
Next
Set objRegistry = Nothing
End Sub
meocon11 > 14-11-14, 10:28 PM