Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Hiện ảnh trên form ngay sau khi insert đường link hình
#1
Hi cả nhà. theo hướng dẫn của Noname mình có làm được việc insert hình ảnh trên form. tuy nhiên ngay sau khi update đường link ảnh thì nó không hiện ngay được mà phải chuyển qua ít nhất 1 record khi quay lại thì nó mới hiện hình ảnh theo link đó. Không biết mình thiếu sự kiện gì các bạn để ngay sau khi update link thì hình ảnh sẽ hiện ngay trên form. 
code cho form current như sau
Mã PHP:
Private Sub Form_Current()
 
On Error GoTo err_Pic
If IsNull(Me.TxtPathThen
   Me
.Imaframe.Picture ""
   Me.Imaframe.Visible False
Else
   Me.Imaframe.Picture TxtPath.Value
   Me
.Imaframe.Visible True
   
End 
If
Exit 
Sub
err_Pic
:
   MsgBox Err.DescriptionvbOKOnly
   Exit Sub
End Sub 

txtpath là nơi chứa link hình ảnh. có bạn nào giống mình không? cách giải quyết nó sao nhỉ
Chữ ký của tvn_hut Xin chào, mình là Dameaccess, Tham gia http://thuthuataccess.com/forum từ ngày 06-06 -13.
Reply
Những người đã cảm ơn
#2
Bạn MTNQ giúp mình dc ko. Mình cũng ko biết thiếu sự kiện j. Cả nhà giúp mình với
Chữ ký của tvn_hut Xin chào, mình là Dameaccess, Tham gia http://thuthuataccess.com/forum từ ngày 06-06 -13.
Reply
Những người đã cảm ơn
#3
(04-03-16, 08:29 PM)tvn_hut Đã viết: Bạn MTNQ giúp mình dc ko. Mình cũng ko biết thiếu sự kiện j. Cả nhà giúp mình với

Nó không hiện lên vì bạn đã phán nó Visible False ở sự kiện Form_Current rồi
Sửa lỗi trên đơn giản là thêm dòng này vào sau thủ tục "update đường link ảnh" của bạn:

Mã:
If Nz(Me.TxtPath, "") <> "" Then Me.Imaframe.Visible = True
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn tvn_hut
#4
(04-03-16, 10:56 PM)MatTroiNguQuen Đã viết:
(04-03-16, 08:29 PM)tvn_hut Đã viết: Bạn MTNQ giúp mình dc ko. Mình cũng ko biết thiếu sự kiện j. Cả nhà giúp mình với

Nó không hiện lên vì bạn đã phán nó Visible False ở sự kiện Form_Current rồi
Sửa lỗi trên đơn giản là thêm dòng này vào sau thủ tục "update đường link ảnh" của bạn:

Mã:
If Nz(Me.TxtPath, "") <> "" Then Me.Imaframe.Visible = True

Bạn MTNQ ơi. Có phải thêm đoạn code của bạn vào thủ tục after update của txtpath không bạn. mình làm vậy nhưng vẫn không được. nó vẫn không hiện ngay. Không biết mình hiểu đúng ý bạn không nữa?
Reply
Những người đã cảm ơn
#5
Bạn thêm luôn vào cuối thủ tục của nút nhấn để mở ra cửa sổ chọn hình. 
Nếu trên file ví dụ của bác Noname thì nó như sau:

Mã:
Private Sub Command2_Click()
   Me![txtpic] = getFile2("c:\", "Select the Picture File", "*.jpg,*.bmp")

   Me![txtpic] = LCase(Me![txtpic])
   Me![Image].Picture = Me!txtpic
   
   If Nz(Me.txtpic, "") <> "" Then Me.Image.Visible = True
   
End Sub
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn tvn_hut , hungle2006
#6
(06-03-16, 01:58 PM)MatTroiNguQuen Đã viết: Bạn thêm luôn vào cuối thủ tục của nút nhấn để mở ra cửa sổ chọn hình. 
Nếu trên file ví dụ của bác Noname thì nó như sau:

Mã:
Private Sub Command2_Click()
   Me![txtpic] = getFile2("c:\", "Select the Picture File", "*.jpg,*.bmp")

   Me![txtpic] = LCase(Me![txtpic])
   Me![Image].Picture = Me!txtpic
   
   If Nz(Me.txtpic, "") <> "" Then Me.Image.Visible = True
   
End Sub

Dùng code của bác trên 64 bit thì gặp lỗi:
"Compile error:
user-defined type not defined"
Bác xem lại giúp
Chữ ký của hungle2006 hungle2006,gia nhập Thủ Thuật Access từ 10-10 -15.
Reply
Những người đã cảm ơn
#7
(06-03-16, 01:58 PM)MatTroiNguQuen Đã viết: Bạn thêm luôn vào cuối thủ tục của nút nhấn để mở ra cửa sổ chọn hình. 
Nếu trên file ví dụ của bác Noname thì nó như sau:

Mã:
Private Sub Command2_Click()
   Me![txtpic] = getFile2("c:\", "Select the Picture File", "*.jpg,*.bmp")

   Me![txtpic] = LCase(Me![txtpic])
   Me![Image].Picture = Me!txtpic
   
   If Nz(Me.txtpic, "") <> "" Then Me.Image.Visible = True
   
End Sub

 Cảm ơn MTNQ rất nhiều. Mình đã làm được rồi happy. Hi vọng 1 ngày nào đó đc gặp và cảm tạ bạn. Chắc sẽ còn nhiều thứ cần hỏi mọi người, vì thực sự mình rất thích học và làm về access nhưng chủ yếu là học lỏm từ các bạn nên nhiều lúc không hiểu hết ý nghĩa của việc viết code VBA là như thế nào. cứ cóp nhặt để thực hiện ý tưởng của mình thôi.
Chữ ký của tvn_hut Xin chào, mình là Dameaccess, Tham gia http://thuthuataccess.com/forum từ ngày 06-06 -13.
Reply
Những người đã cảm ơn
#8
(06-03-16, 10:14 PM)hungle2006 Đã viết:
(06-03-16, 01:58 PM)MatTroiNguQuen Đã viết: Bạn thêm luôn vào cuối thủ tục của nút nhấn để mở ra cửa sổ chọn hình. 
Nếu trên file ví dụ của bác Noname thì nó như sau:

Mã:
Private Sub Command2_Click()
   Me![txtpic] = getFile2("c:\", "Select the Picture File", "*.jpg,*.bmp")

   Me![txtpic] = LCase(Me![txtpic])
   Me![Image].Picture = Me!txtpic
   
   If Nz(Me.txtpic, "") <> "" Then Me.Image.Visible = True
   
End Sub

Dùng code của bác trên 64 bit thì gặp lỗi:
"Compile error:
user-defined type not defined"
Bác xem lại giúp

Bạn kiểm tra các tên biến xem có đúng với chương trình của bạn không. Mình vẫn làm được mà đâu phân biết 32 hay 64 bit
Chữ ký của tvn_hut Xin chào, mình là Dameaccess, Tham gia http://thuthuataccess.com/forum từ ngày 06-06 -13.
Reply
Những người đã cảm ơn
#9
Tớ mở chương trình khác có câu lệnh đó để học hỏi thì chạy bình thờng, nhưng copy sang phần mềm của tớ thì lại báo lỗi như thế, xem lại hết các biến, hàm, câu lệnh rồi mà không tìm ra
Chữ ký của hungle2006 hungle2006,gia nhập Thủ Thuật Access từ 10-10 -15.
Reply
Những người đã cảm ơn tvn_hut
#10
Chương trình của bạn có cái hàm getFile2() trong module không?
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
Question [Help] Link tất các table trong một file.mdb bằng VBA MinhnHang 9 227 Hôm qua, 06:11 PM
Bài mới nhất: maidinhdan
  [Thủ Thuật] Tạo thanh tiến trình trên Form (Progress bar) khi xử lý dữ liệu ongke0711 18 1,503 21-10-16, 10:17 PM
Bài mới nhất: ongke0711
  Tạo Form đăng ký tài khoản phuc_thanhtien 15 1,019 27-09-16, 12:19 AM
Bài mới nhất: maidinhdan
  [Help] Truy vấn ngày phát sinh gần nhất trong access cuuvinh 4 229 21-09-16, 05:01 PM
Bài mới nhất: cuuvinh
  [Hỏi] Quá trình thực hiện một lệnh với CSDL dinh_trong_hoa 1 176 02-08-16, 04:06 PM
Bài mới nhất: ongke0711

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ