老是跳出提示信息

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
    

复制代码

Henry D. Sy

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