Thủ Thuật Access

Trang chủ
- Thủ Thuật Access
- Trang chủ

101 reasons why i love you

Viết bởi: Noname
24-08-10, 11:00 PM
Chuyên mục: Quán cóc
- Bài trả lời (1)
101 reasons why i love you
1. I love the way we finish each other’s sentences.
2. I love the way I know you’ll never give up on me.
3. I love the fact that I wouldn’t ever give up on you.
4. I love the way you look at me.
5. I love how beautiful your eyes are.
6. I love the way I can’t imagine a day without you in my life.
7. I love the way if we were ever separated I wouldn’t know how to go on.
8. I love the way we cuddle and watch sunsets together.
9. I love the way we sometimes stay up all night and just talk, then watch the sunrise together.
10. I love how I know you’ll always be there when I need you to be.
11. I love the fact that I will always be there for you too.
12. I love how when I dream of my life partner, the only person that I can see is you.
13. I love how complete I feel when I am with you.
14. I love how our bodies just fit together.
15. I love the way you make me laugh.
16. I love the way you laugh.
17. I love the way you won’t compromise yourself when we are together.
18. I love the way you won’t let me compromise myself.
19. I love your thoughtfulness.
20. I love your tenderness.

21. I love your ability to speak without saying a single word.
22. I love the way we glance at each other across the room and know what each other is thinking.
23. I love the way, how even though we may be miles apart I still feel like you’re right here with me.
24. I love the way you surprise me with the perfect gifts that show you pay attention to me.
25. I love the way you’ll watch a sporting game with me even though you may not be interested in it.
26. I love the way you treat my friends.
27. I love your love for the things that interest me.
28. I love the way you let me live my life freely without jealousy.
29. I love how you demand respect but are not controlling.
30. I love how I would do anything in this world to make you happy.
31. I love how you would do anything in this world to make me happy.
32. I love the way your voice sounds over the phone.
33. I love the way your voice sounds when you whisper sweet nothings in my ear.
34. I love the completeness and oneness I feel when we make love.
35. I love your sensuality.
36. I love how our romance feels like the perfect romance movie.
37. I love how you are my soul mate.
38. I love the way you handle troubled times.
39. I love the way you respect me.
40. I love the way you protect and defend me.

41. I love how you feel when we cuddle.
42. I love the softness of your lips against mine.
43. I love the softness of you lips against my body.
44. I love the feeling of your hair brushing against me when we make love.
45. I love laying in bed at night talking about nothing.
46. I love waking up to find we’ve been cuddling together all night.
47. I love the surprises you leave for me.
48. I love your intelligence.
49. I love your ingenuity.
50. I love your ability to make friends where ever we go.
51. I love your love for life.
52. I love your passion for your hobbies and interests.
53. I love how every time I look at you, you take my breath away.
54. I love how I thank God everyday for bringing someone as wonderful as you into my life.
55. I love the fact you gave me the gift of our children.
56. I love the special moments that we shared that will remain my fondest memories of you and I.
57. I love spending the holidays with the one person I love the most.
58. I love how my heart skips a beat whenever you walk into the room.
59. I love how you love me.
60. I love how I love you.

61. I love the ways you choose to show your affection for me.
62. I love the way you inspire me to be more than I am.
63. I love the way you spark my creativity and imagination.
64. I love the way you make me feel like anything is possible as long as I’m with you.
65. I love your sense of humor.
66. I love the way you make me feel like royalty.
67. I love the way you dress.
68. I love your understated elegance.
69. I love you just the way you are.
70. I love your spontaneity.
71. I love our life together.
72. I love how if I died right now I would be the happiest person alive knowing I found my one true love.
73. I love the fact that we will grow old together.
74. I love your way with words.
75. I love the way you look when your sleeping.
76. I love the way you think you look awful when you first wake up when it is actually then I find you the most beautiful.
77. I love your willingness to share everything and most especially your heart with me.
78. I love your strength of character.
79. I love taking showers together.
80. I love the way you leave me love notes to find whenever you’re gone.

81. I love the way you treat me.
82. I love the way you take care of us.
83. I love your cooking.
84. I love the way you take the time to thank me for doing every day things.
85. I love the way you show your affection when we are around friends and/or family.
86. I love the way you are not scared to show your affection when we are in public.
87. I love your confidence.
88. I love your ability to make me feel better when times are tough.
89. I love the way we make up after a fight.
90. I love how you treat our children.
91. I love the way you support me when I’m off track.
92. I love the way you take the time to show me how much you love me.
93. I love your beautiful hair.
94. I love your body.
95. I love your openness to try new things.
96. I love your ability to talk things through.
97. I love your courage to be you.
98. I love your greatness.
99. I love the fact that you want to be with me and only me.
100. I love how I am and feel when I am with you!
101. I love you for you!

( sưu tầm)

Buộc user chờ 15 phút sau khi đăng nhập sai 5 lần

Viết bởi: Noname
24-08-10, 04:47 PM
Chuyên mục: Thư viện thủ thuật
- Bài trả lời (2)
Question :Thấy các diễn đàn chỉ cho đăng nhạp 5 lần,nếu sai thì 15 phút sau mới cho đang nhập lại.Thế thì mình nghĩ ra ý tương rằng,cái này chúng ta có thể áp dụng trong Form đăng nhập được không.Điều kiện:
Đăng nhập sai 5 lần thì dù có đăng nhập đúng đi chăng nữa cũng không vào đuợc CSDL.
Reply :
Xin giới thiệu bạn hàm Sleep( số miligiây) dùng để delay chương trình
Để dùng hàm nay, bạn phải khai báo API.
Tạo 1 module và khai báo API sau:

Mã:
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Trong form đăng nhập, bạn tạo 1 biến để đếm. Sau mỗi lần nhập pass nó sẽ đếm lên 1.

Mã:
dem=dem+1 If Dem mod 5 =0 then MsgBox "Sai Pass 5 lan, ban phai cho 15 phut moi duoc dang nhap" Sleep (1800000) End If

---------------------------------------------------------------------
Bạn cũng có thể lợi dụng timer của Form ( set interval 1000 )để đếm giờ bằng cách tạo 1 biến demgiay. Khi nhập pass sai lần thứ 5, thì demgiay=0.
Trong sự kiện timer , demgiay =demgiay +1
Như vậy. bắt đầu kiểm tra pass, bạn đặt điều kiện:

Mã:
If (dem mod 5 =0 ) and (demgiay < 180 =0) then msgbox " bạn nhap sai pass 5 lan, ban phai doi 15 phut moi nhap lai duoc, thoi gian con lai : " & 180 - demgiay & "giay" else ' doan code kiem tra pass dem = dem +1 demgiay=0 End If

Link table từ file Access có password

Viết bởi: Noname
24-08-10, 11:22 AM
Chuyên mục: Tương tác Chương trình ngoài
- Bài trả lời (2)
Hỏi : Tôi xây dựng chương trình có 2 file: 1 file để thực hiện các thao tác trên FORM và xử lý thông tin (DBSYS.mdb) và 1 file để lưu trữ dữ liệu(DBDATA.mdb)
- Để cho người khác không thể vào được các dữ liệu lưu trữ, tôi đặt pass vào file DBDATA.
- Tôi tạo biến về đường dẫn để có thể tùy ý người sử dụng thay đổi thư mục của chương trình. Khi thay đổi thư mục của chương trình, thì sẽ tự tạo lại các link đến các table trong DBDATA.
Vấn đề là: để thực hiện các lệnh link thì phải gõ pass. Nhưng mỗi một lệnh linktable, lại phải gõ pass một lần.
Các PRO xem có cách nào giúp tôi: đặt sẵn và dùng VBA tại file chính (DBSYS) có thể link table từ DBDATA mà không cần phải gõ pass không (chỉ có sử dụng lệnh trong DBSYS mới không yêu cầu pass, còn các hình thức khác đều yêu cầu pass)

Đáp:
Đầu tiên bạn kết nối với file ở dạng exclusive :

Mã:
Dim TempDb as Database     Dim P as String ' Password     P= "mypassword"     Set tempDB = OpenDatabase(CurrentProject.Path & "\" &  "DBDATA.MDB", True, False, "MS Access;PWD= " & p)

Sau đó xóa pass đi

Mã:
tempDB.NewPassword p, ""     tempDB.Close
Tiến hành liên kết table:

Mã:
DoCmd.TransferDatabase acLink, "Microsoft Access", CurrentProject.Path & "\" &"DBDATA.MDB", acTable, "TableName", "Tablename"
'Sau đó set password lại cho file Data

Mã:
Set tempDB = OpenDatabase(CurrentProject.Path & "\" & "DBDATA.MDB", True, False)     tempDB.NewPassword "", p     tempDB.Close     Set tempDB = Nothing

Chú ý : Khi sử dụng chương trình thì phải unSet Password đi. Và khi sử dụng xong hoặc có lỗi ta sẽ setPassword trở lại:
Bạn tạo thủ tục 1

Mã:
Sub setPass(oldPass as String, newPass As String)     Set tempDB = OpenDatabase(CurrentProject.Path & "\" & "DBDATA.MDB", True, False, "MS Access;PWD=" & oldPass)     tempDB.NewPassword oldPass, NewPass     tempDB.Close     End Sub

Như Vậy, khi cần xài dữ liệu, bạn gọi : setPass mypassword, "" mục đích xóa pass của file đi
Và khi sử dụng xong hoặc chương trình có lỗi, bạn nhớ setPass trở lại password gốc setPass "", mypassword
Xem Demo

Giáo Trình Access 2000- Nguyễn Sơn Hải

Viết bởi: Noname
23-08-10, 04:19 PM
Chuyên mục: Thư Viện Giáo Trình
- Bài trả lời (8)
Một giáo trình hay diễn giải chi tiết,với nhiều ví dụ sinh động,dễ hiểu bằng tiếng Việt 100% của Tác giả Nguyễn Sơn Hải rất thích hợp cho các bạn mới bắt đầu lập trình CSDL, đồng thời giúp bạn làm quen với VBA( visual basic for application), một ngôn ngữ thân thiện hỗ trợ hầu hết các ứng dụng của Microsoft.
DownLoad

Tự động tạo CSDL Access bằng VBA

Viết bởi: Noname
23-08-10, 04:17 PM
Chuyên mục: Thủ thuật VBA
- Bài trả lời (3)
Hôm trước tôi giới thiệu các bạn cách tạo 1 file MDB mớiđể xuất dữ liệu ra đó . Hôm nay xin giới thiệu các bạn cách tạo 1 file Access mới hoàn toàn, đồng thời thông qua VBA để tạo table cùng các field trực tiếp trên đó!

Ví dụ sau đây tạo một database có tên KeToan.MDB trong thư mục chứa database hiện hành, đồng thời tạo luôn một table có tên tbChungTu có cấu trúc:
Ngay_ChungTu (Date/Time), So_ChungTu (AutoNumber), Dien_Giai (Text, 30), Ho_Ten (Text, 25), So_Tien (Currency), Ghi_Chu (Memo)
Bạn hãy tạo một CSDL mới, thiết kế một form và vẽ nút lệnh có tên cmdCreateMDB, rồi gõ đoạn mã 1 vào thủ tục xử lý tình huống OnClick của nút lệnh đó. Xong, bạn mở form, thử bấm nút lệnh cmdCreateMDB để kiểm tra kết quả.

Mã:
Private Sub cmdCreateMDB_Click() Dim dbKeToan As Database' Khai báo đối tượng Database mới Dim tdfChungTu As TableDef' Khai báo đối tượng Table mới Dim sAppPath As String sAppPath = Me.Application.CurrentProject.Path Set wrkDefault = DBEngine.Workspaces(0) If Not (Dir(sAppPath & "\KeToan.mdb") <>"") Then Set dbKeToan = wrkDefault.CreateDatabase(sAppPath & "\KeToan.mdb", dbLangGeneral) Else Set dbKeToan = OpenDatabase(sAppPath & "\KeToan.mdb") End If ' Tạo đối tượng TableDef mới Set tdfChungTu = dbKeToan.CreateTableDef("tbChungTu") ' Thêm các field tdfChungTu.Fields.Append tdfChungTu.CreateField("Ngay_ChungTu", dbDate) tdfChungTu.Fields.Append tdfChungTu.CreateField("So_ChungTu", dbLong) tdfChungTu.Fields.Append tdfChungTu.CreateField("Dien_Giai", dbText, 30) tdfChungTu.Fields.Append tdfChungTu.CreateField("Ho_Ten", dbText, 25) tdfChungTu.Fields.Append tdfChungTu.CreateField("So_Tien", dbCurrency) tdfChungTu.Fields.Append tdfChungTu.CreateField("Ghi_Chu", dbMemo) ' Các thuộc tính bổ sung tdfChungTu.Fields!So_ChungTu.Attributes = dbAutoIncrField ' Thêm table mới vào database dbKeToan.TableDefs.Append tdfChungTu ' Đóng database dbKeToan.Close End Sub

Chủ đề Mới nhất

Dòng Video Youtube Ngâm N... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-3 Giờ trước- » Bài trả lời: 45- » Lượt xem: 389

NHỜ NÂNG CẤP CODE TÌM DỮ ... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: vandao-9 Giờ trước- » Bài trả lời: 11- » Lượt xem: 429

Trang thủ thuật Access ít... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: huyhoang22-Hôm qua, 08:41 AM- » Bài trả lời: 11- » Lượt xem: 268

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: huyhoang22-Hôm qua, 08:36 AM- » Bài trả lời: 57- » Lượt xem: 3,126

So Sánh Nước Hoa Chanel C... -Chuyên mục: Chuyện bốn phương-Đăng bởi lần cuối: EliHayes-22-12-24, 12:24 PM- » Bài trả lời: 0- » Lượt xem: 7

Tạo query tổng hợp dữ liệ... -Chuyên mục: Query-Đăng bởi lần cuối: ongke0711-19-12-24, 07:58 PM- » Bài trả lời: 1- » Lượt xem: 108

Test phần mềm QUẢN LÝ TÀI... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: AnNguyen-19-12-24, 05:33 PM- » Bài trả lời: 44- » Lượt xem: 5,200

A Bold Move to Expand the... -Chuyên mục: Query-Đăng bởi lần cuối: nigelbdhmp-19-12-24, 04:55 PM- » Bài trả lời: 0- » Lượt xem: 16

[Demo p2] Tìm kiếm và tô ... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: ledangvan-06-12-24, 02:53 PM- » Bài trả lời: 17- » Lượt xem: 1,965

File Sổ Quỹ Tiền Mặt cho ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: giauvnd-05-12-24, 04:35 PM- » Bài trả lời: 30- » Lượt xem: 3,684

Diễn đàn Thống kê

» Thành viên: 5,091
» Thành viên mới nhất: vandao
» Các chủ đề diễn đàn: 9,879
» Các bài viết diễn: 48,663

Thống kê đầy đủ

Thủ Thuật Access

Trang chủ