Newsgroup: it.comp.appl.access
Titolo: pulsante per pagina successiva o precedente

Salve a tutti.
Ho la necessità in una maschera continua di sostituire la barra
verticale con due pulsanti.
Uno avrà la funzione del tasto Pgiuù, l'altro del tasto Pgsù.
Ho trovato i codice dell'autokeys che sono il 33 e il 34, ma
sull'evento "tasto giù" dei due pulsanti non so quale sia il comando
per far passare la videata della maschera alla pagina avanti o
indietro.
Qualcuno mi può aiutare?
Grazie. Ciao.
Giuseppe.


Docmd.GotoPage
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


Grazie per la risposta.
Nella guida di Vba ho letto che bisogna indicare dopo Docmd.GoToPage
le seguenti informazioni (NumeroPagina, Destra, InBasso).
Se imposto DoCmd.GoToPage (2, 1440, 600) come faccio poi se mi trovo
alla seconda pagina ad andare alla terza?
Allo stesso modo avrò il problema con l'altro pulsante che mi serve
per tornare indietro.
Non si potrebbe mettere ad esempio Docmd.GoToPage(Next) o
Docmd.GoToPage(Preview)?
Attendo delucidazioni. Ciao.
Giuseppe.


Metti una variabile ad inizio modulo
dim iPage as Byte
private sub pulsante_Next
iPage = ipage+1
docmd.gotopage ipage
end sub
private sub pulsante_Previous
if iPage >0 then
iPage = ipage-1
docmd.gotopage ipage
else
msgbox "We Ciccio ma 'ndo vai???"
end if
end sub
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it



Scusa la capa tosta come dicono dalle mie parti, ma non ho molta
dimestichezza con il Vba.
Ho messo nella maschera i due pulsanti "Pulsante_Next" e
"Pulsante_Previous" e a entrambi su evento click ho messo:
Private Sub Pulsante_Next_Click()
Dim iPage As Byte
iPage = iPage + 1
DoCmd.GoToPage iPage
End Sub
Private Sub pulsante_Previous_Click()
Dim iPage As Byte
If iPage > 0 Then
iPage = iPage - 1
DoCmd.GoToPage iPage
Else
MsgBox "We Ciccio ma 'ndo vai???"
End If
End Sub
Il pulsante per spostarmi avanti su click non fa niente, il pulsante
indietro mi sono portato avanti sulla 2a pagina poi ho l'ho cliccato e
mi dà il msg we ciccio ma ndo vai.
Dove sbaglio? Forse non ho capito dove posizionare la variabile.
Scusami.
Grazie. Giuseppe.

 Grazie. Giuseppe.
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it



Scusa Massimiliano sarò un caso patologico di capa tosta, ho provato,
prima di riscriverti, a posizionare la variabili e gli eventi in tutti
i modi possibili, ma non ci riesco:
Ho messo la variabile a inizion modulo come hai detto tu e accetta
solo    Dim iPage As Byte   e poi ho inserito i due eventi. Ma il
risultato è lo stesso di prima.
Ho capito che con questa variabile incompleta che io erroneamente
inserisco a inizio modulo, per access la maschera è su pagina 0 e qnd
non va avanti e se cerco di andare indietro scatena il messaggio
simpatico che hai messo tu. Questo è il codice che c'è nel modulo
della mia maschera. Puoi essere gentilmente più specifico nel
spiegarmi come si dichiarano e richiamano le variabili così magari in
futuro non ripongo tante richieste allo stesso problema? Scusami
ancora. Ciao.
Option Compare Database
Option Explicit
Dim iPage As Byte
--------------------------------------------------------------------------------------
Private Sub Pulsante_Next_Click()
Dim iPage As Byte
iPage = iPage + 1
DoCmd.GoToPage iPage
End Sub
-------------------------------------------------------------------------------------
Private Sub pulsante_Previous_Click()
Dim iPage As Byte


Giuseppe ha scritto:

Devi togliere le altre dichiarazioni di iPage, altrimenti all'interno 
della tua sub è come se utilizzassi una variabile diversa da quella 
dichiarata a livello di modulo
Nicoletta


Al codice postato nel precedente messaggio ho tolto sotto   Private
Sub Pulsante_Next_Click()   e    Private Sub
Pulsante_Previous_Click()
la stringa Dim iPage As Byte  ma non è cambiato nulla. Su pulsante
next se clicco non succede niente su pulsante previous esce il
messaggino.
C'è qualcos'altro che non va. Intanto io continuo a provare. Grazie
Nicoletta. Puoi verificare anche tu?
Ciao Giuseppe.

Giuseppe ha scritto:

Non togliere la dichiarazione di sub, dovevi solo togliere le 
dichiarazioni della variabile iPage
Nicoletta


Scusa vedi va bene così:
Option Compare Database
Option Explicit
Dim iPage As Byte
--------------------------------------------------------------------------------------
Private Sub Pulsante_Next_Click()
Dim iPage As Byte
iPage + 1
DoCmd.GoToPage iPage
End Sub
-------------------------------------------------------------------------------------
Private Sub pulsante_Previous_Click()
Dim iPage As Byte
If iPage > 0 Then


 
 Option Compare Database
 Option Explicit
 Dim iPage As Byte
 --------------------------------------------------------------------------------------
 Private Sub Pulsante_Next_Click()
 iPage + 1
 DoCmd.GoToPage iPage
 End Sub
 -------------------------------------------------------------------------------------
 Private Sub pulsante_Previous_Click()
 If iPage > 0 Then
 iPage - 1
 DoCmd.GoToPage iPage
 Else
 MsgBox "We Ciccio ma 'ndo vai???"
 End If
 End Sub
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it



Scusami ma non funziona.
Ho incollato la funzione da te postata nell'ultimo messaggio
modificando su pulsante next  iPage + 1 in iPage = iPage + 1
erroneamente da me riportato e nel tuo ultimo messaggio incollato, e
così anche nel pulsante previous ho sostituito iPage - 1 in iPage =
iPage - 1.
Detto questo, quando clicco sul pulsante next mi esce questo
messaggio:
Il numero di pagina specificato come argomento dell'azione VaiAPagina
o nel metodo GoToPage non esiste in questa maschera.
Sul pulsante Previous su qualsiasi pagina mi trovi cliccando mi esce
il MsgBox.
Forse per questo tutte le prove precedenti al di là della mia diciamo
inesperienza non funzionavano.
Trattasi di una maschera continua.
Ciao. Giuseppe.


Io mi chiedo ma hai della pagine da scorrere? Se non le hai è chiaro che non 
funzia.
-- 
Ciao
Geppo


Chiaro che ce li ho.
Sulla stessa maschera se spingo i pulsanti della tastiera Pag freccia
su o Pag freccia giù la maschera va alla pagina successiva o
precedente.
La maschera contiene  118 record visualizzati in 5 per pagina.
Ciao Giuseppe.

>> il MsgBox.
Ok scusa, ma visto il messaggio di errore che hai postato.........
-- 
Ciao
Geppo 


Rilancio la  domanda anche per capire se sono io che nn capisco o non
mi sono fatto intendere o è errata la procedura consigliatami.
Prego gli intervenuti e chi legge di intervenire e dare un senso a
questo post.
Grazie. Ciao a  tutti.


Dammi un indirizzo di posta che ti mando un esempio
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it


 Cisa - Conferenza Italiana Sviluppatori Access
Scusa Massimiliano il notevole ritardo, ma prima delle ferie ho dovuto
azzerare l'arretrato e non ho avuto più modo di continuare la
programmazione del mio piccolo software. La mia mail è
gcard...@tin.it
. Saresti così gentile da mandarmi l'esempio? Grazie.
Ciao. Giuseppe.