• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Thủ Thuật Access

• Trang chủ

  • Thủ Thuật Access
  • Trang chủ
•   Một chút lang thang...
  

  Viết bởi: Hạ Vàng 09-08-10, 09:55 PM Chuyên mục: Quán cóc - Bài trả lời (2)

• 
  
  
  Đi làm về, nó thường tha thẩn buông trôi đầu óc - bởi vì bao giờ nó cũng đã mệt rủ người mới đứng vậy, và bao giờ rồi nó cũng sẽ có vài việc phải tiếp tục sau bữa cơm....
  
  Ừ thì mệt! Ừ thì tha thẩn cho rủ bớt căng thẳng mệt mõi, cho quên đọan đường dài, đầy ổ gà, ổ voi và lô cốt. Đọan đường quen thuộc đến độ nó đi thành phản xạ, đến độ cứ lủi vô những cái đường bị bít lối để làm cống mà hồi sáng đã phải vòng ngược ra... Ui trời, đầu óc nó dạo này sao á.
  
  Chỉ có một đọan đường ngắn mà thường có thể lôi kéo nó trở về với thực tại để thưởng thức, không phải vì đường phẳng lì không kẹt - mà giờ kiếm được đọan nào như vậy cũng khó mà, nên cái thói quen chờ đợi điều đó cũng đã từ bỏ lâu rồi. Nó thích vì nơi đó nó đi ngang qua một quán bán hoa, đèn ướp mùi hương nhài thơm phức - cái hương thơm bao giờ cũng làm cho tâm hồn, suy nghĩ nó trở nên thanh thản vô cùng. Đi tới một chút là mùi sầu riêng...
  
  Nó không phải là đứa thích ăn sầu riêng lắm đâu. Nhưng sầu riêng đối với nó có nhiều chuyện để kể lắm. Có cả những chuyện mà nó được nghe kể từ thời Ba Mẹ nó...yêu nhau nữa cơ...
  
  Cắn múi sầu riêng dày cơm ngập cả răng, nó chợt bật cười khi nhớ tới anh bạn cùng cơ quan. Kể cũng ngộ, cơ quan chia phe ra, mấy chị thì thích mê sầu riêng, có mấy anh thì lại sợ cái mùi kỳ cục khó chịu ấy. Có hôm tranh cãi, một chị bị chọc tức bí quá, biểu: có muốn chiều nay tui mua sầu riêng đem vô phòng ăn hôn? Thế là anh bạn im ru. Trời ạ, ai mà biết được, mấy bà chừng giận biết đâu làm thiệt thì có mà nghỉ phép...
  
  ...Lạ nhỉ, cũng là sầu riêng, sao lại có người tận hưởng sự mềm mại, ngọt ngào, béo ngậy... Cắn một miếng nghe thơm nức - lại có người không thể chịu đựng được cái mùi ấy, nói chi là ăn để cảm nhận nó ra sao...
  
  ...Cũng lạ, khi cùng con đường gồ ghề, ổ gà ổ vịt, kẹt xe khỏi nhúc nhích, thiên hạ bực bội càm ràm, cằn nhằn như rươi - lại có người tha thẩn đủng đỉnh thả hồn ở đâu như bị dòng người cuốn đi chứ không phải họ đi (chắc như nó quá...)
  
  ....Và cũng là cuộc đời, sao có người có được việc làm tốt, công ty hỗ trợ, cho đi học hết khóa này tới lớp nọ - vậy mà cứ càm ràm sao cứ phải thế này, sao không là thế khác, sao bà sếp khó tính (trời ạ, sếp mà dễ tính chắc mấy nhân viên lười trốn việc hết ). Còn có người cứ thỏai mái chấp nhận, vui vẻ làm, không thèm so đo tính tóan chi mệt ngừơi. Sao mà nhìn họ thư thái ghê đi, không như nó tối ngày cứ như việc đuổi sát bên người á...
  
  Ừ nhỉ! Ngày mai trời có sập đâu...
  
  ...Ôi! Sầu Riêng... (viết hoa hay không hoa nhỉ?!)
  


•   Tạo đồng hồ trong Access
  

  Viết bởi: Noname 09-08-10, 02:19 AM Chuyên mục: Forms - Bài trả lời (4)

• Đó hỏi: Có cách nào để tạo đồng hồ trong chương trình Access (dưới dạng text box chẳng hạn) đồng bộ với đồng hồ máy tính?
  
  
  Đây trả lời: Bạn có thể sử dụng thuộc tính Timer Interval và thủ tục xử lý tình huống OnTimer. Cụ thể, trên form vẽ một text box có tên txtDongHo. Gán trị 1000 cho thuộc tính Timer Interval của form, rồi gõ đoạn mã 1 vào thủ tục xử lý tình huống OnTimer của form.
  Đoạn mã 1
  
  Mã:

  Private Sub Form_Timer() txtDongHo = Format(Hour(Time()), "00") & ":" & _ Format(Minute(Time()), "00") & ":" & _ Format(Second(Time()), "00") End Sub
  
  CHƯƠNG CAN CHÍP
  


•   Tạo report có chiều cao co dãn theo dữ liệu
  

  Viết bởi: Noname 09-08-10, 02:17 AM Chuyên mục: Report - Bài trả lời (19)

• Trong khi làm report. Có những dữ liệu vượt quá chiều ngang của field trình bày. Nhưng nếu ta set cho field đó có khả năng can grow thì nó sẽ nhảy dòng, làm lệch các khung ta đã canh chỉnh.Những người có kinh nghiệm giải quyết bằng cách chừa 1 khoảng trống đủ lớn để không bị "rớt dòng" đại loại như thế! Tuy nhiên, nếu không có dữ liệu nào thừa rớt dòng thì khoảng trống đó lãng phí trong report!
  
  Vấn đề đặt ra là làm cách nào để report có thể tự do dãn chiều cao ở mỗi dòng khác nhau cho phù hợp với dữ liệu
  
  Mình gợi ý theo một hướng khác là ta dùng hàm line để vẽ các đối tượng draw trên report, như vậy bạn sẽ có các đường kẻ đứng co dãn theo field.
  Dưới đây là ví dụ mình sẽ vẽ hai đường thẳng đứng tự co dãn, bạn về tùy biến cho phù hợp nha
  
  Code:
  
  
  Mã:

  Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) Me.Line (0, 0)-Step(0.01 * 567, 56 * 567), , BF Me.Line (3 * 567, 0)-Step(0.01 * 567, 56 * 567), , BF End Sub
  
  Copy dòng code vào thủ tục Detail_Print cuả report:
  - Bạn print preview sẽ có 2 đường thẳng rộng 0.01cm, chiều dài bằng chiều cao phần detail (đã co dãn, tối đa là 56cm). 2 đường có top-đỉnh là 0 cm, mép trái là 0cm và 3cm.
  
  - Code trong report của Access dùng đơn vị twip, 1cm=567twips
  Các đường ngang bạn chỉ cần vẽ 1 đường có Top=0, left=0 và chiều dài bằng chiều dài report ở phần detail.
  Copy 1 đường tương tự cho các Group Footer và Report Footer như vậy bạn đã có thể co giãn như ý rồi
  
  
  
  Download Demo
  


•   Khóa phím close trong Access
  

  Viết bởi: Noname 09-08-10, 02:15 AM Chuyên mục: Thư viện thủ thuật - Bài trả lời (3)

• Hỏi: Tôi đã cung cấp cho người dùng nút đóng trên chương trình Access của tôi và kh6ong muốn họ dùng nút nhất close(x) sẵn của Windows thì phải làm thế nào!
  
  Đáp:
  Bạn có thể ẩn nút close bằng đoạn code sau:
  
  
  Code:
  
  Private Const GWL_EXSTYLE = (-20)
  Private Const GWL_STYLE = (-16)
  
  Private Const WS_MAXIMIZEBOX = &H10000
  Private Const WS_MINIMIZEBOX = &H20000
  Private Const WS_SYSMENU = &H80000
  
  Private Const HWND_TOP = 0
  Private Const SWP_NOMOVE = &H2
  Private Const SWP_NOSIZE = &H1
  Private Const SWP_FRAMECHANGED = &H20
  Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED
  
  Private Declare Function SetWindowLong Lib "user32" _
  Alias "SetWindowLongA" (ByVal hwnd As Long, _
  ByVal nIndex As Long, ByVal dwNewLong As Long) _
  As Long
  Private Declare Function GetWindowLong Lib "user32" _
  Alias "GetWindowLongA" (ByVal hwnd As Long, _
  ByVal nIndex As Long) As Long
  Private Declare Function SetWindowPos Lib "user32" _
  (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
  ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
  ByVal cy As Long, ByVal wFlags As Long) As Long
  
  Sub HideAccessCloseButton()
  
  Dim lngStyle As Long
  
  lngStyle = GetWindowLong(hWndAccessApp, GWL_STYLE)
  lngStyle = lngStyle And Not WS_SYSMENU
  Call SetWindowLong(hWndAccessApp, GWL_STYLE, lngStyle)
  Call SetWindowPos(hWndAccessApp, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_DRAWFRAME)
  
  End Sub
  
  
  
  
  Bây giờ trong form Admin của bạn, bạn có thể tạo 1 nút nhấn và gọi hàm HideAccessCloseButton để ẩn nút close. Nếu vẫn chưa được. Hãy đ1ong Access và mở lại.
  
  Xem các hình
  Access trước khi ẩn nút
  
  
  
  
  
  Access sau khi ẩn nút
  
  
  


•   Mở nút Close(x) khi đã khóa
  

  Viết bởi: Noname 09-08-10, 02:12 AM Chuyên mục: Thư viện thủ thuật - Không có hồi đáp

• Hỏi: Theo hướng dẫn trên, tôi đã khoa nút close , giờ muốn mở lại thì làm thế nào?
  
  Đáp:
  Bạn tạo 1 Module mới với nội dung sau:
  
  
  Code:
  
  
  Mã:

  Private Const GWL_EXSTYLE = (-20) Private Const GWL_STYLE = (-16) Private Const WS_MAXIMIZEBOX = &H10000 Private Const WS_MINIMIZEBOX = &H20000 Private Const WS_SYSMENU = &H80000 Private Const HWND_TOP = 0 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOSIZE = &H1 Private Const SWP_FRAMECHANGED = &H20 Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED Private Declare Function SetWindowLong Lib "user32" _ Alias "SetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long, ByVal dwNewLong As Long) _ As Long Private Declare Function GetWindowLong Lib "user32" _ Alias "GetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long) As Long Private Declare Function SetWindowPos Lib "user32" _ (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _ ByVal x As Long, ByVal y As Long, ByVal cx As Long, _ ByVal cy As Long, ByVal wFlags As Long) As Long Sub UnHideAccessCloseButton() Dim lngStyle As Long lngStyle = GetWindowLong(hWndAccessApp, GWL_STYLE) lngStyle = lngStyle Or WS_SYSMENU Call SetWindowLong(hWndAccessApp, GWL_STYLE, lngStyle) Call SetWindowPos(hWndAccessApp, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_DRAWFRAME) End Sub
  
  Trong form Admin hãy tạo 1 nút để gọi hàm UnHideAccessCloseButton nhấn nút và đóng lại rồi xem kết quả nhé!
  



Chủ đề Mới nhất

Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,254

Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 125

Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 142

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 7,849

Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 145

Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 562

Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 164

Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 466

Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,589

TẠO THÔNG BÁO NHẮC NHỞ CÔ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM- » Bài trả lời: 2- » Lượt xem: 267




Diễn đàn Thống kê

» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ