Tùy chọn
Hiện ảnh trên form ngay sau khi insert đường link hình
- Hiện ảnh trên form ngay sau khi insert đường link hình
-
Hiện ảnh trên form ngay sau khi insert đường link hình
tvn_hut > 03-03-16, 10:11 PM
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.TxtPath) Then
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.Description, vbOKOnly
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ỉ -
RE: Hiện ảnh trên form ngay sau khi insert đường link hình
tvn_hut > 04-03-16, 08:29 PM
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 -
RE: Hiện ảnh trên form ngay sau khi insert đường link hình
MTNQ > 04-03-16, 10:56 PM
(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 -
RE: Hiện ảnh trên form ngay sau khi insert đường link hình
tvn_hut > 06-03-16, 11:29 AM
(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? -
RE: Hiện ảnh trên form ngay sau khi insert đường link hình
MTNQ > 06-03-16, 01:58 PM
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 -
RE: Hiện ảnh trên form ngay sau khi insert đường link hình
hungle2006 > 06-03-16, 10:14 PM
(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 -
RE: Hiện ảnh trên form ngay sau khi insert đường link hình
tvn_hut > 06-03-16, 10:33 PM
(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
. 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.
-
RE: Hiện ảnh trên form ngay sau khi insert đường link hình
tvn_hut > 06-03-16, 10:35 PM
(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 -
RE: Hiện ảnh trên form ngay sau khi insert đường link hình
hungle2006 > 07-03-16, 02:37 PM
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 -
RE: Hiện ảnh trên form ngay sau khi insert đường link hình
ongke0711 > 07-03-16, 09:03 PM
Chương trình của bạn có cái hàm getFile2() trong module không?