• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Hỏi cách chọn combobox tự động

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] Hỏi cách chọn combobox tự động
• Hỏi cách chọn combobox tự động

• Hỏi cách chọn combobox tự động

  cannguyen > 02-06-16, 01:52 PM

  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

• RE: Hỏi cách chọn combobox tự động

  ongke0711 > 02-06-16, 04:09 PM

  - 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 


• RE: Hỏi cách chọn combobox tự động

  cannguyen > 02-06-16, 04:15 PM

  (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é

• RE: Hỏi cách chọn combobox tự động

  phuc_thanhtien > 03-06-16, 07:16 PM

  (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 ạ.

• RE: Hỏi cách chọn combobox tự động

  cannguyen > 03-06-16, 07:34 PM

  (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

• RE: Hỏi cách chọn combobox tự động

  ongke0711 > 03-06-16, 08:14 PM

  (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.cboMaSV) Then 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 


• RE: Hỏi cách chọn combobox tự động

  cannguyen > 03-06-16, 11:40 PM

  (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.cboMaSV) Then 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
• Bài trước Bài tiếp