Newsgroup: it.comp.appl.access
Titolo: Problema Evento.............

Ho realizzato un controllo di navigazione creando una Form indipendente da
inserire come Sub-Form in qualsiasi maschera.
E' costituita da 4 pulsanti e 2 TextBox:
Pulsanti
Puls1----->=Nevigazione(1) ***************"PrimoRecord"
Puls2----->=Navigazione(2) ***************"Precedente"
Puls3----->=Navigazione(3) ***************"Successivo"
Puls4----->=Navigazione(4) ***************"UltimoRecord"
TextBox
Attuale.Value = posizione attuale
RecCount.Value = n° totale record
Il codice richiamato dall'Evento Click dei Pulsanti è il seguente:
'pulsanti di navigazione Primo-Precedente-Successivo-Ultimo
'la maschera deve essere inserita come sottomaschera della Form
'in cui gestire al navigazione
Public Function Navigazione(Navi As Byte)
Dim rst As Recordset
With Me.Parent.Form
   Set rst = .RecordsetClone
   If Not (rst.BOF And rst.EOF) Then
      Select Case Navi
         Case 1 'primo record
            rst.MoveFirst
            .Form.Bookmark = rst.Bookmark
         Case 2 'record precedente
            If rst.AbsolutePosition > 0 Then
                  rst.MovePrevious
                  .Bookmark = rst.Bookmark
            End If
         Case 3 'record successivo
            If ((rst.AbsolutePosition) + 1) < rst.RecordCount Then
               rst.MoveNext
               .Bookmark = rst.Bookmark
            End If
         Case 4 'ultimo record
            rst.MoveLast
            .Bookmark = rst.Bookmark
         Case 5
            rst.Bookmark = .Bookmark
      End Select
      Me![Primo].SetFocus
      If ((rst.AbsolutePosition) + 1) < rst.RecordCount Then
         Me![Successivo].Enabled = True
      Else
         Me![Successivo].Enabled = False
      End If
      If rst.AbsolutePosition > 0 Then
         Me![Precedente].Enabled = True
      Else
         Me![Precedente].Enabled = False
      End If
   End If
   Me![RecCount].Value = Val(rst.RecordCount)
   Me![Attuale].Value = Val(rst.AbsolutePosition) + 1
   rst.Close
   Set rst = Nothing
End With
End Function
'
'
La maschera funziona regolarmente, o quasi, infatti inserendola come
sottomaschera in un Form si ha in ordine
1 Caricamento - Apertura della SubForm_Navigazione
2 Caricamento - Apertura della Form "Parent"
tutto questo con il conseguente mancato aggiornamento all'apertura della
Form Principale del N° record totale e della posizione Attuale.
Premendo un Pulsante di navigazione ho poi il regolare aggiornamento e
funzionamento.
Come posso risolvere?????
Grazie Alex
-- 
Posted from 
smtp2.libero.it
 [193.70.192.52] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Ma non lo avevi gia' postato ieri questo messaggio ? :)
--
(^o^))~    Lorenzo   (^o^))~
"Preimaginare e' lo imaginare le cose che saranno..."
"Postimaginare e' imaginare le cose passate ..."
(Leonardo Da Vinci)

Ciao Mad effettivamente è successo che ho avuto problemi con il server di
libero, e credevo non fosse partita.
In ogni caso, rispondo anche a quella di ieri:
Non uso quella nativa perchè ho l'esigenza di posizionarla in un punto
particolare del DB, caso specifico, poi è una funzione discretamente
utilizzabile ovunque, quindi se potessi aiutarmi a risolvere l'inghippo te
ne sarei grato.
Ciao a tutti Alex.
-- 
Posted from 
smtp1.libero.it
 [193.70.192.51] 


 ha scritto nel messaggio
news:000601c0ca4f$770c5d20$69001897@ik2zok...

Mi pare un po' strano che si apra prima la sottomaschera e poi la maschera
principale.. e quindi non capisco bene cosa avvenga.
cmq. hai provato a fare un requery o refresh della sottomaschera di
navigazione dopo l'apertura della maschera principale ?


Effettivamente sembrava strano anche a me l'evento Open della SubForm, ma ho
accertato che č cosě con un MsgBox, infine il requery della maschera lo
dovrei esegire dalla principale, ma quello che vorrei č di rendere questa
Form Navigazione in tutto indipendente da situazioni esterne, come fosse un
Activex.
Grazie di nuovo in ogni caso, almeno per la tua disp. buon Week-end.
