pulsante per pagina successiva o precedente
Giuseppe
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.
MA
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access
Giuseppe
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.
MA
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
Giuseppe
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.
MA
Mi sa che siamo delle stesse parti
>ma non ho molta
> dimestichezza con il Vba.
In questo somigli di più a Pablitomf
> 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
STOP!!!
Questo lo devi mettere in testa al modulo, alrtimenti partira sempre da zero e con il tuo incremento arriva a pagina 1
che è quella corrente
> iPage = iPage + 1
> DoCmd.GoToPage iPage
>
> End Sub
Questo va bene
>
> Private Sub pulsante_Previous_Click()
> Dim iPage As Byte
Stesso discorso di prima
> 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.
Infatti 0 - 1 scatena il messaggio
> Dove sbaglio? Forse non ho capito dove posizionare la variabile.
Yes
> Scusami.
> Grazie. Giuseppe.
--
--
MAssimiliano Amendola
www.accessgroup.it
Giuseppe
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
Nicky
della tua sub è come se utilizzassi una variabile diversa da quella
dichiarata a livello di modulo
Nicoletta
Giuseppe
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.
Nicky
dichiarazioni della variabile iPage
Nicoletta
Giuseppe
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
MA
> Scusa vedi va bene così:
>
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
Giuseppe
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.
Geppo
Io mi chiedo ma hai della pagine da scorrere? Se non le hai è chiaro che non
funzia.
--
Ciao
Geppo
Giuseppe
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.
Geppo
---cut---
>>> 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.
Ok scusa, ma visto il messaggio di errore che hai postato.........
--
Ciao
Geppo
Giuseppe
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.
MA
Giuseppe
> Giuseppe wrote:
> > On 4 Lug, 21:42, "Geppo" <c...@tin.it.invalid> wrote:
> >> Ciao Giuseppe wrote:
>
> >> ---cut---
>
> >>>>> VaiAPagina o nel metodo GoToPage non esiste in questa maschera.
> >>>>> esce 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 Amendolawww.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.