74 No ACCESS

Size: px

Start display at page:

Download "74 No.3 0999500 999500 ACCESS"

みさえおとじま
9 years ago
Views:

1 Mar ACCESS ACCESS EXCEL EXCEL

2 74 No ACCESS

3 Mar

4 76 No.3

5 Mar temp EXCEL EXCEL

6 No.3 78 seikika.txt

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

8 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, " ") Cells(i, "A").Value = C$ EXCEL ACCESS EXCEL Cells.Replace what:=, replacement:= Replace what replacement what what:= replacement:=

9 Mar 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

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

11 Mar

12 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

13 Mar () ======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 ()

jyoken_string = jyoken_string & "'" & " or M.

14 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

NOT IN (SELECT N. FROM T_ N) ORDER BY M.

15 Mar 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 '

" Case Is = 2 ' ' ' For i = 1 To 10 jyoken_kamoku(i) = "" Next i g_mysql = "" ' i = 0 j = 1 Do Until kamoku_mei(j,

16 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" & _

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.

17 Mar " 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

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.

18 90 No.3

19 Mar 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.

AccessVBA−‹ŠpŁÒ-ﬂO“Z

AccessVBA−‹ŠpŁÒ-ﬂO“Z Microsoft Access 1 2 Private Sub After5days_Click( ) msg = Date + 5 MsgBox mag End Sub 3 Me.Filter = " =' " & Me! & "'" 4 5 Private Sub _Click() If IsNull(Me!) Then MsgBox " " Me!.SetFocus Me!.Dropdown