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

Tạo ID

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Help] Tạo ID
• Tạo ID

• Tạo ID

  thanhquyt > 26-03-16, 11:40 PM

  Chào mọi người
  Mình có đoạn code như dưới - Nó có tác dụng là tạo mã id - khi tạo được 100 record thì nó không tạo được nữa.Ai biết lỗi chổ nào giúp mình với
  

  Mã:

  Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim st As String
Dim i As Integer
i = 1
Set db = CurrentDb
Set rs = db.OpenRecordset("Table1", dbOpenDynaset)
rs.MoveFirst

Do While Not rs.EOF
st = ""
st = st & Day(Now) & Month(Now) & Year(Now) & i
   If IsNull(rs!maso) Or rs!maso = "" Then
      rs.Edit
        rs!maso = CLng(st)
        rs.Update
        rs.MoveNext
   Else
        rs.MoveNext
   End If
   i = i + 1
Loop

Set rs = Nothing

• RE: Tạo ID

  ongke0711 > 27-03-16, 12:04 AM

  Bạn xem lại kiểu dữ liệu của trường [maso]. Tôi nghĩ khi lên tới số 100 tức là "ddmmyyyy100" 11 ký tự có thể vượt quá hạn mức cho phép của kiểu dữ liệu bạn chọn.
  Vd: [maso] của bạn kiểu Long integer thì chỉ có giá trị trong khoảng - 2,1 tỷ đến + 2,1 tỷ.  Nếu số stt của bạn là 31032016100 là vượt quá giới hạn rồi.

• RE: Tạo ID

  thanhquyt > 27-03-16, 12:24 AM

  (27-03-16, 12:04 AM)ongke0711 Đã viết: Bạn xem lại kiểu dữ liệu của trường [maso]. Tôi nghĩ khi lên tới số 100 tức là "ddmmyyyy100" 11 ký tự có thể vượt quá hạn mức cho phép của kiểu dữ liệu bạn chọn.
  Vd: [maso] của bạn kiểu Long integer thì chỉ có giá trị trong khoảng - 2,1 tỷ đến + 2,1 tỷ.  Nếu số stt của bạn là 31032016100 là vượt quá giới hạn rồi.

  
  Cảm ơn bạn
  Bạn tư vấn giúp mình nếu 100 đó là 1000000 thì phải chọn như thế nào bạn

• RE: Tạo ID

  ongke0711 > 27-03-16, 01:01 AM

  Bạn sử dụng kiểu Number - Double em thử. Nó chính xác đến 15 số. Còn nhiều hơn nữa thì dạng Text.
• Bài trước Bài tiếp