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

Số báo danh gắn thêm mã trường

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Số báo danh gắn thêm mã trường
• Số báo danh gắn thêm mã trường

• Số báo danh gắn thêm mã trường

  dungnvl08 > 19-06-14, 09:43 PM

  Mình muốn thực hiện yêu cầu như sau:
  Tại forms SoBaoDanh có một Text Bok Matruong nhập một mã bất kỳ là hai số (10, 11, 12 ...) và đánh số báo danh thì mã trường được gắn vào số báo danh của học sinh và định dạnh 6 số (100001, 110001, 120001 ...)
  Các cao thủ giúp đỡ nhé.
  Chân thành cảm ơn.
  Gửi theo file demo

• RE: Số báo danh gắn thêm mã trường

  Minh Tiên > 20-06-14, 11:57 AM

  Thế này:
  1.Trường hợp chưa có số báo danh, muốn đánh số báo danh theo thứ tự tăng dần + Ghép mã trường thì:
  

  Mã:

  Private Sub Thucthi_Click()
    Dim stt As Integer: stt = 0
    Dim rst As Recordset
    Dim db As Database
    Set db = CurrentDb()
    Set rst = db.OpenRecordset("table1") 'table1 có trường Sobaodanh
    If Nz(Me.MaTruong, "") = "" Then
        MsgBox "Chưa có mã trường !"
        Me.MaTruong.SetFocus
        Exit Sub
    Else
        If rst.RecordCount > 0 Then
            rst.MoveFirst
            Do Until rst.EOF
            rst.Edit
            stt = stt + 1
            rst!Sobaodanh = Me.MaTruong & Format(stt, "0000")
            rst.Update
            rst.MoveNext
            Loop
        End If
    End If
    rst.Close
    Set db=Nothing
End Sub

  2. Trường hợp bạn đã có trường số báo danh rồi, chỉ việc ghép với mã trường thì bạn đổi lệnh:
  

  Mã:

  rst!Sobaodanh = Me.MaTruong & Format(stt, "0000")

  Thành lệnh:
  

  Mã:

  rst!Sobaodanh=Me.MaTruong & rst!Sobaodanh

  là OK.
  
  Chúc bạn thành công !

• RE: Số báo danh gắn thêm mã trường

  dungnvl08 > 20-06-14, 02:58 PM

  Cảm ơn bác nhiều!!!
  Em đã làm được.
• Bài trước Bài tiếp