Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Cần giúp đỡ sửa Lỗi add picture vào record
#1
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
Chữ ký của phanduythang Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#2
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.
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
(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
Chữ ký của phanduythang Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#4
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
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn phanduythang
#5
(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
Chữ ký của phanduythang Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#6
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
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
(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
[Hình: 04ec4a8589504038e3cff08025c39b81_41546870.1.120x1.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
[Hình: 9dfbf03717a15ebc2b896910a71fdeb7_41546872.2.120x1.png]
sau đó chọn Debug http://nj5.upanh.com/b4.s25.d1/86f1a7781...6875.4.png
[Hình: 8aa3b896bf347a89a3da7e2bcf482aeb_41546875.4.120x1.png]
thì nó báo lỗi ở chỗ này http://nj7.upanh.com/b5.s3.d4/21517e2b54...6877.5.png
[Hình: a70c319cd2688691596e9fe8c89186d7_41546877.5.120x1.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 đỡ
Chữ ký của phanduythang Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#8
(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
[Hình: 04ec4a8589504038e3cff08025c39b81_41546870.1.120x1.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
[Hình: 9dfbf03717a15ebc2b896910a71fdeb7_41546872.2.120x1.png]
sau đó chọn Debug http://nj5.upanh.com/b4.s25.d1/86f1a7781...6875.4.png
[Hình: 8aa3b896bf347a89a3da7e2bcf482aeb_41546875.4.120x1.png]
thì nó báo lỗi ở chỗ này http://nj7.upanh.com/b5.s3.d4/21517e2b54...6877.5.png
[Hình: a70c319cd2688691596e9fe8c89186d7_41546877.5.120x1.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é!
Chữ ký của Hoanggiathanhsingles Xin chào! Mình là Hoanggiathanhsingles, thành viên của Thủ Thuật Access tham gia ngày Oct 2010.
Reply
Những người đã cảm ơn phanduythang
#9
(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
[Hình: 04ec4a8589504038e3cff08025c39b81_41546870.1.120x1.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
[Hình: 9dfbf03717a15ebc2b896910a71fdeb7_41546872.2.120x1.png]
sau đó chọn Debug http://nj5.upanh.com/b4.s25.d1/86f1a7781...6875.4.png
[Hình: 8aa3b896bf347a89a3da7e2bcf482aeb_41546875.4.120x1.png]
thì nó báo lỗi ở chỗ này http://nj7.upanh.com/b5.s3.d4/21517e2b54...6877.5.png
[Hình: a70c319cd2688691596e9fe8c89186d7_41546877.5.120x1.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
Chữ ký của phanduythang Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
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
  [Help] Chỉnh giúp Form thống kê hoanghai902 2 125 28-10-16, 06:15 PM
Bài mới nhất: hoanghai902
  Xin giúp tạo 1 trường trong table đánh số tự động thay cho autonumber trungminh 7 450 16-09-16, 05:17 PM
Bài mới nhất: maidinhdan
  Giúp đỡ về form với trungminh 9 492 10-09-16, 09:17 PM
Bài mới nhất: trungminh
  Lưu Record honglv157 6 212 15-07-16, 10:56 AM
Bài mới nhất: honglv157
  [Hỏi] Cách hiện các record trong combo box theo điều kiện toancvp 5 335 02-07-16, 12:21 AM
Bài mới nhất: toancvp

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ơ