如何根据另一个文本框的数量替换最后一个字符

Question

我正在尝试为注册表格创建自定义自动编号。

以我的形式，我有一个未绑定的文本框（txtposition），该文本框获取当前记录号。该编号是实际的记录编号。如果我有10条记录，而我在最后一条记录中，它将显示为10。

我有另一个文本框（txtref），默认值为0000。我需要获取的是txtposition的计数（如果10表示2，而100表示​​3），然后根据txtref的计数将0000从0010替换为0100或txtposition。

我已经有另一个未绑定的文本框，如果需要，它将连接结果。我正在尝试通过以下方法完成此任务：

spacepos: InStr([Forms]![Jobsheet]![Text516],"0000")
FN: Left([Forms]![Jobsheet]![Text516],[spacepos])
我知道这将需要INSTR，LEN，RIGHT或LEFT的组合，并且肯定需要REPLACE的功能。

我的编码知识太基础了，但是我可以理解。

用于获取txtposition的当前记录号的代码：

Private Sub Form_Current()
    On Error GoTo err_form_current

    Dim rst As Recordset
    Set rst = Me.RecordsetClone
    rst.Bookmark = Me.Bookmark
    Me.txtPosition = rst.AbsolutePosition + 1

exit_form_current:
    Set rst = Nothing
    Exit Sub

err_form_current:
    If Err = 3021 Then 'no current record
        Me.txtPosition = rst.RecordCount + 1
    Else
        MsgBox Error$, 16, "Error in Form_Current()"
    End If
    Resume exit_form_current
End Sub

我正在尝试为注册表格创建自定义自动编号。在我的表单中，我有一个未绑定的文本框（txtposition），它获取当前记录号。该编号是实际的记录编号。如果...

Answer 1