'스크립트를 이용하여 코보박스에 값을 넣는 방법

Private Sub cboPubName_AfterUpdate()
Dim strSQL As String
  mstrPubName = cboPubName.Text
 
  'Develop SQL statement for row source of Project Number combo box:
  strSQL = "SELECT DISTINCTROW [tblAssignment].[ProjectNumber] FROM tblAssignment WHERE " & _
               "[tblAssignment].[PubName] = '" & mstrPubName & "';"
     
  'Finish establishing combo box properties:
  cboProjNum.RowSource = strSQL
  cboProjNum.RowSourceType = "Table/Query"
  cboProjNum.BoundColumn = 1
    
End Sub

Copyright By AccessVision