honglv157 > 14-09-15, 04:07 PM
tranthanhan1962 > 14-09-15, 04:52 PM
(14-09-15, 04:07 PM)honglv157 Đã viết: chương trình ac của e gặp phải vấn đề này:
- Không cần đăng nhập vẫn truy cập được vào thanh menu?
- Em định sử dụng replica để chạy chương trình của em trong mạng nội bộ. Ví dụ file gốc và sẽ tạo ra nhiều filr replica để cài các máy con. Cuối ngày em sẽ vào to ol/Replica/Synchronie now để cập nhật lại các dữ liệu ở các máy con. Thế có cách nào làm ngược lại không ah.tức là em nhập dữ liệu vào file gốc và em muốn truyền dữ liệu mới nhập này vào các file replica.
- Như trong trường hợp của em, để bảo mật cơ sở dữ liệu thì nên khóa phím shilft hay ẩn đi (dùng start up)? Em đi thử cách ẩn:đơn giản nhưng sau khi ẩn em không biết cách nào để gọi cơ sở dữ liệu lại.
http://www.mediafire.com/download/1t0dyz...BB%A3p.rar
Mong sự giúp đỡ của mọi người trong diễn đàn.Thanks
Public Function Disable_ShiftKey()
Dim db As Database
Dim prp, prptest As Property
On Error GoTo Err_Handler
Set db = CurrentDb
For Each prptest In db.Properties
If prptest.Name = "AllowBypassKey" Then
db.Properties.Delete "AllowBypassKey"
Exit For
End If
Next prptest
Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, False, True)
db.Properties.Append prp
db.Properties.Refresh
MsgBox "Phim Shift da khoa!", vbInformation
Set db = Nothing
Set prp = Nothing
Err_Exit:
Exit Function
Err_Handler:
MsgBox "Error " & Err.Number & " ! " & Err.Description, vbCritical
Resume Err_Exit
End Function
Public Function Enable_ShiftKey()
Dim db As Database
Dim prp, prptest As Property
On Error GoTo Err_Handler
Set db = CurrentDb
For Each prptest In db.Properties
If prptest.Name = "AllowBypassKey" Then
db.Properties.Delete "AllowBypassKey"
Exit For
End If
Next prptest
Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, True, True)
db.Properties.Append prp
db.Properties.Refresh
MsgBox "Phim Shift da mo!", vbInformation
Set db = Nothing
Set prp = Nothing
Err_Exit:
Exit Function
Err_Handler:
MsgBox "Error " & Err.Number & " ! " & Err.Description, vbCritical
Resume Err_Exit
End Function
Call Disable_ShiftKey
Call Enable_ShiftKey
honglv157 > 15-09-15, 10:09 AM
tranthanhan1962 > 15-09-15, 11:56 AM
(15-09-15, 10:09 AM)honglv157 Đã viết: cho e hỏi thêm về vấn đề 2:
nếu e chỉ muốn update số liệu từ 2table/5table từ file gốc sang các file repicate.có cách nào k a?
honglv157 > 16-09-15, 01:17 PM
tranthanhan1962 > 16-09-15, 06:04 PM
(16-09-15, 01:17 PM)honglv157 Đã viết: File design master là file nào anh nhỉ!khi em replica em thấy có 3 file: file gốc, file có đuôi bak và file tạo thành do replica. Nhưng khi em vào design form của file gốc, lại hiện thông báo: You can't modify the design o f from at a replica.De sign change the repicated objects can be made only at the design master. do you want to open at this ready-only?
Vậy rút cục file design master là file nào ạh?