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

Gúi tôi về thứ tự tăng dần

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] Gúi tôi về thứ tự tăng dần
• Gúi tôi về thứ tự tăng dần

• Gúi tôi về thứ tự tăng dần

  xndt > 14-12-16, 11:07 AM

  Các Bác giúp em với!
  Em có form lập hồ sơ cho khách hàng, và có mã khách hàng tự động tăng khi thêm mới hồ sơ VD: HS0001 khi thêm mới sẽ tự động tăng lên là HS0002, nhưng trong quá trình sử dụng đến khách hàng thứ 100 (HS0100) thì không cho tăng nữa, khi thêm mới đáng ra phải là HS0101 thì lại chỉ ở HS0100 và báo lỗi "Mã số đã tồn tại". Code đây mong các cao thủ giúp em....
  
  Private Sub Them_Click()
      On Error GoTo Err_Them_Click
      DoCmd.GoToRecord , , acNewRec
      Call MoKhoa
      MaHS.SetFocus
      Dau.Enabled = False
      Sau.Enabled = False
      Truoc.Enabled = False
      Cuoi.Enabled = False
      Thoat.Enabled = False
      Sua.Enabled = False
      Xoa.Enabled = False
      Ghi.Enabled = True
      Khong.Enabled = True
      Tiep.Enabled = False
      xthem = True
      
  Dim HSmax
  Dim rshs As Recordset
  Set rshs = CurrentDb.OpenRecordset("T11HoSo")
  If rshs.RecordCount > 0 Then
      HSmax = DMax("cint(right([MaHS],len([MaHS])-4))", "T11HoSo")
  Else
      HSmax = 0
  End If
  rshs.Close
  Set rshs = Nothing
  Me.MaHS.Value = "HS" & Format(HSmax + 1, "0000")
  DoCmd.RunCommand acCmdSaveRecord
  Exit_Them_Click:
      Exit Sub
      
  Err_Them_Click:
      MsgBox "Mã số đã tồn tại"
      DoCmd.RunCommand acCmdUndo
      MsgBox Err.Description
      Resume Exit_Them_Click
  End Sub
  
  Private Sub Thoat_Click()
      On Error GoTo Err_Thoat_Click
      DoCmd.Close
  Exit_Thoat_Click:
          Exit Sub
  Err_Thoat_Click:
      MsgBox Err.Description
      Resume Exit_Thoat_Click
  End Sub

• RE: Gúi tôi về thứ tự tăng dần

  toancvp > 14-12-16, 12:38 PM

  Hic, Code bạn thế này mà cho vào cơ bản, mình chạy dài ko kịp. Theo mình lỗi phát sinh ở đây:
  
  HSmax = DMax("cint(right([MaHS],len([MaHS])-4))", "T11HoSo")
  
  Lấy 1 mã KH làm ví dụ: HS0001
  
  right([MaHS],len([MaHS])-4) sẽ ra là ===> right([MaHS],2) ===> "01"
  Như thế dmax tối đa chỉ ra 99 thôi, +1 là 100 là đúng rồi
  
  Nên sửa lại là: HSmax = DMax("cint(right([MaHS], 4 ))", "T11HoSo")

• RE: Gúi tôi về thứ tự tăng dần

  xndt > 14-12-16, 04:06 PM

  (14-12-16, 12:38 PM)toancvp Đã viết: Hic, Code bạn thế này mà cho vào cơ bản, mình chạy dài ko kịp. Theo mình lỗi phát sinh ở đây:
  
  HSmax = DMax("cint(right([MaHS],len([MaHS])-4))", "T11HoSo")
  
  Lấy 1 mã KH làm ví dụ: HS0001
  
  right([MaHS],len([MaHS])-4) sẽ ra là ===> right([MaHS],2) ===> "01"
  Như thế dmax tối đa chỉ ra 99 thôi, +1 là 100 là đúng rồi
  
  Nên sửa lại là: HSmax = DMax("cint(right([MaHS], 4 ))", "T11HoSo")

  Cám ơn bạn nhé, đúng như bạn  HSmax = DMax("cint(right([MaHS], 4 ))", "T11HoSo") mình Đã sửa lại code nhưng vẫn ko đc bạn ơi, giúp mình với. đang cần và bí quá?

• RE: Gúi tôi về thứ tự tăng dần

  xndt > 14-12-16, 04:33 PM

  Cám ơn bạn toancvp nhờ bạn hướng dẫn tôi sử lý đc rồi.
• Bài trước Bài tiếp