Office中国论坛/Access中国论坛
标题:
[新手ADP求助]为什么表中格式为''money''时,在窗体中保存会出错?
[打印本页]
作者:
狼书生
时间:
2006-6-16 23:12
标题:
[新手ADP求助]为什么表中格式为''money''时,在窗体中保存会出错?
我的"入库表"中设置的单价是"money"格式,小数位置设置为4位。可在绑定该表的窗体的文本框输入价格时却老是提示不正确,保存不了。进程序查看发现指向“单价”的文本框即使输入了数值,可值却为""。将"入库表"中的单价改为nvarchar数据类型后,就能保存。请问到底是怎么回事啊?由于要在后面对单价进行计算的。可数据格式设置不了。该怎么办啊?
该段代码如下:
Private Sub image008_click()
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = CurrentProject.Connection
If Me.Text0 = "" Then
MsgBox "你输入的信息不完整,请输入完整信息!", vbOKOnly, "警告信息"
Else
temp = "select * from 入库表 where 零件号='"
temp = temp & UCase(Me.零件号) & " ' "
rs.Open temp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("零件号") = UCase(Me.Text0)
rs("入库单号") = (Me.Text2)
rs("入库数量") = (Me.Text4)
rs("供货商") = (Me.Text8)
rs("入库日期") = (Me.Text10)
rs("零件仓") = (Me.Text12)
rs("单价") = (Me.Text14)
rs("单位") = (Me.Text16)
rs("票据") = (Me.Text18)
rs("备注") = (Me.Text20)
rs.Update
Me.入库表_子窗体.Requery
rs.Close
rs.Open "select getdate() as svrtime"
Me.Text0 = ""
Me.Text2 = ""
Me.Text4 = ""
Me.Text8 = ""
Me.Text10 = Format(rs.Fields("svrtime"), "short date")
Me.Text12 = ""
Me.Text14 = ""
Me.Text16 = "件"
Me.Text18 = "有"
Me.Text20 = "无"
End If
Me.Text0.SetFocus
End Sub
第一次做ADP,很多都不懂。各位老大帮帮忙看下。拜托了![em04][em04][attach]18536[/attach]
[此贴子已经被作者于2006-6-17 11:41:33编辑过]
作者:
狼书生
时间:
2006-6-17 19:40
怎么没人答啊?555555555555555555
是我说得不够清楚吗?[em06]
作者:
wuaza
时间:
2006-6-17 20:47
rs("单价") =
CDbl
(Me.Text14)
作者:
狼书生
时间:
2006-6-19 17:49
以下是引用
wuaza
在2006-6-17 12:47:00的发言:
rs("单价") =
CDbl
(Me.Text14)
用过楼上的大哥的方法后仍然没改变情况啊!
只有第一次(如1.0030)的数据后保存成功(公司财务要求价格保留4位小数)。后面在输入整数就出错,(即使再输入同样的数据到文本框Text14后再保存仍然出错。进程序后发现该文本框在输入数据后仍然是me.text14="
请问到底该怎么做才能解决啊?[em06]
作者:
狼书生
时间:
2006-6-21 03:02
前几天的入库窗体总是不对,今天重新做了个出库窗。但还是有问题请教下各位大大!
Option Compare Database
Public rs As ADODB.Recordset
Public temp As String
Private Sub image104_click()
If IsNull(Me![Text1]) Then
MsgBox "你输入的数据不完整,请重新输入!", vbOKOnly, "系统警告"
Me.Text1.SetFocus
Else
Set rs = New ADODB.Recordset
rs.Open "出库表", CurrentProject.Connection, adOpenDynamic, adLockPessimistic
rs.AddNew
rs("零件号") = Me![Text1]
rs("单号") = Me![Text3]
rs("出库数量") = Me![Text5]
rs("领用部门") = Me![Text7]
rs("领用人") = Me![Text9]
rs("领用日期") = Me![Text11]
rs("零件仓") = Me![Text13]
rs("单价") = Me![Text15]
rs("单位") = Me![Text17]
rs("客户") = Me![Text19]
rs("备注") = Me![Text21]
rs("金额") = Me![Text15] * Me![Text5]
rs.Update
rs.Close
Set rs = Nothing
End If
Me.出库表_子窗体.Requery
Me![Text1] = Null
Me![Text5] = Null
Me![Text15] = Null
Me![Text17] = "件"
Me![Text21] = "无"
Me.Text1.SetFocus
End Sub
谁帮我看看这段程序,看看哪里有问题啊
我在文本框Text15处输入数据赋值给"单价"结果只有第一次能成功,后面再输入重新保存时就是"单价"就是空白的,没有值输入了,表里显示的是空白。
表格"出库表"里的"单价"数据类型设置的是"Money",小数位数是设置的4位.
点保存的时候,其他的数据都能复制进去,但就单价一项只有第一次能成功,再来就不行了。
但有个奇怪的现象,如果在输入了"零件号"、“出库数量”“单价后”如果再改动个其他数据,点保存时结果就正常了。
请问到底是怎么回事啊?知道的答下我。都为这个耽搁了好多天了。谢谢各位老大了![em04]
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3