Sub SetCombo(cbx, item) Dim index For index = 0 to cbx.ListCount - 1 cbx.ListIndex = index If (CStr(cbx.value) = item) Then Exit Sub End If next cbx.ListIndex = -1 End Sub
SetCombo EForm.Pages("Page1").Controls("cboWALL_MATERIAL"), "CON"
Angemeldete Mitglieder können Beiträge verfassen, Updates folgen und mehr. Neu hier? Registriere ein kostenloses Konto.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.