Đá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
  [Hỏi] Lỗi khi dùng VBA - Combobox toidjtjmtoi 6 146 20-09-17, 06:06 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] cách Khóa form không cho click ra ngoài toidjtjmtoi 3 105 08-09-17, 12:30 PM
Bài mới nhất: toidjtjmtoi
  [Hỏi] Giữ nguyên lựa chọn textbox ? thanhhao 7 187 03-07-17, 11:53 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Xin trợ giúp câu lệnh tự động lên lớp khi giới hạn thời gian truongtrungviet 14 707 02-07-17, 05:01 PM
Bài mới nhất: maidinhdan
  [Hỏi] Tại saoform không hiện thị được dấu phân cách hàng ngàn thanhhao 6 258 26-06-17, 11:45 AM
Bài mới nhất: tranthanhan1962

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ơ