Tùy chọn
Thủ Thuật Access
-
Trang chủ
tạo ô MSG thông báo OK và cancel để xóa field
|
Viết bởi: ttppbd-hpbbkph 14-04-21, 03:13 PM Chuyên mục: Forms - Bài trả lời (3) |
code :
Private Sub cmd_xoa_Click()
Dim Msg, Style, Title, Response, MyString
Msg = "Ban co muon xoa mau tin khong ?"
Style = vbOKCancel + vbCritical + vbQuestion
Title = "Chu y"
Ctxt = 10000
Response = MsgBox(Msg, Style, Title)
If Response = vbOKOnly Then
MyString = "OK"
DoCmd.RunCommand acCmdDeleteRecord
Else
MyString = "Cancel"
DoCmd.RunCommand acCmdSaveRecord
End If
End Sub
|
|
Viết bởi: mrsiro 10-04-21, 03:05 PM Chuyên mục: Thư viện thủ thuật - Không có hồi đáp |
Mã:
C:\Windows\Microsoft.NET\Framework\v4.0.30319\RegAsm.exe D:\folder\CustomUnicode.dll /tlb:CustomUnicode.tlb /codebaseSau đó mọi người vào cửa sổ code của vba reference đến file .tlb
![[Hình: 202166f13f30-cba8-4439-a3f3-10540112f5f7.png]](https://2.pik.vn/202166f13f30-cba8-4439-a3f3-10540112f5f7.png)
Thư viện này có 2 hàm:
1/ UnicodeDungSan: Dùng để chuyển sang kiểu unicode dựng sẵn.
2/ UnicodeToHop: Dùng để chuyển sang kiểu unicode tổ hợp.
Demo:
|
Viết bởi: maidinhdan 08-04-21, 10:29 PM Chuyên mục: Thư Viện Ứng Dụng - Bài trả lời (7) |
Vì các Demo này phải làm video hướng dẫn nên tạm chưa có thời gian làm video; nên đành giới thiệu trước vậy;
1. Demo thứ nhất: Mã hóa nội dung tiếng việt có dâu trong table;
Theo tìm hiểu thì trước giờ chúng ta có hàm mã hóa, nhưng không thể mã hóa được tiếng việt có dấu ( có thể có cao thủ đã làm rồi, nhưng ngại không ppost code thôi...hihi); vì vậy nên mới có DEmo này;
Khả năng ứng dụng: bảo vệ các nội dung quan trọng không muốn ai đọc; dù nó có giải mã cũng không xem được là chữ gì:
Ví dụ:
+ Nội dung gốc: Tôi yêu Thủ thuật Access
+ Nội dung đã mã hóa: eZLG`]G\@FuVRW@G
+ Pass mã hóa: 123456 ( có thể tự thay)
+ Nội dung đã giải mã: Tôi yêu Thủ thuật Access
* Khả năng giải mã: 99,99% so với nội dung gốc.
2. Demo thứ hai: Nôm na là tạo file Log như SQL Server; Lưu dấu vết khi thêm, sửa, xóa: và có khả năng khôi phục lại với bất kỳ table nào; Code được tạo bằng Class với 2 Demo:
+ 1 Demo dùng cho DAO: thich hợp với Link Table hoặc Data nằm cùng 1 file
+ 1 Demo dùng cho ADO: ứng dụng Front/Back end.
* Chỉ cần chèn 1 modules class và chép 1 đoạn code viết sẳn hơn 10 dòng vào cái table nào cần theo dõi là có thể dùng không cần viết thêm đoạn nào cả.
3. Demo thứ ba: Demo tương tác SQL Server ( Cáci này tôi tách từ Ứng dụng quản lý Games Shaiya ra cho các bạn dùng)
+ Quét lấy tất cả Database trên SQL Server và tự tạo table cùng kiểu Type tương ứng.
+ Truyền dữ liệu qua lại giữa Access và SQL Server
* Trong Demo có mọi hàm dựng sẳn để bạn có thể tái sử dụng lại...
4. Demo thứ tư: Liên quan đến XML và giới thiệu mô hình áp dụng đối với nó
* Các hàm đã xây dựng
+ Xuất Table to XML
+ Load dữ liệu XML lên Form
+ Hiển thị tất cả dữ liệu của mọi Node in XML
+ Tìm và Lấy nội dung một Node in XML
+ Tìm và Sửa một Node in XML
+ Tìm và Xóa một Node in XML
+Thêm một Node vào XML
+ Lọc XML ra XML mới
+ Ghép XML lại với nhau
+ XMl to Table
+ XML to Excel
+ XML to Recorset
+ XMl to TreeView
+ Xóa dòng trống XML
......còn JSON; RSS; CSV.... nói chung có Demo hết rồi nhưng không có thì giờ làm video thôi.
để đây cho nhớ có ngày sẽ post lên thôi.
Và cuối cùng là 1 Add-In dành cho VBE mới nhất: nhiều tính năng mới, chắc giới thiệu sau
![[Hình: add2.jpg]](https://sites.google.com/site/postdumdemo/home/hinh/add2.jpg)
Chúc cả nhà vui khỏe
|
|
Viết bởi: hmhieu 07-04-21, 06:45 PM Chuyên mục: Forms - Bài trả lời (1) |
Mình có vấn đề như thế này nhờ bác hướng dẫn giúp với:
- Đề: có 1 Table (vd TableCHINH) gồm 2 field: HOVATEN, NGAYSINH (rất nhiều record)
- Mục đích:
+ Muốn sao chép dữ liệu từ tableCHINH trên vào 1 table tạm nào đó (vd: TableTEMP), trong table này gồm 20 field:
HoVaTen1, NgaySinh1, HoVaTen2, NgaySinh2.....HoVaTen10, NgaySinh10
- Mình muốn tạo 1 Form gồm: 1 List và 1 Command
+ List: Lấy dữ liệu từ TableCHINH. List này có thể không chọn/hoặc chọn 1, 2...nhiều dữ liệu (dạng multiselect)
+ Command: Thực thi sao chép dữ liệu từ TableCHINH sang TableTEMP. Điều kiện như sau:
. Nếu không chọn dữ liệu trong List thì xem như sao chép tất cả
. Nếu chọn bao nhiêu dòng trong List thì chỉ sao chép các dữ liệu được chọn sang TableTEMP
--> Quan trọng nhất là cách sao chép dữ liệu:
+ Nếu dữ liệu được chọn <=10 dòng thì dữ liệu ở Dòng 1 sẽ sao chép vào HoVaTen1, NgaySinh1; Dòng 2 sẽ sao chép vào HoVaTen2, NgaySinh2....cho đến Dòng 10 sẽ sao chép vào HoVaTen10, NgaySinh10
+ Ngược lại, dữ liệu từ Dòng 1 đến Dòng 10 được thực hiện như trên; Dữ liệu từ dòng 11 đến Dòng 20 thì được sao chép vào dòng 2 của TableTEMP... tiếp tục cho đến hết dữ liệu được chọn thì thôi.
Các bác giúp với. Xin cảm ơn trước!
|
|
Viết bởi: tvn_hut 03-04-21, 02:16 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (3) |
Mình có 2 bảng. Muốn lấy điều kiện tính toán từ 1 bảng rồi cập nhật vào 1 bảng khác. Code mình viết như sau:
1 bảng TblOutput có các trường [Process], [POnumber], [OKQty]
1 bảng TblPO có các trường [ActualQty], [POID]
Mình muốn khi mở Subform lấy giá trị từ bảng TblPO, sẽ tự động tính toán cho trường [ActualQty] theo điều kiện "Final_Inspection" và [PONumber] =[POID] từ bảng TblOutput
Tuy nhiên khi mở form, hệ thống ko báo lỗi nhưng cũng ko cập nhật đc kết quả. Mong các bro giúp đỡ.
Code
Private Sub Form_Load()
On Error GoTo ErrorHandler
Dim sql As String
Dim rs As DAO.Recordset
sql = "SELECT * FROM TblPO where lock = No"
Set rs = CurrentDb.OpenRecordset(sql)
With rs
If Not .BOF And Not .EOF Then
If .Updatable Then
.Edit
![ActualQty] = DSum("[OKQty]", "TblOutput", "[Process]='Final_Inspection'" And "[PONumber]= Me.POID")
.Update
End If
End If
.Close
End With
ExitSub:
Set rs = Nothing
Exit Sub
ErrorHandler:
Resume ExitSub
End Sub
| Chủ đề Mới nhất |
| Thơ Họa Nguyễn Thành Sáng... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-15-04-21, 10:57 PM- » Bài trả lời: 461- » Lượt xem: 24,727 |
| [Thông báo] Dự kiến Post ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: thuyyeu99-15-04-21, 10:26 PM- » Bài trả lời: 7- » Lượt xem: 171 |
| tạo ô MSG thông báo OK và... -Chuyên mục: Forms-Đăng bởi lần cuối: tranthanhan1962-14-04-21, 07:39 PM- » Bài trả lời: 3- » Lượt xem: 67 |
| Xin giúp đỡ, Mình tạo Sp... -Chuyên mục: Forms-Đăng bởi lần cuối: lmthu-13-04-21, 10:04 AM- » Bài trả lời: 1- » Lượt xem: 128 |
| [Demo Phần 1] Tạo khóa bả... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: kontum012-12-04-21, 09:59 AM- » Bài trả lời: 54- » Lượt xem: 8,776 |
| Chuẩn hóa unicode tổ h... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: mrsiro-10-04-21, 03:05 PM- » Bài trả lời: 0- » Lượt xem: 101 |
| Không cho gõ tiếng việt c... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-10-04-21, 09:44 AM- » Bài trả lời: 18- » Lượt xem: 593 |
| Cách tách dữ liệu của 1 f... -Chuyên mục: Forms-Đăng bởi lần cuối: ongke0711-07-04-21, 09:55 PM- » Bài trả lời: 1- » Lượt xem: 102 |
| Liên quan tới Listbox Mul... -Chuyên mục: Forms-Đăng bởi lần cuối: ongke0711-07-04-21, 10:14 AM- » Bài trả lời: 11- » Lượt xem: 476 |
| [Lỗi mở SQL SV] invalid l... -Chuyên mục: MS SQL Server-Đăng bởi lần cuối: AnNguyen-06-04-21, 06:35 PM- » Bài trả lời: 3- » Lượt xem: 85 |
| Diễn đàn Thống kê |
|
» Thành viên: 3,670 » Thành viên mới nhất: tranthevu » Các chủ đề diễn đàn: 9,393 » Các bài viết diễn: 45,131 Thống kê đầy đủ |