一张表里面有三个字段 A B C
Access窗体上有一文本框名称为“意见”，没有邦定数据是通过人工输入的，还有一个“提交”按钮，
现在要根据用户来判断将这个值添加相应记录 ＡB C里面
例如：用户是学生在信息框里输入的值将他添加到A里面
用户是老师在信息框里输入的值将他添加到B里面
其他用户则添加到C里面
以下是我写的但是不添加不到。。记录里没有任何反应
- VB code
Dim db As Database Dim rs As Recordset Dim rs_d as Recordset Dim str As String Set rs = CurrentDb.OpenRecordset("current_用户") If rs!权限 < 50 Then MsgBox ("当前用户没有足够的权限！") Cancel = True End If Select Case rs!类别 Case "A" dept = "A" str = "SELECT * FROM 信息表 Set rs_d = CurrentDb().OpenRecordset("信息表 ") rs_d.AddNew rs_d!A = Me!意见 rs_d.Update Case "B" dept = "B" str = "SELECT * FROM 信息表 Set rs_d = CurrentDb().OpenRecordset("信息表 ") rs_d.AddNew rs_d!B = Me!意见 rs_d.Update Case else str = "SELECT * FROM 信息表 Set rs_d = CurrentDb().OpenRecordset("信息表 ") rs_d.AddNew rs_d!C = Me!意见 rs_d.Update End Select注明current_用户和信息表是两张表来的，就是根椐current_用户里的类别和判定你是A还是B或是C，从而将那个值添加到相应的字段中。不知我这样表达行不能。。谢谢你们了！
------解决方案--------------------------------------------------------
单步调试一下，看看都走到哪些语句了。
QQ群 48866293 OFFICE应用挖掘
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》