-
Hiển thị thông báo khi nhập đến Recor cuối cùng
minhtam76 > 30-06-11, 04:11 PM
Nhờ các anh em giúp tôi vấn đề này.
Tôi có 1 Form nhập điểm, tôi muốn khi nhập đến thí sinh cuối cùng thì hiển thị một dòng thông báo kèm một tiếng Beep hoặc một âm thanh gì đó mình có thể đưa vào.
Link chương trình nè: http://www.mediafire.com/?1rpbp301se09934
Form nhập điểm này gọi theo mã phách, mỗi phòng có 1 mã phách. trong chương trình gửi kèm trên tôi có đưa 1 mã phách để thử.
Anh em nào giúp giùm với. Đang làm thi mà sắp nhập điểm rồi. -
RE: Hiển thị thông báo khi nhập đến Recor cuối cùng
Nguyendinhthanh > 30-06-11, 10:43 PM
(30-06-11, 04:11 PM)minhtam76 Đã viết: Nhờ các anh em giúp tôi vấn đề này.
Tôi có 1 Form nhập điểm, tôi muốn khi nhập đến thí sinh cuối cùng thì hiển thị một dòng thông báo kèm một tiếng Beep hoặc một âm thanh gì đó mình có thể đưa vào.
Link chương trình nè: http://www.mediafire.com/?1rpbp301se09934
Form nhập điểm này gọi theo mã phách, mỗi phòng có 1 mã phách. trong chương trình gửi kèm trên tôi có đưa 1 mã phách để thử.
Anh em nào giúp giùm với. Đang làm thi mà sắp nhập điểm rồi.
Copy vào subform nhé
Private Sub DiemthiVan_AfterUpdate()
On Error GoTo Err_DiemthiVan_Click
DoCmd.GoToRecord , , acNext
Exit_DiemthiVan_Click:
Exit Sub
Err_DiemthiVan_Click:
MsgBox "Bai cuoi cung cua tap bai", vbCritical, "Thông báo"
End Sub -
RE: Hiển thị thông báo khi nhập đến Recor cuối cùng
minhtam76 > 01-07-11, 09:08 AM
Cám ơn Bạn Thanh nhé. Cho mình hỏi thêm chút nữa được không ?
Mình muốn khi nhập mã phách xong, nhấn enter thì con trỏ nằm ngay ở vị trí bài thứ 6 của tập bài. Được không ?
Bạn giúp mình chút nhé. Cám ơn bạn nhiều. -
RE: Hiển thị thông báo khi nhập đến Recor cuối cùng
Nguyendinhthanh > 02-07-11, 05:07 PM
(01-07-11, 09:08 AM)minhtam76 Đã viết: Cám ơn Bạn Thanh nhé. Cho mình hỏi thêm chút nữa được không ?
Mình muốn khi nhập mã phách xong, nhấn enter thì con trỏ nằm ngay ở vị trí bài thứ 6 của tập bài. Được không ?
Bạn giúp mình chút nhé. Cám ơn bạn nhiều.
Copy doan nay vao nhe
Private Sub DiemthiVan_AfterUpdate()
On Error GoTo Err_DiemthiVan_Click
DoCmd.GoToRecord , , acGoTo, 6
Exit_DiemthiVan_Click:
Exit Sub
Err_DiemthiVan_Click:
MsgBox "Bai cuoi cung cua tap bai", vbCritical, "Thông báo"
End Sub