Viết bởi: Noname 22-08-10, 09:58 AM Chuyên mục: Thư viện thủ thuật - Bài trả lời (3) |
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) |
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 Sub
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) |
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 Function
Me![TxtPic] = GetFile("c:\", "Select the Picture File","*.jpg;*.bmp")
Me![TxtPic] = LCase(Me![TxtPic])
Me![Image].Picture = Me!TxtPic
Viết bởi: The Wind 20-08-10, 03:02 PM Chuyên mục: Forms - Bài trả lời (4) |
Me.Form2.Form.Recordset.Delete
Viết bởi: Noname 20-08-10, 10:51 AM Chuyên mục: Report - Bài trả lời (1) |
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
Chủ đề Mới nhất |
offtopic -Chuyên mục: Trao đổi Góp ý-Đăng bởi lần cuối: ellahodge-31 Phút trước- » Bài trả lời: 0- » Lượt xem: 1 |
Seattle Storm Introduces ... -Chuyên mục: Forms-Đăng bởi lần cuối: MichaelWnba-50 Phút trước- » Bài trả lời: 0- » Lượt xem: 1 |
Loyd Nets 29, Storm Grabs... -Chuyên mục: Chuyện bốn phương-Đăng bởi lần cuối: MichaelWnba-59 Phút trước- » Bài trả lời: 0- » Lượt xem: 1 |
Dòng Thơ Nhạc Trích Đoạn -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-Hôm qua, 01:13 PM- » Bài trả lời: 3- » Lượt xem: 40 |
[Demo-Phần 4] Tạo khóa bả... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ngochuong279-24-04-24, 06:13 PM- » Bài trả lời: 38- » Lượt xem: 5,451 |
Trợ giúp về Textbox với c... -Chuyên mục: Forms-Đăng bởi lần cuối: Nguyên Thông-18-04-24, 10:15 PM- » Bài trả lời: 16- » Lượt xem: 5,923 |
In mã vạch tạo từ access ... -Chuyên mục: Forms-Đăng bởi lần cuối: huyhoang22-15-04-24, 11:25 AM- » Bài trả lời: 38- » Lượt xem: 20,782 |
Kết nối bảng từ access A ... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: hieunx-11-04-24, 01:23 PM- » Bài trả lời: 5- » Lượt xem: 75 |
Lấy dữ liệu từ 1 cột của ... -Chuyên mục: Query-Đăng bởi lần cuối: ongke0711-09-04-24, 11:34 AM- » Bài trả lời: 11- » Lượt xem: 634 |
Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: recca123-07-04-24, 11:27 PM- » Bài trả lời: 38- » Lượt xem: 1,506 |
Diễn đàn Thống kê |
» Thành viên: 4,484 » Thành viên mới nhất: ellahodge » Các chủ đề diễn đàn: 9,859 » Các bài viết diễn: 48,440 Thống kê đầy đủ |