Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Sửa lỗi msgbox khi chạy code
#1
Tôi viết một số dòng lênh như sau:

Private Sub Command21_Click()
Select Case Thihanh

Case 1
DoCmd.Close
DoCmd.OpenForm "Xep_Lop", acNormal
Beep
Case 2
DoCmd.Close
DoCmd.OpenForm "Xeplop_XETTUYENNV1", acNormal
Beep
Case 7

DoCmd.OpenQuery "Xoa_Xeplopmoi", acNormal

Thongbao = Thongbao & "Da thuc hien xong ?"
MsgBox Thongbao, vbOKOnly, "Truong Minh Tam noi rang:"
Case 8

DoCmd.OpenQuery "Xeplop_Xong", acNormal

Thongbao = Thongbao & "Da thuc hien xong ?"
MsgBox Thongbao, vbOKOnly, "Truong Minh Tam noi rang:"

End Select
End Sub


Khi chạy nó vẫn thi hành lệnh nhưng lại báo lỗi ở dòng này:

Thongbao = Thongbao & "Da thuc hien xong ?"
MsgBox Thongbao, vbOKOnly, "Truong Minh Tam noi rang:"

Nhờ các bác sữa dùm.Cry_smile

Sao diễn đàn bây giờ không cho up ảnh lên ta ?
Chữ ký của minhtam76 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
Bạn đọc bài viết này để biết cách up file và hình!
http://thuthuataccess.com/forum/Thread-d...-file-hinh

Tốt nhất bạn nên nén file của bạn lại và up lên, mọi người mới nhanh chóng hiểu vấn đề của bạ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 minhtam76
#3
File đính kèm

http://www.mediafire.com/?25dxsrjex9kvxa4

http://dl.dropbox.com/u/28047445/Quan%20Li%20Diem.zip

Nhờ các cao thủ gỡ giúp.
Chữ ký của minhtam76 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
Lỗi của bạn ở chữ thông báo, nó là một lablel. Vì vậy, để lấy giá trị của nó bạn có thể ghi:
Mã:
thongbao1=thongbao.caption & " Da thuc hien xong"
MsgBox thongbao1, vbOKOnly, "Truong Minh Tam noi rang:"

Hoặc ý đồ của bạn không phải là lấy nội dung của lable thông báo, thì điền thẳng:

Mã:
MsgBox "da thuc hien xong", vbOKOnly, "Truong Minh Tam noi rang:"
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn minhtam76 , haquocquan
#5
Ý đồ của tôi là ở dòng thứ code thứ 2 mà bạn gợi ý.
Cám ơn Noname nhờ Noname mà mình còn biết được cách up dữ liệu lên nữa.


Chữ ký của minhtam76 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
(03-05-11, 11:52 PM)Noname Đã viết: Lỗi của bạn ở chữ thông báo, nó là một lablel. Vì vậy, để lấy giá trị của nó bạn có thể ghi:
Mã:
thongbao1=thongbao.caption & " Da thuc hien xong"
MsgBox thongbao1, vbOKOnly, "Truong Minh Tam noi rang:"

Hoặc ý đồ của bạn không phải là lấy nội dung của lable thông báo, thì điền thẳng:

Mã:
MsgBox "da thuc hien xong", vbOKOnly, "Truong Minh Tam noi rang:"

uh, neu toi co... hiiiii
Chữ ký của hdh910 Xin chào, mình là hdh910, Tham gia http://thuthuataccess.com/forum từ ngày 07-03 -12.
Reply
Những người đã cảm ơn
#7
(07-03-12, 11:19 PM)hdh910 Đã viết:
(03-05-11, 11:52 PM)Noname Đã viết: Lỗi của bạn ở chữ thông báo, nó là một lablel. Vì vậy, để lấy giá trị của nó bạn có thể ghi:
Mã:
thongbao1=thongbao.caption & " Da thuc hien xong"
MsgBox thongbao1, vbOKOnly, "Truong Minh Tam noi rang:"

Hoặc ý đồ của bạn không phải là lấy nội dung của lable thông báo, thì điền thẳng:

Mã:
MsgBox "da thuc hien xong", vbOKOnly, "Truong Minh Tam noi rang:"

uh, neu toi co... hiiiii
Nhờ mọi các cao thủ giúp mình bài nay nhé
Minh đang cần viết code để thực hiện các chon lựa trong option khi check 1 cái
http://www.mediafire.com/?d3zny67s6v5jyu0
Chữ ký của hdh910 Xin chào, mình là hdh910, Tham gia http://thuthuataccess.com/forum từ ngày 07-03 -12.
Reply
Những người đã cảm ơn
#8
(08-03-12, 12:45 AM)hdh910 Đã viết: Nhờ mọi các cao thủ giúp mình bài nay nhé
Minh đang cần viết code để thực hiện các chon lựa trong option khi check 1 cái
http://www.mediafire.com/?d3zny67s6v5jyu0

Bạn xem file: code ở nút lệnh command12


File đính kèm
.zip   QLSV.zip (Kích cỡ: 33.98 KB / Tải về: 0)
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#9
Mình dùng MsgBox "........"
Nhưng không thể hiển thị hết thông tin mình muốn thông báo (khoảng 50 ký tự). các bạn có cách nào thay đổi kích thước của msgbox giúp mình với.tks
Chữ ký của khaccuong Xin chào, mình là khaccuong, Tham gia http://thuthuataccess.com/forum từ ngày 20-04 -11.
Reply
Những người đã cảm ơn
#10
Có đấy bạn ạ. Mình thấy trên diễn đàn có 1 topic của hướng dẫn về hiển thị msgbox tiếng việt đó. cái này hay lắm.http://thuthuataccess.com/forum/thread-52.html. bạn tham khảo bài viết ở topic này nhé. chúc bạn thành công.007
Chữ ký của quanghoasla Hãy chia sẻ kinh nghiệm cùng mình trênThuThuatAccess nhé! Chúc vui vẻ rose
My site: My site hoặc My site
ღღღღღTài sản của quanghoasla (View All Items) ღღღღღ
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
  [Hỏi] Việc set thuộc tính OnClick trong Code toancvp 5 228 31-10-16, 10:14 AM
Bài mới nhất: toancvp
  [Lỗi] Không chạy được VBA Code hungthanmx 3 214 04-09-16, 03:48 PM
Bài mới nhất: Nguyen Hoang Diep
  [Hỏi] File chạy chậm vì trong quá trình design phải chỉnh sửa và test thử nhiều. toancvp 4 262 29-07-16, 11:36 PM
Bài mới nhất: toancvp
  chạy file access trên mạng internet thanhtruong 15 861 11-06-16, 01:38 AM
Bài mới nhất: nguyenvantien87
  [Help] ai giúp mình code lại sql này thành access với li_95 0 121 24-04-16, 05:59 PM
Bài mới nhất: li_95

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ơ