74 No.3 0999500 999500 ACCESS

Mar.2003 73 ACCESS ACCESS EXCEL EXCEL

74 No.3 0999500 999500 ACCESS

Mar.2003 75

76 No.3

Mar.2003 77 temp EXCEL EXCEL

No.3 78 seikika.txt

Mar.2003 79 EXCEL Personal.xls Visual Basic Editor VBA Project(PERSONAL.XLS) Module1 seikika.txt EXCEL PERSONAL.XLS! Format C$ = Format(cells(1,1).value, 0000000 ) C$ C$

80 No.3 Sub 7 () = Cells(1, 1).CurrentRegion.Rows.Count ' ' Columns("A:A").Select Selection.NumberFormatLocal = "@" ' A For i = 2 To Next i End Sub C$ = Format(Cells(i, "A").Value, "0000000") Cells(i, "A").Value = C$ EXCEL ACCESS EXCEL Cells.Replace what:=, replacement:= Replace what replacement what what:= replacement:=

Mar.2003 81 Sub () ' Range("C1").Select Cells.Replace what:=" ", replacement:=" " Cells.Replace what:=" ", replacement:=" " Cells.Replace what:=" ", replacement:=" " Cells.Replace what:="", replacement:="" ' Cells.Replace what:=" ", replacement:="" Cells.Replace what:="", replacement:="" End Sub ACCESS SQL ACCESS VBA SQL SQL mysql

82 No.3 &_ SQL VBA DoCmd RunSQL DoCmd RunSQL mysql VBA DoCmd SQL

Mar.2003 83

84 No.3 () 10 () ======SQL ()===== SELECT M. INTO T_ FROM T_ M WHERE (M. ='" & jyoken_string & "') AND M. <> 'D' jyoken_string () temp ======SQL ()====== SELECT * INTO temp FROM T_ M WHERE M. NOT IN (SELECT N. from T_ N) ORDER BY M. () temp 10 ======SQL ()====== SELECT * INTO temp FROM T_ M WHERE M. IN (SELECT N. from T_ N) ORDER BY M. 10

Mar.2003 85 () ======SQL ()===== SELECT M. INTO T_ FROM T_ M WHERE (M. ='" & jyoken_string & "') AND M. <> 'D' 11 jyoken_string jyoken_string ====== ()===== jyoken_string = jyoken_kamoku(1) For i = 2 To kamokusu jyoken_string = jyoken_string & "'" & " or M. = '" & jyoken_kamoku(i) Next i 212 () temp ======SQL ()====== SELECT * INTO temp FROM T_ M WHERE M. IN (SELECT N. FROM T_ N GROUP BY N. HAVING COUNT(*) = " & kamokusu & " ) ORDER BY M. 13 ()

86 No.3 temp ======SQL ()====== SELECT * INTO temp FROM T_ M WHERE M. IN (SELECT N. FROM T_ N) ORDER BY M. 14 () temp ======SQL ()====== SELECT * INTO temp FROM T_ M WHERE M. NOT IN (SELECT N. FROM T_ N) ORDER BY M. 15 () temp ======SQL ()====== SELECT * INTO temp FROM T_ M WHERE M. NOT IN (SELECT N. FROM T_ N GROUP BY N. HAVING COUNT(*) = " & kamokusu & " ) ORDER BY M. 16

Mar.2003 87 Private Sub CB Click() Dim jyoken_string Dim i, j Select Case og_.value Case Is = 1 ' g_mysql = "select* into temp3" &_ " from T_ order by T_. " Case Is = 2 ' ' ' For i = 1 To 10 jyoken_kamoku(i) = "" Next i g_mysql = "" ' i = 0 j = 1 Do Until kamoku_mei(j, 1) = Empty Me(kamoku_mei(j, 1)).SetFocus If Me(kamoku_mei(j, 1)).Value = True Then i = i + 1 jyoken_kamoku(i) = kamoku_mei(j, 2) End If j = j + 1 Loop ' Select Case kamokusu Case Is = 0 '

88 No.3 g_mysql = "select * into temp3" & _ " from T_ order by T_. " Case Is = 1 ' jyoken_string = jyoken_kamoku(1) 'T_ g_mysql = "select M. into T_ from T_ M" & _ " where (M. ='" & jyoken_string & "') and M. <> 'D' " DoCmd.RunSQL g_mysql Me!.SetFocus Select Case.Value Case Is = 1 ' g_mysql = "select * into temp3 from T_ M" & _ Case Is = 2 End Select " where M. in (select N. from T_ N)" & _ " order by M. " ' g_mysql = "select * into temp3 from T_ M" & _ " where M. not in (select N. from T_ N)" & _ " order by M. " Case Is > 1 ' ' jyoken_string = jyoken_kamoku(1) For i = 2 To kamokusu Next i jyoken_string = jyoken_string & "'" & " or M. = '" & jyoken_kamoku(i) 'T_ g_mysql = "select M. into T_ from T_ M" & _

Mar.2003 89 " where (M. ='" & jyoken_string & "') and M. <> 'D' " DoCmd.RunSQL g_mysql Me!.SetFocus Select Case.Value End Select End Select Case Is = 1 ' g_mysql = "select * into temp3 from T_ M" & _ Case Is = 2 " where M. in (select N. from T_ N" & _ " group by N. having count(*) = " & kamokusu & " ) " & _ " order by M. " ' g_mysql = "select * into temp3 from T_ M" & _ " where M. in (select N. from T_ N)" & _ Case Is = 3 " order by M. " ' g_mysql = "select * into temp3 from T_ M" & _ " where M. not in (select N. from T_ N)" & _ " order by M. " Case Is = 4 End Select ' g_mysql = "select * into temp3 from T_ M" & _ " where M. not in (select N. from T_ N" & _ " group by N. having count(*) = " & kamokusu & " ) " & _ " order by M. " DoCmd.OpenForm "F_ ", acnormal End Sub

90 No.3

Mar.2003 91 Abstract The trial production of a students' completion situation check program Yumi HIRATA and Motonobu YONEKAWA We made the program for checking the subject, which attendance students already studied, and their results. This program makes easy that teachers grasp the contents which attendance students have already learned. Furthermore, this program enables smooth implementation of the number restrictions of completion persons of a class.