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

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

再帮我看看

yori2007

layaman_999 发表于 2012-6-16 10:17
原来是ADP啊
StrSql = StrSql & " select '" & mId & "', '" & BuildDate & "', '" & DLookup("EmployeeId ...

好，我试试啊，谢谢啊

layaman_999

Dim mId As String
mId = InputBox("请输入发票号", "提示")
If mId = "" Then Exit Sub

If Nz(DLookup("InvoiceId", "tbTBuyInvoice", "InvoiceId='" & mId & "'"), "") = mId Then
    MsgBox "此发票号已经存在,请重新输入!", vbExclamation, "提示"
    Exit Sub
End If

'新建发票
'====================
Dim StrSql As String '不清楚你的字段类型，'UserName'为文本, #BuildDate#为日期
StrSql = "insert into tbTBuyInvoice(InvoiceId,BuildDate,BuildMan) "
StrSql = StrSql & " select '" & mId & "', '" & BuildDate & "', '" & DLookup("EmployeeId", "tbEmployee", "UserName='" & mUserName & "'") & "'"

CurrentProject.Connection.Execute (StrSql)
exit sub'加个断点=====================
你先用上面的代码试验一下看能否写入表头，BuildDate的变量是从哪里来的，应该没问题吧

layaman_999

原来是ADP啊
StrSql = StrSql & " select '" & mId & "', '" & BuildDate & "', '" & DLookup("EmployeeId", "tbEmployee", "UserName='" & mUserName & "'") & "'"

日期要把#改为'

yori2007

layaman_999 发表于 2012-6-15 21:34
你先把（ fm.AllowAdditions = False  ‘表头不可编辑）删了，看看是什么情况
然后看看以V开头的表头数据是 ...

这个问题很奇怪，同样长度的字符串，一个以C开头，一个以V开头，其他都一样，竟然一个可以输入，一个不可以

yori2007

andymark 发表于 2012-6-15 21:57
请上传示例好了

公司很早以前做的adp啊，不知道什么时候出现了这种问题，现在还没发上传，正在改成mdb的，做个示例

yori2007

layaman_999 发表于 2012-6-15 21:34
你先把（ fm.AllowAdditions = False  ‘表头不可编辑）删了，看看是什么情况
然后看看以V开头的表头数据是 ...

数据没有写入，我再研究看看

andymark

请上传示例好了

layaman_999

你先把（ fm.AllowAdditions = False  ‘表头不可编辑）删了，看看是什么情况
然后看看以V开头的表头数据是否已经已经写入表中，如果没有写入的话，那你看看是不是字段类型不对还是字符长度不够。
==========
这些问题要自己多调试调试，看看究竟出问题在哪行代码