Question

ACCESS数据库代码错误：运行时错误‘’类型不匹配。截图如下，如何解决？





Answer 1

调整一下代码

'.......
ElseIf IsNull(Trim(Me.Text6)) Then  '此行需要修改
'上句修改为下句
ElseIf not IsDate(Trim(Me!Text6)) Then  'Me后面使用叹号引用用户控件比用点号代码更健壮
MsgBox ("投资时间不得为空")   '此行需要修改,注意使用MsgBox()函数不太恰当
'上句修改为下句
MsgBox "投资时间必须是一个有效日期且不得为空"  '注意使用MsgBox语句更好
Exit Sub  '注意每个消息框后面要加这句
'........
With rs
!投资时间=Trim(Me.Text6) 
'上句修改为下句
!投资时间=CDate(Trim(Me!Text6))
'........

Answer 2

TRIM函数返回的结果为字符串，
如果投资时间字段是日期型的，
那么类型当然就不匹配。
加上一个format()或者其他类型转换函数就行了。