Private Sub btnAssign_Click() Dim ctl As Control For Each ctl In Me.Controls Select Case ctl.ControlType Case acComboBox If ctl.ControlSource = "" Then ctl = "" End If Case acListBox ctl.RowSource = "" Case Else End Select Next ctl End Sub
|Send a .ZPL file to a network printer from Access||8||52|
|strange textbox behavior MS Access||9||34|
|Direct Mail software||4||42|
|When I add a field to a form from a query with the Max function, I can no longer add/modify records via the form.||27||36|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!