Chào mừng, Khách
Bạn cần phải đăng ký trước khi bạn có thể đăng trên trang web của chúng tôi.

Tên người dùng
  

Mật khẩu
  





Diễn đàn Tìm kiếm

(Tìm kiếm nâng cao)

Diễn đàn Thống kê
» Thành viên: 3,380
» Thành viên mới nhất: ture-kishا
» Các chủ đề diễn đàn: 8,689
» Các bài viết diễn: 38,164

Thống kê đầy đủ

Thành viên online
Hiện đang có 47 người dùng trực tuyến.
» 2 Thành viên | 41 Khách
AhrefsBot, Bing, Google, Google-AdSense, jason, soluuhuong85

Chủ đề Mới nhất
Cách tăng tốc độ Copy Pas...
Chuyên mục: Tương tác Chương trình ngoài
Đăng bởi lần cuối: ongke0711
11 Giờ trước
» Bài trả lời: 6
» Lượt xem: 201
[Góc thơ] THAO THỨC
Chuyên mục: Góc Thơ
Đăng bởi lần cuối: Nguyễn Thành Sáng
Hôm qua, 09:17 PM
» Bài trả lời: 895
» Lượt xem: 97,240
Tạo MeNu Form bằng Naviga...
Chuyên mục: Thư viện thủ thuật
Đăng bởi lần cuối: Xuân Thanh
Hôm qua, 05:34 PM
» Bài trả lời: 5
» Lượt xem: 200
Thay đổi logo trong table
Chuyên mục: Forms
Đăng bởi lần cuối: Bao Khang
19-04-19, 03:58 PM
» Bài trả lời: 2
» Lượt xem: 114
Gộp 2 query có cũng MaKH
Chuyên mục: Query
Đăng bởi lần cuối: vuthaiha90
18-04-19, 02:41 PM
» Bài trả lời: 2
» Lượt xem: 146
Liên kết textbox với List
Chuyên mục: Forms
Đăng bởi lần cuối: vietnc
17-04-19, 11:29 AM
» Bài trả lời: 10
» Lượt xem: 513
Tạo MeNu Form(Bài 2) : Th...
Chuyên mục: Thư viện thủ thuật
Đăng bởi lần cuối: Xuân Thanh
17-04-19, 10:29 AM
» Bài trả lời: 0
» Lượt xem: 77
Trộn văn bản Word từ dữ l...
Chuyên mục: Tương tác Chương trình ngoài
Đăng bởi lần cuối: Xuân Thanh
17-04-19, 10:02 AM
» Bài trả lời: 15
» Lượt xem: 473
lấy dữ liệu từ query sang...
Chuyên mục: Table
Đăng bởi lần cuối: ongke0711
15-04-19, 08:35 PM
» Bài trả lời: 9
» Lượt xem: 803
Mong giúp đỡ về form logi...
Chuyên mục: Forms
Đăng bởi lần cuối: ongke0711
15-04-19, 07:10 PM
» Bài trả lời: 8
» Lượt xem: 347

 
  Tùy biến Tiêu Đề Report
Viết bởi: Noname - 26-08-10, 10:14 AM - Chuyên mục: Report - Không có hồi đáp

Question: Tôi có 1 report chia làm nhiều group. Mỗi cuối group tôi dùng page break để sang trang. Tôi muốn vài thông tin Page header chỉ hiển thị khi sang group mới.


Reply : Bạn có thể lợi dụng ô Số thứ tự trong report khi set giá trị Control Soure=1 và thuộc tính Running Sum: Over Group . Đặc điểm ô này khi nhảy qua Group mới nó sẽ reset lại giá trị là 1 và tăng dần sau mỗi record thuộc group đó.
rong sự kiện format của page. Bạn có thể set cho tiêu đề visible true/ false. Cụ thể trong ví dụ của bạn, bạn viết thế này:

Mã:
Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
If SOKU.Value = 1 Then
Label590.Visible = True
Label586.Visible = True
Else
Label590.Visible = False
Label586.Visible = False
End If
End Sub
Demo: Dowload

In mục này

  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
[Hình: File?id=ddjj65v9_15g78zvccg_b]



[Hình: File?id=ddjj65v9_16gch64ncs_b]

[Hình: File?id=ddjj65v9_17cjpbhndx_b]


II - Tạo menu Thoát từ menu Exit của hệ thống:

[Hình: File?id=ddjj65v9_18c29d26cd_b]

[Hình: File?id=ddjj65v9_19dcjxddg9_b]



III – Tạo menu Cập Nhật và các menu con

[Hình: File?id=ddjj65v9_20cbct7jfs_b]

[Hình: File?id=ddjj65v9_21f6jsg2cv_b]

[Hình: File?id=ddjj65v9_22gvvj6wc3_b]

Đổ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:

[Hình: File?id=ddjj65v9_33dfj869fg_b]
Đưa Thanh menu vào vị trí:
[Hình: File?id=ddjj65v9_34fbjdqqf6_b]
[Hình: File?id=ddjj65v9_35hmp7mmcg_b]



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”:
[Hình: File?id=ddjj65v9_36c5hh5bgj_b]

[Hình: File?id=ddjj65v9_37c8fwtpct_b]

Đặt tên nó là mcrThemCongVan
[Hình: File?id=ddjj65v9_38ghzgfhcn_b]

[Hình: File?id=ddjj65v9_39gsjqzffn_b]

[Hình: File?id=ddjj65v9_40hgtwpdg5_b]

Tương tự với các menu khác dùng để mở các form khác.

In mục này

  Đó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 big greenownLoad

CreateInstall Free
[Hình: cif1.png]


Output settings
[Hình: cif2.png]


Dialog settings
[Hình: cif3.png]
Setup files
[Hình: cif4.png]

Uninstaller settings
Installations
[Hình: cif5.png]
Example #1
[Hình: cif6.png]

Example #2
[Hình: cif7.png]

Example #3
[Hình: cif8.png]

Example #4

In mục này

  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.

In mục này

  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

In mục này

Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line| Phần mềm quản lý bán hàng, công nợ- tồn kho- nhà phân phối