chèn hình vào access

[hongdaisu]

Chào mọi người
Mình có 1file access.Mình muốn chèn hình từ pc lưu vào table thông qua form.Có thể thay đổi dung lượng hình để nhẹ đi càng tốt
Mọi người demo giúp với
Thank

 

[hongdaisu]

file đính kèm đây mọi người

 

[hongdaisu]

không có ai jup mình với ah

 

[dhn46]

Bạn làm như sau:

1/ Xóa hết control trên Form của bạn
2/ Vẽ lại 1 Textbox và 1 Image bằng công cụ ActiveX control, đặt tên như code dưới đây. bạn tùy biến để sử dụng nhé

Private Sub TxtID_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim PicPath As String
    If KeyCode = 13 Then
        PicPath = "D:\" & TxtID.Text & ".jpg"
        Me.Img.Picture = PicPath
    End If
End Sub

 

[hongdaisu]

thank bạn
có thể demo giúp mình được không.

 

[hongdaisu]

Hi mọi người
Mình có 1 file access.
Hiện tại có 2 form tìm kiếm và cập nhập
Trên form cập nhập sau khi lưu mình muốn in trực tiếp luôn.
Và trên form tìm kiếm khi đã tìm được dữ liệu mình cũng muốn in trực tiếp luôn
Mong mọi người giúp đở

 

[hongdaisu]

hix.không có ai giúp mình ah
Vậy cho mình hỏi có ai biết code cho button in report mà không cần view report lên không.

 

[ongke0711]

Để in Report mà không cần view thì chỉ cần đổi tham số acViewNormal là nó tự in rồi.
Vd: Docmd.OpenReport "rptTEST", acViewNormal

 

[hongdaisu]

hi mình làm bằng marco rồi bạn.thank vì ý kiến

 

[mrloe]

Private Sub TxtID_KeyDown(KeyCode As Integer, Shift As Integer)
Dim PicPath As String
If KeyCode = 13 Then
PicPath = "D:" & TxtID.Text & ".jpg"
Me.Img.Picture = PicPath
End If
End Sub


Em vừa chép code này về thì chạy tốt khi em đã lưu file ảnh cùng tên với ID.

Nhưng lại báo lỗi khi em chưa có ảnh cùng tên với ID.

Thế nên, cho em xin lời chỉ giáo: Khi chưa có ảnh thì lấy 1 ảnh mặc định để gắn vào PicPath ạ.

Em cảm ơn!

 

[quanluu]

Private Sub TxtID_KeyDown(KeyCode As Integer, Shift As Integer)
Dim PicPath As String
If KeyCode = 13 Then
PicPath = "D:" & TxtID.Text & ".jpg"
Me.Img.Picture = PicPath
End If
End Sub


Em vừa chép code này về thì chạy tốt khi em đã lưu file ảnh cùng tên với ID.

Nhưng lại báo lỗi khi em chưa có ảnh cùng tên với ID.

Thế nên, cho em xin lời chỉ giáo: Khi chưa có ảnh thì lấy 1 ảnh mặc định để gắn vào PicPath ạ.

Em cảm ơn!

Bạn nghiên cứu về Dir coi, dùng dir để kiểm tra có file hay ko, nếu có thì gán, không có thì gán mặc định.

 

[mrloe]

Ồ.... Cảm ơn quanluu1989.

Em đã thử thế này:

MyFile = Dir("D: \ " & txtID.Text & ".jpg")
If Len(MyFile) = 0 Then
Me.Img.Picture = "D:\3D-Abstract-Background-Wallpapers.jpg"
Else
Me.Img.Picture = PicPath
End If

Vã đã thành công.

Cảm ơn anh nhiều ạ!