帮忙看看这段新建记录代码有没有问题

yori2007

不知道为什么，新建记录，新建以C开头的记录可以成功录入，而以V开头的不能录入。

Public coTBuyInvoice As New Collection

Public Sub NewTBuyInvoice()
On Error GoTo NewTBuyInvoice_Err
Dim mId As String
mId = InputBox("请输入发票号", "提示")
If mId & "" = "" Then
    Exit Sub
End If
If DCount("InvoiceId", "tbTBuyInvoice", "InvoiceId='" & mId & "'") <> 0 Then
    MsgBox "此发票号已经存在,请重新输入!", vbExclamation, "提示"
    Exit Sub
End If

'新建发票
Dim rs As New ADODB.Recordset
rs.Open "tbTBuyInvoice", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
        With rs
            .AddNew
            ![InvoiceId] = mId
            ![BuildDate] = Date
            ![BuildMan] = DLookup("EmployeeId", "tbEmployee", "UserName='" & mUserName & "'")
            .Update
        End With
        rs.Close
        Set rs = Nothing
        DoCmd.Requery
'打开新记录编辑
        Dim fm As Form
        Set fm = New Form_fmTBuyInvoice  ‘打开新窗口
        fm.FilterOn = True
        fm.Filter = "Me.InvoiceId='" & mId & "'"   ‘过滤
        fm.AllowAdditions = False  ‘表头不可编辑
        fm.Caption = "编辑发票" & mId
        fm.Visible = True
        coTBuyInvoice.Add Item:=fm, Key:=CStr(fm.Hwnd)
        Set fm = Nothing
NewTBuyInvoice_Exit:
    Exit Sub
NewTBuyInvoice_Err:
    MsgBox Err.Description
    Resume NewTBuyInvoice_Exit
End Sub

yori2007

在新建的InvoiceId下建记录啊，关键问题是不知道coTBuyInvoice.Add Item:=fm, Key:=CStr(fm.Hwnd)
，这句话，有没有问题

yori2007

求关注啊

yori2007

求关注

yori2007

新增记录，以V开头的数据会弹出空白窗口，以C开头的没问题

yori2007

我现在纠结的是，为什么C可以，而V不可以啊

yori2007

晕，到现在才看到审核后的帖子，谢谢，我试试啊

yori2007

好像还是有错，我还是纠结于       Dim fm As Form
        Set fm = New Form_fmTBuyInvoice  '打开新窗口
        fm.RecordSource = "select * from tbTBuyInvoice where InvoiceId='" & mId & "'"
        fm.AllowAdditions = False  '表头不可编辑
        fm.Caption = "编辑发票" & mId
        fm.Visible = True
        coTBuyInvoice.Add Item:=fm, Key:=CStr(fm.Hwnd)
        Set fm = Nothing
这段代码有没有问题

yori2007

还没搞定，有没有人再帮我看看啊

yori2007

求关注