Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Hỏi cách chọn combobox tự động
#1
Mình có 1 yêu cầu mà nghĩ hoài không ra. bạn nào biết giúp mình với nhé
(File đính kèm)
Combobox lấy nguồn từ bảng sinh viên có (SV1, SV2,...)
Mình muốn: Khi trong combobox chọn SV1 sau đó nhấn vào nút SV kế tiếp thì combobox nhảy sang SV2. Khi nhấn tiếp nút SV kế tiếp thì combobox lại nhảy sang SV3 (Tức là mình muốn làm cách nào để combobox chọn tự động chứ không phải thủ công)
Cảm ơn các bạn nhiều
MÌnh đang cần gấp, mong các bạn giúp mình nhé, cảm ơn nhiều nhiều nhiều
Link: https://drive.google.com/file/d/0B7F3oAX...sp=sharing
Chữ ký của cannguyen Xin chào, mình là cannguyen, Tham gia http://thuthuataccess.com/forum từ ngày 15-08 -11.
Reply
Những người đã cảm ơn
#2
- Bạn đặt tên combobox mã SV là: cboMaSV
- Tạo 2 nút lệnh về trước và kế tiếp: cmdNext, cmdPre
- Code:
Mã PHP:
Private Sub cmdNext_Click()
 
   Me.cboMaSV.SetFocus
   If Me
.cboMaSV.ListIndex <> Me.cboMaSV.ListCount 1 Then
       Me
.cboMaSV.ListIndex Me.cboMaSV.ListIndex 1
   Else
       Me
.cboMaSV.ListIndex 0
   End 
If
End Sub

Private Sub cmdPre_Click()
   Me.cboMaSV.SetFocus
   If Me
.cboMaSV.ListIndex <> 0 Then
       Me
.cboMaSV.ListIndex Me.cboMaSV.ListIndex 1
   Else
       Me
.cboMaSV.ListIndex Me.cboMaSV.ListCount 1
   End 
If
End Sub 
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan
#3
(02-06-16, 04:09 PM)ongke0711 Đã viết: - Bạn đặt tên combobox mã SV là: cboMaSV
- Tạo 2 nút lệnh về trước và kế tiếp: cmdNext, cmdPre
- Code:
Mã PHP:
Private Sub cmdNext_Click()
   Me.cboMaSV.SetFocus
   If Me
.cboMaSV.ListIndex <> Me.cboMaSV.ListCount 1 Then
       Me
.cboMaSV.ListIndex Me.cboMaSV.ListIndex 1
   Else
       Me
.cboMaSV.ListIndex 0
   End 
If
End Sub

Private Sub cmdPre_Click()
   Me.cboMaSV.SetFocus
   If Me
.cboMaSV.ListIndex <> 0 Then
       Me
.cboMaSV.ListIndex Me.cboMaSV.ListIndex 1
   Else
       Me
.cboMaSV.ListIndex Me.cboMaSV.ListCount 1
   End 
If
End Sub 

Anh cao thủ quá, cảm ơn anh nhiều nhé. Bữa nào có dịp mời anh uống cafe nhé
Chữ ký của cannguyen Xin chào, mình là cannguyen, Tham gia http://thuthuataccess.com/forum từ ngày 15-08 -11.
Reply
Những người đã cảm ơn
#4
(02-06-16, 04:09 PM)ongke0711 Đã viết: - Bạn đặt tên combobox mã SV là: cboMaSV
- Tạo 2 nút lệnh về trước và kế tiếp: cmdNext, cmdPre
- Code:
Mã PHP:
Private Sub cmdNext_Click()
   Me.cboMaSV.SetFocus
   If Me
.cboMaSV.ListIndex <> Me.cboMaSV.ListCount 1 Then
       Me
.cboMaSV.ListIndex Me.cboMaSV.ListIndex 1
   Else
       Me
.cboMaSV.ListIndex 0
   End 
If
End Sub

Private Sub cmdPre_Click()
   Me.cboMaSV.SetFocus
   If Me
.cboMaSV.ListIndex <> 0 Then
       Me
.cboMaSV.ListIndex Me.cboMaSV.ListIndex 1
   Else
       Me
.cboMaSV.ListIndex Me.cboMaSV.ListCount 1
   End 
If
End Sub 
Mình thấy là khi mới load form mà bấm nút về trước thì sẽ báo lỗi mà code mình không rành.
Đề nghị bạn cho thêm code bẫy lỗi nút về trước luôn đi ạ.
Chữ ký của phuc_thanhtien phuc_thanhtien,gia nhập Thủ Thuật Access từ 08-03 -16.
Reply
Những người đã cảm ơn
#5
(03-06-16, 07:16 PM)phuc_thanhtien Đã viết:
(02-06-16, 04:09 PM)ongke0711 Đã viết: - Bạn đặt tên combobox mã SV là: cboMaSV
- Tạo 2 nút lệnh về trước và kế tiếp: cmdNext, cmdPre
- Code:
Mã PHP:
Private Sub cmdNext_Click()
   Me.cboMaSV.SetFocus
   If Me
.cboMaSV.ListIndex <> Me.cboMaSV.ListCount 1 Then
       Me
.cboMaSV.ListIndex Me.cboMaSV.ListIndex 1
   Else
       Me
.cboMaSV.ListIndex 0
   End 
If
End Sub

Private Sub cmdPre_Click()
   Me.cboMaSV.SetFocus
   If Me
.cboMaSV.ListIndex <> 0 Then
       Me
.cboMaSV.ListIndex Me.cboMaSV.ListIndex 1
   Else
       Me
.cboMaSV.ListIndex Me.cboMaSV.ListCount 1
   End 
If
End Sub 
Mình thấy là khi mới load form mà bấm nút về trước thì sẽ báo lỗi mà code mình không rành.
Đề nghị bạn cho thêm code bẫy lỗi nút về trước luôn đi ạ.

Em không cần nút về trước anh à. Vậy là ok lắm rồi
Chữ ký của cannguyen Xin chào, mình là cannguyen, Tham gia http://thuthuataccess.com/forum từ ngày 15-08 -11.
Reply
Những người đã cảm ơn
#6
(03-06-16, 07:16 PM)phuc_thanhtien Đã viết:
(02-06-16, 04:09 PM)ongke0711 Đã viết: ...
Mình thấy là khi mới load form mà bấm nút về trước thì sẽ báo lỗi mà code mình không rành.
Đề nghị bạn cho thêm code bẫy lỗi nút về trước luôn đi ạ.

- Khi load form, combobox chưa có giá trị nên nút [về trước] sẽ báo lỗi (lúc đó ListIndex của nó là: -1 mà chạy về trước sẽ là -2, mà giá trị của combobox là từ 0 đến số + nào đó => báo lỗi)
- Có 2 cách sửa:
     + Gán giá trị mặc định cho combobox khi load form. Vd: Default value:"sv1"
     + Hoặc thêm dòng lệnh kiểm tra combobox có rỗng hay không, nếu có thì thoát
        
Mã PHP:
Private Sub cmdPre_Click()
  If IsNull(Me.cboMaSVThen Exit Sub
  Me
.cboMaSV.SetFocus
  
If Me.cboMaSV.ListIndex <> 0 Then
      Me
.cboMaSV.ListIndex Me.cboMaSV.ListIndex 1
  
Else
      Me.cboMaSV.ListIndex Me.cboMaSV.ListCount 1
  End 
If 
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn phuc_thanhtien
#7
(03-06-16, 08:14 PM)ongke0711 Đã viết:
(03-06-16, 07:16 PM)phuc_thanhtien Đã viết:
(02-06-16, 04:09 PM)ongke0711 Đã viết: ...
Mình thấy là khi mới load form mà bấm nút về trước thì sẽ báo lỗi mà code mình không rành.
Đề nghị bạn cho thêm code bẫy lỗi nút về trước luôn đi ạ.

- Khi load form, combobox chưa có giá trị nên nút [về trước] sẽ báo lỗi (lúc đó ListIndex của nó là: -1 mà chạy về trước sẽ là -2, mà giá trị của combobox là từ 0 đến số + nào đó => báo lỗi)
- Có 2 cách sửa:
     + Gán giá trị mặc định cho combobox khi load form. Vd: Default value:"sv1"
     + Hoặc thêm dòng lệnh kiểm tra combobox có rỗng hay không, nếu có thì thoát
        
Mã PHP:
Private Sub cmdPre_Click()
  If IsNull(Me.cboMaSVThen Exit Sub
  Me
.cboMaSV.SetFocus
  
If Me.cboMaSV.ListIndex <> 0 Then
      Me
.cboMaSV.ListIndex Me.cboMaSV.ListIndex 1
  
Else
      Me.cboMaSV.ListIndex Me.cboMaSV.ListCount 1
  End 
If 

Dạ, cũng với chức năng form này, em sẽ hỏi anh một yêu cầu nữa nhé. Em chắc chắn là anh làm được, hihi
Chữ ký của cannguyen Xin chào, mình là cannguyen, Tham gia http://thuthuataccess.com/forum từ ngày 15-08 -11.
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
  Cách đề tạo Combo Box và List Box Tương ứng Godspear 9 303 Hôm qua, 03:44 PM
Bài mới nhất: toancvp
  [Hỏi] Refresh Form và tiếp tục hoạt động Godspear 2 84 Hôm qua, 12:48 PM
Bài mới nhất: Godspear
  [Hỏi] Cách thêm dữ liệu vào form Main_Sub NganNguyen 1 39 06-12-16, 02:23 AM
Bài mới nhất: maidinhdan
  Tự động hiện Form khi loading hết thời gian ChiMai 1 49 02-12-16, 08:59 PM
Bài mới nhất: ongke0711
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 209 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq

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ơ