VBA添加记录有关问题

VBA添加记录问题
一张表里面有三个字段 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等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》

查看更多 下一篇