Access VBA实现类Excel MID功能：提取索赔号中间数字并复制

当然可以实现！Access提供了足够的字符串处理能力，而且完全能做一个一键复制的按钮，我给你分步拆解：

1. 提取索赔号中的数字部分 #

你熟悉Excel的MID函数，Access里同样有Mid函数，用法几乎一致。针对你说的格式A999999999999001（开头A、末尾001固定），我们需要：

• 跳过第1位的字母A
• 去掉最后3位的固定后缀001

对应的表达式是：

Mid([你的文本框名称], 2, Len([你的文本框名称]) - 4)

• Len([文本框])用来获取索赔号的总长度，减去4是因为要去掉1位前缀+3位后缀
• 从第2位开始，提取剩下的数字部分

举个例子，如果你的文本框名叫txtClaimID，那提取表达式就是Mid(Me.txtClaimID, 2, Len(Me.txtClaimID) - 4)，直接在窗体的计算控件或者VBA里都能用。

2. 制作"COPY"按钮一键复制到剪贴板 #

要实现点击按钮复制到剪贴板，需要写一段简单的VBA代码，步骤如下：

1. 打开窗体的设计视图，添加一个按钮，设置按钮标题为COPY
2. 右键按钮 → 选择「事件生成器」，进入VBA编辑器
3. 粘贴以下代码（记得把txtClaimID改成你实际的文本框名称）：

Private Sub cmdCopy_Click()
    Dim targetNumber As String
    ' 先提取需要复制的数字部分
    targetNumber = Mid(Me.txtClaimID, 2, Len(Me.txtClaimID) - 4)
    
    ' 复制到剪贴板（用系统剪贴板对象，不需要额外引用）
    With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText targetNumber
        .PutInClipboard
    End With
    
    ' 可选：给用户一个成功提示
    MsgBox "索赔号数字部分已复制到剪贴板！", vbInformation
End Sub

4. 保存代码和窗体，切换到窗体视图测试即可

这段代码用了系统内置的剪贴板对象，不需要额外添加引用，兼容性很好。

内容的提问来源于stack exchange，提问作者Checht