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: 2,981
» Thành viên mới nhất: Hoai Nam
» Các chủ đề diễn đàn: 8,055
» Các bài viết diễn: 33,041

Thống kê đầy đủ

Thành viên online
Hiện đang có 25 người dùng trực tuyến.
» 0 Thành viên | 25 Khách

Chủ đề Mới nhất
Tác dụng của cây lô hội t...
Chuyên mục: Chuyện bốn phương
Đăng bởi lần cuối: thanhdiapro
7 Giờ trước
» Bài trả lời: 0
» Lượt xem: 4
Thông báo dữ liệu đã tồn ...
Chuyên mục: Forms
Đăng bởi lần cuối: thanhtruong
11 Giờ trước
» Bài trả lời: 16
» Lượt xem: 794
Hỏi về việc khóa dữ liệu ...
Chuyên mục: Vấn đề chung
Đăng bởi lần cuối: ongke0711
Hôm qua, 05:12 PM
» Bài trả lời: 8
» Lượt xem: 241
Share Quản lý công việc V...
Chuyên mục: Thư Viện Ứng Dụng
Đăng bởi lần cuối: garupro
Hôm qua, 04:55 PM
» Bài trả lời: 9
» Lượt xem: 687
[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
26-07-17, 06:58 PM
» Bài trả lời: 376
» Lượt xem: 11,349
SEO blog
Chuyên mục: Liên Kết Website
Đăng bởi lần cuối: hadangpr
26-07-17, 12:02 PM
» Bài trả lời: 1
» Lượt xem: 592
Nhung trang trao doi back...
Chuyên mục: Liên Kết Website
Đăng bởi lần cuối: hadangpr
26-07-17, 11:43 AM
» Bài trả lời: 3
» Lượt xem: 2,084
Cách tổng hợp số liệu từ ...
Chuyên mục: Thảo Luận Access
Đăng bởi lần cuối: maidinhdan
25-07-17, 02:45 PM
» Bài trả lời: 3
» Lượt xem: 228
Dấu hiệu nhận biết sớm bệ...
Chuyên mục: Chuyện bốn phương
Đăng bởi lần cuối: thanhdiapro
25-07-17, 09:21 AM
» Bài trả lời: 0
» Lượt xem: 26
Loại dầu ăn nào phù hợp c...
Chuyên mục: Chuyện bốn phương
Đăng bởi lần cuối: thanhdiapro
24-07-17, 10:55 PM
» Bài trả lời: 0
» Lượt xem: 24

 
  Tạo nút lưu thay đổi ngày giờ 1 lần
Viết bởi: thanhtruong - 20-07-17, 12:25 PM - Chuyên mục: Forms - Bài trả lời (4)

Mình có file demo
File demon_luu

Mình muốn khi bấm lưu lần thứ nhất thì ô ngày và giờ sẽ cập nhật giờ hệ thống.
Khi bấm lưu lần thứ 2 thì 2 cái ô này sẽ không thay đổi ngày và giờ nữa.

Vì ngày hôm qua mình nhập liệu mà nhập sai cái tên.
ngày hôm nay mình muốn sửa lại cái tên, rồi bấm lưu thì ngày và giờ lại cập nhật thành ngày hôm nay.

vì thế mình muốn bấm lưu lần thứ 2 thì cái ngày và giờ sẽ khồng thay đổi thì phải làm sao ạ.?

In mục này

  Hàm kiểm tra các Textbox Null, Highlight textbox và Custom Calendar
Viết bởi: ongke0711 - 19-07-17, 04:54 PM - Chuyên mục: Forms - Bài trả lời (2)

Hôm nay rảnh rỗi post lên cái Form Demo có một số thiết kế cơ bản và bẫy lỗi null của Textbox trước khi Lưu như sau:

1. Thông thường trước khi lưu một form nhập liệu nào đó, bạn phải kiểm tra các trường (Field) cần thiết có nhập dữ liệu hay chưa rồi mới cho lưu, để tránh việc sai, lỗi dữ liệu. Demo này sẽ dùng hàm CheckNullEmpty() để check tất cả các Control trên Form mà bạn yêu cầu phải check (Control.Tag = “required”). Nếu Textbox nào Null thì nó sẽ được đánh dấu màu xanh.

2. Thêm một tính năng làm đẹp cũng như hỗ trợ người dùng dễ tập trung khi nhập liệu là Highlight Textbox. Mỗi khi con trỏ trỏ tới textbox nào thì nó sẽ làm nổi bật đường viền của textbox đó màu cam.

3. Tạo lịch chọn ngày tháng, không sử dụng lịch (Date picker) của chương trình Access. Lịch này sẽ có tính năng tùy chọn tháng, năm riêng biệt tiện lợi hơn lịch của hệ thống (mỗi lần di chuyển là 1 tháng). 

Hình minh họa:

[Hình: 35979175896_4e97aec93e_b.jpg]

[Hình: 35979175766_a91c0dcc2b_b.jpg]

Copy các đoạn code sau vào Module.
- Code cho hàm Highligh Textbox:

Mã PHP:
Option Compare Database
Option Explicit

Public Function SetFocusHandlers(ByRef frm As Form)
   Dim ctl As Control
   On Error 
GoTo 0
   For Each ctl In frm
       If ctl
.Tag "HighlightOnFocus" Then
           ctl
.OnGotFocus "=HandleFocus([" ctl.Name "], True)"
           ctl.OnLostFocus "=HandleFocus([" ctl.Name "], False)"
       End If
   Next
End 
Function


Public Function 
HandleFocus(ByRef ctl As ControlByVal blnFocus As Boolean)

   If blnFocus True Then
       
'ctl.BackColor = RGB(200, 237, 248) 'RGB(222239229)
       ctl.BorderColor RGB(&HF9, &HCB, &H8E)
       ctl.BorderWidth 2
   Else
       
'ctl.BackColor = RGB(255, 255, 255)
       ctl.BorderColor = RGB(&H98, &HBD, &HE0)
       ctl.BorderWidth = 1
   End If

End Function 

- Code kiểm tra các textbox có Null hoặc Empty hay không. Muốn textbox nào cần kiểm tra, bạn vào Property của textbox đó, mục Other -> kiếm menu Tag (ở cuối cùng) và thêm đoạn text "required".

[Hình: 36021077615_1c56014800_z.jpg]

Mã PHP:
Option Explicit

Public str As String

Public Function IsNullOrEmpty(tbx As Control) As Boolean
   If IsNull
(tbx.Value) Or _
      Len
(Nz(tbxvbNullString)) = Or _
      Len
(Nz(tbx vbNullString)) = 0 Then
       IsNullOrEmpty 
True
   Else
       IsNullOrEmpty 
False
   End 
If
End Function

Public Function 
CheckNullEmpty(frm As Form) As Boolean
   Dim ctl 
As Control
   str 
= Empty

   For Each ctl In frm
       If ctl
.ControlType acTextBox Or ctl.ControlType acComboBox Or ctl.ControlType acCheckBox Then
           If Right
(ctl.Tag8) = "required" Then
               If IsNullOrEmpty
(ctlThen
                   ctl
.BackColor RGB(230237215)
                   str str "- " ctl.Name vbNewLine
                   CheckNullEmpty 
True
               Else
                   ctl
.BackColor vbWhite
                   CheckNullEmpty 
False
               End 
If
           End If
       End If
   Next
End 
Function

Public Function 
ClearControlFormatting(ctl As Control)
   ctl.BackColor vbWhite
End 
Function 

- Khi chạy phần Calendar tự tạo, tránh việc cái lịch mặc định của Access cùng hiển thị đè lên cái icon lịch của bạn khi bạn để con trỏ vào Textbox có định dạng DateTime, bạn phải chạy 1 cái thủ tục để vô hiệu hóa cái lịch mặc định của Access. Cái Sub DisableDatePicker () này tôi lấy trên mạng của Daniel Pineault.
Bạn chỉ cần chạy hàm này 1 lần (ở cửa số Immediate) khi khởi động ứng dụng là được rồi.

[Hình: 36004508596_6fc04d90c3_z.jpg] 


File làm trên Access 2010.
Link file demo: http://www.mediafire.com/file/htm252v7af...tbox.accdb

In mục này

  Tư vấn import data(đuôi csv) vào file access nguồn
Viết bởi: subasatran - 17-07-17, 10:41 PM - Chuyên mục: Thủ thuật VBA - Bài trả lời (2)

Xin chào A/C/E diễn đàn Thuthuataccess.
Do vừa mới tập tành đến với access nên rất mong mọi người hướng dẫn trong việc áp dụng access trong công việc.
Mình có công việc được mô tả như bên dưới, rất mong mọi người hướng dẫn.
Vào mỗi cuối tháng, hệ thống công ty sẽ export ra khoảng 10 file data thô ở dạng *.csv theo tên được đặt như yyyymmdd_XXXX.csv(XXXX là tên file).
Nhiệm vụ của mình là xử lý trên 10 file data thô này.
Do như cầu mình muốn đưa 10 file này vào access để xử lý nhưng việc import thủ công rất mất thời gian nên mình đang tìm hiểu để import tự động bằng code VBA.
Thêm nữa, data này có nhiều người xài nên mình phải để ở ổ đĩa chung.
Và mình làm như bên dưới.
Một file access chứa data nguồn được import tự động từ 10 file data thô csv được share chung trên ở đĩa chung.
Các máy client được kết nối với data nguồn để xử lý dữ liệu.
+ Với file data nguồn, mình muốn viết code để có thể tự động đến đường dẫn mặc định tìm file import những file data cần thiêts và append vào các table có sẵn trong file data nguồn bằng một button trên form.
+ Với các máy client, mình muốn viết code để có thể kết nối và truy vấn đến data nguồn khi data nguồn được cập nhật.
Hiện tại,ý tưởng mình đang là như thế nên mong mọi người tư vấn.
Với cách trên có khả thi không ? và làm như trên cần chú ý những vấn đề gì ?
Nếu có thể, A/C/E cho em xin một vài link hướng dẫn việc import tự động bằng VBA. Cảm ơn mọi người.

In mục này

  Tìm record lớn nhất trong Query có sẵn
Viết bởi: BESTKI522 - 17-07-17, 02:31 AM - Chuyên mục: Query - Bài trả lời (6)

Hi các anh chị, em có 1 query (query21) đã tạo rồi như sau:

[Hình: 20031697_210528666141350_899907661764543...e=59F585C8]


đây là design view cái query đó
[Hình: 20046709_210530412807842_256178915016019...e=5A0250D2]

Em muốn truy vấn ra KH có tổng tiền nhiều nhất mà chịu thua, Mong các bạn giúp nhé

In mục này

  Sắp xếp danh sách tiếng Việt Unicode
Viết bởi: lehongduc - 15-07-17, 08:13 AM - Chuyên mục: Thủ thuật VBA - Bài trả lời (3)

Chào các Bạn,
Nhiều Bạn gửi tin nhắn và email đề nghị tôi giải thích rõ hơn nữa việc sắp xếp tiếng Việt Unicode trong MS. Access và từng dòng lệnh VBA để làm việc này, nên tôi xin được tách vấn đề này riêng ra và trao đổi cụ thể hơn như sau:

Xin trở lại từ đầu yêu cầu sắp xếp danh sách tiếng Việt như sau:
1. Quy tắc sắp xếp danh sách tiếng Việt như sau:
- Thứ tự sắp xếp các nguyên âm có dấu của tiếng Việt là: Không dấu -> Huyền -> Sắc -> Hỏi -> Ngã -> Nặng
- Nếu là sắp xếp danh sách theo Họ và Tên, thứ tự sắp xếp là: xếp theo Tên -> xếp theo Chữ lót -> xếp theo Họ.

2. Giải pháp:
- Cách đơn giản nhất là mã hóa chuỗi tiếng Việt thành chuỗi thuần latinh không dấu, sau đó sử dụng chức năng Sort của MS. Access để sắp xếp tooàn bộ danh sách.
- Đối với danh sách Họ và Tên, trình tự cụ thể sẽ là:
+ Tách nguyên chuỗi Họ và Tên thành các cột riêng biệt thích hợp: cột Tên và cột Chữ Lót và Họ (nghĩa là có đảo ngược chuỗi "Họ và chữ lót" thành "Chữ lót và Họ")
+ Mã hóa các cột vừa tách và sử dụng chức năng Sort để sắp xếp danh sách theo "Tên" và theo "Chữ lót và Họ".

3. Viết các procedure VBA cần thiết để tách cột, đảo chuổi và mã hóa như sau:
+ Để tách cột Họ và Tên:

Mã:
Function TachTen(HoVaTen As String) As String

Dim Ten As String
Dim i As Integer
Dim nTu As Integer
Dim St As String
Dim LngSt As Integer

HoVaTen = Trim(HoVaTen)
LngSt = Len(HoVaTen)

'Đoạn mã sau đây để xác định vị trí của ký tự trắng ngăn cách các từ trong chuỗi Họ và Tên, tính từ bên phải sang trái
'Bởi mục đích là ta tách phần Tên ra khỏi chuỗi Họ và Tên
i = InStrRev(HoVaTen, " ")

'Nếu chuỗi Họ và Tên chỉ có 1 từ (không có ký tự trắng ngăn cách nào)
If i = 0 Then
    'Thì lấy nguyên từ duy nhất đó
    Ten = HoVaTen
Else 
    Ten = Right(HoVaTen, LngSt - i)
End If
TachTen = Ten
End Function

Trong bài kế tiếp tôi sẽ giải thích các procedure còn lại.
Xin nhờ các Bạn Quản trị sửa giúp các đoạn ghi chú giải thích trong khung code để các Bạn dễ đọc.

In mục này

Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ