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

layaman_999

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

andymark

请上传示例好了

yori2007

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

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

yori2007

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

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

yori2007

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

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

layaman_999

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

日期要把#改为'

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的变量是从哪里来的，应该没问题吧

yori2007

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

好，我试试啊，谢谢啊

yori2007

再帮我看看