Private Sub Combo3_Click() Combo4.Clear Combo4.Refresh Comb4 End Sub Sub Comb4() txtSQL = "select * from pc where pc_id >= '" & Val(Combo3.Text) & "' order by pc_id" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.RecordCount > 0 Then Set Combo4.DataSource = mrc mrc.MoveFirst While Not mrc.EOF Combo4.AddItem mrc.Fields(0) mrc.MoveNext Wend End If mrc.Close End Sub
Combo4.Clear
Combo4.Refresh
Comb4
End Sub
Sub Comb4()
txtSQL = "select * from pc where pc_id >= '" & Val(Combo3.Text) & "' order by pc_id"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.RecordCount > 0 Then
Set Combo4.DataSource = mrc
mrc.MoveFirst
While Not mrc.EOF
Combo4.AddItem mrc.Fields(0)
mrc.MoveNext
Wend
End If
mrc.Close
End Sub