mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: problemi di giorni festivi

Gentile news,
chiedo aiuto, devo estrapolare dei periodi tra due date in una query...il problema è che devo tirare fuori solo i giorni lavorativi senza tener conto dei sabato e domenica...
sono andato sul prestigioso sito comune, ho trovato qualcosa che faceva al caso mio...ma non proprio....
perchè io nella query ho questa formula:
data spedizione-data richiesta
ottengo un'intervallo di tempo...ma devo scorporarlo dai festivi.
mentre sul sito cera la soluzione per un intervallo tra 2 date, un conteggio....
grazie.

 ha scritto nel messaggio
news:b0s12m$9tg$1...@lacerta.tiscalinet.it...

Scusa ma non ho capito bene. La funzione che c'é sul sito comune l'ho usata
anch'io e mi sembra quello che ti serve.
Il conteggio tra le due date data-richiesta e data-spedizione è il numero di
giorni lavorativi. Se il tuo problema è che una volta la data spedizione è
maggiore di quella richiesta e viceversa imposta un controllo per inveritre
le due date ed eventualmente mettere in negativo il risultato.
Ciao

Newsgroup: it.comp.appl.access
Titolo: visualizzazione record nuovo

normalmente quando si crea una maschera o anche visualizzando una tabella,
access si posiziona sul primo record immesso,
Adesso mi è stato chiesto se sia possibile far posizionare access
direttamente su un nuovo record da inserire.
es. si hanno 200 record immessi, access visualizza il primo, io vorrei far
visualizzare il 201 e cioè il primo record vuoto da riempire.
è possibile?
se si, come fare?
tank
luigi
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 è possibile?
Se vuoi visualizzare solo questo nuovo record puoi impostare
la proprietà "Immissione Dati" della maschera a Sì o aprire la
maschera con:
DoCmd.OpenForm "NomeMaschera", , , , acFormAdd
Se invece vuoi visualizzare tutti record e solo andare al nuovo:
DoCmd.GoToRecord , , acNewRec
p.e. "Su Apertura" della maschera.
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 DoCmd.GoToRecord , , acNewRec

grazie!!  lunedi ci provo! (in ufficio)


 DoCmd.GoToRecord , , acNewRec

ok! la seconda soluzione è perfetta!
grazie

Newsgroup: it.comp.appl.access
Titolo: riempimento automatico caselle di testo non associate

Salve a tutti.
ll mio problema è questo. Ho due tabelle tblAnagrafica ed  una
tblFatture.
Finora la maschera per l'emissione fatture aveva origine da una query
che mi metteva insieme i campi delle due tabelle. Di conseguenza,
quando sceglievo il cliente dalla casella combinata con l'evento:
Private Sub IDCliente_AfterUpdate()
' Aggiorna i controlli sul destinatario sulla base del valore scelto
nella casella combinata IDCliente.
    Me!Destinatario = Me![IdAnagrafica].Column(1)
    Me!IndirizzoDestinatario = Me!via1
    Me!CittàDestinatario = Me!localita
End sub
ottenevo il riempimento automatico di tutti gli altri dati.
Cercando di farmi aiutare da un programmatore professionista per altri
quesiti, mi  ha suggerito di non utilizzare le maschere di inserimento
con origine query ma con origine sulla tabella tblFatture.
Il problema, è che i campi via1, localita, cap ecc.. ora non hanno
origine e dalla casella Combinata innanzi citata non riesco a riempire
questi campi orfani.
Era giusta la mia impostazione o quella suggeritami ma con modifiche
da apportare all'evento dopo aggiornamento della combo?
Grazie. Ciao.


Sono riuscito ad ottenere il risultato inserendo .Value dopo il nome
del campo.
Però questi campi si riempono solo se modifico la casella combinata e
cmq non restano in memoria alla chiusura/riapertura della maschera.
Credo che la soluzione sarebbe quella di inserire nell'origine
controllo una funzione tipo
=[tblFatture]![via1];[tblAnagrafica]![IdAnagrafica]=[frmFatture]!
[IdAnagrafica]
ma non mi funziona.
Dove sbaglio? Vi prego rispondete.
Ciao.
Newsgroup: it.comp.appl.access
Titolo: Trovare tab e query effettivamente utilizzate

Buongiorno a tutti e scusate per la sveglia. Ho questo problema : ho
ereditato alcuni mdb che mi e' stato chiesto di ripulire, cioe' di eliminare
tutte quelle tabelle o query che erano state create a carattere momentaneo
 per motivi che non conosco),
e che non sono in realta' all'interno dell'mdb utilizzate ne' come origine
dati di maschere, report o presenti in alcun modulo etc. E' possibile farlo
in un modo veloce
senza andare a verificare la struttura di tutto a manina. Vi ringrazio
molto.

 ha scritto nel messaggio
news:EVpv9.91097$%M1.23...@twister2.libero.it...

C'è un tool apposito nel sito comune
Antonio


Puoi essere piů preciso per cortesia?
sono interessato anch'io, in quale sezione del sito comune?
grazie

 ha scritto nel messaggio
news:apmlb1$n4d$1...@monty.lombardiacom.it...

Sezione General, la FAQ di  Lorenzo Coronati e Sib intitolata "Verifica se
una tabella o una query č usata in una form o in un report".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Ti ringrazio, l'ho trovato ed adoperato ma mi va in errore :
Si e' verificato un errore(17) impossibile eseguire l'operazione richiesta.
Mi puoi aiutare???

 ha scritto nel messaggio
news:mlEv9.93561$RO.23...@twister1.libero.it...

Bisognerebbe vedere in che punto si è piantato per fare un po' di debugging
Quale è l'operazione che è fallita?
Antonio

Newsgroup: it.comp.appl.access
Titolo: Casella di Controllo & Report

Ciao,
sto realizzando un report
con, anche, una casella di controllo(checkbox)
e vorrei, in base se selezionata o meno, assegnare un valore ad una casella 
di testo.
Qualcuno sa dirmi che controllo utilizzare??
Grazie
Jiji 

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


ma che tipo di controllo devo effettuare sulla casella di controllo??
ho provato sulla formattazione del corpo del report, come hai detto, ma se 
provo:
if casellaSINO = True Then ....
if casellaSINO = -1 Then ....
if casellaSINO = "Si" Then ....
...ma mi da sempre errore 2427!
cosa sbaglio??
Grazie 

> > casella
[cut]
..si sbagliavo in maniera clamorosa!!
cmq buona l'ultima, Roberto!
Grazie
Newsgroup: it.comp.appl.access
Titolo: Calcolo Pasqua

Mesi fa, da qualche parte ma non ricordo dove, ho letto l'algoritmo per il
calcolo della data della Pasqua per ogni anno.
C'č qualcuno che mi sa indicare dove trovarlo o ( meglio ancora) che me lo
puň dire???
Grazie
Stefano

 Stefano
Ciao, ti passo la Funzione basta passargli l'anno e restituisce
la data.
'Ottima funzione per ottenere la data del giorno di Pasqua semplicemente
'fornendo l'anno interessato
Public Function Pasqua(iAnno As Integer) As Date
   Dim a As Integer
   Dim b As Integer
   Dim c As Integer
   Dim d As Integer
   Dim e As Integer
   Dim f As Integer
   Dim g As Integer
   Dim h As Integer
   Dim k As Integer
   Dim m As Integer
   Dim sTmp As String
 
   a = iAnno Mod 19
   b = iAnno Mod 4
   c = iAnno Mod 7
   h = 19 * a + 24
   d = h Mod 30
   k = 5 + 2 * b + 4 * c + 6 * d
   e = k Mod 7
   m = d + e
 
   If m <= 9 Then
      g = 31 - (9 - m)
      m = 3
   Else
      f = m - 9
      If f = 26 Then
         g = 19
         m = 4
      Else
         If f = 25 Then
            If d <> 28 Then
               g = f
               m = 4
            Else
               g = 18
               m = 4
            End If
         Else
            g = f
            m = 4
         End If
      End If
   End If
   sTmp = Mid(Str(g), 2) + "/" + Mid(Str(m), 2) + "/" + Mid(Str(iAnno),
2)
   Pasqua = CVDate(sTmp)
End Function
ALESSANDRO.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.appl.access
Titolo: Aprire pagina Web da maschera

Per l'invio di una posta elettronica non c'è problema, c'è il metodo
sendobject con i parametri opportuni.
Ma per lanciare da una maschera il browser all'indirizzo per esempio
visualizzato in un controllo, come piffero si fa?
Mi sono spulciato un po' di help e alla fine ho trovato
Application.FollowHyperlink però:
1) Non mi funziona se non sono collegato ad internet (io voglio che il
browser si apra e poi mi dica che sono un deficiente perchè non sono
collegato, invece mi da proprio un errore a livello di access)
2) Mi apre quella cavola di barra degli strumenti Web
Ci sono altri modi o come risolvere con questo metodo?
Antonio

 scrisse...

Prova ShellExecute, che ti apre il Browser di default:
Public Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String,
ByVal lpFile As String, ByVal lpParameters As String, ByVal
lpDirectory As String, ByVal nShowCmd As Long) As Long
ShellExecute(Me.hwnd, "open", Me!IndirizzoWEB, vbNullString, vbNullString,
SW_SHOW)
--
Ciao, AntoGal
*************************************************
Gestione punti vendita (casse e pos NCR)
 
www.powerretail.it
-------------------------------------------------------------
per scaricare un gioco di DAMA ITALIANA
http://volftp.mondadori.com/italiani/galletta/
*************************************************

 SW_SHOW)
Direi che funziona perfettamente.
L'unica cosa è che SW_SHOW non me la riconosce come costante valida. Ho
messo un numero qualunque e funziona lo stesso. Era una tua costante?
Antonio

 messo un numero qualunque e funziona lo stesso. Era una tua costante?
Il valore standard dovrebbe essere 5 (ShowNormal)
Con altri valori la finestra può essere aperta massimizzata, minimizzata
ecc.
Magari dai un'occhiata alle API per i valori possibili di questa costante.

Newsgroup: it.comp.appl.access
Titolo: Runtime 2000 su 97?

Esistono controindicazioni (leggi bug) all'installazione del runtime del
2000 su un computer con office 97?
E' preferibile alla conversione in 97?
Grazie
Luigi

 E' preferibile alla conversione in 97?
ho provato a mie spese la conversione da 97 a 2000 con problemi di
compatibilità e bachi infinita... il tornare indietro mi pare ancora più
arduo... in 2000 ci sono operazioni VBA che funzionano in modo completamente
diverso in 97... in 2000 ci sono operazioni che non ci sono in 97. In 2000
c'e' ADO.. dall'altro parte DAO..(e questo e' solo lo scalino più facile)..
proverei il runtime al massimo cancelli per benino tutto e rimetti su 97
(che va meglio!)
ciao


L'ho fatto su una macchina di test presso un cliente ed al momento
(sono passati circa 2 mesi) non sembrano esserci controindicazioni.
Ciao.
---------------
Guido
guc...@gedy.it
Newsgroup: it.comp.appl.access
Titolo: inserire una tabella in un documento Word collegato

ciao a tutti
utilizzo un esempio scaricato dal sito comune che utilizza i segnalibri
in word per la creazione di documenti collegati a base dati di access,
a me interesserebbe sapere se è possibile inserire sempre tramite quel
codice una tabella con (n) celle all'interno del documento e popolarlo
con i dati ed a seconda del recordset origine creare n righe tutte
popolate.
Spero di essere stato chiaro.
Tommy

 ha scritto nel messaggio
news:1151492711....@75g2000cwc.googlegroups.com...
ciao a tutti
utilizzo un esempio scaricato dal sito comune che utilizza i segnalibri
in word per la creazione di documenti collegati a base dati di access,
a me interesserebbe sapere se č possibile inserire sempre tramite quel
codice una tabella con (n) celle all'interno del documento e popolarlo
con i dati ed a seconda del recordset origine creare n righe tutte
popolate.
Spero di essere stato chiaro.
Tommy
Ciao Tommy,
se ho capito bene quello che vuoi fare io faccio cosě:
nel mio Modello inserisco una tabella di una riga con tante celle quante me
ne servono, formatta nel modo che mi serve e metto un BookMark sulla prima
cella, poi con un codice di questo tipo, riempio la tabella
Dim rs as Adodb.Recordset
Dim objWordApp as Word.Application
'Apro il recordset che voglio trasferire nella tabella di word
Set rs = CurrentProject.Connection.Open(...)
...
...
objWordApp.ActiveDocument.Bookmarks("TabellaCosti").Select
           If .Selection.Tables(1).Rows.Count = 1 Then    'La tabella č
vuota
                .Selection.InsertRowsBelow 1
            Else    ' la tabella contiene delle righe le cancello
                 Dim X, Y
                 Y = .Selection.Tables(1).Rows.Count
                 For X = Y To 2 Step -1
                    .Selection.Tables(1).Rows(X).Delete
                 Next
                  .Selection.InsertRowsBelow 1
            End If
            While Not rs.EOF
                .Selection.MoveRight (wdCell)
                .Selection.TypeText (rs.Fields("Campo1"))
                .Selection.MoveRight (wdCell)
                .Selection.TypeText (rs.Fields("Campo2"))
                .Selection.MoveRight (wdCell)
                .Selection.TypeText (Format(rs.Fields("campo3"), "?
#,###.00"))
                ........
                rs.MoveNext
            Wend
 rs.close
....
Saluti
-- 
Cinzia
---------------------------------------
|  
http://www.riolab.org
  |
---------------------------------------

[CUT]
credo che tu abbia centrato il problema, per quanto riguarda l'esempio
non l'ho ancora provato, ora lo faccio ed eventualmente ti faccio
sapere.
Grazie 1000
Tommy
Newsgroup: it.comp.appl.access
Titolo: Fax

Devo spedire un report access via fax, molteplici destinatri -> report
diversi.
E' possibile automatizzare la spedizione associando ad ogni destinatrio un
report? (anche utilizzando softw. esterni come winfaxpro).

 ha scritto nel messaggio

Sito comune
Sib
--
----------------------------------------------------
la mia home:
http://digilander.iol.it/syb
----------------------------------------------------
il sito comune di it.comp.database.access:
http://www.sitocomune.com
----------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente

Newsgroup: it.comp.appl.access
Titolo: Apertura di una maschera di un altro database

Ho: database1, database2.
in una maschera del database1 ho un pulsante.
Cliccando su quel pulsante vorrei aprire la maschera contenuta nel
database2 allo specifico record con campo ID = N (dove N è una
costante)
Passaggio di parametri in access tra due database è possibile?
Io avrei pensato a creare un file via VBA, ma se mi sapete consigliare
qualcosa di più veloce/efficace mi sarebbe utile :)
Grazie 1000!
Fly

costante)
Codice sull'evento clik del pulsante:
Dim strDB2  As String
Dim appAccess As New Access.Application
strDB2 = "C:\Temp\db1.mdb"
appAccess.OpenCurrentDatabase (strDB2)
appAccess.DoCmd.OpenForm "MascheraDB2", , , , , , N
Codice sull'evento apertura della maschera che si desidera aprire sul
secondo db:
Me.RecordsetClone.FindFirst ("ID = " & Me.OpenArgs)
Me.Bookmark = Me.RecordsetClone.Bookmark
Ciao BB


Newsgroup: it.comp.appl.access
Titolo: archidoc di alessandro baraldi

Ho scaricato il programma di archiviazione di Alessandro baraldi 
relativo ai documenti.
Una cosa che non ho capito è con quale funzione trasforma il puntatore 
del mouse in manina e come fa a non avere un effetto "tremolante" quando 
questa viene spostata.
Io infatti seguendo tutte le faq di SC sono riuscito ad ottenere il 
risultato della trasformazione solo che ottengo un effetto di 
distorsione quando sposto il puntatore

 
Sei un DIAVOLO, ma come fai a sapere queste cose?

 ha scritto nel messaggio
news:601Sd.567990$b5.26...@news3.tin.it...

Il MousePointer si trasforma in MANO usando uno stratagemma, o meglio
una forma nativa associata alla proprietà SubHiperlynkAddress.
Se guardi in quella proprietà c'è uno SPAZIO, questo fà in modo che
il controllo abiliti l'ICONA della mano l passaggio.
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 Sei un DIAVOLO, ma come fai a sapere queste cose?
Quando è in pausa, tra un KiteKat e l'altro, Lui studia...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio
news:cvc6a5$60g$1...@canarie.caspur.it...

Parole sante...!
L'unica cosa è il KiteKat che non è proprio quello che
mi aspettavo, sempre meglio che KiteCan.
;-)

Newsgroup: it.comp.appl.access
Titolo: Aggiornamento Sito Comune

Ciao a tutti,
Chi frequenta icaa da almeno qualche mese ricorderà che si era "promesso" di
aggiornare il sito comune con maggior frequenza, anche grazie alla
collaborazione di Roberto.
Purtroppo i numerosi impegni dei webmasters ostacolano tale impegno e il
materiale da evadera è ancora parecchio.
Se qualcuno volesse dare una mano (necessaria conoscenza Editors html) può
spedire un'e-mail ai seguenti indirizzi:
webm...@sitocomune.com
fluc...@libero.it
fluc...@sitocomune.com
lucia...@sitocomune.com
Oggetto del messaggio:  offerta aiuto per aggiornamento 
www.sitocomune.com
Corpo del messaggio:     Io sottoscritto <Vostro nome> offro aiuto e
collaborazione per aggiornamenti sito comune.
Saluti:  la sacra triade



Newsgroup: it.comp.appl.access
Titolo: Principiante query di aggiornamento e sostitituzuone di un valore null a x

Salve  a tutti e grazie  a chi mi risponde
E' da 4 ore che ci lavoro ma nada
Vi spiego
Ho un listino con vari campi dal quale vengono esportati e portati in un
altro listino tramite query di aggiornamento
 Chiedevo come è possibile far fare alla query di aggiornamento il cambio di
un valore Null a 20
Vi faccio vedere l'esempio
INSERT INTO LISTINO ( Codice, Pagina, [Descrizione in fattura], [Descrizione
2], [Descrizione 3], [N di confezioni], [N di articoli in confezione],
[Codice a barre], [Prezzo Alto], [Prezzo Medio], [Prezzo Basso], [Prezzo
Bassissimo] )
SELECT [listino azienda].Codice, [listino azienda].Pagina, [listino
azienda].[Descrizione che va in fattura], [listino azienda].[Descrizione 2],
[listino azienda].[Descrizione 3], [listino azienda].[Numero di confezione],
[listino azienda].[Articoli per Confezione], [listino azienda].[Codice a
Barre], [listino azienda].[Prezzo Alto], [listino azienda].[Prezzo Medio],
[listino azienda].[Prezzo Basso], [listino azienda].[Prezzo Bassissimo]
FROM [listino azienda]
WHERE ((([listino azienda].Codice) Is Not Null) AND (([listino
azienda].[Descrizione che va in fattura]) Is Not Null));
Il problema è che se da [listino azienda] il valore [numero di articoli] è
null mi viene riportato 0 invecie dovrebbe essere 20
grazie


L'esempio che hai passato non è di una QUERY di Aggionamento, ma di
Inserzione come dice il predicato INSERT....!
La query di Aggiornamento si esegue con UPDATE, e l'HELP è decisamente
ben dettagliato....!
Currentdb.Execute "UPDATE NomeTabella SET NomeCampo=20 WHERE Nomecampo
isNull;",dbfailonerror
Ciao.
@Alex.

erik76 wrote:

....nz([listino azienda].[Articoli per Confezione],20) as NumArt,....
--
a.cara

Newsgroup: it.comp.appl.access
Titolo: Cursose in casella di testo

Ad una casella di testo di una maschera, vorrei che non sia possibile
posizionarvi il cursore.
La tabulazione l'ho esclusa, ma non riesco ad evitare che con un click del
mouse vi si posizioni il cursore.
Come posso riuscire ad ottenere il risultato voluto.
Grazie per le eventuali risposte.



bloccato=si
abilitato=no
Saluti.
Emanuele.

 ha scritto nel messaggio
news:cl72su4te5l0n3bor...@4ax.com...

Grazie, Gianfranco
Newsgroup: it.comp.appl.access
Titolo: Access: somma campo in report

Carissimi,
ho creato un report da una query che filtra i dati di una tabella, con diversi campi. (in pratica questa query mi restituisce tutte le pratiche per le quali ho ricevuto compenso, e il report è semplicemente un modo per impaginare questi dati)tra questi campi vi è un campo "compenso".
Vorrei inserire un campo all'interno del report in cui mi venga riportato il totale dei valori contenuti nel campo "compenso" di tutti i record del report.
Grazie
-- 
andrytapo 
------------------------------------------------------------------------
View this thread: 
http://www.itsistemi.net/viewtopic-738737.html
Inviato via 
http://www.itsistemi.net

 report.
Puoi essere piů esaudiente?
Grazie.
Rob.

Newsgroup: it.comp.appl.access
Titolo: problema con classi ed oggetti





Vorrei creare una mia classe che sostituisce una 
message_box, premetto che utilizzo access 97, il problema è come fare ad 
intercettare l'evento click del pulsante una volta che io ho creato la mia 
maschera!


Qualcuno è in grado di aiutarmi?


 



Non postare HTML
nelle proprietą del tuo pulsante ci sono gli eventi (click, doppio click, e
via dicendo), chiami la tua funzione pubblica e vai

Newsgroup: it.comp.appl.access
Titolo: Cambio tra listbox

Caio a tutti.
Uso la seguente routine per lo spostamento tra una listbox e l'altra:
Public Sub CambiaSelezione(ctl As Control)
    Dim i As Integer
    For i = 0 To ctl.ListCount - 1
        If ctl.Selected(i) Then
            DoCmd.SetWarnings False
            DoCmd.RunSQL "UPDATE MiaTabella" & _
                         "   SET Selezionato = NOT Selezionato " & _
                         " WHERE (((MiaTabella.MioID_testo) = " & Chr(34) & 
ctl.ItemData(i) & Chr(34) & "));"
            DoCmd.SetWarnings True
            ctl.Selected(i) = False
        End If
    Next i
    Me.lstSx.Requery
    Me.lstDx.Requery
End Sub
Tutto funzionante ma sono costretto ad usare un campo formato testo 
"MioID_testo", clone del campo formato contatore "MioID_contatore" perchè
altrimenti ottengo l'errore "tipo di dati non corrispondente 
nell'espressione criterio".
Come posso fare per utilizzare direttamente nella routine il campo 
MioID_contatore?
Ringrazio anticipatamente,
Cranze 


Questo accadi di norma quando si usa codice di altri senza
capirlo...!
;-)
Togli il Chr(34).... mi sembra ovvio... quel carattere inserito nel
predicato SQL è apposta per i campi TEXT.
@Alex

 @Alex
Adesso funziona perfettamente. Gentile e rapido come sempre.
Visto che ci sono.... ho visto sul tuo sito la Faq "Usare Funzioni o 
Variabili nelle QUERY",
volevo sapere se è possibile impostare da vba o magari direttamente sulla 
query l'ordinamento condizionale tipo:
se mia.form!mio.campo ="pippo"
allora ordina la query per un campo in modo crescente e così via..
Ciao, Cranze 


Usa la proprietà OrderBy di Form invece che andare nel predicato SQL è
decisamente più funzionale...!
@Alex
Newsgroup: it.comp.appl.access
Titolo: problema con query di accodamento

Ciao a tutti ho questo problema....
2 PC - NON in rete,
DB relazionato convertito in MDE, per motivi di sicurezza..ed
installato su entrambi i PC
il soggetto di PC1 inserisce dei dati anagrafici giornalmente etc...
mentre il soggetto di PC2 settimanalmente completerebbe il lavoro di
inserimento dati...
chiaramente i dati in PC2 devono essere aggiornati come quelli di PC1..
ho creato una query di accodamento (ma devo crearla solo in PC1 ??)
e poi portare fisicamente il file MDE in PC2 e lanciare la query ??
ma mi procura il seguente errore:
"impossibile accodare tutti i record nella query di accodamento ! numero 
di campi impostati a null per un errore di conversione tra tipi:0; 
numero di record non aggiunti alla tabella a causa di violazioni di 
chiave:19; a causa di violazione di condivisione:0; a causa di 
violazioni della regola di convalida:0;... ""
cosa potrei fare... si accettano anche altre soluzioni..
Grazie
Pino

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

 sincronizzare e le repliche sincronizzate.
----------------
Ciao Roberto... scrivo dal lavoro...premetto che non ho ma usato
"Replica" di Access ho provato la procedura guidata e facendo alcune 
prove sembra  sembra funzioni tutto....
non mi importa se si dovrà palleggiare fisicamente tra i due computer le 
repliche da  sincronizzare e le repliche sincronizzate, anche perchè non 
dovrò farlo io :-))...
e cmq succede una cosa strana... (e ti pareva... succedono tutte a me 
:-(( ).
dopo aver effettuato la sincronizzazione... vado a controllare i 2 
record di prova da me inseriti ed in
ID_Anagrafe (campo contatore, chiave primaria) dopo una sfilza di numeri 
progressivi mi piazza
questi 2 numeri:
1171276096
1171276897
come mai ???
Ciao
giuseppe

 giuseppe


 Access applica nelle sue Repliche.
------------------------------------
perfetto... ti ringrazio, un problema in meno...!!
scusa se ti chiedo un'altra cosa...ho una maschera in cui lancio dei 
report
ed ho preferito metterli tutti in anteprima di stampa... per poterli 
visionare prima
della stampa...e siccome in Avvio vorrei togliere tutti i menu (compreso 
quello
ove è scritto File - Modifica etc... ( a proposito è l'unico che mi è 
rimasto come si fa a togliere quest'ultimo ??)
come posso fare dopo l'anteprima a mandare in stampa il report ??
ti ringrazio tantissimo....
Ciao
Newsgroup: it.comp.appl.access
Titolo: aggiungere un numero ad una stringa

Ciao a tutti, il problema che ho è quello che in un campo testo con
dimensione campo di 5 caratteri, ho 4 numeri (es 1234). Come posso
aggiungere uno zero prima (es 01234) a questo campo?. Posso usare il
"trova e sostituisci"?   io pensavo potesse funzionare il "trova" *????
e "sostituisci" con 0**** ma non va.
Come posso fare?
Grazie
Ezio Pizziconi

 ha scritto nel messaggio 
news:1142002081.6...@e56g2000cwe.googlegroups.com...

Come posso fare?
Grazie
Ezio Pizziconi
[risposta]
Una query di aggiornamento. Con la funzione Format (vedi help attivabile con 
ALT-F11, poi F1).
Es.
Format(nomeCampo;"00000")
Ciao.
-- 
Sergio MAZZA 

Scusa ma non riesco.
intendi dire che nella casella "Aggiorna a: della query" dovrei mettere
Format(nomecampo;"00000")?
Sicuramente non ho capito.
Grazie


Supponendo che la tabella ti chiami tbl01 ed il campo che vuoi aggiornare 
si chiami CAP, eccoti la query di aggiornamento che ti serve per "normalizzare" 
a cinque caratteri con zero in testa il campo in questione:
    UPDATE
      tbl01
    SET
      tbl01.CAP = Right("00000" & [CAP],5)
    WHERE
      (Len([CAP])<5)
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution

Funziona perfettamente.
Grazie mille

> Funziona perfettamente.
Giusto per la cronaca, no č frutto della mia bravura con SQL (magari!!!) 
bensě del QBE di Access.
La prossima volta dovresti provare anche tu ad utilizzarlo :-)


 ha scritto nel messaggio news:1142004815....@i40g2000cwc.googlegroups.com...

Sě...
Ciao.
-- 
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: VBA: errore sui tipi di dati

Ciao a tutti,
ho il seguente errore:" Errore di Runtime '2113': E' stato immesso un valore
non valido per il campo"
il debug evidenzia l'ultima riga del codice qui sotto. "txt_rec" è una
casella di testo di una maschera.
Dim rec As DAO.Recordset
Dim stsql As String
stsql = "select * from subagenti where codice =
'Forms!scheda_agente_portafoglio!select_agente'"
Set rec = CurrentDb.OpenRecordset(stsql, dbOpenDynaset)
Forms!scheda_agente_portafoglio!txt_rec.Value = rec![descri]
grazie
SDAMY

 ha scritto nel messaggio
news:ipaI6.9263$FS.1...@news1.tin.it...

Coai' ad occhio ,
se e' una casella di testo il .Value non dovrebbe essere necessario e magari
ti fa' casino :)
poi mi sembra che ti manchi un po' di roba tipo rec.edit o rec.addnew
p.s. la ma stringha sql cosi' non ti da' errore ? non sarebbe meglio
stsql = "select * from subagenti where codice = '" &
Forms!scheda_agente_portafoglio!select_agente & "';"  ??
Ciao,
--
(^o^))~    Lorenzo   (^o^))~
"Preimaginare e' lo imaginare le cose che saranno..."
"Postimaginare e' imaginare le cose passate ..."
(Leonardo Da Vinci)
Newsgroup: it.comp.appl.access
Titolo: SPAZI INUTILI

COME FARE, IN AGGIORNAMENTO DI UN CONTROLLO, AD ELIMINARE DEGLI
EVENTUALI SPAZI DIGITATI PER ERRORE ?
PIER
--
Posted from 
mta13-acc.tin.it
 [212.216.176.44]
via Mailgate.ORG Server - 
http://www.mailgate.org

Esiste una funzione annulla.spazi(testo)
Leggi
Ciao


   LTrim, RTrim und Trim.
  CIAOOO

Grazie per l'interessamento,
 però non intendo solo gli spazi a sinistra e a destra ma qualsiasi
dovuto ad un errore di scrittura.
Ciao
Pier


Non capisco la funzione "annulla.spazi(testo)".
Potresti essere più esplicito?
grazie.
In quanto alla lettura, ho appena finito di leggere "Le braci" di
Sandor Marai.
Bellissimo, te lo consiglio.
Ciao
Pier
--
Posted from 
mta09-acc.tin.it
 [212.216.176.40]


dovuto ad un errore di scrittura.
cioe' vuoi togliere qualsiasi spazio all'interno di una stringa?  come
fai pero' a sapere che sta li' per sbaglio e che invece non serviva?
comunque prova cosi':
public function TogliSpazi(s as string) as string
dim ss as string
dim i as integer
dim appo as string
for i=1 to len(s)
	ss=mid(s,i,1)
	if ss <>" " then
		appo=appo & SS
	end if
next i
TogliSpazi=appo
end function
magari con instr si puo' fare anche meglio.
che dice le braci?
--------------------------------------------------
ATTENZIONE!
it.comp.database.access diventera' it.comp.appl.access!
cercalo tra i nuovi ng e linkalo!
-----------------------------------
rimuovere NOSPAM. per mandare email
-----------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access

Grazie. Problema completamente risolto.
Complimenti. Io ci ho perso la testa...
Però spiegami, se hai tempo.
Se ss è diverso dallo spazio perché appo + ss vuol dire
eliminarlo?(cioè lo spazio)
In quanto a "Le braci", come già ti ho scritto, è per me un bellissimo
romanzo scritto da un ungherese, Sandor Marai; se ami leggere, e
leggere qualcosa che, per me, è letteratura allo "stato puro", allora
te lo consiglio.
Ciao.Pier
--
Posted from 
mta01-acc.tin.it
 [212.216.176.32]


eliminarlo?(cioè lo spazio)
riporto un pezzo di codice:
' per i che va da 1 alla lunghezza della stringa s...
for i=1 to len(s)
	' prendi una stringa lunga 1 carattere a partire
	' dall'i-esimo carattere di s e mettila in ss
	ss=mid(s,i,1)
	' a questo punto ss potrebbe essere uno spazio e potrebbe
	' non esserlo...
	' se ss *non e'* uno spazio (cioe' e' diverso da spazio)...
	if ss <>" " then
		' allora accoda ss ad appo
		appo=appo & SS
	end if
next i
in sostanza accodiamo ad appo tutti i singoli caratteri di s basta che
non siano spazi.
-------------------------------------------------------
concorsi pubblici truccati.  questo è solo un esempio:
http://www.fortunecity.com/business/koch/947/index.htm

Grazie. Ho capito.
Pier
--
Posted from 
pop01-acc.tin.it
 [212.216.176.64]

Newsgroup: it.comp.appl.access
Titolo: Cartina geografica attiva

Non so se è possibile...
Vorrei creare una cartina geografica dell'Italia divisa per provincie che mi
fungesse da selettore per le provincie.
Praticamente dovrei impostare l'evento db-click a ogni provincia che compone
la cartina.
Sapete se esiste qualche ocx o mi sapete indirizzare su qualche possibile
soluzione?
TIA

"Ulisse" <Uli...@Itaca.el> ha scritto nel messaggio
news:bkop8h$bq5$1...@fata.cs.interbusiness.it...

Tempo fa è stato dibattuto e si è giunti che l'unica è creare dei bottoni
trasparenti in corrispondenza delle province
L'unico problema potrebbe essere doverlo fare per lo stermnato elenco delle
regioni d'Italia
MAssimiliano

 ha scritto nel messaggio
news:5hSbb.42453$w8.4...@news.edisontel.com...

ti sbagli in qualche post precedente è stato dibattuto su dove reperire il
database delle regioni...con una linea adsl e un po' di pazienza lo scarichi
ciao, AEOM

 ciao, AEOM
Infatti una volta scaricato tutto (3 gg con la 2Mbit - l'ho provato io
stesso!!!- )
poi devi inserire provincia per provincia i pulsanti.
MAssimiliano

 trasparenti in corrispondenza delle province
A me però serviva una cosa un po' + pesante...
Il pulsante dovrebbe essere l'area esatta della provincia, anche perchè si
dovrebbe illuminare quando viene selezionata. Per questo mi chiedevo se
qualcuno avesse già disegnato una cartina così particolare...
Il funzionamento deve essere tipo quello di ms MAP.
Ciao

 Ciao
Come ti ho detto purtroppo That's all Folks
MAssimiliano


Lo sospettavo.... :(   "Porca l'oca"!!!
OK, grazie mille :)
Ciao

 
mi sa che dovresti prendere una cartina con le provincie, enbossare i 
confini per quando è accesa, tagliare ogni provincia per entrambe le 
soluzioni (con photoshop non ci metti granchè) e poi piazzargli un 
controllo trasparente per il bottone. così facendo avresti anche la 
possiblità di distanziare un po' le province piccole che altrimenti non 
sarebbero clikkabili, poi metti tutto su sitocomune che forse mi 
potrebbe servire più avanti ;). Ciao

 dovrebbe illuminare quando viene selezionata.
Evidenziare un bottone sul passaggio del Mouse non è un problema, ma sempre
di bottone si tratta.
Saluti.

 Saluti.
Ma se invece di evidenziare un bottone, al passaggio del mouse rendi
visibile/invisibile un'immagine con la forma della sola regione
interessata, posta sopra alla cartina e colorata con un colore diverso da
quello delle regioni non selezionate...
Namor
-- 
 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 quello delle regioni non selezionate...
Sì, ma la cornice rettangolare contenente l'immagine continuerà a essere
cliccabile anche al di fuori dei confini della provincia.
Ma ripeto, non mi pare un grosso problema.
Saluti.
Newsgroup: it.comp.appl.access
Titolo: OT Traduzione FAQ 4.11

***********************
4.11 Storing calculated values
Problem
You want to store the value of a calculated control in the table
that is the data source of the form.
Solution
Generally it's not a good habit to store a calculated value.
First you should think over if it's really necessary to store it
because normally it can always be calculated again.
To store calculated values may be useful if parts of the
calculation can change over time and you don't want to
maintain an extra history table, or if you deal with complex
formulas and win performance by storing the value.
Obviously you need a field in the table that can hold the value.
Then you can use the following code either in the After Update
event of each control that contributes to the calculation or in the
Before Update event of the form:
Me!MyTableField = Me!MyCalculatedControl
**********************
-- 
cu
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 **********************
Ovviamente ti servirà nella tabella un campo in cui salvare il valore.
Poi puoi usare il seguente codice, nell'evento After Update (Dopo
Aggiornamento) di ciascun controllo interessato dal calcolo o nell'evento
Before Update (Prima di Aggiornare) della maschera:
Me!NomeCampoDellaTabella = Me!NomeControlloCalcolato
-- 
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 **********************
Ciao MAssimiliano

Newsgroup: it.comp.appl.access
Titolo: Formattazione particolare dati in una cella

Buongiorno a tutto l'NG.
Sono nuovo dell'Ng e anche nell'utilizzo di access. Ho realizzato una
piccola procedura per gestire le numerazioni di modulistica prenumerata da
vendere. Ho una piccola scherata che in pratica si occupa, una volta inserto
il numero iniziale dello stampato e la quantità di fogli venduti, di
calcolare il numero finale (in pratica una semplice somma) e di salvare il
tutto. E fin qui, tutto bene. Il problema è questo: i numeri di serie di
questi stampati sono lunghi 7 cifre, e iniziano sempre con uno o più zeri
(es: 0004560) e così come ho realizzato la maschera gli zeri iniziali access
me li elimina. Tanto nel campo dove immetto i dati quanto in quello dove il
programma riporta il nuovo valore sommato. Un piccolo problema secondario,
sarebbe la necessità di un controllo per verificare che il valore immesso
sia lungo 7 caratteri e non 6 oppure 8. Ma questo è un problema minore.
Come è possibile formattare i dati in modo che gli zeri rimangano?
Grazie a tutti.
S.D.

 ha scritto nel messaggio 
news:pFTMd.16829$lB4.4...@twister1.libero.it...

Devi usare il tipo di dati testo e non numerico. In quest'ultimo caso gli 
zeri avrebbero un senso solo se usati con la virgola.
Non è difficile e per le operazioni di somma puoi sempre traformare, nel 
codice, il tuo testo in un numero, fare le operazioni e poi ritrasformarlo 
in un testo.
Parole chiave sono: CInt, CLng, CDbl, Cstr, Format ecc.
Per esempio, aggiungere una unità numerica ad un valore di tipo stringa:
"0000152"
Me.MioControllo = format(Cint("0000152") + 1,"0000000")
Ciao, Carlo 

 ha scritto nel
messaggio news:B9_Md.498551$b5.23...@news3.tin.it...

Newsgroup: it.comp.appl.access
Titolo: access dal menu record / aggiorna non fa refresh

ho una query di selezione parametrica che mi visualizza dei record
 
normalemente uso questa per vedere 
e poi con una di aggiornamento modifico alcuni valori dei campi
poi ritornando sulla prima query (utilizzo Access 2003)
dal menu Record /Aggiorna riaggiornavo i dati e vedevo la situazione aggiornata
 
non capisco come mai il comando record aggiorna non funziona più e devo chiudere e riaprire la query parametrica
 
cosa puo' essere?


qualcuno ha dei suggerimenti?
GRAZIE
Newsgroup: it.comp.appl.access
Titolo: machera di ricerca

Non riesco a creare una maschera che ricerca i valori che si trovano in una
query tramite due campi :
Cod. cliente
Cliente
Potete indicarmi qualche esempio?
Grazie

ciociariasposi ha scritto:

Ciao Ciociaria Sposi...
mi sa che tra un merletto e un tulle, tra un velo e un taftà, mi sono un
pò distratto :
Che significa "ricerca i valori che si trovano in una query TRAMITE ue
campi"?
-- 
Ciao
Pablitomf (Maurizio Facciuti)
------------------------------
http://www.sitocomune.com/
http://www.accessgroup.it/
------------------------------
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio
news:cs67dm$k2k$1...@news.newsland.it...


 mediante questi due input
Te lo dico domani... ora scappo.
Ma devi scrivere dopo il quoting, ovvero dopo il messaggio al quale
rispondi. Come ho fatto io adesso.


 rispondi. Come ho fatto io adesso.
Mi sa che il matrimonio di pablitomf è andato a monte
(lo dicevo che era una ragazza intelligente...) e non ha più bisogno di te.
Io che ho gli anticorpi al matrimonio ti rispondo cmq.
Devi inserire una sottomaschera e collegarla a quei tuoi due campi.
MAssimiliano


Caspita povero pablito ... mi sembrava cosi ferrato in materia ... io un
tulle non so nemmeno cosa sia  ...
cmq qua dentro possiamo trovare davvero di tutto, per ogni evenienza, io ci
metto le case di riposo ci manca solo ciociariapompefunebri...
p.s. confermo la mia immunità al virus coniugale ...

 p.s. confermo la mia immunità al virus coniugale ...
FERMI TUTTI!!!!!!
E chi ha detto che io sia a FAVORE!?
Bast...?)$=%&?$?$%%$...do di un MA che non sei altro... stasera mi
inventerò una tua ciber_relazione e ti rovinerò! :-D ...mi sfrego le mani
alla sola idea!
E ora a te!
Povero Pablito? Ferrato in materia? "Non so cos'è un tulle"? La tua
padrona prima o poi ti beccherà e saran dolori! :-D
La mia per fortuna non osa neanche CHIEDERMELO! Quindi! :-D :-D


 mediante questi due input
Allora :
Crea due form.
Form1 (non collegarla a nessina origine dati)
Metti i due campi per i quali vuoi filtrare i record quindi : 
Cod_Cli
Nom_Cli
Nell'evento "Dopo aggiornamento" dei due campi devi fare un bel Requery
della Form2 (che inserirai nella Form1 come sottomaschera)
Form2 (la sua origine dati deve essere la query con tutti i campi che ti
interessano della tabella contenente i dati che vuoi visualizzare)
Nella struttura della query,in rif. ai campi che vuoi filtrare, metti il
percorso dei campi della Form1.
Dovrebbe essere Ok.
I


 La mia per fortuna non osa neanche CHIEDERMELO! Quindi! :-D :-D
Ah Maurì mi fai dire sempre le stesse cose...
Lei è una ragazza intelligente!!
MAssimiliano
Newsgroup: it.comp.appl.access
Titolo: Caratteri Maiuscoli

Salve,
vorrei impostare i caratteri di ogni campo in maiuscolo.
Ovvero: scrivo nel campo text1 il valore "pippo" e lui appena lascio il
campo mi cambia il valore "pippo" in "PIPPO".
come posso fare?
Grazie per l'aiuto

 ha scritto nel messaggio
news:E3R7d.10092$eb....@tornado.fastwebnet.it...

Vedi UCase(Help) su Evento LostFocus...!
Altrimenti devi verificare il KeyPress o KeyDown e forzare alla
digitazione la conversione di ogni singolo carattere...!
Vedi StrConv(HelP)
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 ha scritto nel messaggio
news:cjoo0g$tto$1...@lacerta.tiscalinet.it...

Se non sbaglio potresti semplicemente mettere il simbolo ">" nel formato del
campo.

 campo.
Cosě lo _visualizzeresti solo_ in maiuscolo, con Ucase lo salvi propio.
MAssimiliano

 ha scritto nel messaggio
news:ax68d.22472$B06....@news.edisontel.com...

Grazie a MAssimiliano e scuse ad Alessandro: avete ragione.

Newsgroup: it.comp.appl.access
Titolo: Evidenziare il primo dei doppioni in report

Volevo chiederVi un'aiuto:
ho dei dati in un report di access (riga per riga) e raggruppati.
Ogni tanto capita che nonostante il raggruppamento vi possano essere delle
righe doppie o triple...di codici uguali.
Volevo evidenziare il primo codice con del grassetto nel qualcaso vi siano
questi doppioni.
E' possibile secondo Voi ?
Grazie

 questi doppioni.
Prova cosi':
dim rst as recordset 'esterna alle sub
private sub report_open
    set rst=currentdb.openrecordset("Select id, count(id) as qta from
TuaTabella group by id having count(id)>1") 'verifica la sintassi che la sto
scrivendo all'impronta
end sub
private sub corpo_format
static i as interger
    rst.findfirst "id="& 
me.id
    if rst.nomatch or i = 
me.id
 then
        ImpostaBold false
    else
        ImpostaBold true
    endif
end sub
private sub report_close
    rst.close
    set rst=nothing
end sub
ovviamente la funzione impostabold che devi creare non fara' altro che
impostare i controlli che ti interessano a grassetto se la variabile che
passi e true e a normale se false.
Sib

 end sub
cut
Sib
--
http://www.sitocomune.com
http://digilander.iol.it/syb
 (a vostro rischio e pericolo)

 private sub report_open
cut
Ovviamente la cosa funziona se il report e' ordinato secondo il campo id.
Sib

oK
domani lo testo e ti sň dire
Grazie mille !
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:s0fbb.131870$R32.4...@news2.tin.it...

Newsgroup: it.comp.appl.access
Titolo: buon 2012 e una domandina...per una media.

In una maschera ho quattro caselle di testo
Testo114  Testo116  Testo118  Testo120
queste celle, se compilate, contengono  i valori dei quattro
trimestri.
Avrei bisogno di suddividere un valore x in base a quanti trimestri
siano diversi da zero cioè compilati.
In pratica se ho solo tre trimestri compilati dovrei dividere il mio
valore x per tre.
Sto cercando con l'istruzione Count ma ho paura di essere fuori
strada.
Qualcuno mi può aiutare?
grazie infinite.

 grazie infinite.
 
 
dim i as integer
dim ValoreTotale as currency
dim ValoreDiviso as currency
 
if nz(testo114)<>0 then
 
	i=i+1
end if
 
if nz(testo116)<>0 then
 
	i=i+1
end if
 
if nz(testo118)<>0 then
 
	i=i+1
end if
 
if nz(testo120)<>0 then
 
	i=i+1
end if
 
if i>0 then
valoreDiviso=Valoretotale/i
end if
 
ciao!
BFS

 grazie infinite.
"t'anno" risposto.
rispostina immediata.
 
-- 
 
ac (x=y-1)

Newsgroup: it.comp.appl.access
Titolo: Query con saldo

Dovrei creare una query che mi riporti la differenza tra il dare e l'avere
di movinenti contabili. Riesco a farla con una query unica o devo per forza
fare due passaggi.
Il codice che non funziona è questo:
SELECT PNC.n, Somma(PNC.dare) as D, Somma(PNC.Avere) as A, (A-D) as Diff
FROM PNC
GROUP BY PNC.n
--
Ciao, Sandrobi
------------------
Se la tua email è fasulla, ti invito a leggere qui:
http://wiki.news.nic.it/AntiSpam

 Ciao, Sandrobi
SELECT Sum(t_PN.Dare) AS SumOfDare,
Sum(t_PN.Avere) AS SumOfAvere,
Sum([Dare]-[Avere]) AS Saldo FROM t_PN;
Questa ti dà la differenza fra i totali Dare e i totali Avere
della Prima Nota (che sarà sempre zero se tutto è a posto).
Non credo volessi il saldo di ciascun movimento.
Ciao
Bruno 

 ha scritto nel messaggio
news:43e3b4df$0$28068$4faf...@reader1.news.tin.it...

E invece sì: voglio controllare il saldo di ogni movimento ed estrarre
quelli che hanno un saldo diverso da zero.
Sandrobi

 Sandrobi
SELECT t_PN.Dare, t_PN.Avere, [Dare]-[Avere] AS Saldo
FROM t_PN;
Ciao
Bruno


Sì però un movimento è costituto da uno o più dare e da uno o più avere,
quindi devo raggruppare per Numero di registrazione t_PN.n e volevo fare
tutto con una query.
Sandrobi

 Sandrobi
E cosa pretendi che uno le cose le indovini?
Fossi stato un po' più chiaro fin dall'ìinizio...
SELECT t_PN.NumReg, Sum(t_PN.Dare) AS SumOfDare,
Sum(t_PN.Avere) AS SumOfAvere, Sum([Dare])-Sum([Avere]) AS Saldo
FROM t_PN GROUP BY t_PN.NumReg;
Non l'ho potuta provare perché nella mia contabilità
vi è un NumReg per ogni riga.
Bruno 


Ok, ho capito dove ho sbagliato (nella sintassi di Saldo), l'ho provata e
funziona.
Grazie
Sandrobi
Newsgroup: it.comp.appl.access
Titolo: anteprima report

a riciao a tutto il NG.
Grazie a OneEDP per avermi dato la soluzione!
ho creato un tasto che mi da l'anteprima di un report basato sulla maschera
dove immetto dei dati relativ a una fattura.
il problea čche quando premo per richiedere l'anteprima mi visualizza tutti
i record della tabella mentre io vorrei che mi visualizzasse l'anteprima del
solo record corrente.
very thanks in advance!.
am


Ci sono due soluzione una facile facile:
su menu file/stampa hai la possibilità di stampare il/i record selezionato/i
Soluzione meno facile:
Devi crearti un report ad oc filtrando l'ID corrente.
(magari usa autocomposizione report e poi il tasto autocomposizione
anteprima report provando a cercare stCriteria)
Daniele

 ha scritto nel messaggio
news:xsYEa.72739$Ny5.2...@twister2.libero.it...

e' proprio la seconda soluzione che mi interessa .... ma scusa l'ignoranza
non so come fare!
il report ad hoc l'ho creato o occrre che io lo filtri sull'evento click del
tasto che mi da l'anteprima.
potresti darmi le istruzioni per filtrare il record corrente.
ciao!


Private Sub AnteprimaListinoVendita_Click()
On Error GoTo Err_AnteprimaListinoVendita_Click
    Dim stDocName As String   ' nome del report
    Dim stCriteri As String         ' filtri
    stDocName = "Listino articoli generale"
    stCriteri = "[IDListino]=[Forms].[Scelta Listini da
Stampare]![IDListino]"
    DoCmd.OpenReport stDocName, acPreview, , stCriteri
Exit_AnteprimaListinoVendita_Click:
    Exit Sub
Err_AnteprimaListinoVendita_Click:
    MsgBox Err.Description
    Resume Exit_AnteprimaListinoVendita_Click
End Sub
Ciao
Daniele