Mình đã tạo nút Đánh số và code như sau:
Private Sub Cmd1_Click()
Dim rs As Recordset
Dim so As Integer
Set rs = CurrentDb.OpenRecordset("T_NhatKy", dbOpenTable)
Set so = 1
If rs.RecordCount > 0 Then
rs.MoveFirst
Me.SOCTX.Value = Nz(Me.MACT.Column(1), "") & Format(Me.NGAYCT, "mm") & FnFixSOCT(Me.SOCTX) & so
Do Until rs.EOF
so = so + 1
Me.SOCTX.Value = Nz(Me.MACT.Column(1), "") & Format(Me.NGAYCT, "mm") & FnFixSOCT(Me.SOCTX) & so
rs.MoveNext
Loop
End If
rs.Close
End Sub
Nhưng khi bấm vào nút thì ko thấy báo lỗi cả không thấy nó đặt lại số chứng từ.
Còn cái hàm FnFixSoCT như sau:
Function FnFixSOCT(SOCT As String) As String
Dodai = Val(Syscode(15)): FnFixSOCT = Right("0000000000" & SOCT, Dodai)
End Function
Xin giúp đỡ