tag:blogger.com,1999:blog-15041271622533726702024-02-22T16:02:02.028+07:00Tổng hợp Thủ Thuật AccessThiết Kế, tổng hợp các thủ thuật hay đã có trên <a href="http://thuthuataccess.com/forum" title="Diễn đàn Thủ Thuật Access">Diễn đàn Thủ Thuật Access</a>.Duy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.comBlogger156125tag:blogger.com,1999:blog-1504127162253372670.post-76379729395102361012021-12-29T14:57:00.004+07:002021-12-29T15:02:12.625+07:00Mật khẩu giải nén cho các file được chia sẻ trên diễn đàn TTAC Chào các bạn, Mật khẩu dưới đây dùng giải nén cho các file được chia sẻ trên diễn đàn Thủ Thuật Access và các trang liên quan.Duy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com1tag:blogger.com,1999:blog-1504127162253372670.post-77051555404933214472019-09-25T11:32:00.002+07:002020-11-03T07:54:11.315+07:00Có gì mới trong Access 2019
Trực quan hóa dữ liệu của bạn bằng các biểu đồ mới
Chọn từ biểu đồ mới 11 và dễ dàng hơn để hiểu dữ liệu được lưu trữ trong biểu mẫu và báo cáo. Khớp các trường với các chiều của biểu đồ và xem trước ngay các thay đổi của bạn.
Đây là một mẫu biểu đồ mới, bạn có thể dùng trong cơ sở dữ liệu Access của bạn.
Biểu đồ cột
Trong biểu đồ cột, các danh mục hiển thị dọc theo trục Duy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com0tag:blogger.com,1999:blog-1504127162253372670.post-62716424578503345482019-08-30T19:57:00.002+07:002019-08-30T19:57:33.901+07:00Giới thiệu Microsoft AccessCó thể nhiều bạn đã nghe đến Microsoft Access, nhưng thực sự Microsoft Access là gì và có thể giúp chúng ta làm cái gì thì nhiều bạn sẽ chưa rõ, vậy nên trong bài viết này, Thủ thuật Access sẽ chia sẻ với các bạn về chủ đề này.
Access là gì?
Microsoft Access là một hệ thống quản lý cơ sở dữ liệu hoặc một hệ quản trị cơ sở dữ liệu quan hệ (tiếng Anh: relational database management system, viếtDuy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com0tag:blogger.com,1999:blog-1504127162253372670.post-9544347148881330402019-08-25T10:21:00.000+07:002019-08-25T11:27:02.225+07:00Hướng dẫn Nạp RowSource cho ComboBox nhanh và hiệu quả với dữ liệu lớnTác Giả Bài Viết: Lê Hồng Đức.
Các bạn có thể thảo luận thêm chủ đề này ở diễn đàn Thủ Thuật Access tại Topic
https://thuthuataccess.com/forum/post-42800.html#pid42800
Khi thiết kế ứng dụng với combobox chúng ta cần hết sức quan tâm đến việc nạp nguồn dữ liệu cho combobox (RowSource) sao cho hợp lý, việc đó phải thỏa mãn yêu cầu là chỉ nạp những gì ta cần, đừng bao giờ nạp lên toàn bộ dữ liệu.Duy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com0tag:blogger.com,1999:blog-1504127162253372670.post-12286656344178758812019-08-25T00:50:00.001+07:002019-08-25T00:50:39.093+07:00Ẩn dòng trắng Report
Bài toán đặt ra: Mình có một cái report , có rất nhiều dòng trắng (Phần chi tiết lẫn nội dung tổng hợp) , Mình muốn lúc lên report các dòng trắng bị xóa đi mà không phải can thiệp record source report
Đáp:
ý tưởng của mình thế nàyNếu Isnull(soct) thì tất cả các đối tượng trong phần detail đều có chiều cao =0.Ngược lại thì chiều cao của nó = chiều cao (trong properties) * 567 Code của nó Duy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com0tag:blogger.com,1999:blog-1504127162253372670.post-26950341430787489492019-05-23T17:01:00.002+07:002019-08-25T15:00:41.350+07:00Thay đổi địa chỉ của đối tượng WebBrowser bằng VBAWebBrowser là đối tượng giúp bạn duyệt web trong access. Ta có thể ứng dụng trong việc dùng access đăng nhập vào web, lấy dữ liệu về (ví dụ tỷ giá, KQ Xổ Số...) và tải dữ liệu lên web như gửi báo cáo...
Để thay đổi Address của WebBrowser, ta phải gõ đầy đủ như sau
WebBrowser0.ControlSource = "=""URL"""
Ví dụ:
WebBrowser0.ControlSource = "=""http://tonghop.thuthuataccess.com/2009/11/Duy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com1tag:blogger.com,1999:blog-1504127162253372670.post-58011810889957079682013-10-03T19:24:00.000+07:002013-10-03T19:30:04.917+07:00Đưa danh sách các form vào listbox
Tác giả : paulsteigel
Nguồn: http://thuthuataccess.com
Hàm sau sẽ giúp bạn liệt kê các form trong Chương trình và đưa vào 1 listbox.
Sub loadFormTolist(l As ListBox)
With l
.RowSource = SetRowSource(acForm)
.RowSourceType = "Value list"
End With
End Sub
Function SetRowSource(acObjType As AcObjectType) As String
Dim iObj As Object, iStr As String, iContainer As Object
Set iContainer = IIfDuy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com0tag:blogger.com,1999:blog-1504127162253372670.post-31663641210184378802013-06-02T01:05:00.001+07:002019-08-25T15:01:17.801+07:00Gán giá trị default cho trường bằng lệnh SQL
Hôm nay có bạn hỏi trên Facebook như sau:Câu Hỏi ACCESS:mình tạo query:
alter table ABC add 123 text(10);
mình muốn thêm 1 giá trị mặc định 0000 vào cột 123 trong cùng 1 query thì làm ntn ạ
Và mình xin trả lời:
Một tin buồn cho bạn là trong Access, ngoài giao diện trực quan ra, bạn chỉ có thể gán giá trị bằng VBA thì thông qua ADO hoặc JET. Bạn không thể Duy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com0tag:blogger.com,1999:blog-1504127162253372670.post-58534692411355655142012-08-05T04:56:00.002+07:002013-06-02T00:23:46.951+07:00Bài 1 : Sắp xếp tiếng Việt theo font chữ VNIWindows (VNI)
Nguồn: Thủ Thuật Access
Tác giả: Xuân Thanh
----------------------------
Có nhiều bạn hỏi về cách sắp xếp tiếng Việt trong Access. Hôm nay tôi xin chia sẻ với các bạn một số thủ thuật
này. Trước hết xin lỗi những ai là thầy cô giáo vì cách sắp xếp tiếng
Việt được hiểu theo nhiều cách khác nhau. Ở đây tôi xin sắp xếp theo thứ
tự sau
1/ Xếp từ phải sang
2/ Xếp theo thứ tự của bảngDuy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com1tag:blogger.com,1999:blog-1504127162253372670.post-3034824963454882012012-07-18T03:57:00.000+07:002013-06-02T00:08:31.799+07:00Hàm Work_Days để tính thời gian làm việc giữa BegDate và EndDate
Thủ Thuật Access xin giới thiệu một hàm tự viết của tác giả Xuân Thanh phục vụ cho việc tính ngày làm việc thực tế, mời các bạn tham khảo
Tác Giả: Xuân Thanh
Trang: http://thuthuataccess.com
Mã:
Function Work_Days(BegDate As Variant, EndDate As Variant) As Long
Dim WholeWeeks As Variant
Dim DateCnt As Variant
Dim EndDays As Integer
&Duy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com0tag:blogger.com,1999:blog-1504127162253372670.post-14023027172802405862012-07-15T07:51:00.000+07:002019-08-25T12:57:30.332+07:00Khôi phục table vô tình xóa
Khôi phục lại table đã vô tình xóa
Share by: Xuân Thanh
Đã có khi nào bạn vô tình xóa một table? Và bạn không có dự phòng? Có một cách bạn có thể khôi phục lại nó nếu bạn chưa xóa thêm một table khác hoặc bạn chưa đóng cơ sở dữ liệu của bạn. Bằng thủ thuật sau đây, bạn có thể chèn tất cả các trường của bảng đã xóa vào một bảng mới
Function Undo()
Dim db AsDuy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com0tag:blogger.com,1999:blog-1504127162253372670.post-38115801235295727522012-07-01T11:02:00.000+07:002019-08-25T15:01:53.933+07:00Nhập ngày tháng thông qua Calendar Control
Nguồn:Nhập ngày tháng thông qua Calendar Control
Tác giả:Noname
Calendar control là một ActiveX control cho phép bạn nhập ngày tháng vào Access một cách chính xác, nhanh chóng và hiệu quả. Cách làm như sau:
1. vẽ 1 textbox đặt tên là txtFromdate
2. Vẽ 1 button
3. Click vào nút more control ở toolbox, tìm và chọn Calendar Control 11.0, Vào form, thả control này vào Duy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com0tag:blogger.com,1999:blog-1504127162253372670.post-41428825142049970252012-07-01T10:55:00.000+07:002013-06-02T00:12:05.212+07:00Ngăn chặn không cho Access tự động lưu record
Chúng ta biết rằng Access luôn tự động lưu lại các record mỗi khi ta nhập mới hoặc sửa đổi. Để ngăn không cho access tự động lưu, muốn lưu phải hỏi trước, nếu đồng ý thì lưu, nếu không thì undo lại giá trị trước khi thay đổi, ta dùng thủ thuật sau của sự kiện BeforeUpdate của form
Mã:
Private Sub Form_BeforeUpdate(Cancel As Integer)
'If the form data has changed a message is shown asking if
Duy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com0tag:blogger.com,1999:blog-1504127162253372670.post-17906495025387161112011-09-03T17:33:00.002+07:002013-06-02T00:10:57.524+07:00Ẩn những giá trị trùng lắp
Bài viết này hướng dẫn bạn kết hợp thuộc tính Visible với HideDuplicate để ẩn giá trị lặp đi lặp lại trên một báo cáo. Trong cơ sở dữ liệu, các báo cáo làm từ quan hệ 1-n dẫn đến tên mã hàng lặp đi lặp lại thế này:
Thuộc tính HideDuplicate cho phép ẩn đi các ô OrderID, OrderDate, và CompanyName cho ta report dễ đọc hơn nhưng không hoàn toàn đúng
Date và Company ở order 10617 bị biến mất. Duy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com2tag:blogger.com,1999:blog-1504127162253372670.post-77356106522836506162011-07-09T00:13:00.002+07:002013-06-02T00:11:31.839+07:00Giúp chia nhóm ngẫu nhiên với số lượng bằng nhau
Giả định bạn cần phân ra n nhóm. Ta xếp record cho hết nhóm này, tới nhóm khác, khi đủ thì xoay lại từ đầu cho tới khi hết.
N: số nhóm.
M=1, nhóm hiện đang xem xét
Bước 1: Chọn ra các record chưa xếp vào nhóm nào.
Bước 2:Lấy về số RecordCount.
if RecordCount>0 then
Bước 3: Nhảy về record đầu tiên.
lấy 1 số ngẫu nhiên r trong khoảng 0-RecordCount
Nhảy tới record thứ r. Gán cho nó vào nhómDuy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com0tag:blogger.com,1999:blog-1504127162253372670.post-77632430836645297982011-06-18T06:05:00.000+07:002013-06-02T00:11:53.872+07:00Mở ứng dụng bất kỳ từ Access
Share by: hieuvn
Forum: thủ thuật access
Vui lòng giữ đường dẫn và tác giả nếu bạn dùng lại hoặc share module này
---------------------------------------------------------------------------------------------------
Tạo một module bất kỳ, dán nội dung sau vào.
Option Compare Database
Option Explicit
Const errFileNotFound = 53
Private Declare Function OpenProcess Lib "kernel32" _
(ByVal Duy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com1tag:blogger.com,1999:blog-1504127162253372670.post-87504322364114504902011-04-24T11:55:00.001+07:002013-06-02T00:12:55.356+07:00Sử dụng trường Autonumber cho hiệu quả
Có rất nhiều bạn thắc mắc về autonumber, thắc mắc tại sao nó không tăng liên tục khi mình xóa 1-2 record...Sau đây xin giới thiệu 1 bài viết của nick huudung, trang fithou.net
AutoNumber, đây thực chất là 1 kiểu số có kích thước tương đương với Long Integer (hoặc Replication ID).
Autonumber khác với kiểu Number thông thường ở chỗ: giá trị của trường này được Access tự động sinh ra với mỗi Duy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com0tag:blogger.com,1999:blog-1504127162253372670.post-62501271914703778062011-02-24T08:19:00.000+07:002019-08-10T15:06:54.502+07:00Làm Việc với folder (TT)Tác giả: HaquocquanSite: http://thuthuataccess.comVui lòng giữ nguyên tên tác giả và site khi bạn sử dụng hoặc dùng lại thủ thuật này-------------------------------------------------------------------------------------------- Tiếp: Liệt kê các subfolders trong một folder:
Đoạn code dưới đây sẽ liệt kế các subfolders trong folder E:\XUAT\ vào table LuuSub
Sub ListFolder()
Dim FSO As Object
Set FSODuy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com0tag:blogger.com,1999:blog-1504127162253372670.post-21839374016423321672011-01-10T10:37:00.003+07:002013-06-02T00:13:21.023+07:00Mã hóa và giải mã- tgiả vba
Tác giả: VBA
site: Diễn đàn Thủ Thuật Access
ứng dụng 2 hàm này các bác có thể sử dụng trong việc quản lý mã hoá mật khẩu trong table User của các bác là hay nhất
Public Function Mahoa(Data As String, Optional Depth As Integer) As String
Dim TempChar As String
Dim TempAsc As Integer
Dim NewData As String
Dim vChar As Integer
For vChar = 1 To Len(Data)
TempChar = Mid$(Data, vChar, 1)
TempAsc Duy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com1tag:blogger.com,1999:blog-1504127162253372670.post-71896788531455955032010-12-06T09:10:00.001+07:002013-06-02T00:13:33.608+07:00Hàm chuyển giá trị trong cột thành chuỗi cách nhau dấu phẩy
bài viết của Noname
Site: http://thuthuataccess.com
vui lòng giữ tên tác giả và site nếu dùng lại bài viết này làm tư liệu cho mình và chia sẻ. Cám ơn
-------------------------------------------------------------------
Ứng dụng của hàm này vào việc liệt kê danh sách khách hàng, số hóa đơn mất - xóa bỏ, liệt kê các giá trị thỏa điều kiện nào đó trong 1 câu query thành 1 chuỗi.Dùng chuỗi này Duy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com0tag:blogger.com,1999:blog-1504127162253372670.post-56384985015887904052010-11-21T11:42:00.002+07:002013-06-02T00:14:18.898+07:00Set Security Low cho Access
' site: http://thuthuataccess.com
' Write by Noname
' Vui lòng giữ thong tin site và tác giả nếu bạn dùng hoặc share lại code này
---------------------------------------------------------------------------------------
Như các bạn dùng Access đã biết. Mặc định khi cài thì chế độ sercurity của Access được set ở chế độ medium, nên khi mở Access, nó hiện bảng Security Warning rồi mới cho mở file. Duy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com3tag:blogger.com,1999:blog-1504127162253372670.post-8197450501154257322010-11-19T10:42:00.003+07:002013-06-02T00:25:39.096+07:00Làm Việc với Folder
Tác giả: Haquocquan
Site: http://thuthuataccess.com
Vui lòng giữ nguyên tên tác giả và site khi bạn sử dụng hoặc dùng lại thủ thuật này
-------------------------------------------
1. Kiểm tra xem folder có tồn tại hay không.
Mã:
Function FolderCheck(sPath As String) As Boolean
If Right(sPath, 1) = "\" Then
sPath = Left(sPath, Len(sPath) - 1)
End If
Dim filesys
Set filesys = Duy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com0tag:blogger.com,1999:blog-1504127162253372670.post-44526400574423537912010-10-30T11:36:00.000+07:002013-06-02T00:26:47.776+07:00Thủ Thuật Lưu Vết Truy Cập Chương trình (Audit Trail)
'Writer By: Noname
'Site: http://thuthuataccess.com - Vui long giu nguyen site va tac gia neu ban dung hoac share module nay
------------------------------------------------------------------
Đầu tiên, Bạn thiết kế một table tblAuditTrail(Times,UserID,UserName,ComputerName,module,Action)
Tạo một đoạn chương trình con như sau trong một module mới
Mã:
Sub InputAuditTrail(CurrentModule As Duy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com0tag:blogger.com,1999:blog-1504127162253372670.post-71672474761199135792010-10-16T19:57:00.001+07:002013-06-02T00:31:42.826+07:00Tạo số chứng từ tăng dần và reset lại theo yêu cầu người dùng
Writer: Noname
site: http://thuthuataccess.com
Vui lòng giữ nguyên thông tin tác giả và site nếu bạn dùng hoặc chia sẻ thủ thuật này
-------------------------------------
Trong thực tế, một số chứng từ yêu cầu có số tăng dần và reset lại, cụ thể là các sổ thu , chi. Các quyển hóa đơn bán lẻ...
thủ thuật này cho phép chúng ta tạo ra các số chứng từ tăng dần và reset lại 1 khi nhấn vào nút reset.Duy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com1tag:blogger.com,1999:blog-1504127162253372670.post-20169782966388141062010-10-14T10:23:00.000+07:002013-06-05T09:47:13.270+07:00In chứng từ nhiều hơn 10 record thì chuyển sang bảng kêTác giả: Noname
Site: http://thuthuataccess.com
-----------------------------------------------------
Vui lòng giữ nguyên tên và site nếu bạn dùng nội dung trong bài viết này
Giả sử bạn có table ( hoặc query) tên là table1.
Giờ bạn muốn in 1 chứng từ với điều kiện sau:
- Ít hơn 10 dòng, in bình thường
- Nhiều hơn 10 dòng, in chứng từ với dòng chữ: Chi tiết trong bảng kê . Đồng thời cho in luôn Duy Tuanhttp://www.blogger.com/profile/08934580372824443345noreply@blogger.com0