Forum Discussion

orione1943's avatar
orione1943
Copper Contributor
Jan 23, 2022

ACCESS: controllo strttura a schede

In un controllo struttura a schede come faccio ad interccettare l’indice della scheda corrente

Se ad esempio scelgo la scheda “Tariffe” e clicco su uno dei 4 pulsanti di navigazione per cambiare record il fuoco si sposta sulla prima scheda.

Invece sull’evento click dei 4 pulsanti devo intercettare l’indice della scheda corrente chiedere all’utente se vuole rimanere sulla scheda corrente e se la risposta è “si” il fuoco resta sulla scheda corrente cioè: “Tariffe”

Il codice deve valere per tutte le schede

  • Salve,

     

    L'indice della scheda corrente corrisponde semplicemente al valore del controllo struttura a schede, quindi: Me!NomeControlloStrutturaASchede.Value

     

    Dove 0 è la prima schede, 1 la seconda e così via.

     

    Per riportare il focus sulla scheda corrente, puoi salvarla in una variabile e poi impostare di nuovo il valore del controllo:

     

    Dim lngSchedaCorrente As Long

    lngSchedaCorrente = Me!NomeControlloStrutturaASchede.Value

    If Msgbox(ecc... = True

        Me!NomeControlloStrutturaASchede.Value = lngSchedaCorrente

    End If

    ...

    Servus
    Karl
    ************
    Access News
    Access DevCon

    • orione1943's avatar
      orione1943
      Copper Contributor

      Karl_Donaubauer 

      Private Sub Successivo_Click()
      Dim ingschedacorrente As Long

      lngSchedaCorrente = Me!TabCtl176.Value

      If Me![Corrente] < Me![Totale] Then
      DoCmd.GoToRecord , , acNext
      End If
      risposta = MsgBox("vuoi rimanere nella scheda?", vbYesNo)
      If risposta = 6 Then
      Me!TabCtl176.Value = lngSchedaCorrente
      End If
      End Sub

      Funziona evviva

Resources