• 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ủ
•   Đóng gói chương trình Access
  

  Viết bởi: Noname 26-08-10, 09:17 AM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (8)

• Nhiều bạn làm Access rất hay trăn trở làm thế nào đóng gói chương trình Access của mình cho trông nó chuyên nghiệp một tý.
  
  
  Nhân đây tôi cũng xin nhắc trước, cần phân biệt đóng gói với biên dịch thành file tự chạy độc lập nhé. Đóng gói chỉ giúp ta lôi các thành phần phụ, tạo shortcut và làm 1 số tác vụ hỗ trợ người dùng thôi
  Và xin giới thiệu mọi người chương trình đóng gói: CreateInstall Free
  
  Các bạn có thể down tại trang chủ DownLoad
  Hoặc tại ownLoad
  
  CreateInstall Free
  
  
  
  Output settings
  
  
  
  Dialog settings
  
  Setup files
  
  
  Uninstaller settings
  Installations
  
  Example #1
  
  
  Example #2
  
  
  Example #3
  
  
  Example #4
  
  


•   So Sanh chính Xác chữ Hoa- Thường trong Access
  

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

• Muốn so sánh chính xác từng ký tự một, hoa ra hoa, thường ra thường thì ở đầu trang module, thay câu lệnh Option Compare Database nếu có bằng Option Compare Binary là OK thôi.
  


•   Hàm đọc số dùng mã Unicode trong Access
  

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

• 
  Do môi trường VBA chưa hỗ trợ Unicode đầy đủ nên việc thiết lập hàm đọc số tiếng Việt với mã (font) Unicode trong Access cũng như Excel có khó khăn. Bài viết này giới thiệu một cách thiết lập hàm đọc số dùng font Unicode trong Access (bạn cũng có thể áp dụng trong Excel, VB...).
  
  
  Các bước thực hiện như sau:
  1. Mở CSDL Access.
  2. Tạo một form đặt tên là FormTam, trên FormTam tạo hai label:
  LabSo, nhập chuỗi: “không một hai ba bốn năm sáu bảy tám chín mốt lẻ lăm mươi mười trăm ”, cuối chuỗi có một khoảng trắng.
  LabDonvi, nhập chuỗi: “đồng. nghìn triệu tỷ”, cuối chuỗi cũng có khoảng trắng.
  3. Trong Module, nhấn New để tạo mới một module với tên mặc định là Module1. Sau đó nhấn Design để vào cửa sổ soạn code và nhập đoạn mã sau:
  Khai báo 2 biến toàn cục là 2 mảng chứa chuỗi ký tự số và chuỗi đơn vị được lấy từ LabSo và LabDonvi thông qua thủ tục Docchu và Docdonvi.
  
  Mã:

      Public Solay(0 To 15) As String     Public Donvilay(0 To 4) As String     Private Sub Docchu() 'Lấy chuỗi chữ số từ LabSo đặt vào mảng Solay     Dim tp, Stp, ii     ii = 0: tp = Form_FormTam.LabSo.Caption     Stp = InStr(tp, “ “)     Do While Stp <> 0     Solay(ii) = Left(tp, Stp)     tp = Right(tp, Len(tp) - Stp)     1Stp = InStr(tp, “ “)     ii = ii + 1     Loop     End Sub
  '''''
  
  
  Mã:

      Private Sub Docdonvi() 'Lấy chuỗi đơn vị từ LabDonvi đặt vào mảng Donvilay     Dim tp, Stp, ii     ii = 0: tp = Form_FormTam.LabDonvi.Caption     Stp = InStr(tp, “ “)     Do While Stp <> 0     Donvilay(ii) = Left(tp, Stp)     tp = Right(tp, Len(tp) - Stp)     Stp = InStr(tp, “ “)     ii = ii + 1     Loop     End Sub
  
      'Tạo hàm đọc số:
  
  
  
  Mã:

    Public Function DocVND(Sodoc As String) As String     If Len(Sodoc) > 12 Then     DocVND = “So qua lon qua hang tram ty. Hay xem lai!”     Exit Function     End If     Sodoc = Round(Sodoc, 0)     Dim Cht As String     Dim fg0 As Boolean     Dim fg1 As Boolean     Dim So As String     Dim ch As String     Dim tp As String     Dim i As Byte     Dim dv     Dim chs     Docchu Gọi hàm đọc chữ số     chs = Solay     Docdonvi Gọi hàm đọc đơn vị     dv = Donvilay     Do While Sodoc <> “”     Cht = “”     If Len(Sodoc) <> 0 Then     If (Len(Sodoc) >= 3) Then     So = Right(Sodoc, 3)     Else     So = Right(Sodoc, Len(Sodoc))     End If     Sodoc = Left(Sodoc, Len(Sodoc) - Len(So))     If Left(So, 1) = “0” And Mid(So, 2, 1) = “0” And Right(So, 1) = “0” Then     ch = ch     Else     If Len(So) = 3 Then     If Left(So, 1) <> “ “ Then     Cht = chs(Left(So, 1)) + chs(15)     End If     So = Right(So, 2)     End If     If Len(So) = 2 Then     If Left(So, 1) = “0” Then     If Right(So, 1) <> “0” Then     Cht = Cht + chs(11)     End If     fg0 = True     Else     If Left(So, 1) = “1” Then     Cht = Cht + chs(14)     Else     Cht = Cht + chs(Left(So, 1)) + chs(13)     fg1 = True     End If     End If     So = Right(So, 1)     End If     If Right(So, 1) <> 0 Then     If Left(So, 1) = “5” And Not fg0 Then     If Len(tp) = 1 Then     Cht = Cht + chs(4)     Else     Cht = Cht + chs(12)     End If     Else     If Left(So, 1) = 1 And Not (Not fg1 Or fg0) And Cht <> “” Then     Cht = Cht + chs(10)     Else     Cht = Cht + chs(Left(So, 1))     End If     End If     End If     ch = Cht + dv(i) + ch     End If     i = i + 1     End If     Loop     If Right(Trim(ch), 1) <> “.” Then     ch = ch + dv(0)     End If     DocVND=UCase(Left(ch, 1))&Mid(ch,2)     End Function
  
  Ở đây tôi không phân tích hàm đọc số bởi TGVT đã có bài về vấn đề này (TGVT A 3/2001, t.76; 7/2001, t.88).
  4. Sử dụng hàm DocVND
  Tạo một Textbox có tên là Text1, nhấn phải lên Text1 chọn Build Event, trong Choose Builder chọn Code Builder và nhấn OK. Cửa sổ Microsoft VB hiện ra, nhập đoạn code sau:
  
   
  Mã:

  Private Sub Text1_BeforeUpdate(Cancel As Integer)     Ketqua.Caption = DocVND(Text1.Text)     End Sub
  
  Mở form, nhập vào các con số và gõ Enter, bạn sẽ có kết quả như hình. Mã nguồn chương trình có thể tải về tại website của TGVT – PCW VN.
  
  DownLoad Demo
  
  -------------------------------------
  Trên đây là bài mình đăng nguyên văn từ báo PC-Word. Mình cũng xin góp ý với chương trình này : Thay vì làm bước:
  
  
      2. Tạo một form đặt tên là FormTam, trên FormTam tạo hai label:
      LabSo, nhập chuỗi: “không một hai ba bốn năm sáu bảy tám chín mốt lẻ lăm mươi mười trăm ”, cuối chuỗi có một khoảng trắng.
      LabDonvi, nhập chuỗi: “đồng. nghìn triệu tỷ”, cuối chuỗi cũng có khoảng trắng.
  
  Ta có thể thay bằng cách tạo 1 table và lưu các giá trị trên vào. Sau đó gọi ra bằng 1 biến chuỗi hoặc hàm Dlookup tùy ý. Như vậy, ta có thể gọi hàm đọc số bất cứ đâu mà không cần tạo formTam
  


•   Đặt Report Footer luôn nằm ở cuối của trang cuối cùng
  

  Viết bởi: Noname 25-08-10, 08:18 PM Chuyên mục: Report - Không có hồi đáp

• Giả sử bạn muốn đặt Textbox Txt01 luôn nằm ở cuối của trang cuối cùng. Đừng đặt nó ở Report Footer mà đặt ở Page Footer và thêm đoạn code sau :
  
  Mã:

  Private Sub PageFooter_Format(Cancel As Integer, FormatCount As Integer) if Me.Page = Me.Pages then Me.Txt01.Visible = True else Me.Txt01.Visible = False End Sub
  
  


•   Xử lý hiện thông báo khi không nhập dữ liệu vào texbox
  

  Viết bởi: Noname 25-08-10, 08:10 PM Chuyên mục: Forms - Bài trả lời (2)

• Bạn sử dụng event on Lost Focus của textbox muốn ktra. Khi thoát khỏi thì check có IsNull hay kô? nếu IsNull là true thì quay lại ô đó textbox.SetFocus
  
  
  Vd: bạn có textbox Date
  
  
  Mã:

  Private Sub txtDate_LostFocus() If IsNull(txtDate) Then MsgBox "Ban phai nhap ngay vao o nay", vbCritical, "Thong bao" txtDate.SetFocus Cancel = True End Sub
  
  



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,255

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: 564

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: 165

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: 471

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 đủ