我在编一个学生管理系统
其中的录入程序里~~错误判断学号输入的不是数字~而是字符或者符号后弹出错误提示框
这段程序该怎么写啊

还有个问题是在录入界面中我的第一个按扭是添加记录
程序如下
Private Sub Command1_Click()
Command2.Enabled = True
Command3.Enabled = True
Command1.Enabled = False
Adodc1.Recordset.AddNew '向数据库中添加一条记录
Text1.SetFocus
End Sub

老是提示实时错误VB实时错误-2147217842（80040e4e）
是怎么搞啊~~
急中~~~~希望高手指点一下~~我在做课程设计

If Text1(7).Text = "" Or Not IsNumeric(Text1(7).Text) Then
MsgBox "[学号]是必填项目,并且只能填数字!"
text1(7).text=""
Text1(7).SetFocus
Exit Sub
end if

Private Sub Command1_Click()
Command2.Enabled = True
Command3.Enabled = True
Command1.Enabled = False
Adodc1.Recordset.AddNew '向数据库中添加一条记录
请把数据内容写好啊.没看见内容.加空记录时如果你的字段中有不准空记录的字段是加不了的
Text1.SetFocus
End Sub

啊啊~~非常感谢啊~~太及时了

那如果是判断日期
我的出生日期的格式弄的是短日期的格式~~
判断日期是否正确怎么弄啊
还有就是判断必须是字符而不是数字的


还有就第2个问题里~~要把数据内容写好。。是什么意思啊~~


麻烦了啊~~谢谢了

IsNumeric()函数的实际作用是判断参数表达式是否是数值，如果是复制进去如：&H0A ￥12 2e7 (34) 等这类表达式是不会出错的。