drdrakin > 12-06-11, 03:52 PM
domfootwear > 13-06-11, 09:30 AM
(12-06-11, 03:52 PM)drdrakin Đã viết: Hiện tại mình đang làm 1 bài về quản lý bán hàng
tạo form hanghoa hiện thị thông tin hàng bán và nhập
nhưng khi mình làm xong thì phần ảnh ko hiển thị đc( ở bên bảng mình đã để là OLE object, và bên form sử dụng bound object frame)
các bạn hướng dẫn mình với nhé!
Bạn nào có file access về bán hàng thì share mình tham khảo với nhé!
Tks các bạn!
Cafe Via He > 13-06-11, 10:36 AM
Private Sub Form_Current()
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
domfootwear > 13-06-11, 12:25 PM
(12-06-11, 03:52 PM)drdrakin Đã viết: Hiện tại mình đang làm 1 bài về quản lý bán hàng
tạo form hanghoa hiện thị thông tin hàng bán và nhập
nhưng khi mình làm xong thì phần ảnh ko hiển thị đc( ở bên bảng mình đã để là OLE object, và bên form sử dụng bound object frame)
các bạn hướng dẫn mình với nhé!
Bạn nào có file access về bán hàng thì share mình tham khảo với nhé!
Tks các bạn!
drdrakin > 13-06-11, 12:32 PM
domfootwear > 13-06-11, 12:34 PM
(13-06-11, 12:32 PM)drdrakin Đã viết: Ý của mình là khi mình bật form lên hình ảnh cùng với dl sẽ được hiển thị lên luôn.Ví dụ trên không đúng ý bạn sao? Bạn gửi cái file của bạn lên xem thử yêu cầu thế nào nhé.
Vì đây là thông tin hàng hóa nên mình muốn. Khi chọn tên hàng hóa thì nó sẽ tự động hiển thị ảnh
drdrakin > 13-06-11, 02:00 PM
Cafe Via He > 13-06-11, 02:47 PM
drdrakin > 13-06-11, 04:30 PM
hoangthanhhai > 27-06-11, 09:50 AM
(13-06-11, 10:36 AM)Cafe Via He Đã viết: Bạn có thể tham khảo Link này:
In hình ảnh khi có đường dẫn hình
Như bạn domfootwear nói, bạn nên quản lý file ảnh của bạn trong Access dưới dạng đường dẫn. Dùng đối tượng Image để load đường dẫn tương ứng với hình ảnh đó lên, như thế sẽ giảm dung lượng chương trình.
Link trên được ứng dụng đối với Report, còn trong Form, bạn cho đoạn code đó vào sự kiện Form_Current()
Mã:Private Sub Form_Current()
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
Chúc bạn thành công!