Xuân Thanh > 13-04-12, 06:01 PM
Private Sub Form_Current()
If Not IsNull(Me.MaPN) Then
DD = CurrentProject.Path & "\" & Forms!frmDanhSachPhamNhan!MaPN & ".jpg"
Me.igmAnh.Visible = True
Me.igmAnh.Picture = DD
Else
Me.igmAnh.Visible = False
MsgBox "Het nguoi roi", , "Thong Bao"
Exit Sub
End If
End Sub
computerangel > 13-04-12, 06:15 PM
Xuân Thanh > 13-04-12, 06:33 PM
(13-04-12, 06:15 PM)computerangel Đã viết: 2 đoạn sau em ko hiểu lắm,
- Trong form hồ sơ phạm nhân em tạo thêm 1 nút comanbutont hay tạo cái gì ạ.
- @ Trong sự kiện OnCurrent của form : cái đó em cũng không hiểu.
bài em đây ạ: http://www.mediafire.com/?hy58qszssi5hfsz
có phải do em chưa hiểu vấn đề không ta.
computerangel > 13-04-12, 06:48 PM
Xuân Thanh > 14-04-12, 10:45 AM
Function FileExit(fname As String) As Boolean
If Dir(fname) <> "" Then
FileExit = True
Else
FileExit = False
End If
End Function
Private Sub Form_Current()
Dim DD As String
DD = CurrentProject.Path & "\" & Forms!frmDanhSachPhamNhan!MaPhamNhan & ".jpg"
If FileExit(DD) = True Then
Me.igmAnh.Visible = True
Me.igmAnh.Picture = DD
Else
Me.igmAnh.Visible = False
MsgBox "Chua co anh cua pham nhan nay"
End If
End Sub