Newsgroup: it.comp.appl.access
Titolo: Gestione pubblicazione

Salve vorrei gestire il menabň di una pubblicazione con Access
per il momento ho risolto il utto con mashcera e sottomaschera  quet' ultima 
e di tipo foglio dati
e contine le informazioni inenrenti le pagine della pubblicazione.
Ogni record rappresnta una pagina della pubblicazione.
La gestione puň andare sorge perň il problema delle modifiche all'ordine 
delle pagine ovvero in corso d'opera alcune pagine potrebbero essere 
soppresse e dunque ci sarebbero da spostare blocchi di pagine per coprire i 
buchi.
Per come ho gestito la cosa dovrei di volta in volta individuare il record 
relativo alla pagina da eliminare e cambiare manulamente i nuemretti nel 
campo Num pagina per far quadrare le cose.
La soluzione che invece vorrei avere č la seguente una maschera con 
raffigurati tanti rettangolini, ogni rettangolo dovrebbe rappresentare una 
pagina e dunque un record (cliccandoci su si dovrebbe accedere ai campi di 
quel particolarre record)
in merito agli spostamenti di pagina dovrei poter spostare di posto uno o 
piů quadratini sulla maschera mediante operazioni
di drag & drop automaticamente si dovrebbero aggiustare i numeri di pagina 
in base alla posizione occupata dal quadratino.
Pensate che sia possibile gestire una cosa del genere? 

 ha scritto nel messaggio 
news:xehTe.21142$O6.13...@news3.tin.it...

Ma se aggiungi un campo numero che non sia contatore e ti rinumeri i record 
con un attimo di codice non fai prima? 


Attualmente la situazione è questa ma prova ad immaginare di avere uan 
sequenza da 1 a 100
in cui devi sopprimere ad esempio le pagine 12 e 13 traslare le pagine da 15 
a 28 in sopra per tappare il buco
(dunque significa rinumerare le pagine da 15 a 28 ) rinumerare poi le pagine 
12 e 13 in mdo da inserirle nelle pagine 26 e 27
tenendo conto che potrebbero essere più variazioni in un giornao di questo 
tipo credo che sia difficile da gestire

 tipo credo che sia difficile da gestire
Ma se elimini 12 e 13 significa che devi rinomerare dalla 15 in poi no? Nel 
senso che 15 diverrà 12, 16 diverrà 13 e così via fino alla fine... o ho 
capito male? 

 Ma se elimini 12 e 13
OPS! ... e 14...


 ha scritto 
nel messaggio news:dfk9o4$5uu$1...@domitilla.aioe.org...

Si è così sostanzialmente se devo shiftare 30 pagine dovrò rinominare 30 
campi a mano
il che visto che l'operazione potrebbe ripetersi più volte in un giorno non 
è il massimo


Il mio esempio è pubblicato sul sitocomune, Gestione Form, ma se ti può 
essere più immediato, imposta questo modulo :
Public Function numerazione()
Dim DB As Database
Dim Rst As Recordset
Dim conta As Integer
Dim Confronta_EOF As Integer
conta = 1
Confronta_EOF = DLookup("Tot", "[Totale]") ' Totale è una query che contiene 
un solo campo Tot che contiene il conteggio totale dei record della mia 
tabella
Set DB = CurrentDb 'apro il db corrente
Set Rst = DB.OpenRecordset("Mia_Quey") 'apro il recordset della 
tabella/query che mi interessa
For conta = 1 To Confronta_EOF 'imposto un ciclo che va da 1 al numero 
massimo di record della tabella principale
    With Rst
        .Edit 'edito il record del mio Rst
        !Ordinamento = conta 'associo al campo Ordinamento il valore della 
variabile conta incrementata
        .Update 'aggiorno il record editato del mio Rst
    End With
    Rst.MoveNext 'vado al record successivo
Next conta 'vado al prossimo valore della variabile conta
End Function
All'apertura della Form, chiami richiami la function :
Call numerazione 'Richiami la funzione
Doevents 'Attendi la fine dell'esecuzione della funzione
Form.Requery 'Fai il requery della Form
Ora ti è chiaro?