• 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ướng Dẫn Tạo Menu Trong Access
  

  Viết bởi: Noname 26-08-10, 10:10 AM Chuyên mục: Thư Viện Giáo Trình - Bài trả lời (12)

• Có nhiều cách để tạo Menu!
  
  Sau đây, mình xin giới thiệu 1 tài liệu hướng dẫn tạo menu trong Access. Theo mình đánh giá là rất tốt và rõ ràng!
  DownLoad
  
  
  Bạn đã có các form công việc giờ bạn muốn tạo Thanh menu để chạy các form đó, hãy theo hướng dẫn sau:
  Mình dùng hình cho nhanh nhé, tuần tự theo các bước đánh số 1,2,3,...
  
  I – Tạo thanh menu
  
  
  
  
  
  
  
  
  
  II - Tạo menu Thoát từ menu Exit của hệ thống:
  
  
  
  
  
  
  
  III – Tạo menu Cập Nhật và các menu con
  
  
  
  
  
  
  
  Đổi tên menu mới “Custom” đó thành “Thêm Công văn”
  
  Tương tự tạo thêm menu “Danh sách Công văn” phía dưới menu “Thêm Công văn”
  
  * Tạo đường phân cách giữa các menu con:
  
  
  Đưa Thanh menu vào vị trí:
  
  
  
  
  
  IV – Đặt Action cho menu “Thêm Công văn” để mở form “frmCongVan”
  
  Với các thao tác trên menu “Thoát” đã dùng được rồi, bây giờ ta đặt Action cho menu “Thêm Công văn”  để khi bấm vào nó là mở form “frmCongVan”:
  
  
  
  
  Đặt tên nó là mcrThemCongVan
  
  
  
  
  
  
  Tương tự với các menu khác dùng để mở các form khác.
  


•   Đó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
  
  



Chủ đề Mới nhất

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: thaominhtam-11-09-25, 11:47 AM- » Bài trả lời: 69- » Lượt xem: 5,469

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

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

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: 12,946

(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: 113,413

Video Tự học Access ( Cơ ... -Chuyên mục: Thư Viện Giáo Trình-Đăng bởi lần cuối: Nguyễn Đình Thọ-21-07-25, 10:42 AM- » Bài trả lời: 7- » Lượt xem: 9,042

E chia sẽ Quản lý nhà trọ -Chuyên mục: Forms-Đăng bởi lần cuối: hoaithanh-18-07-25, 02:28 PM- » Bài trả lời: 0- » Lượt xem: 142

E xin chia sẻ kiểm phiếu ... -Chuyên mục: Forms-Đăng bởi lần cuối: hoaithanh-18-07-25, 09:17 AM- » Bài trả lời: 14- » Lượt xem: 854

Giải pháp Chuyển đổi từ đ... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-09-07-25, 09:52 PM- » Bài trả lời: 6- » Lượt xem: 203

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: gatayvn-08-07-25, 04:59 PM- » Bài trả lời: 31- » Lượt xem: 4,216




Diễn đàn Thống kê

» Thành viên: 6,401 » Thành viên mới nhất: JudithStel » Các chủ đề diễn đàn: 9,898 » Các bài viết diễn: 48,825 Thống kê đầy đủ