点击命令按钮打开一个新窗体，同时关闭当前窗体问题没解决

你先关闭了窗体，然后又在stLinkCriteria = "[生产ID]=" & Me![生产ID]中引用已关闭的窗体上的字段，自然会报错。请试试如下思路：

Private Sub 入库单测试_Click()
On Error GoTo Err_入库单测试_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
   
    A = Me![生产ID]         '在关闭当前窗体前，先将Me![生产ID]赋值给A
    DoCmd.Close
    DoCmd.OpenForm "入库单（机工车间） "

    stDocName = ChrW(20837) & ChrW(24211) & ChrW(21333) & ChrW(-248) & ChrW(26426) & ChrW(24037) & ChrW(-28826) & ChrW(-27148) & ChrW(-247)
   
    stLinkCriteria = "[生产ID]=" & A               '在此引用A的值，而不能引用Me![生产ID]，因为该窗体已关闭，变量已释放
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_入库单测试_Click:
    Exit Sub

Err_入库单测试_Click:
    MsgBox Err.Description
    Resume Exit_入库单测试_Click
   
End Sub