CISA FotoGallery

Statistiche

Tot. visite contenuti : 885948
Home Articoli tecnici Forms Gestire Pulsanti di Navigazione Personalizzati

Gestire Pulsanti di Navigazione Personalizzati

' Creare 5 Pulsanti e nell'Evento Click scrivere:
' L'Indice passato alla chiamata DEVE corrispondere a quello previsto nell'enumerazioni delle costanti membri di Access.AcRecord che possiamo verificare dal
VISUALIZZATORE OGGETTI
' Definizione dei CommandButton

Pulsante First:
Su Click: =MoveMeTo(2)

Pulsante Previous:
Su Click: =MoveMeTo(0)

Pulsante Next:
Su Click: =MoveMeTo(1)

Pulsante Last:
Su Click: =MoveMeTo(3)

Pulsante New:
Su Click: =MoveMeTo(5)


' Quindi la Funzione di navigazione sarà:

Private Function MoveMeTo(index As Access.AcRecord)

   On Error GoTo Error
   
' Gestione dei Pulsanti di spostamento
   ' Suggerimento di
Giorgio Rancati per rendere efficace
   ' l'azione anche nelle SubForm
   
DoCmd.GoToRecord acActiveDataObject, , index
   ' DoCmd.GoToRecord acDataForm, Me.Name, index
      
   Exit Function
Error
:
   Select Case Err.Number
      Case 2105
         ' Gestisce il fuori Recordset
         Resume Next
      Case Else
         
MsgBox Err.Number & " " & Err.Description
   End Select
End Function


' Per gestire le TextBox di indicazione è possibile fare così:
' [txtRecordNumber] è il controllo che indicherà il numero Totale dei Records
' [txtCurrentRecord] è il controllo che indicherà la Posizione Corrente del Record Visualizzato


If Me.NewRecord Then
    Me!txtRecordNumber= Me.RecordsetClone.RecordCount + 1
    Me!txtCurrentRecord = Me.RecordsetClone.RecordCount + 1

Else
  
  Me!txtCurrentRecord = Me.CurrentRecord
    Me!txtRecordNumber= Me.RecordsetClone.RecordCount

End If


Alessandro