• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Help! Giúp em chèn ảnh vào Form

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Help! Giúp em chèn ảnh vào Form
• Help! Giúp em chèn ảnh vào Form

• Help! Giúp em chèn ảnh vào Form

  thoayeunguyet > 03-11-11, 01:36 PM

  Em đang làm bài tập dài môn Access về quản lý thư viện.Em tham khảo trên mạng được 1 bài nhưng còn thiếu 1 số vấn đề.Mọi người giúp em làm sao để có thể chèn ảnh vào Form "SACh" giống như khi chèn ảnh vao Form "DOCGIA" với.
  Link bài của em đây ạ : http://www.mediafire.com/?3ig0bfdzbxb2bjk
  Em mày mò mãi mà không sửa được.Mọi người sửa giúp em với

• RE: Help! Giúp em chèn ảnh vào Form

  Noname > 03-11-11, 01:52 PM

  
  Tham khảo các topic này:
  Lưu đường dẫn hình
  http://thuthuataccess.com/forum/thread-81.html
  Hiển thì hình khi có đường dẫn
  http://thuthuataccess.com/forum/thread-82.html

• RE: Help! Giúp em chèn ảnh vào Form

  thoayeunguyet > 03-11-11, 02:21 PM

  (03-11-11, 01:52 PM)Noname Đã viết: Tham khảo các topic này:
  Lưu đường dẫn hình
  http://thuthuataccess.com/forum/thread-81.html
  Hiển thì hình khi có đường dẫn
  http://thuthuataccess.com/forum/thread-82.html

  Anh có thể sửa trực tiếp trên bài hộ em được không chứ em mày mò theo mấy cách rồi nhưng không được
  

• RE: Help! Giúp em chèn ảnh vào Form

  Noname > 03-11-11, 02:28 PM

  Bạn lười quá. Các link mình đưa là có demo trong đó rồi. Không hiểu thì hỏi. Vậy mới khá được!

• RE: Help! Giúp em chèn ảnh vào Form

  dannynguyen1980 > 05-11-11, 12:48 PM

  (03-11-11, 01:36 PM)thoayeunguyet Đã viết: Em đang làm bài tập dài môn Access về quản lý thư viện.Em tham khảo trên mạng được 1 bài nhưng còn thiếu 1 số vấn đề.Mọi người giúp em làm sao để có thể chèn ảnh vào Form "SACh" giống như khi chèn ảnh vao Form "DOCGIA" với.
  Link bài của em đây ạ : http://www.mediafire.com/?3ig0bfdzbxb2bjk
  Em mày mò mãi mà không sửa được.Mọi người sửa giúp em với

  
  Bị lỗi ở Sub getFileName (dòng tô màu đỏ) phải không bạn? Mình cũng đang tìm hiểu lỗi này.
  Sub getFileName()
  ' Displays the Office File Open dialog to choose a file name
  ' for the current employee record. If the user selects a file
  ' display it in the image control.
  Dim fileName As String
  Dim result As Integer
  With Application.FileDialog(msoFileDialogFilePicker)
  .Title = "Chon hinh Nhan Vien"
  .Filters.Add "All Files", "*.*"
  .Filters.Add "JPEGs", "*.jpg"
  .Filters.Add "Bitmaps", "*.bmp"
  .FilterIndex = 3
  .AllowMultiSelect = False
  .InitialFileName = CurrentProject.path
  result = .Show
  If (result <> 0) Then
  fileName = Trim(.SelectedItems.Item(1))
  Me![ImagePath].Visible = True
  Me![ImagePath].SetFocus
  Me![ImagePath].Text = fileName
  Me![FirstName].SetFocus
  Me![ImagePath].Visible = False
  End If
  End With
  End Sub
• Bài trước Bài tiếp