为什么调出表里的数据跟在表里数据不一样!

Rowe　发表于：2008-03-04 15:16:25 　

On Error GoTo Err_TextID_BeforeUpdate
Dim strTemp As String
Dim MyNum As Long
Dim Rs As New ADODB.Recordset
MyNum = Val(Me![TextID])
strTemp = "select * from UserInf"
Rs.Open strTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If MyNum <> (Rs("CardID")) Then
MsgBox "员工不存在!", vbInformation = vbOKOnly, "Message"
Else
Me![Times] = Now()
End If

表UserInf中的字段CardID本身是数字类型,TextID里的数据是我用刷卡器刷的,转换成数值类型,但是结果显示我调用的UserInf里的数值已经变成了另外一个值了, 不是本身!请问是不是我那里调用错误?

请高手们指教!!在下先在些谢过!

Top

pc高手发表于：2008-03-04 15:49:26

你提的问题，好像概念不是很清楚！

1. UserInf 是个表，从程序中看，你根本就没有动表里的字段数值，那么

UserInf 表里的数值怎么会变化呢？又是哪个字段的值变化了？

你刷了一个卡值，表里的那个字段变化了？怎么会变化呢？

2. 从程序看，写法可能不全，是象征性的句子吧！因为没有查找句子，用户是

永远执行句子“员工不存在”，哪会那么巧，就是第一条记录呢？

Top

钱玉炜发表于：2008-03-05 08:09:30