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

Cần giúp đỡ sửa Lỗi add picture vào record

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Cần giúp đỡ sửa Lỗi add picture vào record
• Cần giúp đỡ sửa Lỗi add picture vào record

• Cần giúp đỡ sửa Lỗi add picture vào record

  phanduythang > 26-02-12, 11:27 PM

  Mình đã tạo được menubar rồi nhưng khi minh chỉnh sửa Form để nó ẩn đi cửa sổ window của access nên mất luôn thanh menubar. mình muốn tạo thanh menubar gắn trên Forms luôn có được không mong các bác chỉ giáo
  Một vấn đề nữa là đã để chế độ ẩn database rồi nhưng khi kích liên tục lên file ở trên thanh startbar thì lại xuất hiện cửa sổ window access và database có cách nào khắc phục không ạ
  Còn nữa sao phần Form thông tin cá nhân của mình không thay đổi được hình ảnh cá nhân của từng người. không hiện thị anh lên form
  file của mình đây Download here
  
  logon đăng nhập
  User Name: Phan Duy Thắng Pass: 1
  User Name: Bộ môn khoa HSCC Pass: 2

• RE: Cần giúp đỡ về menubar của Forms

  Noname > 28-02-12, 02:12 AM

  Gắn menubar cho từng form. Bạn có thể tùy biến bằng cách vào properties của form đó, khai báo tên của menubar (hoặc tên Marcro tạo menubar) bên tab Other.

• RE: Cần giúp đỡ về menubar của Forms

  phanduythang > 29-02-12, 12:18 AM

  (28-02-12, 02:12 AM)Noname Đã viết: Gắn menubar cho từng form. Bạn có thể tùy biến bằng cách vào properties của form đó, khai báo tên của menubar (hoặc tên Marcro tạo menubar) bên tab Other.

  
  Mình đã vào properties gắn menubar cho form bằng tên menubar mình tạo mà vẫn không được bạn ạ. giúp mình với

• RE: Cần giúp đỡ về menubar của Forms

  Noname > 29-02-12, 10:22 AM

  Chào bạn.
  Menu/Shotcut menu không áp dụng cho form có thuộc tính Popup= Yes.
  Vì vậy bạn nên chọn thuộc tính này là No để có thể có menu.
  Thay vào đó, bạn ẩn menu bằng cách vào Tool=> Startup. Check bỏ các ô: allow Full menus, allow Default Shotcut Menus, Allow Buil-in Toolbars, Allow Toolbar/ Menu Changes
  Chúc may mắn

• RE: Cần giúp đỡ về menubar của Forms

  phanduythang > 29-02-12, 12:21 PM

  (29-02-12, 10:22 AM)Noname Đã viết: Chào bạn.
  Menu/Shotcut menu không áp dụng cho form có thuộc tính Popup= Yes.
  Vì vậy bạn nên chọn thuộc tính này là No để có thể có menu.
  Thay vào đó, bạn ẩn menu bằng cách vào Tool=> Startup. Check bỏ các ô: allow Full menus, allow Default Shotcut Menus, Allow Buil-in Toolbars, Allow Toolbar/ Menu Changes
  Chúc may mắn

  
  Cảm ơn bạn mình đã làm được rồi. cho mình hỏi tại sao mình thêm hình ảnh vào record thông tin cá nhân (thêm anh cho từng nhân viên trong form f00_HoSoCNV) không được vậy bạn kiểm tra giúp mình xem lỗi ở chỗ nào nhé
  cảm ơn bạn rất nhiều

• RE: Cần giúp đỡ về menubar của Forms

  Noname > 29-02-12, 01:50 PM

  Bạn tham khảo bài viết này để chèn ảnh vào chương trình cho đúng:
  http://thuthuataccess.com/forum/thread-81.html

• RE: Cần giúp đỡ về menubar của Forms

  phanduythang > 02-03-12, 07:05 PM

  (29-02-12, 01:50 PM)Noname Đã viết: Bạn tham khảo bài viết này để chèn ảnh vào chương trình cho đúng:
  http://thuthuataccess.com/forum/thread-81.html

  
  Mình chưa hiểu lắm ở bài hướng dẫn này. Ý tưởng của mình là mỗi một record sẽ add một ảnh khác nhau và khi vào xem thông tin sẽ hiển thị luôn ảnh theo record đó không cần bấm vào nut nhấn của nó nữa
  Lỗi ở file của mình như sau:
  Khi mình kích vào nút thêm/đổi hình http://nj0.upanh.com/b5.s13.d3/402950f38...6870.1.png
  
  và chọ 1 hình ảnh xong thì nó báo lỗi như sau http://nj2.upanh.com/b3.s3.d4/ae85e1e27c...6872.2.png
  
  sau đó chọn Debug http://nj5.upanh.com/b4.s25.d1/86f1a7781...6875.4.png
  
  thì nó báo lỗi ở chỗ này http://nj7.upanh.com/b5.s3.d4/21517e2b54...6877.5.png
  
  Bác có thể sửa giúp tôi lỗi này được không
  file đính kèm tôi đã gửi ở trên rồi
  Cảm ơn bác đã quan tâm và giúp đỡ

• RE: Cần giúp đỡ về menubar của Forms

  Hoanggiathanhsingles > 05-05-12, 08:59 PM

  (02-03-12, 07:05 PM)phanduythang Đã viết:

  (29-02-12, 01:50 PM)Noname Đã viết: Bạn tham khảo bài viết này để chèn ảnh vào chương trình cho đúng:
  http://thuthuataccess.com/forum/thread-81.html

  
  Mình chưa hiểu lắm ở bài hướng dẫn này. Ý tưởng của mình là mỗi một record sẽ add một ảnh khác nhau và khi vào xem thông tin sẽ hiển thị luôn ảnh theo record đó không cần bấm vào nut nhấn của nó nữa
  Lỗi ở file của mình như sau:
  Khi mình kích vào nút thêm/đổi hình http://nj0.upanh.com/b5.s13.d3/402950f38...6870.1.png
  
  và chọ 1 hình ảnh xong thì nó báo lỗi như sau http://nj2.upanh.com/b3.s3.d4/ae85e1e27c...6872.2.png
  
  sau đó chọn Debug http://nj5.upanh.com/b4.s25.d1/86f1a7781...6875.4.png
  
  thì nó báo lỗi ở chỗ này http://nj7.upanh.com/b5.s3.d4/21517e2b54...6877.5.png
  
  Bác có thể sửa giúp tôi lỗi này được không
  file đính kèm tôi đã gửi ở trên rồi
  Cảm ơn bác đã quan tâm và giúp đỡ

  
  Dear bạn
  Mình thường làm theo cách này:
  Trước hết bạn tạo 1 module hoặc vào phần General của Form tạo cái hàm Getfile này
  Function Getfile(Tit As String, Formatename As String, Formatetype As String) As String
  Dim dlgOpen As FileDialog
  Dim result
  Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
  With dlgOpen
  .Title = Tit
  '.Filters.Clear
  'Filters
  .AllowMultiSelect = False
  result = .Show
  If (result <> 0) Then
  Getfile = dlgOpen.SelectedItems(1)
  'Getfile = dlgOpen.FileName
  End If
  End With
  
  Trong sự kiện Click của nút "Thêm/Sửa hình" của bạn
  If Not IsNull(Me.HINH) Then
  Dim Cancel As Boolean
  Dim Respond
  Respond = MsgBox ("Da co hinh,ban co muon doi hinh khong?", vbQuestion + vbYesNo, "Ban dang doi hinh")
  If Respond = vbYes Then
  Me.HINH = Getfile("Chon hinh vao du lieu", "Chon loai hinh", ".*JPG")
  Else
  Cancel = True
  End If
  Else
  Me.HINH = Getfile("Chon hinh vao du lieu", "Chon loai hinh", ".*JPG")
  End If
  Với HINH là Fied trong bản để chứa đường dẫn hình
  
  
  Bạn vẽ lên Form một Picture Control với Name ví dụ là "Imghinh"
  Vào sự kiện On Current của Form thêm Code này
  Me.Imghinh.Picture = Me.HINH
  Bạn thử xem sao nhé!

• RE: Cần giúp đỡ về menubar của Forms

  phanduythang > 13-05-12, 05:43 AM

  (05-05-12, 08:59 PM)Hoanggiathanhsingles Đã viết:

  (02-03-12, 07:05 PM)phanduythang Đã viết:

  (29-02-12, 01:50 PM)Noname Đã viết: Bạn tham khảo bài viết này để chèn ảnh vào chương trình cho đúng:
  http://thuthuataccess.com/forum/thread-81.html

  
  Mình chưa hiểu lắm ở bài hướng dẫn này. Ý tưởng của mình là mỗi một record sẽ add một ảnh khác nhau và khi vào xem thông tin sẽ hiển thị luôn ảnh theo record đó không cần bấm vào nut nhấn của nó nữa
  Lỗi ở file của mình như sau:
  Khi mình kích vào nút thêm/đổi hình http://nj0.upanh.com/b5.s13.d3/402950f38...6870.1.png
  
  và chọ 1 hình ảnh xong thì nó báo lỗi như sau http://nj2.upanh.com/b3.s3.d4/ae85e1e27c...6872.2.png
  
  sau đó chọn Debug http://nj5.upanh.com/b4.s25.d1/86f1a7781...6875.4.png
  
  thì nó báo lỗi ở chỗ này http://nj7.upanh.com/b5.s3.d4/21517e2b54...6877.5.png
  
  Bác có thể sửa giúp tôi lỗi này được không
  file đính kèm tôi đã gửi ở trên rồi
  Cảm ơn bác đã quan tâm và giúp đỡ

  
  Dear bạn
  Mình thường làm theo cách này:
  Trước hết bạn tạo 1 module hoặc vào phần General của Form tạo cái hàm Getfile này
  Function Getfile(Tit As String, Formatename As String, Formatetype As String) As String
  Dim dlgOpen As FileDialog
  Dim result
  Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
  With dlgOpen
  .Title = Tit
  '.Filters.Clear
  'Filters
  .AllowMultiSelect = False
  result = .Show
  If (result <> 0) Then
  Getfile = dlgOpen.SelectedItems(1)
  'Getfile = dlgOpen.FileName
  End If
  End With
  
  Trong sự kiện Click của nút "Thêm/Sửa hình" của bạn
  If Not IsNull(Me.HINH) Then
  Dim Cancel As Boolean
  Dim Respond
  Respond = MsgBox ("Da co hinh,ban co muon doi hinh khong?", vbQuestion + vbYesNo, "Ban dang doi hinh")
  If Respond = vbYes Then
  Me.HINH = Getfile("Chon hinh vao du lieu", "Chon loai hinh", ".*JPG")
  Else
  Cancel = True
  End If
  Else
  Me.HINH = Getfile("Chon hinh vao du lieu", "Chon loai hinh", ".*JPG")
  End If
  Với HINH là Fied trong bản để chứa đường dẫn hình
  
  
  Bạn vẽ lên Form một Picture Control với Name ví dụ là "Imghinh"
  Vào sự kiện On Current của Form thêm Code này
  Me.Imghinh.Picture = Me.HINH
  Bạn thử xem sao nhé!

  
  Came ơn bạn mình đã làm được rồi
• Bài trước Bài tiếp