• 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ủ
•   Hỏi về: Hyperlink load file pdf rất chậm
  

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

• Chào các bạn,
  Mọi người cho mình hỏi: mình có 1 trường trong table để kiểu hyperlink. Dữ liệu khi add vào trường đó mình trỏ tới file pdf nhưng khi click vào link thì file load ra rất lâu.
  Nếu đưa link ra textbox rồi dùng hàm Shell("đường dẫn tới file reader.exe" & " đường dẫn tới file pdf") thì load nhanh bình thường.
  Bạn nào có hướng giải quyết không chỉ mình với. Mình dùng AdobeReader10.0 và Access2003.
  Many thanks
  


•   Dùng Eventprocedure để chạy Update Query từ Form ?
  

  Viết bởi: chanquayxoan 01-03-12, 01:34 AM Chuyên mục: Forms - Bài trả lời (2)

• Mình có 1 Main Form và 2 text box lấy từ 2 query.
  
  Mình có 1 bảng Table công nợ: Gồm các trường Số Phát Sinh , Thanh Toán, và Dư nợ.
  
  Để tính ra số Dư Nợ và ghi ngược số dư vào Table, mình dùng Update Query.
  
  Mình tạo 1 Form và gõ trực tiếp số Phát Sinh và Số Thanh Toán vào từ Form vào Table , dùng dsum có thể tính ra ngay được số txtDư nợ.
  Nhưng để đồng thời để nhìn được số Dư Nợ xuất hiện luôn trên Form và ghi ngay vào Table công nợ thì phải chạy Update Query. ( hì hì, kiểu này giống chạy excel quá )
  --> Ý tưởng mình là tạo 1 nút lệnh có thể phát lệnh chạy Update Query ngay trên Form.
  Các bạn giúp mình nhé.
  
  
  
  
  
  


• SHARE: Cách hiển thị cảnh báo bằng Unicode (không ảnh hưởng hệ thống)
  

  Viết bởi: bomnhauag 29-02-12, 08:02 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (3)

• Hi all!
  
  Hôm nay Long mạn phép trình bày cách của mình giải quyết vấn đề rất đau đầu khi lập trình trong AC, đó là cảnh báo bằng Tiếng Việt Unicode mà không ảnh hưởng tới/từ hệ thống. Có thể coi là triệt để.
  
  Ý tưởng như sau:
  
  1. Khi viết code chúng ta không thể dùng hàm: MsgBox("Lỗi rồi bạn ơi!") vì thằng VB không cho viết TV Unicode trong đó, cách của Long là: quăng câu Unicode đó vào CSDL (cụ thể là table: [T0 MESSAGE] như trong chương trình đính kèm) rồi truy xuất nó ra.
  
  2. Design lại hàm fcMsgBox thay cho MsgBox cổ lổ sỉ (cấu trúc dùng i chang) và thêm 1 hàm getMess(KEY as string) để lấy câu thông báo từ CSDL quăng cho fcMsgBox hiển thị.
  
  3. Long đã đính kèm 1 đoạn ngắn demo mấy cái này, các bạn cứ down về mổ xẻ và chia xẻ kinh nghiệm nhé!!!!
  
  Thân!
  
  DEMO
  


•   Sử dụng Dirty event của Form
  

  Viết bởi: huylam 29-02-12, 05:51 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (2)

• Chào các bạn!
  Mình đang gặp một vấn đề khi làm theo thí dụ của Microsoft MSDN online tại link này: http://msdn.microsoft.com/en-us/library/...e.11).aspx. Ý nghĩa demo của nó là khi thay đỗi dữ liệu trên form (có thể là các text box) thì nút Undo sẽ được bật lên cho phép người dùng có thể undo để lấy lại giá trị ban đầu của nó.
  
  Mình đã làm 2 trường hợp:
  
  Trường hợp 1: Làm giống theo source code Example(Sử dụng sự kiện Private Sub Form_Dirty(Cancel As Integer)):
  Nút Undo không bao giờ được bật vì Me.Dirty luôn luôn = false
  
  Sourde code:
  Private Sub Form_Dirty(Cancel As Integer)
  If Me.Dirty Then
  Me!btnUndo.Enabled = True ' Enable button.
  Else
  Me!btnUndo.Enabled = False ' Disable button.
  End If
  End Sub
  
  Sub btnUndo_Click()
  Dim ctlC As Control
  ' For each control.
  For Each ctlC in Me.Controls
  If ctlC.ControlType = acTextBox Then
  ' Restore Old Value.
  ctlC.Value = ctlC.OldValue
  End If
  Next ctlC
  End Sub
  
  Trường hợp 2: Thay thế Private Sub Form_Dirty() bằng event của 1 text box (DCHI : Địa chỉ) trên Form cho giống với giải thích của Microsoft (The following example enables the btnUndo button when data is changed. The UndoEdits( ) subroutine is called from the Dirty event of text box controls. Clicking the enabled btnUndo button restores the original value of the control by using the OldValue property.)
  Nút Undo được bật khi khi sự kiện Dirty của Textbox xảy ra ở lần thứ 2(Lần đầu khi thay đổi giá trị vẫn không bật lên vì Me.Dirty = false)
  
  Source Code:
  Private Sub DCHI_Dirty(Cancel As Integer)
  UndoEdits
  End Sub
  Sub UndoEdits()
  If Me.Dirty Then
  Me!btnUndo.Enabled = True ' Enable button.
  Else
  Me!btnUndo.Enabled = False ' Disable button.
  End If
  End Sub
  
  Private Sub btnUndo_Click()
  Dim ctlC As Control
  ' For each control.
  For Each ctlC In Me.Controls
  If ctlC.ControlType = acTextBox Then
  ' Restore Old Value.
  ctlC.Value = ctlC.OldValue
  End If
  Next ctlC
  End Sub
  --------------------------------------------
  Lưu ý thêm là khi mình debug thì trong cả 2 trường hợp khi xảy ra sự kiện thì giá trị của các text box mình vừa thay đổi trên form sẽ không lấy được trong Dirty Event, mà nếu không lấy được giá trị mới thì sao mà biết đường xử lý dữ liệu và ngăn không cho chỉnh sửa dữ liệu trên đó bằng cách set giá trị Cancel = true.
  
  Mình mong muốn là khi có bất kỳ thay đỗi dữ liệu trên các control trên form là nút undo sẽ được bật lên liền và ngược lại khi không có thay đỗi gì thì nút undo sẽ chìm xuống.
  
  Rất mong mọi người giải thích dùm và nếu ai biết rõ về sự kiện Dirty này có thể làm 1 demo khác dùm mình vì demo này thấy không ổn!
  Chân thành cảm ơn.
  


•   mình hỏi về vật tư xuất kho
  

  Viết bởi: bemit207 29-02-12, 04:07 PM Chuyên mục: Query - Bài trả lời (1)

• Chào mọi người, mình là thành viên mới, cũng đang tập tành access, mình đang sử dụng ac2003 , mình đang làm 1 dữ liệu về quản lý kho thức ăn gia súc ( cho gia đình ) nhưng có 1 việc mình không biết là access có thể làm được không và làm thế nào ( vì mình chưa hình dung được )xin moi người cho mình ý kiến ,nó là thế này :
  nhà mình tự trộn thức ăn chăn nuôi heo, trộn nhiều loại cám ( tùy giai đoạn của con heo ), mình muốn là khi mình xuất một số lượng cám thì trong kho sẽ tự giảm theo định mức đặt trước .
  vd : để 100kg cám heo Loại A : thì cần các nguyên liệu là : bắp 50kg, đậu nành 20kg,nguyen liệu B 30 kg ,
  thì khi mình làm phiếu xuất 200 kg cám loại A thì trong kho sẽ tự giảm các nguyên liệu xuống ( không qua form xuất kho cho các nguyên liệu ) .
  XIn mọi người cho ý kiến dùm, Access mình cũng lơ tơ mơ nên nếu câu hỏi có gì ko phải xin moi người thông cảm
  thank
  



Chủ đề Mới nhất

BetonRed se presenta como... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: BetonredSous-1 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1

Ứng dụng kiểm phiếu bầu c... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-28-12-25, 01:21 AM- » Bài trả lời: 0- » Lượt xem: 68

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: chuvanthom-08-12-25, 09:12 PM- » Bài trả lời: 2- » Lượt xem: 3,290

Demo - Tra cứu thông tin ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-16-11-25, 07:03 PM- » Bài trả lời: 26- » Lượt xem: 4,191

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: hoandokhai-18-10-25, 04:48 PM- » Bài trả lời: 70- » Lượt xem: 6,061

Thơ Nhạc Nhất Lang - Cảm ... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-09-10-25, 03:12 PM- » Bài trả lời: 1- » Lượt xem: 80

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: tt1212-09-09-25, 05:03 PM- » Bài trả lời: 32- » Lượt xem: 7,446

Thử nghiệm upload hình -Chuyên mục: Phòng thử nghiệm-Đăng bởi lần cuối: Noname-29-08-25, 09:44 AM- » Bài trả lời: 2- » Lượt xem: 765

Quản Lý Công Văn -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Adung-23-07-25, 10:05 AM- » Bài trả lời: 8- » Lượt xem: 13,083

(Update v.1.0.85 - 30/06/... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: Adung-22-07-25, 10:46 AM- » Bài trả lời: 270- » Lượt xem: 114,784




Diễn đàn Thống kê

» Thành viên: 8,480 » Thành viên mới nhất: f88vinacom1 » Các chủ đề diễn đàn: 9,900 » Các bài viết diễn: 48,830 Thống kê đầy đủ