Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: Noname 21-08-10, 11:25 AM Chuyên mục: Thư viện thủ thuật - Bài trả lời (29) |
Trên form, bạn vẽ 1 textbox đặt tên là txtPic, một nút nhấn tên cmdInsertPic,1 đối tượng ảnh đặt tên là image
bạn phải tạo 1 funtcion để lấy về đường dẫn file ảnh
Chú ý, để sử dụng được các đối tượng có sẵn của Office, bạn phải khai báo sữ dụng thư viện Office bằng cách vào cửa sổ VBA, Menu Tool--> references, chọn Microsoft Office 11.0 library.
![[Hình: OfficeLib.JPG]](http://4.bp.blogspot.com/_Lq9SpE8seTU/S4dKLRhd9aI/AAAAAAAAAII/zyQlbiO423U/s320/OfficeLib.JPG)
Copy đoạn code hàm sau dán vào Module
Mã:
Function getFile(Tit As String, formatName As String, formatType As String)
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
With dlgOpen
.Title = Tit
.Filters.Clear
.Filters.Add formatName, formatType
.AllowMultiSelect = False
result = .Show
If (result <> 0) Then
getFile = Trim(dlgOpen.SelectedItems.Item(1))
End If
End With
End FunctionBây giờ trong hành động click của nút nhấn, ta nhập đoạn code sau:
Code:
Mã:
Me![TxtPic] = GetFile("c:\", "Select the Picture File","*.jpg;*.bmp")
Me![TxtPic] = LCase(Me![TxtPic])
Me![Image].Picture = Me!TxtPicCác bạn xem demo:Download
|
Viết bởi: The Wind 20-08-10, 03:02 PM Chuyên mục: Forms - Bài trả lời (4) |
Mình có 1 subform datasheet (Form2)trên form main. vì vậy mình cần viết 1 nút delete record trên main với lệnh:
Mã:
Me.Form2.Form.Recordset.DeleteCác sử lý của đa phần mọi người trong trường hợp này là viết dòng lệnh chỉ xóa record đầu tiên trong những record được chọn. Nhưng mình không thấy hướng dẫn nào trên mạng để làm được việc này.
Nomane có phương án, các sử lý nào thì giúp mình với!
|
|
Viết bởi: Noname 20-08-10, 10:51 AM Chuyên mục: Report - Bài trả lời (1) |
Đáp:
Cho đoạn code sau vào report!
Mã:
Private Sub Report_Page()
On Error Resume Next
Me.DrawWidth = 6 ' do rong duong line
Me.DrawStyle = 0 ' 0 den 6 => kieu duong mat dan
' Sử dụng công thức object.Line (x1, y1) - (x2,y2), color, [Box=B]
Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), vbred, B
End Sub
|
|
Viết bởi: Noname 19-08-10, 03:05 PM Chuyên mục: Chức năng diễn đàn - Bài trả lời (1) |
Hỗ trợ người dùng post hình phía bên phải bài viết!
Phát Biểu
Mã:
[imgL]Link Hình [/imgL]Hoặc tùy biến chiều cao hình
Mã:
[imgL h=chiều cao]Link Hình [/imgL]Mã:
[imgL]http://i39.photobucket.com/albums/e193/duytuan2002/Linhtinh/285491040.jpg[/imgL]
Trong một trường mẫu giáo, thằng bé hỏi cô giáo: Cô ơi, con nít có bầu được không cô? Cô giáo nói: Con nít không có bầu được con ạ! Thằng bé quay sang con bé bên cạnh: Đó, cưng thấy chưa. Cứ lo lắng lung tung!Kết quả là:
Trong một trường mẫu giáo, thằng bé hỏi cô giáo:
-Cô ơi, con nít có bầu được không cô?
Cô giáo nói:
-Con nít không có bầu được con ạ!
Thằng bé quay sang con bé bên cạnh:
- Đó, cưng thấy chưa. Cứ lo lắng lung tung!
|
|
Viết bởi: Noname 19-08-10, 02:51 PM Chuyên mục: Chức năng diễn đàn - Bài trả lời (4) |
Hỗ trợ người dùng post hình phía bên phải bài viết!
Phát Biểu
Mã:
[imgR]Link Hình [/imgR]Mã:
[imgR h=chiều cao]Link Hình [/imgR]Mã:
[imgR]http://i39.photobucket.com/albums/e193/duytuan2002/Cat/12360332723119_yume_photo.jpg[/imgR]
Thuở trung nguyên kiếm hiệp.. 1 anh vớ được 1 quyển bí kíp võ công..anh giở ra và ngay trang đầu có ghi :
-nếu muốn học được môn võ này..người phải thiến.. Vì khao khát muốn được làm minh chủ võ lâm..anh ta chấp nhận.. Sau khi thiến xong giở trang sau thì có ghi tiếp : nhưng không thiến thì cũng cũng không sao.. ...Về sau môn võ này được lưu truyền với cái tên “uất ức thần chưởng “Kết quả là:
Thuở trung nguyên kiếm hiệp.. 1 anh vớ được 1 quyển bí kíp võ công..anh giở ra và ngay trang đầu có ghi :
- nếu muốn học được môn võ này..người phải thiến..
Vì khao khát muốn được làm minh chủ võ lâm..anh ta chấp nhận..
Sau khi thiến xong giở trang sau thì có ghi tiếp :
-nhưng không thiến thì cũng cũng không sao.. ...
Về sau môn võ này được lưu truyền với cái tên “uất ức thần chưởng “
- nếu muốn học được môn võ này..người phải thiến..
Vì khao khát muốn được làm minh chủ võ lâm..anh ta chấp nhận..
Sau khi thiến xong giở trang sau thì có ghi tiếp :
-nhưng không thiến thì cũng cũng không sao.. ...
Về sau môn võ này được lưu truyền với cái tên “uất ức thần chưởng “
| Chủ đề Mới nhất |
| Trang thủ thuật Access ít... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: huyhoang22-49 Phút trước- » Bài trả lời: 11- » Lượt xem: 246 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: huyhoang22-54 Phút trước- » Bài trả lời: 57- » Lượt xem: 3,105 |
| Dòng Video Youtube Ngâm N... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-Hôm qua, 11:34 AM- » Bài trả lời: 44- » Lượt xem: 379 |
| So Sánh Nước Hoa Chanel C... -Chuyên mục: Chuyện bốn phương-Đăng bởi lần cuối: EliHayes-22-12-24, 12:24 PM- » Bài trả lời: 0- » Lượt xem: 2 |
| Tạo query tổng hợp dữ liệ... -Chuyên mục: Query-Đăng bởi lần cuối: ongke0711-19-12-24, 07:58 PM- » Bài trả lời: 1- » Lượt xem: 83 |
| Test phần mềm QUẢN LÝ TÀI... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: AnNguyen-19-12-24, 05:33 PM- » Bài trả lời: 44- » Lượt xem: 5,194 |
| A Bold Move to Expand the... -Chuyên mục: Query-Đăng bởi lần cuối: nigelbdhmp-19-12-24, 04:55 PM- » Bài trả lời: 0- » Lượt xem: 13 |
| [Demo p2] Tìm kiếm và tô ... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: ledangvan-06-12-24, 02:53 PM- » Bài trả lời: 17- » Lượt xem: 1,955 |
| File Sổ Quỹ Tiền Mặt cho ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: giauvnd-05-12-24, 04:35 PM- » Bài trả lời: 30- » Lượt xem: 3,682 |
| Hỏi về Crosstab Query: Lu... -Chuyên mục: Query-Đăng bởi lần cuối: feeling-04-12-24, 07:24 PM- » Bài trả lời: 7- » Lượt xem: 270 |
| Diễn đàn Thống kê |
|
» Thành viên: 5,089 » Thành viên mới nhất: Thaopham » Các chủ đề diễn đàn: 9,879 » Các bài viết diễn: 48,661 Thống kê đầy đủ |