목차

없음

본문내용

Public Sub initcombo() '콤보 박스의 과목명을 선택시
Set rs3 = db.OpenRecordset("Course", dbOpenSnapshot)
Combo1.Clear
Combo1.AddItem "과목명"
If rs3.RecordCount > 0 Then
While Not rs3.EOF
Combo1.AddItem rs3.Fields(1)
rs3.MoveNext
Wend
End If
rs3.Close
Combo1.ListIndex = 0
End Sub

참고 자료

없음