mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: valori in campo memo

 
       ciao a tutto il ng,
il mio problema è l'inserimento di valori in un campo memo. finora ho
risolto il problema direttamente dalla maschera come dall'esempio riportato.
questo permette premendo un pulsante di inserire i valori da un
sottomaschera al controllo memo presente nella maschera principale, ma
aggiorna solo i valori presenti in questo record e non gli altri.
'genera valore in campo memo copre
  Dim cs As DAO.Recordset
  Dim db1 As Database
  Dim appoggio1 As String
  Set db1 = CurrentDb
  Set cs = db1.OpenRecordset("Tabella_copre", dbOpenDynaset)
  Dim ID_Località1 As Integer
  Dim primo1, secondo1 As String
    cs.MoveFirst
    Do Until cs.EOF
    ID_Località1 = cs("ID_Località")
    primo1 = cs("us")
    secondo1 = cs("copre")
        If cs("us") = Me.US And cs("ID_Località") = Me.ID_Località Then
            appoggio1 = cs![copre] & ", " & appoggio1
        End If
        cs.MoveNext
    Loop
   If appoggio1 = "" Then
   Forms![ma_schedatura]![copre] = "*"
   ElseIf appoggio1 <> "" Then
       Forms![ma_schedatura]![copre] = Left(appoggio1, Len(appoggio1) - 2)
    End If
ho provato assieme ai vostri consigli a trovare un sistema alternativo ma
questo non funziona e così sono nuovamente qui per sanarlo...
grazie
  Function riempito_da()
 'genera valore in campo memo riempie
 Dim a1 As DAO.Recordset
 Dim a2 As DAO.Recordset
 Dim db As Database
 
 Dim id_localitàRegistro As String
 Dim RegistroUS As String
 Dim RegistroRiempitoDa As String
 Dim id_localitàRiempitoDa As String
 Dim RiempitoDaUS As String
 Dim RiempitoDa_RiempitoDa As String
 Dim str As String
 Dim v1 As String
 Dim pos
 Dim dove As Integer
 Set db = CurrentDb
 Set a1 = db.OpenRecordset("registro", dbOpenDynaset)
 Set a2 = db.OpenRecordset("Tabella_riempito_da", dbOpenDynaset)
 
a1.MoveFirst
Do Until a1.EOF
If a1.EOF Then Exit Do
 id_localitàRegistro = a1("id_località")
 RegistroUS = a1("us")
 RegistroRiempitoDa = a1("riempito_da")
 
 id_localitàRiempitoDa = a2("ID_Località")
 RiempitoDaUS = a2("us")
 RiempitoDa_RiempitoDa = a2("riempito da")
 
 pos = a1.Bookmark
    v1 = id_localitàRiempitoDa & RiempitoDaUS
        str = ""
        Do While Not a2.EOF And id_localitàRegistro & RegistroUS <= v1
                a1.Edit
                RegistroRiempitoDa = str
                a1.Update
            'str = str & RiempitoDa_RiempitoDa & ","
            'v1 = id_localitàRiempitoDa & RiempitoDaUS
            a2.MoveNext
            If a2.EOF Then Exit Do
        Loop
    If v1 = id_localitàRegistro & RegistroUS Then
        str = str & RiempitoDa_RiempitoDa & ","
        a1.Edit
        RegistroRiempitoDa = str
        a1.Update
    End If
    If a2.EOF Then Exit Do
    If id_localitàRegistro & RegistroUS < v1 Then a1.MoveNext
Loop
 a1.Close
 a2.Close
End Function
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ha scritto nel messaggio 
news:130Z251Z87Z242Y...@usenet.libero.it...

Mi sembra strano che tu voglia modificare contemporaneamente TUTTI il campo 
memo di tutti i record di una tabella.
Comunque la strada sembra essere una semplice query di aggiornamento.
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: Messaggio di conferma

Vorrei sapere se c'è la possibilità di utlilizzare Msgbox nel formato
VbYesNo per chiedere una conferma di una determinata operazione in modo che
se viene premuto Si venga eseguita l'operazione mentre se viene premuto no
l'operazione venga annullata.
Ciao Fabrizio

 ha scritto nel messaggio
news:apbp3j$35b$1...@lacerta.tiscalinet.it...

Esempio di pulsante "EliminaRecord":
Private Sub EliminaRcord_Click()
If Msgbox("Eliminare definitivamente il record corrente?", vbYesNo,
"ATTENZIONE!") = vbYes then
    DoCmd RunCommand.acCmdDeleteRecord
End If
End Sub
Mandi Rob.

Newsgroup: it.comp.appl.access
Titolo: aggiornamento tab con specifica di importazione da FE

Dal front end via codice eseguo questa procedura che fa partire delle query
nel back end per l'aggiornamento delle tabelle, pescando i dati da file di
excel collegati sempre nel BE:
Dim dbs As Database
Dim qry As QueryDef
Set dbs = OpenDatabase(percorsoDB & "backend.mdb")
 
    Set qry = dbs.QueryDefs("Q_apparecchi_elimina")
    qry.Execute
    Set qry = dbs.QueryDefs("Q_apparecchi_importazione1")
    qry.Execute
    ............
e così via. ora non ho capito perchè ma mi esce questo errore dopo
l'esecuzione della query importazione1:
"errore 3625. specifica di testo "specifica2" inesistente. impossibile
importare, esportare o collegare con tale specifica"
la specifica si riferisce ad uno di questi file di excel usati per l'import.
notare che:
- aprendo il BE gli excel collegati si aprono correttamente
- dal BE le query di aggiornamento funzionano perfettamente
- ho usato la stessa procedura su altri DB e funziona perfettamente
inutile dire che le specifiche di importazione ci sono eccome e il BE
funziona in tutto e per tutto. sembra che ci sia un problema nella
comunicazione FE--BE...
googolando un pò sembra essere un problema di quelli tosti inspiegabili...
qualche esperienza a riguardo?
grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


mi rispondo da solo. sembra sia necessario dare l'accesso all'utente
"amministratore" a tutte le tabelle collegate del BE, nonostante il FE venga
utilizzato con altri account. cosě ha funzionato.

Newsgroup: it.comp.appl.access
Titolo: CurrentUser

Ciao,
pensando di cambiare la proprietà recordsource di una maschera in base 
al CurrentUser, ho associato all'evento OnOpen un codice del tipo
Select Case CurrentUser
case "pippo"
me.recordsource = "tabelladipippo"
...
End Select,
ma all'apertura della maschera l'evento OnOpen non si verifica.
Per esempio, se mi trovo in visualizzazione struttura della maschera 
con un breakpoint piazzato su Select Case all'avvio della maschera, la 
maschera resta in modalità struttura. Sembra che il CurrentUser blocchi 
l'evento.
-- 
*****************************
Grazie e saluti, Emiliano
*****************************


Form_Open e OnOpen sono la stessa cosa ? Se non lo sono, usa Form_Open
e dovrebbe funzionare
Ciao
Antonio

Scriveva 
antone...@tiscali.it
 domenica, 23/11/2008:

Grazie, ma sono la stessa cosa



Allora verifichiamo tutte le differenze fra la mia esecuzione e la tua.
1) Ho creato la seguente routine e nella finestra di debug viene evidenziato 
l'utente Admin:
Private Sub Form_Open(Cancel As Integer)
    Select Case CurrentUser
        Case "Admin"
            Debug.Print CurrentUser
        Case Else
            Stop
    End Select
End Sub
2) La maschera ha, ovviamente, la dicitura "[Routine evento]" sull'evelto 
Apertura.
3) I Riferimenti attivi sono solo i seguenti due:
"Visual Basic for Applications"
"Microsoft Access 11.0 Object Library"
4) La prova l'ho fatta col Access 2003
Ciao
Antonio

Ciao,
ti ringrazio molto per l'interesse al mio problema, ma i guai sono 
scomparsi dopo aver creato un db vuoto e importato tutti gli oggetti 
dal db "difettoso". Nel nuovo db il codice viene eseguito regolarmente. 
Probabilmente qualcosa si era "incatricchiato" nella struttura del 
database. Pensa che addirittura non funzionavano più nemmeno i 
breakpoint. Ignorati come se non ci fossero.

Newsgroup: it.comp.appl.access
Titolo: Recuperare database in Cobol





 


----- Original Message ----- 

From:
 
Paolo
 


To:
 
it.comp.a...@mailgate.org




Sent:
 Friday, August 10, 2001 9:21 PM


Subject:
 Recuperare database in Cobol




Salve, mi chimo Paolo e ho un questito per voi che 
ne sapete sicuramente più di me. Ho un archivio anagrafico piuttosto 
consistente, diciamo intorno ai 20 mb, circa 43000 record, generato da un 
vecchio programma in Cobol.
Mi sapete dire se è possibile recuperare in 
qualche modo questa benedetta anagrafica per poi utilizzare Access per la 
gestione dei dati?


Grazie, 
Paolo



benedetta anagrafica per poi utilizzare Access per la gestione dei dati?
Non credo che ci siano problemi, sempreche'
1) tu conosca la struttura record dell'archivio
2) non sia compresso
3) varie ed eventuali
Magari c'e' da lavorarci un po' su, ma ci dovresti riuscire.
Poi, operativamente, c'e' da tenere in considerazione altre cose, 
come il nuovo formato dei dati: lasciarli li' dove sono? importarli 
in Access? creare un db su dbms?
Il punto piu' importante e' l' 1) precedente: se non sai com'e' 
strutturato, c'e' da spulciare in esadecimale... 
Ma se hai i sorgenti o se la documentazione e' ben fatta, non 
ci sono problemi.
-- 
Filippo "Kirone" Zamengo 
Quanto scritto deve ritenersi IMHO e indipendente dal datore di lavoro
e-mail modificata: togliere DESPAM.

Newsgroup: it.comp.appl.access
Titolo: Codice Macro

Vorrei chiedere un chiarimento! Riesco a vedre il codice che sta dietro ai
comandi che inserisco in una Macro??? Eventualmente come faccio a vederlo??
Grazie 1000
--
<**************************>
Luca Zangarelli - CED L'Abbondanza
Email: 
in...@labbondanza.it
Http: 
www.labbondanza.it
<**************************>

 
Si se selezioni la MACRO, poi con il DESTRO(Click) ESPORTA in Modulo
ti crea un MODULO in cui c'è la Funzione VBA...!
@Alex
-- 
Posted from  [146.133.1.30] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:b92fd579353e30e8a3...@mygate.mailgate.org...


Newsgroup: it.comp.appl.access
Titolo: Apertura recordset

Ciao a tutti
ho un problema nell'aprire un recordset ado, è possibile dargli come origine
dati una query contenente un criterio del tipo "Forms!FrmClienti!IdDitta"
provando mi dà un errore di run-time '-
2147217904
 (80040e10)'
nessun valore specificato per alcuni parametri necessari
eppure nella finestra immediata mi da il valore corretto
idee
ciao e grazie
Steve

 ha scritto nel messaggio
news:9o4n1m$sg2$1...@serv1.iunet.it...

Nel Sito Comune (link qui sotto), Sezione Queries, nella FAQ di Federico
Luciani intitolata "Aprire una query parametrica da codice VBA." è spiegato
come si fa ad aprire un recordset su una query di selezione parametrica.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


grazie ho letto devo solo adattarlo visto che uso ado ma ho capito il
concetto
Newsgroup: it.comp.appl.access
Titolo: URGENTE – Installazione Access 2000

Devo distribuire un semplice programma fatto con ACCESS 2000 versione
9.0.8950 SP-3 a sette PC diversi i quali non hanno ACCESS 2000 installato.
E’ possibile far funzionare il programma di ACCESS con file di estensione
.mdb o .mde senza installare il pacchetto di ACCESS 2000 ???????
Se si come posso fare ?????? E dove posso reperire le informazioni ???
Grazie infinite
LUCA
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Se si come posso fare ?????? E dove posso reperire le informazioni ???
www.donkarl.com/it
 FAQ 1.3
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 ha scritto nel messaggio
news:81Z114Z227Z245Y...@usenet.libero.it...

Complimenti vivissimi hai vinto il premio faqquone
da quanto mi risulta sei il primo del 2007!!!!
Scherzi a parte segui il link di karl oppure cerca il faqquone sul presente
newstgroup nei vecchi post
o sul 
www.sitocomune.com
vedrai che la tua domanda è stata postata millioni di volte!
tu però sei il primo del nuovo anno!
;-)
M

Newsgroup: it.comp.appl.access
Titolo: inserire nel report pulsanti di comando

E' possibile? 

 E' possibile?
perchè vuoi falro? 

 E' possibile?
No, ma se spieghi cosa devi fare magari si possono
trovare soluzioni.
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio 
news:1369c76199e722d945...@mygate.mailgate.org...

Grazie ragazzi come sempre
Ho un report basato su una query dove riporto ,nel report,i vari totali dei 
campi ,avrei la necessita' di poter modificare un record ,con una maschera 
non ci sarebbero problemi ma dato che il db (non mio) ha solo report 
chiedevo se c'era la possibilità altrimenti gli cambierò i report con 
maschere.
ciao 

 ciao
Purtroppo i Report sono un oggetto di sola VISUALIZZAZIONE.
Ciao


Newsgroup: it.comp.appl.access
Titolo: Stranezza Reporter

Salve a tutto il News come sempre vengo a chiedere qualche
consiglio...........
Ho sbattuto su una stranezza riscontrate nei reporter .... praticamete ho
diversi reporter nel mio db è sono tutti inpostati con stanpa orizontale ,
tutto funziona bene ma ogni tanto puff apro i reporter per stampare è lo
trovo con il foglio in verticale è mi stampa due pagine quando normale ne
bastava una sola.........
Non so se mi sono spiegato ,esiste qualche metedo che una volta che è stato
predefinito il layout di stampa resta sempre con quel layout?!?
grazie mille
Gianni_B
-- 
Gianni B.

Gianni_B
penso tu intenda report
crea un mde del programma e non dovrebbe cambiare piů nulla
ti sei imbattuto in uno dei bug di access dovresti provare a cambiare
la spunta su correzione automatica nome nelle opzioni e vedere se si
ripresenta.
Saluti.
Emanuele.


Installa sr1 oltre al consiglio di Emyr. Dovresti risolvere sia per i
reporter, che per i pubblicisti che x gli editorialisti.
Insomma una mannna dal cielo
ciao MAssimiliano
--------------------------------
Inviato via 
http://usenet.libero.it
Newsgroup: it.comp.appl.access
Titolo: Orologio e calendari modello "Windows"

Ciao ragazzi qualcuno sa se è possibile inserire in una maschera un
controllo orologio e calendari del tipo di quello che troviamo in Windows?

 controllo orologio e calendari del tipo di quello che troviamo in Windows?
Per il calendario puoi usare l'ActiveX Controllo Calendario; per
visualizzare l'orario nel formato HH:MM:SS che si aggiorna in continuazione
te lo fai da solo con due righe di codice VBA.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:zwXeb.3920$e6.1...@twister2.libero.it...

Per il calendari daccordo per l'orologio non mi serve sapere come si
visualizza il formato HH:MM:SS ma come posso graficamente realizzare
l'orologio di Windows con tante di lancette, esiste pure per quello un
controllo ActiveX se si come si chiama?

 controllo ActiveX se si come si chiama?
Non saprei che dirti.



Sei disposto a spendere o vuoi cose Free....???
Se è la 2°  allora hai a disposizione solo il Calendario.
@Alex.
Newsgroup: it.comp.appl.access
Titolo: Somma i valori delle righe di una sottomaschera

E' possibile far si che il valore di un controlloA in una maschera sia la
somma dei valori del controlloB presente nella lista presentata in una
sottomaschera?
Se inserisco un controllo ne piè di pagina della sottomaschera come somma
(controlloB) tutto ok. Ma se il controllo che deve contenere la somma lo
inserisco nella maschera niente.
Si può fare?
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ha scritto nel messaggio 
news:217Z169Z121Z36Y...@usenet.libero.it...

se hai il controllo nel piè di pagina nella sottomascshera ad esempio 
chiamata SubMaschera ed il controllo si chiama Totale
creati sulla maschera principare Chiamata Maschera un nuovo controllo gli 
assegni NomeElemento Totale e come orgine controllo metti:
=[SubMachera].Form!Totale
Fai attenzione che i due controlli sia nella maschera che nella 
sottomaschera devono avere lo stesso Nome Elemento.
Spero di esserti stato utile.
Se hai problemi scrivimi.

 Si può fare?
Devi comunque calcolarti la somma in un controllo non visibile inserito nel
pié di pagina della sottomaschera, quindi nella maschera principale
inserisci una casella di testo non associata nella cui origine controllo fai
riferimento al controllo inserito nel piè di maschera della sottomaschera
che contiene il totale: la funzione Somma può lavorare solo con i campi
contenuti nell'origine record della maschera/sottomaschera in cui è inserita
la casella di testo che dovrà contenere la somma.
In alternativa, per calcolarti la somma direttamente nella maschera
principale, invece della funzione Somma usa la funzione DSum (vedi help).
-- 
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------

Diciamo, per esempio, che i nomi dei controlli siano controlloA (Maschera) e controlloB (Sottomaschera), Nel controlloA in Origine Controllo digita =[NomeSottomaschera].Form!controlloB
Ciao
-- 
franco_44 
------------------------------------------------------------------------
View this thread: 
http://www.itsistemi.net/viewtopic-749216.html
Inviato via 
http://www.itsistemi.net

Grazie. 1000.


 ha
scritto:



 ha
scritto:


Newsgroup: it.comp.appl.access
Titolo: Problemi della funzione (dal sito comune) x impostare risoluz. video

Salve.
Ho scaricato dal sito comune il db con la funzione per impostare da
Access la risoluzione video.
Funziona benissimo, tranne per il fatto che passando da una ris. ad una
superiore (per es. da 800x600 a 1024x768), la barra delle applicazioni
(che normalmente tengo in fondo allo schermo), viene visualizzata circa
a mezza altezza dello schermo.
Ho provato a impostare la barra in modo che venga nascosta
automaticamente, ma il comportamento è analogo.
Ho provato anche con le funzioni scaricate dal sito di Dev, ma senza
miglioramenti.
Qualcuno ne sa qualcosa ?
Grazie

Cara Antonella
chi ti scrive è l'autore del programmino per la risoluzione dello schermo.
Ho provato più volte a passare da risoluzioni minori a quelle superiori e
viceversa senza trovare mai un problema.
Ovviamente lo schermo si ingrandisce o si rimpiccolisce a seconda della
frequeza impiegata dalla scheda per quella risoluzione ma tutti gli elementi
del desktop restano al loro posto.
Quando trovi la barra di stato di Windows al centro dello schermo la puoi
spostare?
Forse il problema è proprio in Windows o nella scheda video.
Non credo comunque che la cosa si ripeterà nella macchina dove avrai
installato la tua applicazione (amici o clienti che siano).
Fammi sapere se su altre macchine si comporta allo stesso modo.
Ciao, Carlo
--
Posted from 
ro...@www.paola.antares.it
 [195.216.145.2]
via Mailgate.ORG Server - 
http://www.mailgate.org

CarloCos wrote:

Caro Carlo
scusa ma mi ero scordata di dire che avevo provato con Win 98.
Su pc con Win 95 OSR2 funziona bene.
Ma non dicevano che il kernel e le API di Win 95 OSR2 sono gli stessi di Win 98
?
Grazie
Newsgroup: it.comp.appl.access
Titolo: inserire in una maschera la casella combinata per la selezione dei caratteri

Ciao a tutti!
Mi chiedevo se era possibile inserire in una maschera la casella combinata
per la selezione del carattere.
Volevo memorizzare in un campo di una tabella il carattere da utilizzare per
un report.ů
Mi spiego meglio:
Nel database ho un report dove c'č un intestazione con logo e nome dell'
associazione sportiva,
quindi ho creato una tabella dove memorizzo il logo scelto tramite una
maschera e il nome dell'associazione sportiva.
Volevo che fosse possibile selezionare anche il tipo di carattere da
utilizzare, e la dimensione.
Come posso fare a visualizzare su di una maschera la casella combinata per
la selezione del carattere, e quindi memorizzarne il nome nel campo della
tabella?
Grazie a tutti

 ha scritto nel messaggio 
news:58OJd.768911$35.30...@news4.tin.it...

Personalmente uso un CommonDialog (comdlg32.ocx) nella maschera e un 
pulsante che mi apre la visualizzazione dei font:
With Me.Common1
.Flags = cdlCFBoth
.ShowFont
NomeFont = Common1.FontName
SizeFont = Common1.FontSize
Me.CarattereScelto = NomeFont
Me.Grandezza = SizeFont
Call ImpostaCarattere
End With
NomeFont č una variabile globale di tipo stringa
SizeFont č una variabile globale di tipo integer (va bene anche byte)
ImpostaCarattere č una funzione che mi memorizza i valori del carattere in 
una tabella che userň poi per formattare l'intestazione del report.
Per esempio:
Dim ctl As Control
    For Each ctl In Me.Controls
    With ctl
    NomeFont = DLookup("Font", "SQCaratteriDocumenti")
    SizeFont = DLookup("Taglia", "SQCaratteriDocumenti")
    .FontName = NomeFont
    .FontSize = SizeFont
    End With
    Next
Ciao, Carlo 

 ha scritto nel
messaggio news:OMOJd.769203$35.30...@news4.tin.it...

scusami, ma se tento di inserire un CommonDialog  mi dice che non ho la
licenza.
come posso fare?

 ha scritto nel messaggio 
news:ZcPJd.769396$35.30...@news4.tin.it...

Per avere la licenza per questo ocx devi aver installato programmi come 
OfficePro Developer, VB e simili.
In mancanza di questi programmi potresti ricorrere alle API per richiamare 
la finestra di dialogo per i font.
Scrivere qui la procedura diventa molto lungo.
Ti consiglio il sito di Lebans seguendo questo link e digitando nella 
casella di ricerca "Font":
http://www.lebans.com/_vti_bin/shtml.exe/search.htm
Ciao, Carlo 

 grazie per la segnalazione, forse ho trovato quello che mi serviva
Newsgroup: it.comp.appl.access
Titolo: Calcolo Scadenze

Buongiorno
Siete a conoscenza di uno strumento che calcoli le rate (importo e data
scadenza) partendo da un importo complessivo , data emissiione , forma
di pagamento senza utilizzare DAO ?
Grazie
MArco
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


 Cosa intenti senza utilizzare DAO? Utilizzare ADO?
Ciao, Carlo 

 MArco
Non mi risulta che DAO possa calcolare date, ma se mai accedere
ai dati.
In ogni caso visto che immagino tu abbia memorizzato
in un Database i dati è ovvio e scontato che tu debba
leggere alcuni di questi e calcolarne altri per poi condizionare
un risultato finale della scadenza o altro.
Se non vuoi usare DAO per recuperarli puoi usare ADO
oppure, ma non lo consiglio, le funzioni di aggregazione
sui domini: Dlookup(vedi help) nel tuo caso.
Ciao
@Alex


 Ciao, Carlo
Nessuno dei due in effetti.
Intenderei ragionare a prescindere dal formato dei dati.
Pensavo (e sto tentando di realizzare qualcosa) a qualche controllo 
"intelligente" sulla form, a un pò di VBA, a qualche istruzione SQL ...
senza correre il rischio di rifare qualcosa che qualcuno ha gia fatto 
mlto bene


 @Alex
Immagini bene.
In effetti io volevo usare SQL per svincolarmi dal BE, unitamente a 
qualche istruziona VBA che nn riguarda i recordset e qualche controllo 
tipo listbox ecc..
Ciao
MArco


 MArco
Ogni tanto mi dimentico di modificare il mittente.
E' una lunga storia .......


Newsgroup: it.comp.appl.access
Titolo: numerazione co anno e lettera

in una maschera ho un controllo campo che mi deve restituire su una
tabella una numerazione crescente del tipo 1234/2012_P,
Con la seguente formula:
="" &
Format(IIf(IsNull(DMax("[n_autorizzazione]";"[provvisori]";"[n_autorizzazione]
like '????/" & Format(Date();"yyyy") &
"'"));1;Mid(DMax("[n_autorizzazione]";"[provvisori]";"[n_autorizzazione]
like '????/" & Format(Date();"yyyy") & "'");1;4)+1);"0000") & "/" &
Format(Date();"yyyy")
 
la numerazione avviene ma senza _P  finale
ho provato ad aggiungere alla fine della stringa & "_P" ma non succede
niente (non si incrementa la numerazione)
dove sbaglio?
grazie dell'aiuto!
l.
 
-- 
 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
 
 
 

 like '????/" & Format(Date();"yyyy") &
"'"));1;Mid(DMax("[n_autorizzazione]";"[provvisori]";"[n_autorizzazione]
like '????/" & Format(Date();"yyyy") & "'");1;4)+1);"0000") 
 
da come risultato il progressivo : 1234
 
questo da la separazione : & "/" &
 
questo da solo:
Format(Date();"yyyy")
 
da correttamente la data 2012
 
ma messi insieme, e accompagnati da &"_P" non fungono?... 
 
 
 
-- 
------------
Pablitomf
Napoli sempre nel "Q"uore!
"mammasantissima" si nasce, non si diventa.
Newsgroup: it.comp.appl.access
Titolo: aiuto!

Vi prego di darmi una mano..
ho piu tabelle collegate con la relazione molti a uno, se creo le maschere e
le secondarie le uso come sottomaschere, nessun problema, si aggiornano
correttamente. Però avrei la necessita di usare queste sottomaschere
aprendole di volta in volta con dei pulsanti di comando e cosi fanedo non si
aggiornano affatto.
Scusate se sono un po impreciso, ma in pratica l'id della principale si
chiama id fa e ho messo anche nelle altre tabelle id fa, ma se nel primo
caso automaticamente l'id fa della secondarie prende correttamente il valore
dell'id fa promario, aprendole con pulsanti di comando prende il valore di 0
e quindi non funziona.
Vi ringrazio se mi date un aiutino con il manualone non riesco ad ottenere
aiuto.. se potete rispondetemi anche in emaill grazie ancora.
Gabriele

 ha scritto nel messaggio
news:3afbc...@news.dada.it...

Puoi controllare l'evento "prima di aggiornare" della maschera aperta col
bottone, dove inserirai il codice per leggere l'id fa della maschera
"principale".
Es.
'-----------
Me![id fa] = Forms!mascheraPrincipale![id fa]
'-----------
Ciao.

 ha scritto nel messaggio
news:9dhb0c$r7o$1...@canarie.caspur.it...


Newsgroup: it.comp.appl.access
Titolo: Interagire con lo scanner per archiviare documenti

Ho implementato un database per registrare le fatture d'acquisto.
In un'apposita maschera inserisco tutti i dati della fattura e poi ho creato
un campo di collegamento al file grafico che contiene l'immagine della
stessa già memerizzato su HD.
Ora, vorrei modificare il programma in modo da poter controllare lo scanner,
vale a dire:
vorrei che premendo un pulsante dalla marschera di inserimento dati il
programma automaticamente avvia la scansione della fattura e la salva in
un'apposita directory uassegnando al file un nome composto dal campo "ditta"
e dal campo "numero_fattura" della maschera.
Come posso fare?



 ha scritto nel messaggio
news:2GMyf.47555$eD5.7...@twister2.libero.it...

Vai sul Sito Comune (link qui sotto) e nella Sezione General leggi queste
due FAQ:
1) 6.115 Come è possibile scannerizzare, visualizzare, modificare, stampare
e salvare files immagine usando gli ActiveX Kodak?
2) 6.214 Usare uno scanner con VBA di Carlo Costarella
-- 
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: filtrare risultati query eliminando record i cui campi =0.

Mi scuso per il precedente post con oggetto sballatissimo.....è il
caldo.
PARAMETERS [fine_mese_gg/mm/aaaa] DateTime;
SELECT scadenze.codcf, Sum(IIf([scadenze]!
[pagato]=-1,IIf([fine_mese_gg/mm/aaaa]+10>[scadenze]![datapag],0,
[scadenze]![impeff]),[scadenze]![impeff])) AS esposizione,
Sum(IIf(IIf([scadenze]![pagato]=-1,IIf([fine_mese_gg/mm/aaaa]
+10>[scadenze]![datapag],0,[scadenze]![impeff]),[scadenze]!
[impeff])>0,IIf([fine_mese_gg/mm/aaaa]+10>[scadenze]![datascad],
[scadenze]![impeff],0),0)) AS scaduto,
Sum(IIf(DateSerial(Year([scadenze]![datafatt]),Month([scadenze]!
[datafatt])+1,1)-1=[fine_mese_gg/mm/aaaa],[scadenze]![impeff],0)) AS
fatturato
FROM scadenze
WHERE (((scadenze.tipoacc) Not Like "F") GROUP BY scadenze.codcf
HAVING (((scadenze.codcf) Like "C*" And (scadenze.codcf) Not Like
"*L"))
ORDER BY scadenze.codcf;
La brutta query qui sopra mi calcola esposizione dei clienti, scaduto
e fatturato.
Succede che a volte in tutte le 3 colonne ho valore 0 (zero).
Come posso filtrare i dati? Voglio cioè non selezionare i record se in
tutte le 3 colonnè il risultato è zero.
Premetto che di VBA non capisco nulla.
Grazie 1000!

 ha scritto nel messaggio 
news:1183393581.4...@o61g2000hsh.googlegroups.com...


Usare sempre prima l'help!!
Scusami ma questa è una domandina un pò spicciola...bisogna sempre leggere 
prima qualche libro...(es. Access for Dummies) e la stracitata guida all'NG 
su 
www.sitocomune.com
 .
Detto questo volevo solo "bacchettarti" un attimo prima di risponderti....
Non serve sapere VBA basta che trascrivi il codice in una query e nel campo 
criteri sulla stessa riga nei campi che ti interessano metti.... "<>0" senza 
virgole.
Ciao
-- 
Roberto da Parma

 Roberto da Parma
grazie
Newsgroup: it.comp.appl.access
Titolo: mouse spostato

uffa non trovo piů la pagina dove veniva spiegato come implementare un
pulsante a partire da una etichetta, e che cambiasse colore al passaggio del
mouse, io fin ora sono riuscito solo a farla restare blu... come dal
codicillo quě sotto:
Private Sub Etichetta121_MouseMove(Button As Integer, Shift As Integer, X As
Single, y As Single)
Etichetta121.BackColor = 16711680
End Sub
lo avevo copiato da li... solo che non avevo assolutamente capito cosa
c'entrasse una clessidra, se di questo si trattava...
so che non č fondamentale la mia domanda, ed avevo anche pensato di lasciare
perdere, solo che non mi ero salvato la pagina e se qualcuno mi ricorda il
link vorrei provare a ristudiarla.
grazie
by
stwe


trovato:
http://www.mvps.org/vbnet/index.html?code/intrinsic/sehyperlink.htm
ecco ora ricordo meglio...
io invece di cambiare l'aspetto del testo come nell'esempio, vorrei cambiare
le proprietà della casella di testo, oppure cambiare l'aspetto del testo e
farlo diventare grassetto, ad esempio.
non so se qualcuno conosce Director, ma vorrei fare qualcosa come i pulsanti
di director... o flash....
spero di essere stato chiaro, anche se come nel mess. precedente non ho
capito dove prendere il timer, nell'esempio del sito.
by
stwe

Newsgroup: it.comp.appl.access
Titolo: Giuda Visul Basic : Come si installa?

ho la licenza di Office 2000 Professional.
ho fatto l'installazione completa, ma nella guida di Visual Basic non vedo i
riferimenti alle funzioni DAO/ADO. Come faccio per installarle?
Grazie mille
GIO
--------------------------------
Inviato via 
http://usenet.libero.it

GIO
Porco giuda di una guida giuda. :-)
Prova a googlare tra i post di Agosto , se non mi ricordo male era
saltata fuori qlc soluzione.(parola chiave "guida" , ovviamente)
Ciao. Fabrizio.
(Access XP (sp2), Win ME, P4 1Ghz, 320 RAM)

saltata fuori qlc soluzione.(parola chiave "guida" , ovviamente)
Confermo che funziona perfettamente. Ho ringraziato in cuor mio il buon
Galbusera per questo semplice e risolutivo intervento. Per comodità
riporto il link:
http://groups.google.com/groups?hl=it&lr=&ie=UTF-8&oe=UTF-8&selm=ak0d1u%24hon%241%40fe1.cs.interbusiness.it
Ciao. Claudio.

On Tue, 12 Nov 2002 15:27:23 GMT, Claudio <c...@NOSPAMandCOsupereva.it>
wrote:

Peccato che non funzioni con XP , avrei risolto anche il mio di
problema che è uguale identico.


Newsgroup: it.comp.appl.access
Titolo: Aprire maschera su ultimo record

ho una maschera che di default apre sul primo record, vorrei far in
modo che apra sull'ultimo record registrato, come fare?
Grazie.


vai in struttura maschera,
e su "Evento" alla voce "Su Apertura"
inserisci questo codice :
Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acLast
End Sub
ciao

 Grazie.
A fronte dell'evento "Su caricamento" della maschera genera il metodo
GoToRecord impostando il suo argomento record ad acLast (vedi help).
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Problema da Newbie

Devo eseguire un SQL all'evento ON CURRENT, all'apertura di una maschera.
La necessita' e' quella di reperire il valore di un campo di una tabella
attraverso un parametro passato
da una maschera precedente quella che deve lanciare l'SQL all'ON CURRENT.
Mi potete aiutare ?
Grazie anticipatamente
Cristian

 da una maschera precedente quella che deve lanciare l'SQL all'ON CURRENT.
cerca nell'help Openargs

 ha scritto nel messaggio
news:33vl7.79372$vC1.1...@news1.tin.it...

Non sei stato molto chiaro, o io ho capito male
comunque se ti interessa il valore che passi ad una
istruzione openform come argomento, lo puoi utilizzare all'interno
del codice o nei controlli tramite il metodo .openargs
puoi quindi caricarti una variabile o un oggetto sull'evento open cosi':
MIA_VAR=ME.OPENARGS
e utilizzarlo per la query che ti interessa.
bye :o)

Newsgroup: it.comp.appl.access
Titolo: stampa data

in un report ho una casella di testo che come origine hontrollo ha:
= " il sottoscritto " [nome] + "[cognome]+ "(......) il " + ????
al posto dei punti di domanda devo visualizzare nel formato mese + anno (
ex: gennaio 2001) una data inserita in una maschera.
come fare?

 wrote in message
TBD66.6482$eB2.1...@news.infostrada.it...

 = " il sottoscritto " [nome] + "[cognome]+ "(......) il " &
& format(forms("tuaform").controllodata;"mmmm aaaa")
Chiaramente la maschera tuaform deve essere aperta
Antonio

Newsgroup: it.comp.appl.access
Titolo: decifrare messaggio di errore.

da questa mattina su alcuni pc della rete al click di un pulsante che lancia
una procedura di automazione con msword mi esce questo bel messaggio, mi si
chiude access e perdo il dato.
La cosa simpatica è che dal mio pc winxp officexp non succede e funziona
tutto benissimo.
(i pc su cui avviene sono win98 a2k)
Sono davvero demoralizzato!
MSACCESS ha provocato un errore di pagina non valida nel
modulo VBE6.DLL in 017f:6503254b.
Registri:
EAX=00000005 CS=017f EIP=6503254b EFLGS=00010246
EBX=00000000 SS=0187 ESP=0062edfc EBP=0062ee3c
ECX=00485030 DS=0187 ESI=00000000 FS=197f
EDX=0048533c ES=0187 EDI=004848b0 GS=0000
Byte all'indirizzo CS:EIP:
8b 4e 0c 5e 0f b7 c0 8b 49 24 8b 04 81 c2 04 00
Immagine dello stack:
0062eeb4 65176bc4 0062ee14 00406960 0047b73e 00000000 00000005 004848b0
00485030 00000340 00000000 00000000 00000000 0041a42c 653a8fba 004851b0

 ha scritto nel messaggio
news:buocmi$car$1...@news.flashnet.it...

Ma non sarà l'hardware di rete a corromperti i file mdb?
Ciao.
--
Sergio MAZZA

 ha scritto nel messaggio
news:buoffd$6jv$1...@canarie.caspur.it...

questo è un arcano ... sto controllando il codice , ma davvero non riesco a
raccapezzarmici.
Adesso viene anche fuori il messaggio che activex non riesce a trovare
l'oggetto ....
reimporto il tutto in un nuovo db e vediamo ...
che palle xò lavorare con più versioni di access è davvero cosi
problematico?


Problematico č dire poco...
Ciao.
--
Sergio MAZZA

 Sergio MAZZA
shhhh... sembra funzionare .......  è la settima camicia che sudo...
Newsgroup: it.comp.appl.access
Titolo: Problema con casella di controllo

Salve a tutti,
sto creando un indirizzario. Da una maschera di ricerca si passa ad una
maschera che visualizza una descrizione "breve" dei records recuperati.
Vorrei fare in modo che cliccando su un pulsante "dettagli" si passi alla
visualizzazione completa dell'indirizzo.
Ho creato una casella di controllo nella maschera elenco "breve", associata
ad un campo booleano della tabella Indirizzi. Ho fatto in modo che
selezionando la casella di controllo la query recuperi i dettagli per il
records selezionato, solo che perche' il tutto funzioni devo fare in modo di
chiudere la form "elenco breve" quando si apre la form "Dettagli" associata
alla query precedente (immagino perche' in tal modo la tabella viene
aggiornata).
Il tutto ovviamente mi sembra alquanto farraginoso, ma non so in quale altro
modo procedere (vorrei, ad es., fare in modo di aprire la maschera
"Dettagli" senza dover chiudere la maschera "elenco breve" in modo da
poterci poi tornare direttamente).
Qualche suggerimento?
(Spero di essere stato abbastanza chiaro nella spiegazione)
Grazie a tutti
Francesco Giacanelli
md1...@mclink.it

Qualche suggerimento?
Nella tabella in cui sono contenuti gli indirizzi aggiungi un campo
contatore (finalmente viene usato con il suo vero scopo, cioè identificare
univocamente un record.
I record recuperati con la maschera con la descrizione breve mettili in una
casella di riepilogo. Questa deve contenere anche il campo contatore, ma non
c'è bisogno di visualizzarlo. Lo metterai quindi come prima colonna che
dovrà essere quella legata, e poi, nel mettere la dimensione delle colonne,
setterai a 0 cm. la prima così il contatore non si vedrà.
A questo punto, o selezioni una riga dalla casella di riepilogo e poi premi
un pulsante, o fai un doppio clic su una riga, vai ad aprire la maschera
dettagli.
Prima però da codice fai diventare invisibile la maschera desc. breve con un
me.visible = false.
La maschera dettagli deve avere come origine record una query sugli
indirizzi e un criterio sul campo contatore e cioè dovrà essere uguale al
valore della casella di riepilogo della maschera desc.breve.
Sarà quindi qualcosa del tipo [schede]![desc_breve]![lista_recuperati]
Lista recuperati, la casella di riepilogo, vale infatti il contatore della
riga selezionata e, anche se la maschera è invisibile, è comunque aperta e
quindi il valore è ancora presente. Pertanto la query ti restituirà solo il
record corrispondente alla riga selezionata.
Quando vorrai chiudere la maschera dettagli, farai la docmd.close e poi il
comando che rende nuovamente visibile la maschera desc.breve e quindi farai
forms("desc_breve").visible = true
Et voilà
Antonio
Newsgroup: it.comp.appl.access
Titolo: popolare tabella con n record per query

ho una tabella con i codici interni dei prodotti.
con la funzione scaricata dal sitocomune estrainumeri ottengo solo i 
numeri componenti il codice dei prodotti.
Devo confrontare questo codice con un contatore in modo che tramite una 
query quando per un numero del contatore non c'è il relativo codice il 
record rimane vuoto.
Per ora creo una tabella con un campo numero e la popolo con un INSERT
n to dmax("numestratti";"querynum")
e poi uso la tabella con il contatore e la querynum come origine dati di 
un'altra query che mi dà il risultato sperato.
A me sembra di fare passaggi lunghissimmi e mi chiedevo se potessi 
velocizzare il tutto.

"Silver" <cra...@TOGLIhotmail.com> ha scritto nel messaggio
news:IKc%f.12910$QM3....@tornado.fastwebnet.it...

Non sono sicuro di aver capito bene il tuo problema, ma se quello che vuoi
fare è ottenere con una query  la segnalazione dei numeri mancanti del
valore di un campo di una tabella numerato progressivamente, vai sul Sito
Comune (link qui sotto) e nella Sezione Queries vedi se fa al caso tuo la
FAQ di Giorgio Rancati intitolata "2.32 Visualizzare gli eventuali numeri
mancanti di un contatore che numera progressivamente i record di una
tabella".
-- 
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------

Quello che mi interessava era riempire l'unico campo di una tabella 
vuota con numeri da 1 a n dove n è un valore dmax
comunque ho visto la faq "sfruttare le trasizioni per velocizzare le 
queries di comando" e adattando la parte dove popola la tabella ho 
ottenuto un buon risultato in termini di velocità di popolamento

Newsgroup: it.comp.appl.access
Titolo: Eliminazione file.  VBA a volte proprio non lo capisco!!

Salve
Devo eliminare un file via VBA e utilizzo il comando Kill
Ora se scrivo nella sub: 
Kill "\\Server\Access\AllegatiOrdini\10_2009_Telegamma.bmp"
il file viene eliminato dal server, tutto OK. 
Se scrivo:
Dim NomeDelFile as string
NomeDelFile = Me.Collegato.Value 
'Collegato ï¿œ una casella di testo con dentro il path del file da 
eliminare
Kill NomeDelFile
Mi dice che non trova il file!!?? Ho provato anche a scrivere
 
Kill "& NomeDelFile &" 
per racchiuderlo tra " come prevede l'istruzione, ma non trova il file. 
NomeDelFile ï¿œ pure una stringa l'ho dichiarato, ma perche non gli 
piace???? Ho provato anche a convertirla con 
NomeDelFile = CStr(Me.Collegato.Value) niente da fare non gli va bene.
Cosa posso fare?
Grazie 1K per l'help

Debug lo hai fatto...?
Hai guardato cosa restituisce la stringa prima di eseguire il KILL...?
@Alex

 Grazie 1K per l'help
Per caso � un ipertesto il tuo percorso? Se � cos� chiaramente non pu�
funzionare in quanto il percorso viene racchiuso tra due simboli #
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 
Centrato in pieno! :)
per risolvere ho usatao la seguente:
Kill Me.Collegato.Hyperlink.TextToDisplay
al posto di Me.Collegato.value
Funziona! Grazie
Newsgroup: it.comp.appl.access
Titolo: Ancora su stampa record

Ciao a tutti e buona sera.
Sono ancora con le prese della stampa record con o senza selezione.
Maurizio mi aveva suggerito e scrtitto una query per fare ciò
        Database: Northwind
        Query: x Diana
            PARAMETERS [Trasporto?] Value;
            SELECT TOrd.*
            FROM Ordini AS TOrd
            WHERE TOrd.Trasporto Like [Trasporto?];
Ma quando la scrivo mi appare un messaggio di errore ""Caratteri non
previsti dopo la fine di un'istruzione SQL."" ed evidenzia la parola
PAMETERS.
Scusate la mia ignoranza in materia e non sorridete per favore fra qualche
anno spero di essere anch'io in grado di suggerire a qualcuno che abbia
bisogno. Per ora posso solo chiedere aiuto e ripetizione. Postare significa?
Anche il linguaggio di NG mi è nuovo. Grazie e ciao ciao Diana.


Ciao
tiro un po' ad indovinare: forse il ; sulla prima riga non ci va.
Postare significa mettere sull'NG. Cioč quando mandi un messaggio lo posti.
Ciao


Dovresti scrivere la query che hai scritto tu ,
ti conviene creare due report  report 1 e report2
e farli aprire in base ad una condizione
Stefano

 Grazie Jef ma purtroppo devo sbagliare in iun punto a me oscuro perché mi
da sempre messaggio di errore ""Caratteri non previsti dopo la fine di
un'istruzione SQL. Ma non capisco e non trovo nemmeno in linea nell'help un
esempio che mi aiuti. Grazie ciao Diana

 Anche il linguaggio di NG mi è nuovo. Grazie e ciao ciao Diana.
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

 ti conviene creare due report
[...]
    Scusa stefano ma... dove sarebbe la "convenienza"?


 OK Maurizio!
Ci sono arrivata, meglio tardi che mai, l'errore che facevo era di
aggiungere queste istruzioni a quelle presenti con il risultato negativo.
Cancellando tutto e lesciando solo queste funziona, quindi posso selezionare
in base a parametro o stampare tutto indistintamente. Sono un'allieva un po'
duretta, ma che si mette d'impegno e arriva alla fine della consegna.
Maurizio che dire .... Grazie... Diana.  ?-))
Newsgroup: it.comp.appl.access
Titolo: Password nelle tabelle collegate

Riinvio la domanda in quanto per problemi tecnici!
Ho collegato nel mio ;mdb delle tabelle provenienti da un .Mdb protetto da
password "pippo", tutto funziona , vedo i dati eccc. Il problema si trova
nell'uso della istruzione OpenDatabase in un Vba per prelevare le query ,
continuo ad avere la segnalazione di password errata. Le istruzioni che uso
sono le seguenti :
Dim namedb As String
namedb = Forms![menu]![Xdir_rete] '              nome da un controllo su
maschera
Set Md_trova = OpenDatabase(namedb, , , pippo)
A parte il fatto che non mi sembra corretto inserire il nome della password,
o provato anche a scrivere pwd= ma con risultato negativo.
Mi potete dare l'istruzione esatta, considerando vorrei cambiare password
senza intervenire nel Vba
Grazie
Cogo R.

 ha scritto nel messaggio
news:mp3oe.978282$b5.42...@news3.tin.it...

Anche postando la domanda altre volte otterresti solo 1 risposta...!!!!!
OpenDatabase(Percorso, False, False, strPWD)
dove la strPWD deve essere composta in modo corretto:
strPWD = ";pwd=pippo"
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 ha scritto nel messaggio
news:mp3oe.978282$b5.42...@news3.tin.it...

Ho già rispostp a questa domanda da te posta precedentemente.
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

 ha scritto nel messaggio
news:d7qhpj$vi$1...@domitilla.aioe.org...

Grazie
Newsgroup: it.comp.appl.access
Titolo: Query a campi incrociati

Ho la necessità di realizzare una query a campi incrociati che ha le
colonne un campo Data. Non riesco ad estendere la query oltre i 12 mesi.
Vorrei per esempio rappresentare in un unica query dei valori che
abbracciano l'intervallo 1/01/06 a 31/8/06. E' possibile ?
Grazie per l'aiuto
Nicola
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Nicola
-- 
Roberto 

 > Nicola
La mia query è questa:
TRANSFORM Sum(QPrtSchedaDettaglioPasti.QTA) AS SommaDiQTA
SELECT QPrtSchedaDettaglioPasti.TipoPasto,
Sum(QPrtSchedaDettaglioPasti.QTA) AS [Totale di QTA]
FROM QPrtSchedaDettaglioPasti
WHERE (((QPrtSchedaDettaglioPasti.NrContratto)=FNRK()))
GROUP BY QPrtSchedaDettaglioPasti.TipoPasto,
QPrtSchedaDettaglioPasti.NrContratto
ORDER BY Format([Mese],"Short Date")
PIVOT Format([Mese],"Short Date");
dove la funzione FNRK() reperisce il numero di contratto interessato
presente sulla tabella: SchedaDettaglioPasti (i dati da questa tabella
sono ottenuti dalla query: QPrtSchedaDettaglioPasti.
La query funziona, con  ho due problemi:
1)= Il campo mese è in formato data ma le colonne non sono in ordine di
data crescente. L'intervallo di date presente nella tabella vanno da
2/2/2001 a 1/1/2002. La query mi presenta le colonne con il primo campo
1/1/2002, secondo campo 2/2/2001, terzo campo 1/3/2001 , e così via .
Viene falsato l'ordinamento crescente mettendo il 2002 prima del 2001.
2) questa query dev' essere rappresentata in stampa ora se l'intervallo
della data viene ampliato ad esempio 2/1/2001 a 2/1/2003 (3 anni)
non  riesco a fare un report che contempli questa possibilità
Spero di essermi spiegato
Grazie comunque per le cose che ho capito dal tuo esempio.


 Nicola
-- 
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------










Ho riolto mettendo il campo mese in formato data poi con l'istruzione
Format ottengo i campi dei 12 mesi ed in questo modo il report per
qualunque query vede sempre gli stessi campi (Gen, Feb, ...e così via) e
così è tutto a posto grazie grazie ancora. Ciao Nicola
