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"
Les membres connectés peuvent publier, suivre les mises à jour, et plus encore. Nouveau ici ? Inscrivez-vous gratuitement.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.