老是跳出提示信息

bbpst

做了个表和窗体，打开窗体按“编号”查找表中的记录，用于修改该记录.
如果查找框中为空以及与表中记录的编号不匹配，则提示。
但现在问题是：查找的编号与表中的记录编号同样时，也会提示，不晓得怎么回事，请高手赐教。
窗体字段对应表：YGMD2

bbpst

Henry D. Sy 发表于 2012-10-11 15:46
另外，X 应该定义为long型吧！

谢谢版主，在您给出的代码基础上稍作了修改，已经顺利通过，再次感谢。

Henry D. Sy

另外，X 应该定义为long型吧！

bbpst

这么快，谢谢版主，明天我试下。{:soso_e179:}

Henry D. Sy

1. Private Sub BH_Enter()
   
2.     Dim X As Double
   
3.     X = YGMD2xg
   
4.     If IsNull(YGMD2xg.Value) Then
   
5.         MsgBox "请输入要修改数据的编号!", vbInformation, "提示信息"
   
6.         Exit Sub
   
7.     End If
   
8.     DoCmd.FindRecord X, , , acSearchAll
   
9.     If IsNull(Trim(BH)) Or Trim(Me.BH) <> Trim(Me.YGMD2xg) Then
   
10.         MsgBox "没有此编号，请检测后重新输入!", vbInformation, "提示信息"
    
11.     End If
    
12. End Sub
    

复制代码