Newsgroup: it.comp.appl.access
Titolo: verifica se mi trovo al primo record

Lo so è banale, ma inizio a perderci troppo tempo e non ne vengo a
capo..
ho 2 bottoni per lo spostamento avanti ed indietro tra i record (2
bottoni
custom, non quelli di default in basso)
voglio che il bottone indietro non venga visualizzato se siamo al primo
record, stesso ragionamento per il bottone avanti
come qual'è la logica per controllare se sono al primo record ?
ho provato roba simile a
If Not me.recordset.BOF Then
ma niente, non funzionano
Grazie
Pierpaolo

 ha scritto nel messaggio
news:1162837383.9...@h48g2000cwc.googlegroups.com...




Grazie
Pierpaolo
Ciao Pier,
ti ho risposto sull'altro NG, inoltra se fai Xpost è elegante segnalarlo,
Ciao, Sandro

 ha scritto nel messaggio 
news:1162837383.9...@h48g2000cwc.googlegroups.com...




Grazie
Pierpaolo
If Me.Form.Recordset.AbsolutePosition=0 then msgbox "Sono sul primo record"
If Me.Form.Recordset.AbsolutePosition=(Me.Form.RecordsetClone.RecordCount - 1)  then msgbox "Sono 
sull'ultimo record"
If Me.Form.NewRecord then MsgBox "Sono su un nuovo record"
Michele 

dai...@gmail.com
 ha scritto:

Scusa che te ne frega se si vedono o meno...i controlli di navigazione
tra record che ha access in modo nativo si vedono, l'mportante e' che i
controlli da te realizzati non ti diano errore poi che si vedano o meno
non ha importanza...perche' scrivere codice in piu' quando non c'e' ne'
la necessità?
e poi devi gestire anche il fatto che se uno è visibile l'altro non
deve esserlo, e se sei al secondo come al penultimo record o sei a
metà tabella i controlli devono essere visibili entrambi..non e'
fatica srecata oltre che codice inutile?
poi fai tu...io posso solo suggerirti la cosa piu' logica da
fare...rendere invisibili i pulsanti non mi sembra una soluzione per la
quale....va bene che si vedano e nn diano errori.
comunque di solito è meglio metterli tutti e 4 i bottoni di
navigazione a meno che la tua tabella non abbia solo pochi record, la
intassi e' questa:
Private Sub CmdFirst_Click()
Me.Recordset.MoveFirst
End Sub
Private Sub CmdPrev_Click()
If Not Me.Recordset.BOF Then Me.Recordset.MovePrevious
End Sub
Private Sub CmdSucc_Click()
If Not Me.Recordset.EOF Then Me.Recordset.MoveNext
End Sub
Private Sub CmdLast_Click()
Me.Recordset.MoveLast
End Sub
poi in base a questo puoi aggiungre se vuoi visible=true o false
dipende chi vuoi rendere non visibile, ma ricordati di gestire anche
gli atri bottoni pero'.
Ciao
Diego

la necessità?
Io i bottoni di navigazione di default li ho tolti quasi dappertutto
Primo
Perchè quelli che ho fatto io sono molto più grandi e molto più agevoli da cliccare da parte di chi 
ha le mani un pò ciompe
Secondo
perchè quando voglio posso farli sparire, inibirli, ecc. ecc. nonchè aggiungere codice sull'evento 
Click
Terzo
Perchè a fianco di quelli che creo posso aggiungerne altri e in pochi cm di mouse l'utente clicca 
tutto quello che c'è da cliccare
(Quarto, mi stanno sui..... .)
Per cui secondo me PierPaolo ha intrapreso una buona strada, e poi se ha voglia di scrivere codice 
lascia che scriva, così impara. Tanto un giorno se appurerà che la cosa che ha fatto è inutile , la 
cancellerà da solo.....
Michele 

 Michele
Anch'io li tolgo sempre e li creo da me, ed infatti non discutevo il
fatto di usare quelli proposti da access, esprimevo solo il concetto
che dal mio punto di vista ha poca importanza se siano visibili o
meno..! Che poi se li voglia creare lui , figurati, secondo me quasi
tutti disabilitano i pulsanti di navigazione propri di access, comunque
lungi da me il dissuadere pier paolo nello scrivere codice...ne scriva
quanto vuole.
Saluti
Diego

E comunque caro Piero Paolo per stabilire se ti trovi al primo o
all'ultimo record puoi, insieme alla routine di spostamento tra i
record che ti ho postato prima, mettere sotto i due bottoni creati da
te una bella etichetta vuota senza caption per intenderci e poi da
codice sull'evnto form current scrivere queste, anzi questa riga di
codice:
Me.LblRecord.Caption = "Record " & Me.CurrentRecord & " di " &
Me.Recordset.RecordCount & "  Record", l'etichetta ti mostrera' a
sinistra il record corrente a destra il numero totale dei record.
e' anche piu' elegante da presentare.
Saluti
Diego

diego ha scritto:

Grazie a tutti, mi scuso per non aver segnalato il Xpost sul NG di
microsoft, pensavo foste 2 gruppi totalmente separati (avevo giusto
notato un thread in cui si parlava male dei NG MS).
Comunque se ricapita giustamente lo farò.
Riguardo i bottoni, vi dico il mio punto di vista:
1) il capo me l'ha chiesti, quindi a prescindere da ogni discussione,
li includo ;)
2) I bottoni di default in basso, quando ci si trova all'inizio o alla
fine non scompaiono, ma vengono disabilitati, ed è un effetto
visibile. Forse è l'effetto migliore, ancora meglio che far sparire i
pulsanti.
3) Gli utenti che lavoreranno su quest'applicazione hanno una certa
età, quindi i bottoni dovranno essere ben visibili, quelli di default
non sono abbastanza user friendly.
4) Grazie a tutti :-)
Pierpaolo D'Aimmo