목차

없음

본문내용

Public Sub putrec() '레코드에 저장
rs.Fields(0) = Text1(0) '학번
rs.Fields(1) = Text1(1) '이름
If Option1.Value = True Then '학년
rs.Fields(2) = 1
ElseIf Option2.Value = True Then
rs.Fields(2) = 2
ElseIf Option3.Value = True Then
rs.Fields(2) = 3
ElseIf Option4.Value = True Then
rs.Fields(2) = 4
End If
rs.Fields(3) = Combo1.Text '과목
rs.Fields(5) = Text1(2) '주소
End Sub

참고 자료

없음