Forzare in ordine numerico delle caselle combinate tramite VBA

30 Risposte - Pagina 3

• 

  @Alex

  Super Famoso

  Iscritto da

  feb, 2012

  Messaggi:

  8928

  Re: Forzare in ordine numerico delle caselle combinate tramite VBA

  15 gen 2026, 08:48

  Quello che dicevo a TT era questo:

  Private Function getRequery(actCombo As Access.ComboBox)
  Dim mCbo As Access.ComboBox
  Dim bRequery As Boolean
  
      For Each mCbo In mCCombo
             
             If bRequery Then
                  mCbo.Value = Null
                  mCbo.Requery
                  If mCbo.ListCount <= 1 Then mCbo = mCbo.ItemData(0)
             Else
                  bRequery = mCbo Is actCombo		' <------- essendo 2 oggetti, EquiType si possono confrontare
             End If
      'Next I
      
      Next
      Set mCbo = Nothing
      
  End Function