还是课堂评价

虽虽TV　发表于：2016-07-14 21:58:43 　

复制

问题在附件里

课堂评价

Top

朱先生发表于：2016-07-14 23:18:46

If IsNull(Me.Option1) And IsNull(Me.Option2) Or IsNull(Me.Text1) Then
MsgBox "请选择对或错或评分不能为空"
Else

DOCMD.RUNSQL "INSERT INTO ...............
End If

Top

虽虽TV 发表于：2016-07-15 08:06:38

谢谢朱先生，提示问题解决了，但无论选“对”选“错”，成绩表中都是一样的。如何解决？

Top

缪炜发表于：2016-07-15 08:31:07

改成IIf(Me.OptR, True, False)

Top

zhaoyoulong 发表于：2016-07-15 08:32:39

用一个选项组代替两个按钮

点击下载此附件

Top

朱先生发表于：2016-07-15 13:03:36

把对错字段分成对、错两个字段

strSQL = "insert into 学生成绩表(姓名ID,评分,对,错,日期) values ('" & Me.Student.Column(0) & "','" & Me.Score & "','" & Me.OptR & "', '" & Me.OptW & "',#" & Me.txtDate & "#)"
CurrentDb.Execute strSQL

Top

虽虽TV 发表于：2016-07-15 16:31:11

课堂评价，请求帮忙！

Top

yuhong 发表于：2016-07-15 21:12:22

Private Sub btnStart_Click()
If Len(Nz(Me.Score)) = 0 Or Len(Nz(Me.Student)) = 0 Then
MsgBox "XXX有一个为空"
Exit Sub
End If
Dim strSQL As String
If Me.btnStart.Caption = "开始" Then
Me.TimerInterval = 100
Me.btnStart.Caption = "停止"
Else
Me.TimerInterval = 0
Me.btnStart.Caption = "开始"
strSQL = "select 姓名ID, 姓名 from 学生表 where 姓名ID not in (select 姓名ID from 学生成绩表 where 日期=#" & Me.txtDate & "#)"
'Debug.Print strSQL
Me.Student.RowSource = strSQL

End If
End Sub

Top

虽虽TV 发表于：2016-07-15 23:44:46

我觉得这个程序很有用，暑期做好，开学就用！

谢谢各位的帮忙！

Top

虽虽TV 发表于：2016-07-15 23:49:48

抽查部分 下一步该做“统计”“汇总”了

Top

虽虽TV 发表于：2016-07-16 17:16:12

谢谢各位的帮忙，几年前就在想做这个东西，水平有限，终未动手！

有了这个系统，课堂上对学生进行评价并保存汇总，太好了!

Top

总记录：10篇页次：1/1 9 1 :

Access交流中心

还是课堂评价