anhduyks1 > 05-03-15, 08:57 PM
maidinhdan > 05-03-15, 09:20 PM
(05-03-15, 08:57 PM)anhduyks1 Đã viết:
Làm theo cách bạn thì khi mình bỏ hết dấu track thì khi vào lại không có mất thanh menu bar và nút bấm ( cái này mình làm lại ko cho load forum mà dùng click hoạt động giống được ) nhưng khi bấm bỏ hết dấu track ko ăn nhầm vào gì hết
Function ChangeProperty(strPropName, varPropType, varPropValue)
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_XuLyLoi
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_KetThuc:
Exit Function
Change_XuLyLoi:
'Thuô?c tính không thâ?y
If Err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
'Không co? thuô?c ti?nh ?o?
ChangeProperty = False
Resume Change_KetThuc
End If
End Function
SercurityDB True
ChangeProperty "StartupForm", dbText, ""
ChangeProperty "BuiltinToolbars", dbText, "(default)"
khải nguyên > 05-03-15, 09:20 PM
maidinhdan > 05-03-15, 09:28 PM
(05-03-15, 09:20 PM)maidinhdan Đã viết:
Làm theo cách bạn thì khi mình bỏ hết dấu track thì khi vào lại không có mất thanh menu bar và nút bấm ( cái này mình làm lại ko cho load forum mà dùng click hoạt động giống được ) nhưng khi bấm bỏ hết dấu track ko ăn nhầm vào gì hết
Function ChangeProperty(strPropName, varPropType, varPropValue)
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_XuLyLoi
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_KetThuc:
Exit Function
Change_XuLyLoi:
'Thuô?c tính không thâ?y
If Err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
'Không co? thuô?c ti?nh ?o?
ChangeProperty = False
Resume Change_KetThuc
End If
End Function
SercurityDB True
ChangeProperty "StartupForm", dbText, ""
ChangeProperty "BuiltinToolbars", dbText, "(default)"
Trần Minh Đức > 14-07-15, 10:08 PM
maidinhdan > 14-07-15, 10:50 PM
(14-07-15, 10:08 PM)Trần Minh Đức Đã viết: Có ai có phần mềm của quản lý đoàn viên này nữa không? chia sẻ giúp e với. của khánh duy này này
Trần Minh Đức > 14-07-15, 11:02 PM
maidinhdan > 14-07-15, 11:07 PM
Trần Minh Đức > 15-07-15, 07:25 AM
Trần Minh Đức > 15-07-15, 11:20 AM
(14-07-15, 11:07 PM)maidinhdan Đã viết: Do tác giả sử dụng một số thư viện DLL trên một số máy không có nên có hiện tượng đăng nhập không được. Bạn vào thư viện tắt đi cái nào có chữ đầu có: Missing là xong
Đè phím shift cũng được.