목차
없음
본문내용
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
참고 자료
없음