Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: Noname 05-12-10, 03:13 PM Chuyên mục: Thư Viện Hàm - Bài trả lời (34) |
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 vào các báo cáo...
Mã:
Function columnToString(sql As String) As String
'author:Noname
'site:http://thuthuataccess.co.cc
Dim rs As Recordset
Dim S As String
Set rs = CurrentDb.OpenRecordset(sql)
rs.MoveFirst
While Not (rs.EOF)
S = S & "," & rs(0)
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
columnToString = Mid(S, 2)
End FunctionMã:
Private Sub Command0_Click()
Dim sql As String
sql = "select soHD FROM HDIndex WHERE [Trangthai] = 'xoabo'"
Me.txtChuoi = columnToString(sql)
Me.Repaint
End Sub![[Hình: hoadonxoabo.jpg]](http://dl.dropbox.com/u/14777478/sharephoto/hoadonxoabo.jpg)
Ví dụ ta có table sau:
tableHDIndex (Click to View)
ta thấy có các giá trị sau:
000003
000004
000005
000013
000016
Vấn đề là ta liệt kê nó thành 1 chuỗi và ngăn nhau bằng dấu phẩy, để nó trở thành : 000003,000004,000005,000013,000016.
Hàm trên đáp ứng được điều đó bằng cách gọi:
Mã:
Private Sub Command0_Click()
Dim sql As String
sql = "select soHD FROM HDIndex WHERE [Trangthai] = 'xoabo'"
Me.txtChuoi = columnToString(sql)
Me.Repaint
End Sub
Xuất báo cáo định dạng biểu đồ
|
Viết bởi: vhn1511 02-12-10, 11:52 AM Chuyên mục: Report - Bài trả lời (5) |
Ví dụ: Biểu đồ phân bố tỷ lệ nam nữ trong cơ sở dữ liêu (Hình tròn)
Biểu đồ phân bố tỷ lệ theo nhóm tuổi trong cơ sở dữ liệu (0-18 tuổi, 18-60 tuôi và >60 tuổi) (Hình cột)
......
Nếu có, phiền anh/chị có thể chia sẻ một chương trình có kiểu báo cáo định dạng biểu đồ trên Access?
Hoặc có thể chỉ cho cách tiến hành để xuất báo cáo định dạng biểu đồ luôn
Xin cảm ơn đã giành thời gian đọc và chia sẻ
Làm thế nào để tự nhảy biến khi nhập liệu |
|
Viết bởi: vhn1511 01-12-10, 05:55 PM Chuyên mục: Forms - Bài trả lời (5) |
Tuy nhiên khi lấp đầy ký tự rồi, nhưng không tự nhảy xuống biến liền kề nó
=>
Phiền Anh/chị có thể chỉ giùm cách không phải làm động tác "ENTER" thừa này trong quá trình nhập liệu khi thiết kế Form
Xin cảm ơn đã quan tâm trả lời!
|
Viết bởi: dieuchinhlu 01-12-10, 01:12 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (4) |
bài em đang làm:
http://www.mediafire.com/?4s6y7c1mqe6y9wq
Code:
Mã:
Option Compare Database
Dim a() As Integer
Dim n As Integer, x As Integer, i As Integer, j As Integer
Dim luu, luu1 As Variant
Private Sub cmb_kiemtra_Click()
On Error GoTo Loi
x = CInt(Me.txt_x.Value)
For i = 1 To n
If a(i) = x Then
MsgBox "Xuat hien x tai vi tri:" & i & " trong Mang."
Else
txt_xoax.Value = Null
luu1 = luu1 & "," & a(i)
End If
Next
On Error GoTo Loi
txt_xoax.Value = Right(luu1, Len(luu1) - 1)
Loi:
If Err.Number = 5 Then
DoCmd.CancelEvent
Else
If Err.Number = 94 Then
MsgBox "Vui Long Nhap x de Kiem Tra"
End If
End If
End Sub
Private Sub cmb_thuchien_Click()
txt_mang.Value = Null
txt_x = Null
txt_xoax = Null
While n <= 0
n = CInt(InputBox("Nhap Kich thuoc cua mang:"))
Wend
ReDim a(n)
For i = 1 To n
On Error Resume Next
a(i) = CInt(InputBox("Nhap Phan Tu thu " & i & " cua mang :", "Nhap Phan Tu"))
luu = luu & "," & a(i)
Next
txt_mang.Value = Right(luu, Len(luu) - 1)
End Sub
Private Sub cmb_try_Click()
txt_mang = ""
n = -1
txt_x = ""
txt_xoax = ""
End Subkhi viết xong code chạy lần đầu thì ổn lắm
ấn nút Nhập Mảng
sau đó thì nhập các phần tử của mảng.
rùi ấn nút Kiểm Tra và KQ
KQ:
đến đây vẫn ổn, rùi hàng loạt
sảy ra:em tiếp tục nhập x, nó toàn ra thế này:
![[Hình: 3.jpg]](http://farm2.anhso.net/pic/o/58450/01265AD5E6F150C89F784B05DB9D61C298CCA33FEBD5CC6C/3.jpg)
![[Hình: 3.jpg]](http://farm2.anhso.net/pic/o/58450/01265AD5E6F150C8C7CF99F87D77589122167B2BE3532197/3.jpg)
rùi ấn Làm Lại, vẫn nhập mảng binh thường nhưng vãn bị lặp tương tự ở trên:
![[Hình: 3.jpg]](http://farm2.anhso.net/pic/o/58450/01265AD5E6F150C809EB4C79B5933E6BE3B483B03EBD1AE6/3.jpg)
và khi nhập x để kiểm tra vẫn bị tình trạng lặp tương tự.
nhờ NoName và các bạn trên room giúp đỡ em nhé, mới học VBA chân tay còn non nớt lắm. em cảm ơn.
|
Viết bởi: cuongtuyetcz 30-11-10, 10:50 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (7) |
day la file cua minh; http://www.mediafire.com/?3g9gbgobda9jdl0
| Chủ đề Mới nhất |
| CoinMinutes Việt Nam Tri ... -Chuyên mục: Chuyện bốn phương-Đăng bởi lần cuối: davidsmithmq-Hôm qua, 06:17 PM- » Bài trả lời: 0- » Lượt xem: 5 |
| Entente EE88 -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: ee88grado-Hôm qua, 02:39 PM- » Bài trả lời: 0- » Lượt xem: 2 |
| Best Child Porn -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: dmjproahf-Hôm qua, 11:24 AM- » Bài trả lời: 0- » Lượt xem: 4 |
| Treaty EE88 -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: ee88grado-Hôm qua, 07:11 AM- » Bài trả lời: 0- » Lượt xem: 3 |
| Giup minh voi -Chuyên mục: Query-Đăng bởi lần cuối: GeorgeGab-Hôm qua, 06:23 AM- » Bài trả lời: 6- » Lượt xem: 854 |
| Introduction to EE88 -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: ee88slert-Hôm qua, 01:33 AM- » Bài trả lời: 0- » Lượt xem: 3 |
| offtopic -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: nalarsonre-Hôm qua, 01:24 AM- » Bài trả lời: 0- » Lượt xem: 3 |
| 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,496 |
| 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,119 |
| 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: 694 |
| Diễn đàn Thống kê |
|
» Thành viên: 6,454 » Thành viên mới nhất: b8ccredit » Các chủ đề diễn đàn: 9,904 » Các bài viết diễn: 48,832 Thống kê đầy đủ |