garupro > 05-02-12, 05:03 PM
http://www.mediafire.com/?kuaad5hdzu2gcbx
Trích dẫn:Quản lý công việc V1.0
Trích dẫn:Quản lý công việc V2.0
bwomdem > 19-03-12, 11:17 PM
bvchauthanh > 20-03-12, 09:56 AM
KínhCận > 20-03-12, 09:56 AM
khanhduycsgt > 31-03-12, 01:02 PM
garupro > 01-04-12, 07:09 PM
(31-03-12, 01:02 PM)khanhduycsgt Đã viết: Khâm phục khả năng lập trình của bạn, mình cũng đang "mở hộp" cái chương trình của bạn, có vài chỗ mình vẫn chưa hiểu lắm như chỗ tìm kiếm nhập từ khóa rồi nhấn Enter để lọc trên subform, mình vào xem code thì không thấy có mối quan hệ gì giữa textbox ghi từ khóa tìm kiếm và subform, thế mà khi nhập từ khóa nhấn Enter là subform lại lọc ra được đúng như trong từ khóa, bạn có thể nói cho mình biết bạn làm form tìm kiếm đó như thế nào không?
etzino1989 > 12-11-12, 02:00 AM
garupro > 16-11-12, 07:39 PM
(12-11-12, 02:00 AM)etzino1989 Đã viết:
sao mình tải về mà nó là tập tin .rar thế nhỉ
phần mềm này áp dụng cho online hay offline vậy nhỉ
Thanh Phương > 17-11-12, 11:33 AM
Public Function AddAppProperty(strName As String, varType As Variant, varValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
Set dbs = CurrentDb()
On Error GoTo AddProp_Err
dbs.Properties(strName) = varValue
AddAppProperty = True
AddProp_Bye:
Exit Function
AddProp_Err:
If Err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(strName, varType, varValue)
dbs.Properties.Append prp
Resume
Else
AddAppProperty = False
Resume AddProp_Bye
End If
End Function
garupro > 22-11-12, 12:21 AM
(17-11-12, 11:33 AM)Thanh Phương Đã viết: Tôi không cài đặt, chỉ mở file để xem. Phải nói là chương trình rất công phu. Nếu thực sự là vơi quỹ thời gian như thế mà có đươc một sản phẩm như vậy thì đáng khâm phục
Do không cài đặt nên không biết chương trình có bị lỗi không, chỉ góp ý về hàm và biến
Trong form CaiDat
Mã PHP:Public Function AddAppProperty(strName As String, varType As Variant, varValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
Set dbs = CurrentDb()
On Error GoTo AddProp_Err
dbs.Properties(strName) = varValue
AddAppProperty = True
AddProp_Bye:
Exit Function
AddProp_Err:
If Err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(strName, varType, varValue)
dbs.Properties.Append prp
Resume
Else
AddAppProperty = False
Resume AddProp_Bye
End If
End Function
Định nghĩa hàm là Integer Nhưng sao lại cho giá trị của nó là Bolean?
Đôi lơi cùng bạn, có gì sai mong lượng thứ
Thân mến