Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: Noname 21-08-10, 11:31 AM Chuyên mục: Thư viện thủ thuật - Bài trả lời (30) |
Đáp:
Trong Report, bạn vẽ 1 textbox đặt tên là txtpic, đặt thuộc tính visible của nó là False.
Vẽ 1 đối tượng image đặt tên nó là image1
Sau đó cho đoạn code sau vào
Mã:
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo err_Pic
If IsNull(Me.txtPic) Then
Me.Image1.Picture = ""
Me.Image1.Visible = False
Else
Me.Image1.Picture = txtPic.Value
Me.Image1.Visible = True
End If
Exit Sub
err_Pic:
MsgBox Err.Description, vbOKOnly
Exit Sub
End SubDownload
|
|
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!
| Chủ đề Mới nhất |
| SUNWIN Casino -Chuyên mục: Ms Excel-Đăng bởi lần cuối: SUNWINtorge-9 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1 |
| SUNWIN -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: SUNWINtorge-Hôm qua, 03:57 PM- » Bài trả lời: 0- » Lượt xem: 0 |
| Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: chuvanthom-08-12-25, 09:12 PM- » Bài trả lời: 2- » Lượt xem: 3,253 |
| Demo - Tra cứu thông tin ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-16-11-25, 07:03 PM- » Bài trả lời: 26- » Lượt xem: 4,115 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: hoandokhai-18-10-25, 04:48 PM- » Bài trả lời: 70- » Lượt xem: 5,945 |
| Thơ Nhạc Nhất Lang - Cảm ... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-09-10-25, 03:12 PM- » Bài trả lời: 1- » Lượt xem: 64 |
| 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,335 |
| 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: 750 |
| Quản Lý Công Văn -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Adung-23-07-25, 10:05 AM- » Bài trả lời: 8- » Lượt xem: 13,050 |
| (Update v.1.0.85 - 30/06/... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: Adung-22-07-25, 10:46 AM- » Bài trả lời: 270- » Lượt xem: 114,435 |
| Diễn đàn Thống kê |
|
» Thành viên: 8,017 » Thành viên mới nhất: ironflamepdffuh » Các chủ đề diễn đàn: 9,900 » Các bài viết diễn: 48,830 Thống kê đầy đủ |