title: COMPORTAMENTO ANOMALO DSUM in maschera visualizzazione continua

author: Samantha Cicch

text:
Buongiorno NG.
Ho un problema con DSUM
Maschera in visualizzazione dati continua, da una casella combinata
scelgo il cliente, e nella maschera vedo tutti i prodotti di quel
cliente. La query di origine della maschera quindi è parametrica.
I campi presenti nella maschera, mostrano x ogni prodotto il costo
delle materie prime e delle lavorazioni. Per avere il costo delle
materie prime utilizzo la funzione DSUM. Perché DSUM funzioni, ho
dovuto metterla in origine del controllo nella maschera (se invece
veniva  calcolata in VBA, trovato il costo delle materie prime del
primo prodotto filtrato, questo valore era valido per tutti i
prodotti.)
Purtroppo, devo utilizzare DSUM in VBA, o richiamare il campo che
contiene il valore, e il problema si ripresenta,
Ossia,
Prodotto   TOTMateriePrime
BLU           1,5
ROSSO      2,3
GIALLO      4,8
Nella visualizzazione maschera, i valori di TOTmaterieprime sono visti
correttamente. Se li richiamo in VBA, il valore di TOTMateriePrime per
BLU,ROSSO e GIALLO è sempre 1,5
Dovrei fare funzionare questo recordset, dove ME!FLY1 rappresenta il
costo delle materie prime, il suo origine controllo è
=(DSum("[cstarticolo]";"[q_smcstflyTOTMATPRI]";"[dist_id]= " &
[DISTINTAID]).
COME FACCIO FARGLI RICALCOLARE IL DSUM AL CAMBIO di dist_id ossia del
campo contatore, perciò per ogni prodotto?
Set qdffly = dbfly.QueryDefs("q_saveprzlistino")
qdffly.Parameters("[Forms]![MSC_Generalistinovendita]![CBOCLIENTE]") =
[Parent]![cboCliente]
Set rst = qdffly.OpenRecordset()
'Set rst = Me.RecordsetClone
'If rst.EOF And rst.BOF Then Exit Sub
If rst.RecordCount = 0 Then
  MsgBox "Non ci sono record"
  Exit Sub
  Else
    Me.Refresh
    rst.MoveLast
    rst.MoveFirst
    Do Until rst.EOF
         rst.Edit
     rst.Fields("dist_fissatodata") = Me!datafly
     rst.Fields("dist_tot1").Value = Me!fly1
     rst.Update
     rst.MoveNext
     Me!fly1.Requery
     MsgBox Me!fly1
  Loop
  rst.Close
Grazie grazie
Samantha
p.s.: se qlcs non è chiaro cercherò di spiegarmi meglio


author: MA

text:
Samantha Cicch wrote:
> Buongiorno NG.
>
> Ho un problema con DSUM
> Maschera in visualizzazione dati continua, da una casella combinata
> scelgo il cliente, e nella maschera vedo tutti i prodotti di quel
> cliente. La query di origine della maschera quindi è parametrica.
>
>
> p.s.: se qlcs non è chiaro cercherò di spiegarmi meglio
Ciao Creati una funzione del genere
Function fctTuaSomma(intTuoid as integer)
dim rs as dao.recordset
set rs = currentdb.openrecordset("SELECT sum(Tuasomma) as S FROM Tuatabella
as T where T.tuoid = " & intTuoid)
if not rs.eof then
fctTuasomma = rs!S
else
fctTuasomma = 0
end if
rs.close : Set rs = nothing
end function
A questo punto nella qery della tua maschera ci metti
SELECT Tuoid, fctTuasomma(Tuoid) as Totale FROM Tuatabella
--
--
Massimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


text:

Ciao Ma,
maschera dati continua. Ho campi calcolati dei quali devo salvare il
valore in tabella. Con questo codice lui scorre in scrittura, i
record. Ma in lettura non si sposta. Ossia 3 record, mi legge il primo
e scrive i dati del campocalcolato1.
Si sposta sul secondo e mi rilegge i dati del primo campocalcolato1  e
scrive sul secondo
SI sposta sul terzo e mi rilegge i dati del primo campocalcolato1 e
scrive sul terzo
Cosa devo fare, perchè oltre in scrittura faccia anche la lettura sul
record corretto????
If rst.RecordCount = 0 Then
  MsgBox "Non ci sono record"
  Exit Sub
  Else
    Me.Refresh
    rst.MoveLast
    rst.MoveFirst
    Do Until rst.EOF
         rst.Edit
     rst.Fields("dist_fissatodata") = Me!datafly
     rst.Update
     rst.MoveNext
  Loop
  rst.Close
  Set rst = Nothing
  Me.Requery
End If
Grazie,
Samantha


title: Intestazione colonne foglio dati su due righe.

author: Michele

text:
Dopo aver consultato i testi a mia disposizione,
nonché visitato il sito comune, devo rassegnarmi a trovare
il metodo per scrivere l'intestazione delle colonne
di un foglio dati su due righe. Pazienza.
Saluti.


author: Carlo Costarella

text:
"Michele" <
i...@libero.it
> ha scritto nel messaggio
news:Vy0Bi.97576$%k.24...@twister2.libero.it...

Usa una maschera continua formattata come se fosse un foglio dati.
Ciao, Carlo


text:
>> Dopo aver consultato i testi a mia disposizione,
>> nonché visitato il sito comune, devo rassegnarmi a trovare
>> il metodo per scrivere l'intestazione delle colonne
>> di un foglio dati su due righe. Pazienza.
>>
>> Saluti.
>>
>>
>
> Usa una maschera continua formattata come se fosse un foglio dati.
>
> Ciao, Carlo
Grazie per il suggerimento!
Saluti.


title: Installazione di Access xp

author: Iacobucci Gianni

text:
ciao a tutti  belli e brutti
Meno male che ci siete
Vorrei passare a Office xp
Volevo sapere a che cosa vado incontro
1) le applicazioni realizzate con access xp creano qualche problema
  se vengono installate su un pc con access  2000 o precedenti?
2) le applicazioni che ho realizzato con access 2000 girano senza
    problemi su access xp ?
3) in definitiva mi conviene installarlo ?
grazie
ps: mettere a disposizione degli altri la propria esperienza è una cosa
molto bella
     per ciò che mi è possibile (purtroppo  ancora per le scarse
conoscenze) quando rispondo
    a qualche domanda sono proprio soddisfatto
un saluto affettuoso a tutti
gianni


title: Installazione di Access xp

text:
NO non avrai nessun proplema, dovrai convertire il db se access97, ma puoi
eseguire l'installazione personalizzata tenendo tutte e due le versioni, se
hai un pizzico di esperienza eseguirai bene l'installazione del xp tenendo
anche l'access 97.
l'unica attenzione sarà; nel passere in xp a 97 o viceversa nell'apertura di
un db dovrai eseguire una volta l'avvio del file .exe origine dell'access
interessato.
ma se hai già access 2000 fai l'installazione completa dell'xp e toglire il
2000. daniele
"Iacobucci Gianni" <
iacog...@interfree.it
> ha scritto nel messaggio
news:3e194...@news.dada.it...



title: Installazione di Access xp

text:
<
luck...@inwind.it
> wrote in message
lrdS9.85365$Ou4.2...@twister2.libero.it...
> NO non avrai nessun proplema, dovrai convertire il db se access97, ma
puoi
> eseguire l'installazione personalizzata tenendo tutte e due le versioni,
se
> hai un pizzico di esperienza eseguirai bene l'installazione del xp
tenendo
> anche l'access 97.
> l'unica attenzione sarà; nel passere in xp a 97 o viceversa nell'apertura
di
> un db dovrai eseguire una volta l'avvio del file .exe origine dell'access
> interessato.
> ma se hai già access 2000 fai l'installazione completa dell'xp e toglire
il
> 2000. daniele
>
grazie  luckydan  per il consiglio proverò ad installare xp
a risentirci
gianni



title: Impossibile inserire record in tabella secondaria

author: Giorgia

text:
Buonasera a tutti,
non capisco perchč abbia smesso di funzionare e non riesco a capire come
risolvere.
Ho una tbl X e una tabella Y legate dal campo Protocollo e nella form ho
indicato nelle proprietą della sottomaschera i campi master e secondario.
Se vado per inserire record nella tabella Y, anche se i campi non sono
bloccati, non mi viene consentita la compilazione dei campi.
E' possibile che il problema sia che non vengano accettati campo master e
secondario con lo stesso nome? (entrambi sono= "PROTOCOLLO NUMERICO")


author: Karl Donaubauer

text:

Copia/incolla cosa si trova nelle proprietą campo master e secondario.

Vedi i dati esistenti nella sottomaschera?

Come si esprime:
> non mi viene consentita la compilazione dei campi.

Cosa succede? Quale messaggio e numero di errore?

--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


title: Confronto dati nella form

author: Lucio

text:
Salve a tutto il NG;
in una maschera non associata ho due campi:
[User] e [PSW];
dapprima avevo pensato di inserire i paramentri di confronto dei due campi
nel codice, questo però mi portava tutte le volte che dovevo eliminare o
aggiungere un utente a modificare il codice.
Creando una tabella "Utenti" che contiene per ogni utente i campi in
questione, su click del pulsante di convalida come posso confrontare i
dati dei campi non associati, presenti nella maschera, con il record della
tabella "Utenti" contenente le informazioni di ogni user, e convalidare o
meno l'accesso alle maschere successive?
Grazie
Lucio
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Confronto dati nella form

author: Cinzia

text:
"Lucio" <
nap...@tin.it
> ha scritto nel messaggio
news:cer5n1$bt7$1...@news.newsland.it...

Perchè non usi direttamente la protezione integrata di Access (Strumenti -
Protezione - Autorizzazione Utenti e Gruppi)?
Se proprio non la vuoi usare, allora puoi fare una query, che prenda come
parmetri i due campi non associati della maschera
del tipo select userid, pwd, abilitazione  from Utenti where UserName =
Forms!Login!txtUserName and pwd = Forms!Login!txtPwd
sul click del bottone di login esegui la query e se ti ritorna 1 record
l'utente esiste e in base alle sue abilitazioni decidi quali maschere fargli
vedere...
Ciao
Cinzia


title: Confronto dati nella form

author: Roberto dalla campagna

text:
"Lucio" <
nap...@tin.it
> ha scritto nel messaggio
news:cer5n1$bt7$1...@news.newsland.it...
> Salve a tutto il NG;
> in una maschera non associata ho due campi:
> [User] e [PSW];
> dapprima avevo pensato di inserire i paramentri di confronto dei due campi
> nel codice, questo però mi portava tutte le volte che dovevo eliminare o
> aggiungere un utente a modificare il codice.
> Creando una tabella "Utenti" che contiene per ogni utente i campi in
> questione, su click del pulsante di convalida come posso confrontare i
> dati dei campi non associati, presenti nella maschera, con il record della
> tabella "Utenti" contenente le informazioni di ogni user, e convalidare o
> meno l'accesso alle maschere successive?
Usa la funzione DLookup (vedi help).
In alternativa vai sul Sito Comune (link qui sotto) e nella Sezione General
leggi la FAQ di Harry Evans intitolata "Semplice esempio di form per la
richiesta di login".
Comunque sono d'accordo con Cinzia: la cosa migliore è che tu usi le
sicurazze di Access: a tale scopo, sempre nella Sezione General  del Sito
Comune, leggi la FAQ di Cristiano De Pasquale intitolata "Come utilizzare la
sicurezza di Access?".
> Grazie
> Lucio
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Confronto dati nella form

text:
Roberto dalla campagna ha scritto:
> "Lucio" <
nap...@tin.it
> ha scritto nel messaggio
> news:cer5n1$bt7$1...@news.newsland.it...
> > Salve a tutto il NG;
> > in una maschera non associata ho due campi:
> > [User] e [PSW];
> > dapprima avevo pensato di inserire i paramentri di confronto dei due campi
> > nel codice, questo però mi portava tutte le volte che dovevo eliminare o
> > aggiungere un utente a modificare il codice.
> > Creando una tabella "Utenti" che contiene per ogni utente i campi in
> > questione, su click del pulsante di convalida come posso confrontare i
> > dati dei campi non associati, presenti nella maschera, con il record della
> > tabella "Utenti" contenente le informazioni di ogni user, e convalidare o
> > meno l'accesso alle maschere successive?
> Usa la funzione DLookup (vedi help).
> In alternativa vai sul Sito Comune (link qui sotto) e nella Sezione General
> leggi la FAQ di Harry Evans intitolata "Semplice esempio di form per la
> richiesta di login".
> Comunque sono d'accordo con Cinzia: la cosa migliore è che tu usi le
> sicurazze di Access: a tale scopo, sempre nella Sezione General  del Sito
> Comune, leggi la FAQ di Cristiano De Pasquale intitolata "Come utilizzare la
> sicurezza di Access?".
> > Grazie
> > Lucio
Grazie ho risolto con un DlookUp.



title: [OT] segnalazione link interessante

author: ciroteo

text:
Sfrucugliando i vari link proposti dall'arguto Gaspare questa settimana, mi
sono imbattuto in questo articolo che mi è parso interessante.
Mi sempra utile per esempio, in sede di proposta contrattuale a nuovi
potenziali clienti, oppure per meglio argomentare la necessità di
implementare servizi di database integrati già esistenti in azienda.
http://fmsinc.com/tpapers/genaccess/DBOD.asp


title: accedere da codice ad una tabella non accessibile al CurrentUser()

author: Alberto Marchi

text:
Devo scrivere una subroutine che logga un utente. L'utente non ha accesso in scrittura alla tabella "Log", ma la routine
deve riuscire a modificarla. Come faccio ?
Alberto


title: Collezione immagini

author: Gallus

text:
Salve a tutti.
Vorrei una piccola informazione. Dovrei realizzare un database passandogli
il percorso di una directory inglobi automaticamente le immagini che sono
presenti e i testi di descrizione...
la struttura della tabella potrebbe essere di questo tipo:
CodiceImmagine - DescrizioneImmagine - Immagine
(contatore progr.)
Come la realizzo?
Spero che ci sia qualche anima pia, o mi basterebbe anche un esperto che mi
possa dare una mano.... Tale struttura mi serve per realizzare un piccolo
archivio fotografico.
Grazie
Gallus


title: Collezione immagini

author: Antonio Biso

text:
Gallus ha scritto nel messaggio ...
>Salve a tutti.
>Vorrei una piccola informazione. Dovrei realizzare un database passandogli
>il percorso di una directory inglobi automaticamente le immagini che sono
>presenti e i testi di descrizione...
Dovrei realizzare un database : frase principale
passandogli il percorso di una directory : frase secondaria ma passando a
chi? al database? e che si passa una directory ad un database?
inglobi automaticamente ecc. ecc. : e questa con che la collego?
I testi di descrizione ? Dove stanno 'sti testi?
>la struttura della tabella potrebbe essere di questo tipo:
>
>CodiceImmagine - DescrizioneImmagine - Immagine
>(contatore progr.)
>
>Come la realizzo?
Guarda che l'immagine non la devi memorizzare nella tabella ma ti basta il
percorso: poi su un'apposita maschera metti un controllo OLE associato a
quel percorso e stai a posto...
Antonio


title: Collezione immagini

author: Paolo Beltrame

text:
Ciao Gallus,
> Vorrei una piccola informazione. Dovrei realizzare un database passandogli
> il percorso di una directory inglobi automaticamente le immagini che sono
> presenti e i testi di descrizione...
> la struttura della tabella potrebbe essere di questo tipo:
>
> CodiceImmagine - DescrizioneImmagine - Immagine
> (contatore progr.)
Se proprio vuoi mettere l'immagine in tabella, nel sito comune trovi
una routine postata da Bettini e che io uso regolarmente.
    Paolo


title: Collezione immagini

text:
Scusa ma non ho capito bene la tua risposta, ma effettivamente penso di non
essermi spiegato molto bene io, cercherň di farlo
ora e spero che tu mi possa essere d'aiuto.
Partiamo dalla fantomatica directory di cui parlavo.
Ogni progetto che realizzo viene memorizzato in una directory specifica. In
ognuna di queste directory finiscono per essere presenti
- un file di testo (tutti i file di testo sono generalmente file di word)
con una breve sintesi degli aspetti generali del progetto;
- un file di testo riportante le caratteristiche tecniche;
- una collezione di immagini es. 001.bmp o 001.tif
- file di testo contenenti le relative descrizioni/didascalie delle immagini
es. 001.doc
Questo diciamo che č genericamente il contenuto di una directory di un
progetto standard.
Cosa vorrei allo cercare di realizzare?
Vorrei tentare di realizzare un programma in access, non uso piů il termine
Database per la paura di usarlo in modo improprio, che mi permetta di aver
tutte queste informazioni raccolte in modo da ottenere una scheda di
presentazione e un serie di immagini da poter visualizzare con le corrette
didascalie. Questo programma dovrebbe permettermi di navigare all'interno
dei progetti realizzati in modo da scegliere quale consultare, leggerne
quindi la sintesi e la scheda tecnica ed eventualmente consultare l'archivio
fotografico. La cosa piů importante quale č perň? Vorrei non dover inserire
dati essendo i miei progetti sono divisi in directory distinte, una volta
terminato il progetto, vorrei semplicemente poter indicare al programma il
nome del nuovo progetto da inserire e la directory dove trovare: la scheda
di presentazione, le immagini, le didascalie, ecc. e automaticamente sia
creata la nuova scheda.
Spero di essere stato un po' piů chiaro questa volta rispetto al messaggio
precedente.
Molte persone mi ripetono che č una cosa semplicissima da realizzare, ma
nessuno vuole spigarmi come di fatto si realizzi. Spero sinceramente che tu
possa essermi d'aiuto, altrimenti dovrň farmi un programma da zero con
Delphi.... ma preferirei realizzarlo con Access.
Grazie e scusa per il disturbo.
Gallus
P.S. Questo programma pensi che sia difficile farlo diventare un sito
Internet?
P.P.S Esiste un modo per rendere i database access indipendenti da Access,
cioč farli funzionare senza Access installato? (e senza viewer)
Paolo Beltrame <
ita...@agemont.it
> wrote in message
850jii$sn6$1...@fe1.cs.interbusiness.it...



title: totale parziale in form record continui

author: mario rossi

text:
ho una form maschere continue con i seguenti record di esempio

pippo      16,00 €
pippo         4,00 €
pluto        22,00 €
paperino 50,00 €

vorrei ottenere alla destra degli importi il totale parziale di quel cliente
esempio

pippo      16,00 €
                                   pippo 20,00 €
pippo         4,00 €
pluto        22,00 €     pluto     4,00 €
paperino 50,00 €     paperino 50,00 €

qualche aiuto?


title: totale parziale in form record continui

text:
Leggi questo come spunto poi devi adeguarlo al tuo caso specifico.

https://docs.microsoft.com/it-it/office/troubleshoot/access/create-a-running-totals-query

@Alex


title: report complicato X me 2°

author: bc

text:
Riscrivo il quesito perchè effettivamente non mi sono spiegato al meglio.
Nel mio db esiste una tbl  con i dati anagrafici, sesso, comune di
residenza, data di entrata e uscita dei
pazienti dal reparto
es : Luigi, Caio, M , Roma, 12/03/2000, 18/03/2000
Maria, Demeo, F , Formia, 12/03/2000, 20/03/2000
Luca, Cicci,M, Itri, 03/03/2000, 12/03/2000
Pina, Giusti,F,Gaeta, 05/03/2000, 12/03/2000
ecc....
Adesso devo visualizzare un report con i seguenti dati per ogni rigo
Maschi   entrati |  resid.|   Femmine entrate |  resid. ---Maschi usciti
| femmine uscite
cioè:
in data 12/03/2000(provvedo a passarla come variabile inserita in una form
precedente e che chiama il report)
1° rigo: luigi caio, roma, Maria demeo, Formia  --- luca Cicci,  Pina Giusti
2° rigo ......
mi date un consiglio per come fare?
e ... se apro vari recordset per poi passare i dati man mano alle txtbox?
Funzionicchia ... ma non riesco a passare i dati e non trovo l'evento
giusto!
Grazie
bce...@tiscalinet.it


title: report complicato X me 2°

author: FasoN

text:
Non ho capito molto bene, ma quel che ti serve e' una query che lavori sulla
data e che ti tiri fuori le informazioni richieste e poi fai il report su
quella query o sbaglio???
Ti basta solo fare dei raggruppamenti sui campi interessati + conteggi.
Spero di aver inquadrato il problema e ti saluto.
Ciao
<LuigI>
bc <
bce...@tiscalinet.it
> wrote in message
8er5a4$7n9$1...@pegasus.tiscalinet.it...



title: report complicato X me 2°

author: Lorenzo Coronati

text:
Scrisse "bc" <
bce...@tiscalinet.it
>:
>in data 12/03/2000(provvedo a passarla come variabile inserita in una form
>precedente e che chiama il report)
>1° rigo: luigi caio, roma, Maria demeo, Formia  --- luca Cicci,  Pina Giusti
>2° rigo ......
Tabella temporanea fatta esattamente come il report.
4 Query di aggiornamento
anzi, 1 di accodamento e 3 di agg
problemino: stabilire prima quale colonna e' piu' popolata
delle altre
Non so se si e' capito, vado di fretta...
--
Lorenzo Coronati
--
<<Nessuno sa che questa affermazione e' vera>>
(John D. Barrow)
--


title: Stampa non corretta con snapshot

author: Peppe

text:
Salve a tutti, ho un problema con lo snapshot.
Per le stampe di un'applicazione uso una form con snapshot come
anteprima (grazie al sito comune) per poter controllare interamente
quello che fanno gli utenti; in pratica invio la stampa su file in
formato SNP, poi la ricarico nella form, dentro la quale l'utente ha
il comando di stampa e tutto il resto.
... e funziona tutto perfettamente.
Preparando un report per la stampa di etichette mi sono però accorto
che questo sistema mi genera delle stampe ridotte; cioè, i singoli
oggetti sono più piccoli rispetto alle proprietà impostate nel report.
Ovviamente, stampando il report direttamente senza passaggi intermedi,
va tutto bene.
Sulle altre stampe non è un problema, ma con le etichette non è
tollerabile perchè viene fuori un macello.
Access 2000 su Win98SE, testato con diverse stampanti.
Grazie


title: Stampa non corretta con snapshot

author: Giorgio Prx

text:
"Peppe" <
gd6...@eudoramail.com
> ha scritto nel messaggio
news:eafd4496.03071...@posting.google.com...

Ciao Beppe
E' un problema che capita anche a me, a volte risolvo inserendo i controlli
nel report non troppo vicini ai margini. Forse quelli della Microsoft ci
stanno lavorando sopra, infatti lo Snapshot Viewer  non è più disponibile
nell'area Download.
http://office.microsoft.com/downloads/2000/Snpvw90.aspx
Ciao Giorgio


title: Stampa non corretta con snapshot

author: MIX

text:
Salve,
vi è mai successo che un file snp a volte mostra un report bianco e altre
volte mostra tutti i dati?
Cordialità.
Toni


title: Stampa non corretta con snapshot

text:
"MIX" <
ton...@inwind.it
> ha scritto nel messaggio
news:0m_Ra.186877$lK4.5...@twister1.libero.it...

No, almeno non ancora.
Ciao Giorgio


title: Stampa non corretta con snapshot

text:
Ho cercato anche nei NG pubblici di MS (oltre che nel suo sito di
supporto) senza alcun risultato. Possibile che non se ne sia mai
accorto nessuno?


title: china monopoly nike rift shoes......

text:
CHINA (
www.getvogue.com
) SUPPLY CHEAP LV DUNK UGG BOOTS DIOR
SHOES,LACOSTE PUMA TRAINERS,AIR FORCE 1S JORDAN 3 4 5 12 23 FUSION
SHOES,D&G PRADA HOGAN DSQUARED AND MORE BRAND GOODS.More please sign
in My website!<
www.getvogue.com
>


title: Query di creaz. tabella: aggiungere un nuovo campo.

author: Giancarlo Francesconi

text:
Ciao a tutti.
Desidererei sapere se in A97 è possibile, tramite una Query di creazione
tabella aggiungere un nuovo campo nn presente nelle tabelle di origine.
Mi spiego:
ho una tabella 'Anagrafica', dalla quale estraggo tramite Q. di creazione
tabella i seg. campi:
[Cognome]
[Nome]
[Indirizzo]
e creo in questa circostanza, la tab. 'Solo Indirizzi'.
Vorrei sapere se, sempre con la stessa Q., oltre a creare la tabella con i
campi prescelti posso anche aggiungerne uno nuovo ad es. [Controllo] di tipo
Sì/No.
Grazie a tutti per la disponibilità.
Giancarlo


author: FABIO

text:
Giancarlo Francesconi wrote:

Devi creare una query di tipo SQL Specifico / Definizione dati, un po
complesso ma l'help on line è abbastanza chiaro
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: Alex

text:
"FABIO" <
blue...@libero.it
> wrote in message
news:aqgbrt$rg1$
1...@news.newsland.it
> Giancarlo Francesconi wrote:
>
> > Ciao a tutti.
> > Desidererei sapere se in A97 è possibile, tramite una Query di creazione
> > tabella aggiungere un nuovo campo nn presente nelle tabelle di origine.
> > Mi spiego:
> > ho una tabella 'Anagrafica', dalla quale estraggo tramite Q. di creazione
> > tabella i seg. campi:
> > [Cognome]
> > [Nome]
> > [Indirizzo]
> > e creo in questa circostanza, la tab. 'Solo Indirizzi'.
> > Vorrei sapere se, sempre con la stessa Q., oltre a creare la tabella con i
> > campi prescelti posso anche aggiungerne uno nuovo ad es. [Controllo] di tipo
> > Sì/No.
> > Grazie a tutti per la disponibilità.
> > Giancarlo
>
> Devi creare una query di tipo SQL Specifico / Definizione dati, un po
> complesso ma l'help on line è abbastanza chiaro
La query per aggiungere un CAMPO è la seguente...:
ALTER TABLE Anagrafica ADD COLUMN NomeNuovoCampo BIT;
Il Tipo BIT è un tipo di dato esclusivo di SQL di JET, per sicurezza
io utilizzarei INTEGER dove -1=True 0=False....!
Questo ti assicura la compatibilità in caso di migrazione a SQLServer
o MYSQL o altri Database in cui il Tipo di dati è SQL ANSI.
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


text:
Scrisse "Giancarlo Francesconi" <
tec...@upatreviso.it
>:
>Desidererei sapere se in A97 è possibile, tramite una Query di creazione
>tabella aggiungere un nuovo campo nn presente nelle tabelle di origine.
ho come un deja vu...
:-|
--
lorenzo coronati
---


text:
"Lorenzo Coronati" <lorenzo.coronati@liberopuntoit> ha scritto nel messaggio
news:3dcbd76e...@news.edisontel.com...

E dove l'hai vu...!
@Alex.


text:
"Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:b6983883fd8d25d800...@mygate.mailgate.org...

Grazie tante per la tua risposta.
Giancarlo


text:
Scrisse "@Alex" <
ik2...@libero.it
>:
>E dove l'hai vu...!
cfr: "Query di creazione tabella: aggiungere un campo" del
6/11/2002 or 8.18 con relativo mio reply del 7/11
--
lorenzo coronati
---


title: BE protetto da password .... come?

author: alessio

text:
Ho usato lo script del sitocomune "AutoLink" e funziona veramente bene, ma
mi chiedevo questo:
ho visto che funziona anche se il BE è protetto da pwd ma... la password
dove la devo indicare nel FE perchè il BE si apra?
Thanks perchè non ne ho alba!
Ciao,
Ale


title: BE protetto da password .... come?

text:
Come non detto... domanda inutile... ci sono riuscito ed era UNA CAVOLATA!!
Scusate!


title: BE protetto da password .... come?

text:
"alessio" <
axe...@libero.it
> wrote in message
news:b44j1u$5kg$
1...@newsfeed.cineca.it
> Ho usato lo script del sitocomune "AutoLink" e funziona veramente bene, ma
> mi chiedevo questo:
>
> ho visto che funziona anche se il BE č protetto da pwd ma... la password
> dove la devo indicare nel FE perchč il BE si apra?
> Thanks perchč non ne ho alba!
>
> Ciao,
> Ale
Non sņ se l'esempio, e non lo SCRIPT, al quale ti riferisci
č quello proposto da me, ma nel caso sia....la PWD č nel BE
 quindi quando apri il FE e trovail BE con PWD errata ti chiede
la nuova PWD, quindi la inserisci e il programma Relinka le
tabelle......!
La versione sul SitoComune perņ č un pņ datata, se ti interessa la
versione aggiornata mandami una Mail.....!
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: BE protetto da password .... come?

author: Alessandro Cara

text:
Alex wrote:
[cut]
> Non sň se l'esempio, e non lo SCRIPT, al quale ti riferisci
> č quello proposto da me, ma nel caso sia....la PWD č nel BE
>  quindi quando apri il FE e trovail BE con PWD errata ti chiede
> la nuova PWD, quindi la inserisci e il programma Relinka le
> tabelle......!
> La versione sul SitoComune perň č un pň datata, se ti interessa la
> versione aggiornata mandami una Mail.....!
c'e' una protezione sul FE per l'accesso alla msysobjects?
--
a.cara
Togli qualcosa dall'email


title: BE protetto da password .... come?

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:3E65E37F...@blunet.it...
> Alex wrote:
> [cut]
> > Non sò se l'esempio, e non lo SCRIPT, al quale ti riferisci
> > è quello proposto da me, ma nel caso sia....la PWD è nel BE
> >  quindi quando apri il FE e trovail BE con PWD errata ti chiede
> > la nuova PWD, quindi la inserisci e il programma Relinka le
> > tabelle......!
> > La versione sul SitoComune però è un pò datata, se ti interessa la
> > versione aggiornata mandami una Mail.....!
>
> c'e' una protezione sul FE per l'accesso alla msysobjects?
Mah.....io ho capito che il problema suo era di capire come impostarla dal
FE
quella del BE....?? Forse sbaglio....!!
Io ogni caso per rispondere alla tua penso di si......! Protezione
Utente....??
;-)
@Alex.


title: una form basata su una query di creazione tabella...

author: Sberla

text:
Mi sembrava una genialata... senza toccare la tabella originaria, mi baso la
form su una query che quando la apre mi crea una tabella, smanetto su quella
e non faccio guai.
Mi dice che non si puo'... come altrimenti posso fare?


author: Maurizio Borrelli

text:
> "Sberla" [...]:
> Mi sembrava una genialata... senza toccare la tabella originaria, mi baso
la
> form su una query che quando la apre mi crea una tabella, smanetto su
quella
> e non faccio guai.
> Mi dice che non si puo'...
    ... perche' una query di creazione tabella e' una query che non
restituisce record: e' una query di *comando*.
> come altrimenti posso fare?
    A fare che? Una query di creazione tabella sai farla. Una maschera
collegata ad una query (di selezione) o ad una tabella sai farla. Che ti
manca? Sai fare le macro?... Sai scrivere codice Visual Basic?...
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


author: Roberto da casa

text:
"Sberla" <
sberla@a_team.org
> ha scritto nel messaggio
news:am4nd5$sjq$1...@fe1.cs.interbusiness.it...

Basa la maschera su una tabella Temporanea che ha la stessa struttura  della
tabella originaria; all'apertura della maschera svuota la tabella
Temporanea; tutte le volte che riterrai opportuno, accoda i dati della
tabella temporanea a quelli della tabella originaria e svuota la tabella
Temporanea.
Questo sempre a condizione di aver capito cosa sia ciò che tu ritieni una
*genialata*.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
>     ... perche' una query di creazione tabella e' una query che non
> restituisce record: e' una query di *comando*.
Quindi le query di comando non possono essere usate come origine per i dati
di una maschera.. ok.
> > come altrimenti posso fare?
>
>     A fare che? Una query di creazione tabella sai farla. Una maschera
> collegata ad una query (di selezione) o ad una tabella sai farla.
Ma io devo modificare i dati SENZA modificare quelli originari, per quello
creavo una tabella con una query di creazione.
Cerco di capire il tuo consiglio, mi suggerisci di creare la tabella e poi
basare la maschera su una query di selezione.
Ok, ho provato, e ho messo il bottone per lanciare la query nella maschera.
Quando ci clicco mi dice che i dati sono in uso e si ferma...
>Che ti  manca? Sai fare le macro?... Sai scrivere codice Visual Basic?...
Tutto. Piu' o meno. Pochino.


text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
> Basa la maschera su una tabella Temporanea che ha la stessa struttura
della
> tabella originaria; all'apertura della maschera svuota la tabella
> Temporanea; tutte le volte che riterrai opportuno, accoda i dati della
> tabella temporanea a quelli della tabella originaria e svuota la tabella
> Temporanea.
per essere pratici, accodo due query in una macro?
Una per svuotare i dati e l'altra per accodarci quelli nuovi?
E questo e' meglio che ricreare la tabella?
> Questo sempre a condizione di aver capito cosa sia ciò che tu ritieni una
> *genialata*.
Siccome prima facevo un accrocchione usando access, excel, powerpoint, word
e frontpage e ci voleva anche un altro che mettesse un dito sopra, in questo
modo qui mi sembrava una genialata.
Se funzionasse, lo saresse...


text:
> "Sberla" [...]:
> > "Maurizio Borrelli" [...]:
> > > come altrimenti posso fare?
> >     A fare che? Una query di creazione tabella sai farla. Una maschera
> > collegata ad una query (di selezione) o ad una tabella sai farla.
> Ma io devo modificare i dati SENZA modificare quelli originari, per quello
> creavo una tabella con una query di creazione.
    Cioe' devi operare su una copia dei dati. Ok.
> Cerco di capire il tuo consiglio, mi suggerisci di creare la tabella e poi
> basare la maschera su una query di selezione.
> Ok, ho provato, e ho messo il bottone per lanciare la query nella
> maschera.
> Quando ci clicco mi dice che i dati sono in uso e si ferma...
> >Che ti  manca? Sai fare le macro?... Sai scrivere codice Visual Basic?...
> Tutto. Piu' o meno. Pochino.
    :-)
    Vado a naso perche' non ho mai testato questa situazione. Probabilmente
devi dare tempo ad Access di concludere l'operazione di creazione. Ora ti
propongo una cosa che non e' il massimo dell'eleganza ma e' per verificare
se il problema e' quello. Intercetta l'errore e passa la palla al timer
della maschera, quindi aggiorna la maschera e in caso di nuovo errore
ripassi al timer, e cosi' per un certo ragionevole piccolo numero di volte,
ad intervalli ragionevoli. Poi se la cosa non va chiudi la maschera e mostra
una Msgbox con un avviso.
    Io comunque aggiungo la mia firma alla frase di Roberto: "Questo sempre
a condizione di aver capito cosa sia ciò che tu ritieni una *genialata*."
--



text:
"Sberla" <
sberla@a_team.org
> ha scritto nel messaggio
news:am506b$crg$1...@fe2.cs.interbusiness.it...
>
> "Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
>
> > Basa la maschera su una tabella Temporanea che ha la stessa struttura
> della
> > tabella originaria; all'apertura della maschera svuota la tabella
> > Temporanea; tutte le volte che riterrai opportuno, accoda i dati della
> > tabella temporanea a quelli della tabella originaria e svuota la tabella
> > Temporanea.
>
> per essere pratici, accodo due query in una macro?
> Una per svuotare i dati e l'altra per accodarci quelli nuovi?
>
> E questo e' meglio che ricreare la tabella?
Il problema è che non puoi avere come origine record di una maschera una
query di comando, invece di una tabella temporanea si.
>
> > Questo sempre a condizione di aver capito cosa sia ciò che tu ritieni
una
> > *genialata*.
>
> Siccome prima facevo un accrocchione usando access, excel, powerpoint,
word
> e frontpage e ci voleva anche un altro che mettesse un dito sopra, in
questo
> modo qui mi sembrava una genialata.
> Se funzionasse, lo saresse...
Quando ero bambino si diceva che se mio nonno avesse avuto le ruote sarebbe
stato una cariola (od anche che se avesse avuto 5 palle sarebbe stato un
flipper). :-)))



title: recordset aggiornabile

author: max

text:
Un saluto a tutti......
Ho una maschera contenente due sottomaschere per la valorizzazione dei
carichi.....
Creo un recordset basato su alcune caselle di testo della mascher principale
e lo assegno alla prima sottomaschera... e fin qui tutto bene...
Tramite i dati contenuti nella prima sottomaschera creo un'altro recordset
che assegno alla seconda sottomaschera .....e qui si verifica il mio
problema che consiste nel voler aggiornare le righe dei record assegnati
alla seconda sottomaschera, infatti appena vado su un controllo della
seconda sottomaschera e provo a cambiare un dato mi dice che il recordset
non è aggiornabile.....ho fatto diverse prove ma non ci riesco....
Vi elenco il codice con cui assegno il recordset alla seconda
sottomaschera...
Private Sub Comando25_Click()
Dim rstdettagli As ADODB.Recordset
Set rstdettagli = New ADODB.Recordset
rstdettagli.CursorLocation = adUseClient
rstdettagli.Open "SELECT tblMovimentiMagazzino.FlagValorizzazione,
tblMovimentiMagazzino.DataFattura, tblMovimentiMagazzino.NumeroFattura,
tblDettagliMovimentiMagazzino.Descrizione,
tblDettagliMovimentiMagazzino.Quantità,
tblDettagliMovimentiMagazzino.idmovimentimagazzino,tblDettagliMovimentiMagazzino.Importo
 FROM tblMovimentiMagazzino INNER JOIN tblDettagliMovimentiMagazzino ON
tblMovimentiMagazzino.IDMovimentiMagazzino =
tblDettagliMovimentiMagazzino.IDMovimentiMagazzino
WHERE (((tblMovimentiMagazzino.FlagValorizzazione)=Yes) AND
((tblMovimentiMagazzino.DataFattura) Is Null) AND
((tblMovimentiMagazzino.NumeroFattura) Is Null))",
CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Set Forms!frmvalorizzazionecarichi!sfrmValorizzazioneCarichi1.Form.Recordset
= rstdettagli
End Sub
Mi dite dove sbaglio?
Saluti Massimo


title: mde non trova funzione

author: Renato

text:
salve a tutti.
ho il seguente problema
creo il mio mdb sul pc di casa sull'avvio inserisco funzione per riallegare
le tabelle collegate.
Il db funziona bene creo l'.mde e sul mio pc funziona bene come l'.mdb, ma
quando copio l'.mde sul pc dell'ufficio mi dice:
I° Messaggio
            "impossibile trovare nome funzione"
II° Messaggio
        "il progetto nel database di visual basic appliccation edition è
danneggiato"
diversamente se creo l'mde sul pc dell'ufficio non dà alcun problema.
da cosa può dipendere?
forse perché io a casa ho la versione 2003 e in ufficio quella 2002?
se così perchè il problema non si presenta anche sull'mdb?
il mio problema nasce dall'esigenza di consegnare a terza persona il formato
.mde
grazie a tutti anticipatamente per i consigli.


title: mde non trova funzione

author: Karl Donaubauer

text:
Renato wrote:
> creo il mio mdb sul pc di casa sull'avvio inserisco funzione per
> riallegare le tabelle collegate.
>
> Il db funziona bene creo l'.mde e sul mio pc funziona bene come
> l'.mdb, ma quando copio l'.mde sul pc dell'ufficio mi dice:
>
> I° Messaggio
>
>            "impossibile trovare nome funzione"
>
> II° Messaggio
>
>        "il progetto nel database di visual basic appliccation edition
> è danneggiato"
>
> diversamente se creo l'mde sul pc dell'ufficio non dà alcun problema.
>
> da cosa può dipendere?
>
> forse perché io a casa ho la versione 2003 e in ufficio quella 2002?
> se così perchè il problema non si presenta anche sull'mdb?
>
> il mio problema nasce dall'esigenza di consegnare a terza persona il
> formato .mde
http://groups.google.com/groups?&selm=383phmF...@individual.net
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
 + iscriviti alla prima Conferenza
Italiana per Sviluppatori di Access (CISA 1), Arezzo, 4+5/6/2005


title: mde non trova funzione

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:3fo6c6F...@individual.net...

Grazie Karl per il tempestivo suggerimento.


title: Report Access

text:
Ciao ...
Ho un problema con dei report in Access: Io ho un report con 3 valori
(A-B-C) che prendo dalla tabellauno ( quindi l'origine del report e'
tabellauno ).
Ipotizziamo di avere 5 tabelle
(tabellauno.tabelladue,tabellatre,tabella quattro,tabella cinque)
uguali ( quindi con i campi A-B-C ).
Tramite una mask e del codice VB faccio il mie calcoli e copio i
risultati in una delle 5  tabelle . Alla fine dei mie calcoli vorrei
aprire il mio report con i dati di una delle 5 tabelle ..
In parole povere vorrei avere un report fisso e poi passagli tramite
codice VB l'origine dati .. Voi sapete come fare ?
Spero di essere stato chiaro !!!
grazie
CiaoCiao


title: Report Access

author: Alessandro Baraldi

text:

Hai letto nell'Help cosa dice in merito alla Proprietà
RecordSource ...?
@Alex


title: Report Access

text:
Si .. l'avevo gia' guardato ma non ho trovato nulla di utile .. Anzi
quasi tutte le voci mi dicono di aprire il report in struttuta , di
fare doppio click sulla barra x aprire le proprieta' e poi cambiare
l'origine dati ...
Alessandro Baraldi ha scritto:



title: Report Access

text:
On 10 Apr, 17:21,
nicholas.hellh...@gmail.com
 wrote:
> Si .. l'avevo gia' guardato ma non ho trovato nulla di utile .. Anzi
> quasi tutte le voci mi dicono di aprire il report in struttuta , di
> fare doppio click sulla barra x aprire le proprieta' e poi cambiare
> l'origine dati ...
Che tu non abbia trovato nulla di utile non ci credo... forse non hai
capito...!
Reports!NomeReport.RecordsOurce="Tabella1"
Reports!NomeReport.RecordsOurce="Tabella2"
Queste assegnano allo stesso Report l'origine differente sulla 2
Tabelle...!
Non serve passare per la struttura.
La domanda che io mi farei se fossi in te è perchè mai devo avere 5
tabelle(ma anche solo 2) equivalenti con dati Omologhi da gestire
separatamente...???
Spero tu abbia già fatto questa considerazione in quanto normalmente
sono cose
poco probabili quelle che chiedi se il DB è strutturato in modo
adeguato.
@Alex


title: troncare i decimali

author: Paolo Donnarumma

text:
ho avuto lo stesso problema quando dalla lira si č passati all'Euro. l'ho
risolto con la funzione "fix" ed una formula abbastanza lunga: se non ci
riesci mandami un esempio di calcolo, ti indicherņ la formula!


title: troncare i decimali

author: Emyr

text:


Function arrotondaeuro(varNr As Double, Optional varPl = 2) As Double
' by Konrad Marfurt + ? + Karl Donaubauer + Fanton Emanuele
'varNr: numero da arrotondare
'varPI: numero di decimali (due predefinito)
varNr = Nz(varNr, 0)
   arrotondaeuro = Fix("" & varNr * (10 ^ varPl) + Sgn(varNr) * 0.5) /
(10 ^ varPl)
End Function
Saluti.
Emanuele.


title: problemi con campo collegato a file excel

text:
un campo di un file di excel collegato in access mi mostra alcuni valori
numerici e i rimanenti il valore #Num! e infatti tali valori non li importa
correttamente in una tabella ma da errore di overflaw sapete dirmi perchč?
grazie.


title: importare tutti i file di una cartella non ancora importati

author: tmtube

text:
Ho una cartella con dei file del tipo 042013.sto e 052013.sto
rispettivamente di aprile 2013 e maggio 2013 al suo interno ci sono diverse
righe
ogni volta che accedo ad una forma dovrei importare quelli nuovi non ancora
importati, in che modo potrei procedere?

grazie.


text:

> ...

Importa sempre tutti i file da questa cartella e poi spostali in
una cartella diversa. Per spostare i file con VBA puoi usare
il commando "Name".

--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


author: pfmarro

text:
se ti spieghi meglio perche' chi non e' addentro al tuo problema fa farica a capire cosa hai bisogno



text:
>Importa sempre tutti i file da questa cartella e poi spostali in
>una cartella diversa. Per spostare i file con VBA puoi usare
>il commando "Name".

>--
>Ciao
>Karl
>*********
>Access FAQ:
http://www.donkarl.com/it

In che modo li importo? hai un esempio? credo si usi dir?
il problema � che un altro software vuole in quel posto quei file quindi non
posso spostarli
avete qualche idea su come non importare i gi� importati?


text:
"pfmarro"  ha scritto nel messaggio
news:d9b91fee-0879-4b4b...@googlegroups.com...

Mi spiego meglio
Ho una cartella con dei file del tipo 042013.sto e 052013.sto ecc..... (cioè
meseanno.sto)
ogni volta che apro la form controllo i file presenti nella TALE cartella
contenente questi file .sto e importo nella mia tabella solo quelli non
ancora importati gli altri li salto in quanto già importati.

avete un esempio di lettura di tutti i file da una directory e importazione
dei campi contenuti nel file di testo

esempio di riga da importare nel file .sto
80 1 357 0 03/04/13 18:48:19


text:

per me ogni volta che importi un file vai a scriverre in una tabella il nome del file importato e poi prima di importare vai a vedere se e' già presente

un altro metodo sarebbe quello di cambiare l'attributo archive al file ogni volta che l'hai importato


text:
tmtube wrote:
>> Importa sempre tutti i file da questa cartella e poi spostali in
>> una cartella diversa. Per spostare i file con VBA puoi usare
>> il commando "Name".
> ...
> In che modo li importo? hai un esempio? credo si usi dir?
> il problema � che un altro software vuole in quel posto quei file
> quindi non posso spostarli
> avete qualche idea su come non importare i gi� importati?

Per ciclare tutti i file di una cartella:

Dim strFile As String

strFile = Dir("c:\pippo\")

Do While strFile <> ""

    Debug.Print strFile

    strFile = Dir

Loop

Invece del Debug.Print fai il controllo se � nuovo per te.
Se s�, esegui p.e. un DoCmd.TransferText (vedi <F1>)
per importare i dati.



text:
>per me ogni volta che importi un file vai a scriverre in una tabella il
>nome del file importato e poi prima di importare vai a vedere se e' gi�
>presente

>un altro metodo sarebbe quello di cambiare l'attributo archive al file ogni
>volta che l'hai importato

ottima idea grazie.


text:
>Invece del Debug.Print fai il controllo se � nuovo per te.
>Se s�, esegui p.e. un DoCmd.TransferText (vedi <F1>)
>per importare i dati.

>--
>Ciao
>Karl
>*********
>Access FAQ:
http://www.donkarl.com/it

ci provo, Grazie.


text:
tmtube wrote:
> ...
>> un altro metodo sarebbe quello di cambiare l'attributo archive al
>> file ogni volta che l'hai importato
>
> ottima idea grazie.

Per farlo con VBA vedi <F1> per i commandi GetAttr e SetAttr.



title: replicazione record su tabella

author: Stef Ros

text:
Buonasera NG!
Cortesemente un aiuto per il seguente problema
ho una tabella con i seguenti campi :
codiceprod, applicazione, descrizione
dove nel primo campo c'è il codiceprod ma riportato solo alla prima
occorrenza e cioe:
codiceprod	applicazione	descrizione
12535		pippo		pluto
		paperino	rosa
		minnie		giglio
12829		gastone		grigio
		qui		giallo
		quo		verde
		qua		bianco
12133		paperone	rosso
		paperina	verde
come posso fare a ripetere il codiceprod anche nelle righe successive da
codiceVBA? ovvero..
codiceprod	applicazione	descrizione
12535		pippo		pluto
12535		paperino	rosa
12535		minnie		giglio
12829		gastone		grigio
12829		qui		giallo
12829		quo		verde
12829		qua		bianco
12133		paperone	rosso
12133		paperina	verde
Grazie anticipate per quanto potrete aiutarmi come sempre!
Buona serata
Paolo
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: replicazione record su tabella

author: nugirip

text:
DAO:
set rst=currentdb.openrecordset("tabella")
do while rst.eof=false
if isnull(rst!codiceprod) then
    rst.edit
    rst!codiceprod = tmp
    rst.update
else
    tmp=rst!codiceprod
endif
rst.movenext
loop


title: replicazione record su tabella

author: Claudio

text:
"nugirip" <
spamma...@tiscali.it
> ha scritto nel messaggio
news:b1bl05$het$1...@kyra.unica.it...

Grazie davvero ! mi togli un bel po di dubbi .......... sei stato prezioso!
Buona serata!
Paolo


title: eseguire access da linea di comando e fare altro

author: Ammammata

text:
come da oggetto:

eseguire access da linea di comando, aprire un database, aprire una form,
visualizzare un record in base a un campo chiave :)

si puņ fare?

grazie

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
........... [ al lavoro ] ...........


text:
Salve,

Ammammata:
> eseguire access da linea di comando, aprire un database, aprire una form,
> visualizzare un record in base a un campo chiave :)

https://support.office.com/it-it/article/funzione-command-fec67826-7fd7-48ed-a7aa-479c020ffaa4

--
Ciao
Karl
*********
http://www.AccessDevCon.com

Access FAQ:
http://www.donkarl.com/it


text:
Il giorno Fri 03 Apr 2020 04:13:29p, *Karl Donaubauer* ha inviato su
it.comp.appl.access il messaggio
news:heouk2...@mid.individual.net
.
Vediamo cosa ha scritto:

> Ammammata:
>> eseguire access da linea di comando, aprire un database, aprire una
>> form, visualizzare un record in base a un campo chiave :)
>
>
https://support.office.com/it-it/article/funzione-command-fec67826-7fd7

> -48ed-a7aa-479c020ffaa4
>
>

grazie, interessante, temo che la cosa sia un po' più complessa in quanto
dal gestionale SAP vorrei passare ad access il parametro da usare per
trovare il record che mi serve

se ho ben interpretato il tuo esempio dovrei scrivermelo da qualche parte e
nel codice VBA andare a leggerlo per poi usarlo come campo di ricerca,
giusto?

quindi eseguo (come da esempio):

"C:\Program Files\Microsoft Office\Office11\Msaccess.exe" _
"C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb" /cmd
"Orders"

e nel modulo di access "arricchire" l'istruzione DoCmd.OpenForm "Orders"
come da esempi riportati qui:

https://docs.microsoft.com/en-us/office/vba/api/access.docmd.openform

p.e.
DoCmd.OpenForm "Orders", , , "OrderID=" & <il valore che arriva da SAP>

bene, ho qualcosa su cui ragionare durante la quarantena ;)



text:
Salve,

Ammammata:
> *Karl Donaubauer* ha inviato
>> Ammammata:
>>> eseguire access da linea di comando, aprire un database, aprire una
>>> form, visualizzare un record in base a un campo chiave :)
>>
>>
https://support.office.com/it-it/article/funzione-command-fec67826-7fd7

>> -48ed-a7aa-479c020ffaa4
> ...
>
> quindi eseguo (come da esempio):
>
> "C:\Program Files\Microsoft Office\Office11\Msaccess.exe" _
> "C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb" /cmd
> "Orders"
>
> e nel modulo di access "arricchire" l'istruzione DoCmd.OpenForm "Orders"
> come da esempi riportati qui:
>
>
https://docs.microsoft.com/en-us/office/vba/api/access.docmd.openform

>
> p.e.
> DoCmd.OpenForm "Orders", , , "OrderID=" & <il valore che arriva da SAP>
>
> bene, ho qualcosa su cui ragionare durante la quarantena ;)

Se non hai molto tempo per ragionare nella quarantena, non leggi
l'esempio che scrivo più a basso.

/cmd "MiaBellaMaschera|100"

DoCmd.OpenForm Split(Command(), "|")(0), , , "Id=" & Split(Command(),
"|")(1)



text:
Qualcuno ha scritto:
> ...
> Se non hai molto tempo per ragionare nella quarantena, non leggi
> l'esempio che scrivo più a basso.
>

Ah, certo intendevo: Se hai molto tempo ...


title: Query di comando su tabella ODBC - leggere l'errore

author: Ux

text:
In Access2003 ho una tabella collegata su MySQL via ODBC.
Come faccio ad eseguire una query di comando, costruita al volo, da VBA?
Io ho provato con
StrSQL = "INSERT INTO detraz .... etc"
DoCmd.RunSQL (strap)
Ma l'utente si vede richiesta la conferma dell'inserimento del TOT
numero di righe. Allora ho messo
DoCmd.SetWarnings False
DoCmd.RunSQL (strap)
DoCmd.SetWarnings True
e la richiesta non compare piu' ma purtroppo scompare anche ogni traccia
di errori nell'inserimento.
Come devo fare?
Ciao & Grazie
Marco


author: ALESSANDRO Baraldi

text:
"Ux" <Non.Te....@Senno.Mi.Spammi> ha scritto nel messaggio
news:U3rqd.420140$35.18...@news4.tin.it...

LA query la devi eseguire su MySQL non in locale pertanto hai 2 possibilitŕ:
1)Colleghi via ODBC le Tabelle di MySQL ed esegui la Query ACTION il Locale.
    Questa non č una gran soluzione nel caso di UPDATE, in generale perde
    molto tempo rispetto alla soluzione (2)
2)Creati una QUERY PASS_THROUGH temporanea(o definitiva vedi tu)
Devi passare la Stringa di Connessione al Database MySQL completa
di Password ecc....., quella che usi per il RELINK delle Tabelle.
Dim mydb As DAO.Database, myq As DAO.QueryDef
Set mydb = DBEngine.Workspaces(0).Databases(0)
Set myq = mydb.CreateQueryDef("")
myq.returnsrecords = False
myq.connect = connectstring
myq.sql = "INSERT INTO....."
myq.Execute
myq.Close
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


text:
"Ux" <Non.Te....@Senno.Mi.Spammi> ha scritto nel messaggio
news:NYLqd.234502$b5.11...@news3.tin.it...
> ALESSANDRO Baraldi wrote:
> > "Ux" <Non.Te....@Senno.Mi.Spammi> ha scritto nel messaggio
> > news:U3rqd.420140$35.18...@news4.tin.it...
> >
> >>In Access2003 ho una tabella collegata su MySQL via ODBC.
> >>Come faccio ad eseguire una query di comando, costruita al volo, da VBA?
> >>
> >>Io ho provato con
> >>
> >>StrSQL = "INSERT INTO detraz .... etc"
> >>DoCmd.RunSQL (strap)
> >>
> >>Ma l'utente si vede richiesta la conferma dell'inserimento del TOT
> >>numero di righe. Allora ho messo
> >>
> >>DoCmd.SetWarnings False
> >>DoCmd.RunSQL (strap)
> >>DoCmd.SetWarnings True
> >>
> >>e la richiesta non compare piu' ma purtroppo scompare anche ogni traccia
> >>di errori nell'inserimento.
> >>
> >>Come devo fare?
> >>
> >>Ciao & Grazie
> >>Marco
> >
> >
> >
> > LA query la devi eseguire su MySQL non in locale pertanto hai 2
possibilità:
> >
> > 1)Colleghi via ODBC le Tabelle di MySQL ed esegui la Query ACTION il
Locale.
> >     Questa non è una gran soluzione nel caso di UPDATE, in generale
perde
> >     molto tempo rispetto alla soluzione (2)
> >
> > 2)Creati una QUERY PASS_THROUGH temporanea(o definitiva vedi tu)
> > Devi passare la Stringa di Connessione al Database MySQL completa
> > di Password ecc....., quella che usi per il RELINK delle Tabelle.
> >
> > Dim mydb As DAO.Database, myq As DAO.QueryDef
> > Set mydb = DBEngine.Workspaces(0).Databases(0)
> >
> > Set myq = mydb.CreateQueryDef("")
> > myq.returnsrecords = False
> > myq.connect = connectstring
> > myq.sql = "INSERT INTO....."
> > myq.Execute
> > myq.Close
> >
> > Ciao
>
> Grazie per la risposta precisa e completa.
> Mi rimane un problema, forse e' banale ma non so come ricavare la
> connectionstring che citi. Il RELINK delle tabelle, se intendi la
> cancellazione e ricreazione del link alla tab MySQL, se mi occorre me la
> faccio a mano con Access, non passo connectionstring.
> C'e' un comando che me la fornisce?
>
> Ciao
> Marco
Vai sul mio sito sotto, nella sezione TABLES trovi quello che
cerchi.



text:
ALESSANDRO Baraldi wrote:
> "Ux" <Non.Te....@Senno.Mi.Spammi> ha scritto nel messaggio
> news:U3rqd.420140$35.18...@news4.tin.it...
>
>>In Access2003 ho una tabella collegata su MySQL via ODBC.
>>Come faccio ad eseguire una query di comando, costruita al volo, da VBA?
>>
>>Io ho provato con
>>
>>StrSQL = "INSERT INTO detraz .... etc"
>>DoCmd.RunSQL (strap)
>>
>>Ma l'utente si vede richiesta la conferma dell'inserimento del TOT
>>numero di righe. Allora ho messo
>>
>>DoCmd.SetWarnings False
>>DoCmd.RunSQL (strap)
>>DoCmd.SetWarnings True
>>
>>e la richiesta non compare piu' ma purtroppo scompare anche ogni traccia
>>di errori nell'inserimento.
>>
>>Come devo fare?
>>
>>Ciao & Grazie
>>Marco
>
>
>
> LA query la devi eseguire su MySQL non in locale pertanto hai 2 possibilità:
>
> 1)Colleghi via ODBC le Tabelle di MySQL ed esegui la Query ACTION il Locale.
>     Questa non è una gran soluzione nel caso di UPDATE, in generale perde
>     molto tempo rispetto alla soluzione (2)
>
> 2)Creati una QUERY PASS_THROUGH temporanea(o definitiva vedi tu)
> Devi passare la Stringa di Connessione al Database MySQL completa
> di Password ecc....., quella che usi per il RELINK delle Tabelle.
>
> Dim mydb As DAO.Database, myq As DAO.QueryDef
> Set mydb = DBEngine.Workspaces(0).Databases(0)
>
> Set myq = mydb.CreateQueryDef("")
> myq.returnsrecords = False
> myq.connect = connectstring
> myq.sql = "INSERT INTO....."
> myq.Execute
> myq.Close
>
> Ciao
Grazie per la risposta precisa e completa.



text:
ALESSANDRO Baraldi wrote:
> "Ux" <Non.Te....@Senno.Mi.Spammi> ha scritto nel messaggio
> news:NYLqd.234502$b5.11...@news3.tin.it...
>
>>ALESSANDRO Baraldi wrote:
>>
>>>"Ux" <Non.Te....@Senno.Mi.Spammi> ha scritto nel messaggio
>>>news:U3rqd.420140$35.18...@news4.tin.it...
>>>
>>>
>>>>In Access2003 ho una tabella collegata su MySQL via ODBC.
>>>>Come faccio ad eseguire una query di comando, costruita al volo, da VBA?
>>>>
>>>>Io ho provato con
>>>>
>>>>StrSQL = "INSERT INTO detraz .... etc"
>>>>DoCmd.RunSQL (strap)
>>>>
>>>>Ma l'utente si vede richiesta la conferma dell'inserimento del TOT
>>>>numero di righe. Allora ho messo
>>>>
>>>>DoCmd.SetWarnings False
>>>>DoCmd.RunSQL (strap)
>>>>DoCmd.SetWarnings True
>>>>
>>>>e la richiesta non compare piu' ma purtroppo scompare anche ogni traccia
>>>>di errori nell'inserimento.
>>>>
>>>>Come devo fare?
>>>>
>>>>Ciao & Grazie
>>>>Marco
>>>
>>>
>>>
>>>LA query la devi eseguire su MySQL non in locale pertanto hai 2
>
> possibilitŕ:
>
>>>1)Colleghi via ODBC le Tabelle di MySQL ed esegui la Query ACTION il
>
> Locale.
>
>>>    Questa non č una gran soluzione nel caso di UPDATE, in generale

Le ho provate tutte le connection string di MySQL ODBC 3.51 ma quando
arriva alla:
myq.SQL = "INSERT INTO .."
mi da' sempre:
"Stringa di connessione non valida in query di tipo pass-through"
Ecco un esempio di conn. string che ho usato:
connectstring = "DRIVER={MySQL ODBC 3.51 Driver};" & _
                  "Server=alpsrv;" & _
                  "Port=3306;" & _
                  "Option=16384;" & _
                  "Stmt=;" & _
                  "Database=lp2004;" & _
                  "Uid=Ux;" & _
                  "Pwd=Ux"
HELPPPPPPPP
Ciao
Marco


text:
Devi postare tutto il Codice compresa la stringa INSERT completa.
Ovviamente non la PWD...;-)
Non uso più MySQL da qualche anno ma non dovrebbe essere cambiato molto...!



text:
ALESSANDRO Baraldi wrote:
> Devi postare tutto il Codice compresa la stringa INSERT completa.
> Ovviamente non la PWD...;-)
>
> Non uso più MySQL da qualche anno ma non dovrebbe essere cambiato molto...!
>
> Ciao
La stringa SQL e' questa:
----------------------
INSERT INTO detraz
   (Uniq, MeseRif, Matr, TpMatr, Valore,
    TpValore,  Oneri, TipoPag, Catego, EE )
SELECT Uniq, '0411', Matr, TpMatr, Valore,
        TpValore,Oneri, TipoPag, Catego, EE
FROM detraz
WHERE MeseRif='0410'
----------------------
Il codice e' il tuo + le 3 connectstring che ho provato:
Set mydb = DBEngine.Workspaces(0).Databases(0)
connectstring = "DRIVER={MySQL ODBC 3.51 Driver};" & _
                  "Server=alpsrv;" & _
                  "Port=3306;" & _
                  "Option=16384;" & _
                  "Stmt=;" & _
                  "Database=Stat;" & _
                  "Uid=Ux;" & _
                  "Pwd=xxx"
connectstring = "Driver={mySQL};" & _
            "Server=alpsrv;" & _
            "Port=3306;" & _
            "Option=131072;" & _
            "Stmt=;" & _
            "Database=Stat;" & _
            "Uid=Ux;" & _
            "Pwd=xxx"
connectstring = "DRIVER={MySQL ODBC 3.51 Driver};" & _
                  "SERVER=alpsrv;" & _
                  "DATABASE=Stat;" & _
                  "USER=Ux;" & _
                  "PASSWORD=xxx;"
Set myq = mydb.CreateQueryDef("")
myq.ReturnsRecords = False
myq.Connect = connectstring
myq.SQL = strap
myq.Execute
myq.Close
GRAZIE
Marco


text:
> INSERT INTO detraz
>    (Uniq, MeseRif, Matr, TpMatr, Valore,
>     TpValore,  Oneri, TipoPag, Catego, EE )
> SELECT Uniq, '0411', Matr, TpMatr, Valore,
>         TpValore,Oneri, TipoPag, Catego, EE
> FROM detraz
> WHERE MeseRif='0410'
Nella SELECT cosa sarebbe il 2° campo inserito...??
'0411' per capirci....??
Nella Select metti l'Elenco dei Campi in formato NomeCampo,
perchè li hai quel riferimento...?
Poi il Campo [MeseRif] che tipo di Campo è Numerico o Stringa..??
Da come hai formattato sembrerebbe stringa...!



text:
ALESSANDRO Baraldi wrote:
>>INSERT INTO detraz
>>   (Uniq, MeseRif, Matr, TpMatr, Valore,
>>    TpValore,  Oneri, TipoPag, Catego, EE )
>>SELECT Uniq, '0411', Matr, TpMatr, Valore,
>>        TpValore,Oneri, TipoPag, Catego, EE
>>FROM detraz
>>WHERE MeseRif='0410'
>
>
> Nella SELECT cosa sarebbe il 2° campo inserito...??
>
> '0411' per capirci....??
>
> Nella Select metti l'Elenco dei Campi in formato NomeCampo,
> perchè li hai quel riferimento...?
>
> Poi il Campo [MeseRif] che tipo di Campo è Numerico o Stringa..??
> Da come hai formattato sembrerebbe stringa...!
>
> Ciao
MeseRif e' un campo stringa in cui vado a inserire la costante '0410'.
Ma la mia perplessita' e' che la query funziona con DoCmd.RunSQL(...)
quindi forse va bene. Sembra che il problema sia nella stringa di
connessione stando al messaggio di errore:
"Stringa di connessione non valida in query di tipo pass-through"
Non e' che sbaglio qualche parametro?
Grazie ancora
Marco


text:
> MeseRif e' un campo stringa in cui vado a inserire la costante '0410'.
> Ma la mia perplessita' e' che la query funziona con DoCmd.RunSQL(...)
> quindi forse va bene. Sembra che il problema sia nella stringa di
> connessione stando al messaggio di errore:
> "Stringa di connessione non valida in query di tipo pass-through"
>
> Non e' che sbaglio qualche parametro?
>
> Grazie ancora
> Marco
INSERT INTO detraz
   (Uniq, MeseRif, Matr, TpMatr, Valore,
    TpValore,  Oneri, TipoPag, Catego, EE )
'/////    INTENDEVO QUESTO PARAMETRO '0411' COS'E'...??????
SELECT Uniq, '0411', Matr, TpMatr, Valore,
        TpValore,Oneri, TipoPag, Catego, EE
FROM detraz
WHERE MeseRif='0410'
Ho razzolato nell'HD ma non trovo più nulla di MySQL, pertanto non
posso nemmeno fare un test.
Secondo me la Query SQL potrebbe non può funzionare, ma data la mia
esperienza in SQL
è meglio che non mi esponga troppo...!!!
Così come è scritta, a parte quell'incomprensione che accennavo la Sintassi
WHERE
si riferisce alla SELECT, mente tu se non sbaglio devi riferirla a
INSERT....!
Prova ad usare una query del genere:
INSERT INTO Impiegati (Nome,Cognome, Posizione) VALUES ('Harry',
'Washington', 'In addestramento');
Vedi se cambia qualche cosa, non risolve il problema, ma vedi se è come
penso io un
problema di SINTASSI.



text:
ALESSANDRO Baraldi wrote:
 >...
> Prova ad usare una query del genere:
>
> INSERT INTO Impiegati (Nome,Cognome, Posizione) VALUES ('Harry',
> 'Washington', 'In addestramento');
Mi hai dato l'idea. Ho provato con una insert semplicissima e mi da'
ugualmente l'errore.
"Stringa di connessione non valida in query di tipo pass-through"
Il problema e' la mia connectionstring
connectstring = "DRIVER={MySQL ODBC 3.51 Driver};" & _
                  "SERVER=srvalp;" & _
                  "DATABASE=Stat;" & _
                  "USER=Ux;" & _
                  "PASSWORD=xxx;"
a me' sembra che vada tutto bene
Ciao
Marco


title: Compattare l'mdb

author: David

text:
Ciao a tutti,
ho un piccolo prb (tanto per cambiare).
Ho scaricato dal sito comune la procedura per compattare l'mdb ma purtroppo
con A2000 non funziona!!!!
Che posso fare????
Esiste la versione per A2000 o forse bisogna caricare qualche riferimento
particolare??
Ciao e grazie a tutti.
--
* SuperDavid *


title: Compattare l'mdb

author: Fabio Chiaro

text:
dbengine.compactdatabase "databaseorigine" "destinazione"
"David" <
davi...@yahoo.it
> ha scritto nel messaggio
news:p2sp7.2180$Q25....@news.infostrada.it...



title: Compattare l'mdb

author: SuperDavid

text:
Fabio Chiaro <
fabio....@tin.it
> wrote in message
62Xp7.4594$bf.1...@news.infostrada.it...
> dbengine.compactdatabase "databaseorigine" "destinazione"
>
>
> "David" <
davi...@yahoo.it
> ha scritto nel messaggio
> news:p2sp7.2180$Q25....@news.infostrada.it...
> > Ciao a tutti,
> > ho un piccolo prb (tanto per cambiare).
> >
> > Ho scaricato dal sito comune la procedura per compattare l'mdb ma
> purtroppo
> > con A2000 non funziona!!!!
> >
> > Che posso fare????
> >
> > Esiste la versione per A2000 o forse bisogna caricare qualche
riferimento
> > particolare??
> >
Grazie....per la risposta
ma il risultato finale è lo stesso di quello che si avrebbe con la procedura
presente nel sito comune?
Ciao
* SuperDavid *


title: Prendere un dato in automatico

text:
Salve,
ho un piccolo (attualmente grande) problema, mi spiego meglio:
Ho creato un database contenente 2 tabelle
VOLONTARI
SEDI
La tabella VOLONTARI contiene:
Ente
Cognome
Nome
Sede di Assegnazione
Telefono ufficio
La tabella SEDI contiene:
Nome
Indirizzo
Comune
Telefono1
Telefono2
Ora compilando i dati della tabella VOLONTARI arrivati alla voce Sede di
assegnazione tramite un menų a tendina seleziono la sede (che viene pescata
dalla tabella SEDI) mi chiedo ora č possibile a questo punto che nel campo
Telefono ufficio della tabella VOLONTARI, compaia il numero presente nella
tabella SEDI associato alla sede che ho selezionato nel menų a tendina ?
E' una cosa possibile da fare ?
Ho provato in tutti i modi ma non riesco a far funzionare la cosa..
Qualcuno per caso sa aiutarmi ?
Grazie davvero !
A1


title: Prendere un dato in automatico

author: andRea

text:
                    Il 02 Mag 2005, 14:57, "A1" <
l...@la.com
> ha scritto:
> Salve,
> ho un piccolo (attualmente grande) problema, mi spiego meglio:
>
> Ho creato un database contenente 2 tabelle
>
> VOLONTARI
> SEDI
>
> La tabella VOLONTARI contiene:
> Ente
> Cognome
> Nome
> Sede di Assegnazione
> Telefono ufficio
>
> La tabella SEDI contiene:
> Nome
> Indirizzo
> Comune
> Telefono1
> Telefono2
>
> Ora compilando i dati della tabella VOLONTARI arrivati alla voce Sede di
> assegnazione tramite un menů a tendina seleziono la sede (che viene
pescata
> dalla tabella SEDI) mi chiedo ora č possibile a questo punto che nel campo
> Telefono ufficio della tabella VOLONTARI, compaia il numero presente nella
> tabella SEDI associato alla sede che ho selezionato nel menů a tendina ?
>
> E' una cosa possibile da fare ?
> Ho provato in tutti i modi ma non riesco a far funzionare la cosa..
>
> Qualcuno per caso sa aiutarmi ?
>
> Grazie davvero !
>
> A1
>
Prova a guardare il comando DLookup
Ciao, andRea

--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Prendere un dato in automatico

text:
> Prova a guardare il comando DLookup
> Ciao, andRea
>
>
> --------------------------------
> Inviato via
http://arianna.libero.it/usenet/
Ho provato in questo modo
=DLookup("[Anagrafica Sedi]", "Telefono1", "[ID] =" _ & Form![Anagrafica
Volontari]!Sede di assegnazione)
Ma presumo di non aver capito bene.. forse č sbagliato il comando FORM ? Io
lavoro dentro una tabella.. questo er caso č il comando delle maschere ?
Comunque cosě non funziona !
Altro suggerimento per caso ?


title: Prendere un dato in automatico

text:
"A1" <
l...@la.com
> ha scritto nel messaggio
news:%Stde.1321349$35.49...@news4.tin.it...

Non c'č soluzione ?


title: Prendere un dato in automatico

author: Sandro

text:
"A1" <
l...@la.com
> ha scritto nel messaggio
news:Kspde.848159$b5.37...@news3.tin.it...
> Salve,
> ho un piccolo (attualmente grande) problema, mi spiego meglio:
>
> Ho creato un database contenente 2 tabelle
>
> VOLONTARI
> SEDI
>
> La tabella VOLONTARI contiene:
> Ente
> Cognome
> Nome
> Sede di Assegnazione
> Telefono ufficio
>
> La tabella SEDI contiene:
> Nome
> Indirizzo
> Comune
> Telefono1
> Telefono2
>
> Ora compilando i dati della tabella VOLONTARI arrivati alla voce Sede di
> assegnazione tramite un menù a tendina seleziono la sede (che viene
pescata
> dalla tabella SEDI) mi chiedo ora è possibile a questo punto che nel campo
> Telefono ufficio della tabella VOLONTARI, compaia il numero presente nella
> tabella SEDI associato alla sede che ho selezionato nel menù a tendina ?
>
> E' una cosa possibile da fare ?
> Ho provato in tutti i modi ma non riesco a far funzionare la cosa..
>
> Qualcuno per caso sa aiutarmi ?
>
> Grazie davvero !
>
> A1
Ciao A1,
se la popolazione della tabella volontari viene effettuata da una forrm,
potresti sfruttare la proprietà column della combobox sedi sull'evento dopo
aggoirnamentode controllo sedi:
me.tuoControlloTelefonoUfficio=me.tuaComboBoxSedi.column(N)
dove ho scritto N ci metti il n°della colonna della combo dove c'è il campo
numero telefono.La terza nel tuo caso.
Ciao


title: Prendere un dato in automatico

text:
"Sandro" <
sandro_...@tin.it
> ha scritto nel messaggio
news:hPQde.1326823$35.49...@news4.tin.it...

Io inserisco i dati direttamente dalla tabella.. mi consigli di creare una
maschera ?


title: Prendere un dato in automatico

text:
[cut]
> Io inserisco i dati direttamente dalla tabella.. mi consigli di creare una
> maschera ?
Ciao A1,
Beh, il popolare le tabelle tramite le maschere č la tecniche che
abitualmente si utilizza.
Quella che ti ho consigliato senza maschera non puoi lavorare sui controlli
della form con VBA.
Perň anche con una query di selezione con recordset aggiornabile puoi
ottenere quel tipo di risultato direttamente nella tabella (--> scrittura in
automatico del campo), senza bisogno di maschere.
Devi perň mettere in relazione le tabelle e crearti una query.
Si possono mettere in relazione le tabelle che hai nel db?
Le sedi sono fatte da piů volontari e i volontari possono appartenere a piů
sedi ??
Pensaci e facci sapere.
Un saluto.


title: Prendere un dato in automatico

text:
"Sandro" <
sandro_...@tin.it
> ha scritto nel messaggio
news:Ryaee.1332084$35.49...@news4.tin.it...

Sandro, prima di tutto grazie per la risposta,
dunque se mi segui pian pianino cerco di impegnarmi a capire la prima
soluzione che mi hai segnalato. (sono un po' arrugginito in Access quindi ci
metto un po').
Dunque..
ho creato la Maschera  sulla tabella ANAGRAFICA VOLONTARI, il campo "Sede di
Assegnazione" l' ho legato con "SELECT [Anagrafica Sedi].ID, [Anagrafica
Sedi].Nome FROM [Anagrafica Sedi]; " cosě che prenda i dati dalla tabella
SEDI.
Ora per utilizzare il comando che mi hai segnalato tu ossia:
me.tuoControlloTelefonoUfficio=me.tuaComboBoxSedi.column(N)
come e dove devo utilizzarlo?
Scusa ma da solo non riesco a capirlo !
Grazie per la pazienza.
Ciao
A1.


title: Prendere un dato in automatico

text:
[cut]
Ciao A1,
> Sandro, prima di tutto grazie per la risposta,
prego, non c'è di che
> dunque se mi segui pian pianino cerco di impegnarmi a capire la prima
> soluzione che mi hai segnalato. (sono un po' arrugginito in Access quindi
ci
> metto un po').
ok
> Dunque..
>
> ho creato la Maschera  sulla tabella ANAGRAFICA VOLONTARI, il campo "Sede
di
> Assegnazione" l' ho legato con "SELECT [Anagrafica Sedi].ID, [Anagrafica
> Sedi].Nome FROM [Anagrafica Sedi]; " così che prenda i dati dalla tabella
> SEDI.
ti consiglio intanto di prendere le tabelle che hai creato e dividere le
parole che compongono i campi da _ : Anagrafica Sedi diventerà
Anagrafica_Sedi, altriumenti andando avanti incontrerai problemi se non
metti il nome del campo tra [ ] .
Hai fatto quasi tutto giusto : nella select manca il campo del numero di
telefono della sede perchè così com'è non puoi sfruttare la proprietà
column.
Allora inserisci nella select che ha creato anche il numero il campo
relativo al N° telefono.
Poi devi impostare per la combobox il n° di colonne e la relativa larghezza
in modo da visualizzare  i campi che ti interessano. Nel tuo caso puoi
visualizzare solo la sede, non serve visualizzare il la chiave primaria e la
colonna contentente il campo N° telefono. Quindi avrai colonna asscociata 1,
numero colonne 2 e larghezza colonne 0;5.
A questo punto su evento dopo aggionrmanento della combobox ci metti :
me.controlloCheContienteIlNumeroDiTelfono=me.ControlloComboboxSedi.column(2)
' la prima colonna è la zero.
In questo modo risolvi il problema, ma ne crei un altro.
Perchè vuoi inserire in due tabelle diverse lo stesso dato?
Non è meglio mettere in relazione le tabelle in modo da inserire il numero
di telefono solo nelle sedi e inserire la chiave esterna id_sede nelle
tabella volontari ??
T_volontario                T_sede
id_volontario  pk           id_Sede pk
id_sede                        nome
nome                            induirizzo
cognome                      telefono
telefonoVolontario
In questo modo gestisci entrambe i numeri di telefono (volontario e sede)
Ciao, facci sapere !


title: Prendere un dato in automatico

text:
> A questo punto su evento dopo aggionrmanento della combobox ci metti :
>
> me.controlloCheContienteIlNumeroDiTelfono=me.ControlloComboboxSedi.column(2)
> ' la prima colonna è la zero.
Ciao Sandro,
ho seguito tutti i tuoi passi e mio malgrado mi sono arrenato in quello che
vedi qui sopra.
non cpisco questo
me.controlloCheContienteIlNumeroDiTelfono=me.ControlloComboboxSedi.column(2)
' la prima colonna è la zero.
Allora nella maschera Anagrafica Volontari ho tutti i miei campie il campo
SEDE DI ASSEGNAZIONE ora ha questo origine di riga:
SELECT [Anagrafica Sedi].ID, [Anagrafica Sedi].Nome, [Anagrafica
Sedi].Telefono1 FROM [Anagrafica Sedi];
Ora mi chiedo quel comando che mi crea difficoltà:
me.controlloCheContienteIlNumeroDiTelfono=me.ControlloComboboxSedi.column(2)
' la prima colonna è la zero.
va messo in DOPO AGGIORNAMENTO della  casella Telefono Ufficio ?
Ho provato ma qui non mi compare il numero di telefono in automatico !!
Sicuramente sbaglio qualcosa.. ma cosa ?
Grazie per la pazienza ;)



title: Prendere un dato in automatico

text:
[cut]
Ciao A1,
mi raccomando il quoting !
> Ciao Sandro,
> ho seguito tutti i tuoi passi e mio malgrado mi sono arrenato in quello
che
> vedi qui sopra.
> non cpisco questo
>
>
me.controlloCheContienteIlNumeroDiTelfono=me.ControlloComboboxSedi.column(2)
> ' la prima colonna è la zero.
>
> Allora nella maschera Anagrafica Volontari ho tutti i miei campie il campo
> SEDE DI ASSEGNAZIONE ora ha questo origine di riga:
> SELECT [Anagrafica Sedi].ID, [Anagrafica Sedi].Nome, [Anagrafica
> Sedi].Telefono1 FROM [Anagrafica Sedi];
Nelle maschere ci sono i controlli non i campi.La select è ok Ti riconsiglio
di evitare spazi nei campi delle tabelle.
> Ora mi chiedo quel comando che mi crea difficoltà:
>
me.controlloCheContienteIlNumeroDiTelfono=me.ControlloComboboxSedi.column(2)
> ' la prima colonna è la zero.
>
> va messo in DOPO AGGIORNAMENTO della  casella Telefono Ufficio ?
> Ho provato ma qui non mi compare il numero di telefono in automatico !!
La devi mettere dopo aggiornamento del controllo che contiene le
Sedi.Ovviamente lo devi adattare con i nomi dei tuoi controlli.
> Sicuramente sbaglio qualcosa.. ma cosa ?
>
> Grazie per la pazienza ;)
Prego, buona domenica.


title: Prendere un dato in automatico

text:
>Non è meglio mettere in relazione le tabelle in modo da inserire il numero
>di telefono solo nelle sedi e inserire la chiave esterna id_sede nelle
>tabella volontari ??
>T_volontario                T_sede
>id_volontario  pk           id_Sede pk
>id_sede                        nome
>nome                            induirizzo
>cognome                      telefono
>telefonoVolontario
>In questo modo gestisci entrambe i numeri di telefono (volontario e sede)
Ciao Sandro..
dunque ragionando sul tuo discorso... presumo sia davvero meglio fare come
dici tu.
Dunque il discorso di fare apparire lo9 stesso dato in due tabelle mi
occorreva solamente per visualizzare in automatico il numero di telefono
allegato alla sede, ma ora lavoro dalla maschera tutto dovrebbe essere più
semplice.
Ho aggiunto ID_sede nella tabella Volontari e ho messo in relazione le due
tabelle  T_sede(1) e T_volontari(molti).
Ora con la mia bella Maschera.. per fare apparire il numero di telefono
della sede in automatico nella CASELLA Telefono devo utilizzare anche in
questo caso il comando che mi hai postato precedentemente tu e farlo
lavorare con in seguito all'aggiornamento? (Ho provato prima di fare le
relazioni e mi dava un errore in una macro ME che non trovava!).
Ragazzi quel che sembrava una cosa facile caspita si stà dilungando da matti
! Mi dispiace !
Quindi riassumendo il dilemma ora è dopo le relazioni è: come far apparire
il numero di telefono della sede in un campo di una maschera selezionando il
dato Sede?
Non me ne volere.. attendo tue notizie !;)
Grazie davvero..
Buon sabato !


title: Prendere un dato in automatico

text:
"A1" <
l...@la.com
> ha scritto nel messaggio
news:4k9fe.869627$b5.38...@news3.tin.it...

Ciao A1, bene mi fa piacere che tu abbia impostato la relazione.
Le sedi sono composta da più volontari, in questo modo il volontario
appartiene a una sola sede.
Se il volontario può appatenere a più sedi (non so se sia il tuo caso), devi
impostare una molti a molti e creare uin terza tabella (pensaci a questa
cosa).
Adesso che hai impostato la relazione puoi fare in questo modo :
l'istruzione con Me...= ecc, che era solo un palliativo la butti via.
Ti crei un maschera sulla tabella sedi
Ti crei un maschera sulla tabella volontari.
apri in visualizzazione srtuttura la maschera sedi e ci trascini la maschera
volontari.
Che cosa ottieni ? Un bella sincorinizzazione di dati delle sedi con i
relaviti volontari, con tutti i dati che ti servono.
Ps siccome sarò qui ancora per molto, se vuoi ti creo in demo al volo e te
lo mando.
> Grazie davvero..
prego
> Buon sabato !
anche a te e buon lavoro !


title: Prendere un dato in automatico

text:
"Sandro" <
sandro_...@tin.it
> ha scritto nel messaggio
news:0K9fe.869682$b5.38...@news3.tin.it...

Dunque sembra non andar..
sandro per mandarti un'email basta eliminare no spam ?
san...@tin.it
 ?
volevo mandarti il piccolo file per capire dove stò sbagliando..
ma non mi invia !!


title: Prendere un dato in automatico

text:
[cut]
Ciao A1,
> Dunque sembra non andar..
> sandro per mandarti un'email basta eliminare no spam ?
san...@tin.it
 ?
ci sei cascato eh ? manda qui :
sandro...@tin.it
> volevo mandarti il piccolo file per capire dove stò sbagliando..
> ma non mi invia !!
Ecco addio al no-spam ! Scherzo, manda pure.
Ciao


title: Due campi in uno

author: Claudia G

text:
Devo creare la tabella outlook tramite una query, per cui devo prendere i
dati contenuti nel campo First_Name e Last:Name e metterli nel campo Nome
dentro la tabella outlook
come va modificata la query qua sotto?
SELECT Nominativi.Ragione_Sociale, Nominativi.Indirizzo, Nominativi.Citta,
Nominativi.Telefono, Nominativi.Fax, Contatto.Email_Personale,
Contatto.First_Name, Contatto.Last_Name INTO Outlook
FROM Nominativi LEFT JOIN Contatto ON Nominativi.ID_nominativo =
Contatto.ID_Nominativo
ORDER BY Nominativi.Ragione_Sociale


title: Due campi in uno

author: Roberto da casa

text:
"Claudia G" <
cla...@libero.it
> ha scritto nel messaggio
news:43a9a668$0$13258$4faf...@reader2.news.tin.it...

Non sono sicuro di aver capito bene il tuo problema, ma prova cosě:
SELECT Nominativi.Ragione_Sociale, Nominativi.Indirizzo, Nominativi.Citta,
Nominativi.Telefono, Nominativi.Fax, Contatto.Email_Personale,
Contatto.First_Name & " " & Contatto.Last_Name As Nome INTO Outlook
FROM Nominativi LEFT JOIN Contatto ON Nominativi.ID_nominativo =
Contatto.ID_Nominativo
ORDER BY Nominativi.Ragione_Sociale
Buon Natale
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Due campi in uno

text:
"Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
news:o%uqf.12861$eD5.2...@twister2.libero.it...

grazie mille
un bacio
e buon natale


title: Due campi in uno

author: MA

text:
Claudia G wrote:
> "Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
>
> grazie mille
> un bacio
Oh se li becca tutti lui... SGRUNT
> e buon natale
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Due campi in uno

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:does00$bc5$1...@area.cu.mi.it...
> Claudia G wrote:
> > "Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
> >
> > grazie mille
> > un bacio
>
> Oh se li becca tutti lui... SGRUNT
Almeno per Natale non essere invidioso!
>
> > e buon natale
>
> --
> _ _
> Ciao
> MAssimiliano Amendola
www.accessgroup.it
--



title: Periodi consecutivi

author: singer

text:
Di seguito indico una query SQL che ho trovano su internet
Qualcuno è in grado di tradurla in Query Access.
credo che sia proprio quello di cui ho bisogno per selezionare periodo consecutivi:
ritengo che td1 e td2 siano sempre la stessa tabella (spero!!)

select td1.StartDate,

       td2.EndDate,

       datediff(d, td1.StartDate, td2.EndDate) as Days

from #tempDates td1 left join

     #tempDates td2 on td1.Id <> td2.Id

where (td2.StartDate = DateAdd(d, 1, td1.EndDate)) OR (td2.StartDate = DateAdd(d, 0, td1.EndDate))


title: Periodi consecutivi

text: please, help me!


title: Periodi consecutivi

author: Bruno Campanini

text:
singer laid this down on his screen :

Per definire 2 periodi consecutivi occorrono 4 date:
in quale tabella e in quali campi si trovano?

Possono aversi anche più di 2 periodi in tabella,
fra i quali rilevare la consecuzione?

Bruno


title: Periodi consecutivi

text:
Grazie per l'attenzione innanzitutto!!
Qualche post dietro avevo posto la questione in altri termini e questa è la soluzione che avevo trovato (forse un po' macchinosa):

SELECT A.*, DateDiff("d",[A.DAL],[
A.AL
]+1) AS DIFF

FROM Assenze AS A INNER JOIN Assenze AS B ON A.DAL =
B.AL
+1
WHERE A.CIP = B.CIP AND A.Id <> B.Id
ORDER BY a.cip and a.dal;

UNION SELECT A.*, DateDiff("d",[A.DAL],[
A.AL
]+1) AS DIFF
FROM Assenze AS A INNER JOIN Assenze AS B ON
A.AL
=B.DAL-1
WHERE A.CIP = B.CIP AND A.Id <> B.Id;

qui c'è la tabella (Assenze) e i due campi data: DAL e AL

SI POSSONO ESSERE ANCHE Più DI DUE PERIORI FRA I QUALI RILEVARE LA SEQUENZA

GRAZIE


title: Periodi consecutivi

text:
singer used his keyboard to write :

[...]
> SI POSSONO ESSERE ANCHE Più DI DUE PERIORI FRA I QUALI RILEVARE LA SEQUENZA
Risposta per me non esauriente.
Non posso indovinare la struttura della tabella.

Bruno


title: Periodi consecutivi

text:
Tabella Assenze (legata dal lato molti con l'anagrafica del personale, ma questo non credo sia fondamentale).
La tabella ha i seguenti campi
ID
CIP (CHIAVE PRIMARIA, che è la matricola del personale che lega la tabella al lato uno)
tipo assenza
DAL (data iniziale periodo di assenza)
AL (Data finale periodo di assenza)
Questa è la struttura.

In questa tabella ci sono 18000 record

io ho bisogno di controllare tutti i periodi consecutivi di uno stesso CIP
contare i giorni tra la data iniziale (del periodo) e la data finale (del periodo consecutivo e verificare quando questi sono maggiori di 60 giorni


title: Periodi consecutivi

text:
Il giorno domenica 26 ottobre 2014 14:57:25 UTC+1, singer ha scritto:

> credo che sia proprio quello di cui ho bisogno per selezionare
> periodi consecutivi

Questa che ho inventato al volo funziona egregiamente
(beh ... almeno  se ho  capito la tua esigenza) ed e'
semplicissima :

SELECT A.dal_, B.al_, (B.al_ - A.dal_) AS giorni_
FROM T AS A, T AS B
WHERE A.al_ +1 = B.dal_;

Dove T e' la tua tabella.

Ti acchiappa sistematicamente tutti i periodi consecutivi
e  te  li  schiaffa  in modo tale che in DAL c'e' la data
inizio del periodo e in AL c'e' la data fine dell' ultimo
periodo consecutivo all' iniziale.

In terza colonna ti riporta la durata in giorni dei
periodi consecutivi.

Fammi sapere


title: Periodi consecutivi

text:
ci siamo quasi.
ma se i periodi consecutivi sono tre li divide. ti faccio l'esempio specifico:

18.11.2008 20.11.2008
21.11.2008 26.11.2008
27.11.2008 09.12.2008

la query restituisce:

18.11.2008 26.11.2008 8gg
21.11.2008 09.12.2008 18 gg

io devo avere
18.11.2008 09.12.2008

un altro piccolo sforzo, ti prego


title: Periodi consecutivi

text:

Ok ... mumble mumble ... :-)

Sai programmare in VB sotto access ? Se si il problema si
puo' risolvere cosi' :

esegui la query su T, salvi i risultati in una tabella
temporanea T1.
Riesegui la stessa query sulla temporanea T1 e salvi
i risultati in T2

Se n. records di T1 = n. records di T2 allora fine e
osservi T2.

Altrimenti ripeti il procedimento

Mi sono spiegato ?


title: Periodi consecutivi

text: ti sei spiegato, ma non sono in grado di tradurre tutto questo in VBA.


title: Periodi consecutivi

text:
On Monday, October 27, 2014 2:59:45 PM UTC+1, singer wrote:
> ti sei spiegato, ma non sono in grado di tradurre tutto questo in VBA.

Mannaggia mi dispiace ... Vorrei aiutarti ma credo  che con una
sola query non si possa fare quello che serve a te. Il problema
ha natura tipicamente ricorsiva in  quanto non  e' noto  quanti
periodi consecutivi possa avere  un dipendente, per cui nemmeno
con una subquery se ne esce.

Spero di sbagliarmi. Vediamo se qualcuno piu' bravo risolve.


title: Periodi consecutivi

text:
grazie, comunque,
è un pò di giorni che pongo questo quesito qui, ma ho visto che è stato glissato,
speravo nell'aiuto di Karl!

ciao


title: Periodi consecutivi

text:
scusami,
ma la query di unione che ho postato io funziona e dà il risultato che cerco
non puoi analizzarla e trovare solo l'ultimo passaggio che mi serve
avrei bisogno di aggiungere in struttura un criterio per selezionare i periodi maggiori di 60 giorni
solo che con la query di unione non si entra in struttura


title: Periodi consecutivi

text:
singer explained :

Ho preso una strada troppo lunga ma stasera
ci riguardo e conto di accorciarla un po'...
=============================
Private Sub Command62_Click()
Dim db As Database, RS_Cip As Recordset, SQL As String
Dim RS_Assenze As Recordset, j As Long, k As Long
Dim dateDAL() As Date, dateAL() As Date

Set db = CurrentDb
SQL = "SELECT Assenze.CIP FROM Assenze GROUP BY Assenze.CIP;"
Set RS_Cip = db.OpenRecordset(SQL)

Do Until RS_Cip.EOF
    SQL = "SELECT Assenze.CIP, Assenze.Dal, Assenze.Al FROM Assenze "
    SQL = SQL & "WHERE (((Assenze.CIP) = '" & RS_Cip![CIP] & "')) ORDER
BY Assenze.Dal;"
    Set RS_Assenze = db.OpenRecordset(SQL)

    k = 1
    ReDim dateDAL(1 To k)
    ReDim dateAL(1 To k)
    dateDAL(k) = RS_Assenze![Dal]
    dateAL(k) = RS_Assenze![Al]

    RS_Assenze.MoveNext
    Do Until RS_Assenze.EOF
        If RS_Assenze![Dal] = DateAdd("d", 1, dateAL(k)) Then
            dateAL(k) = RS_Assenze![Al]
        Else
            k = k + 1
            ReDim Preserve dateDAL(1 To k)
            ReDim Preserve dateAL(1 To k)
            dateDAL(k) = RS_Assenze![Dal]
            dateAL(k) = RS_Assenze![Al]
        End If
        RS_Assenze.MoveNext
    Loop

    For j = 1 To UBound(dateDAL)
        If DateDiff("d", dateDAL(j), dateAL(j)) + 1 >= 60 Then
            MsgBox RS_Cip![CIP] & vbCrLf & dateDAL(j) & "   " &
dateAL(j) & _
                vbCrLf & DateDiff("d", dateDAL(j), dateAL(j)) + 1
        End If
    Next
    RS_Cip.MoveNext
Loop

End Sub
=====================================

Bruno


title: Periodi consecutivi

text: GraZie, appena sono a un pc la provo immediatamente


title: Periodi consecutivi


title: Periodi consecutivi

text:
Non so se è chiedere troppo. Ma visto che ci devi ancora lavorare :-) , non è possibile.ottenere un output editabile tipo una query, una tabella, un file Excel. Così vedo che restituisce un messaggio a video.
GraZie


title: Periodi consecutivi

text:
singer expressed precisely :
> Non so se è chiedere troppo. Ma visto che ci devi ancora lavorare :-) , non è
> possibile.ottenere un output editabile tipo una query, una tabella, un file
> Excel. Così vedo che restituisce un messaggio a video. GraZie

Te lo sai fare un piatto di spaghetti con due uova fritte
o muori di fame se non hai il cuoco?

La tabella Assenze60 ha gli stessi campi della tabella Assenze,
con l'aggiunta di un campo GG, long.

=======================================
Private Sub Command62_Click()
Dim db As Database, RS_Cip As Recordset, SQL As String
Dim RS_Assenze As Recordset, j As Long, k As Long
Dim dateDAL() As Date, dateAL() As Date, ID
Dim RS_Target As Recordset

Set db = CurrentDb
SQL = "SELECT Assenze.CIP FROM Assenze GROUP BY Assenze.CIP;"
Set RS_Cip = db.OpenRecordset(SQL)
Set RS_Target = db.OpenRecordset("Assenze60")

Do Until RS_Cip.EOF
    SQL = "SELECT Assenze.ID, Assenze.CIP, Assenze.Dal, Assenze.Al FROM
Assenze "
    SQL = SQL & "WHERE (((Assenze.CIP) = '" & RS_Cip![CIP] & "')) ORDER
BY Assenze.Dal;"
    Set RS_Assenze = db.OpenRecordset(SQL)

    k = 1: ID = RS_Assenze![ID]
    ReDim dateDAL(1 To k)
    ReDim dateAL(1 To k)
    dateDAL(k) = RS_Assenze![DAL]
    dateAL(k) = RS_Assenze![AL]

    RS_Assenze.MoveNext
    Do Until RS_Assenze.EOF
        If RS_Assenze![DAL] = DateAdd("d", 1, dateAL(k)) Then
            dateAL(k) = RS_Assenze![AL]
        Else
            k = k + 1
            ReDim Preserve dateDAL(1 To k)
            ReDim Preserve dateAL(1 To k)
            dateDAL(k) = RS_Assenze![DAL]
            dateAL(k) = RS_Assenze![AL]
        End If
        RS_Assenze.MoveNext
    Loop

    For j = 1 To UBound(dateDAL)
        If DateDiff("d", dateDAL(j), dateAL(j)) + 1 >= 60 Then
            'MsgBox ID & vbTab & RS_Cip![CIP] & vbCrLf & dateDAL(j) & "
  " & dateAL(j) & _
                vbCrLf & DateDiff("d", dateDAL(j), dateAL(j)) + 1
            With RS_Target
                .AddNew
                ![ID] = ID
                ![CIP] = RS_Cip![CIP]
                ![DAL] = dateDAL(j)
                ![AL] = dateAL(j)
                ![GG] = DateDiff("d", dateDAL(j), dateAL(j)) + 1
                .Update
            End With
        End If
    Next
    RS_Cip.MoveNext
Loop

End Sub
====================================

Bruno


title: Periodi consecutivi

text:
FA_VO_LO_SO!!
Io non so come fate....
Sono commosso.

A proposito, non sono bravo in cucina :-)

e la tabella è decisamente più vicina alle mie esigenze.
Naturalmente il controllo lo devo ripetere nel tempo e questa SUB mi aggiunge i record ogni volta.
Allora ho pensato. Senti Senti!

Faccio partire una macro che lancia una query di eliminazione sulla tabella Assenze60 e poi faccio partire la sub.

Ho hai una soluzione già bella e pronta (a proposito di uova fritte!!)

ciao e grazie, grazie, grazie ancora


title: Periodi consecutivi

text:
singer formulated the question :

Dopo il
Set db = CurrentDB

aggiungi la riga:
db.Execute "DELETE Assenze60.* FROM Assenze60;"

Bruno


title: Periodi consecutivi

text:
Perdonami, ma potrebbe esserci qualcosa che non va?

ho lanciato la prima volta la Sub e mi ha generato 26 periodi consecutivi.
Ho provato ad aggiungere dei periodi di assenza consecutiva alla mia tabella e la Sub non me li trova.
Se invece ne cancello qualcuno di quelli che già erano inseriti, allora scompaiono dopo la Sub

??


title: Periodi consecutivi

text:
Incredibile!

Se io importo da un altro db replica l'intera tabella Assenze
la sub mi trova anche gli ulteriori record
ma se inserisco i nuovi periodi di assenza nel db (e lo faccio da una maschera), lancio la Sub e non succede niente: i nuovi periodi di assenza superiori a 60 giorni non vengono conteggiati.
Ma come è possibile!!!


title: Periodi consecutivi

text: dai, non lasciamo le cose a metà!


title: Periodi consecutivi

text:
Il giorno giovedì 30 ottobre 2014 09:19:30 UTC+1, singer ha scritto:

> dai, non lasciamo le cose a metà!

Non per fare lo smargiasso ma il problema e' classicamente ed
elegantemente ricorsivo.

per ogni persona fisica :

chiama la funzione :
f()
 prendi il primo periodo (dalla tabella periodi) (da;a) e cerca
 il consecutivo (da'=a+1;a')

 se lo trovi, poni (da;a) = (da;a')
 chiama f() (chiamata dentro la f() stessa)

 Altrimenti restituisci  (da;a) e aggiungilo come record alla
 tabella periodi_consecutivi
 esci da f()

Osserva la compattezza e la chiarezza dello pseudo codice.


title: Periodi consecutivi

text:
singer wrote :
> dai, non lasciamo le cose a metà!

Guarda che io non lascio le cose a metà
Ho provato e riprovato e a casa mia (Win 8.1/Access 2013/64bit)
la procedura funziona correttamente, come tu stesso hai potuto
rilevare in qualche circostanza.

Per saperne di più dovrei avere sottomano il tuo file
con l'indicazione delle tue condizioni di lavoro e
delle circostanze nelle quali rilevi il malfunzionamento.

Se vuoi puoi inviarmi il tutto a
brun...@libero.it

Bruno


title: come si fa (2)

author: Maicol

text:
Mi scuso mi e' partito il post prima che lo concludessi . Un saluto e un
grazie a tutti


title: Inserire foto in maschere di access

author: Randy

text:
Ciao a tutti,
sto creando un database con tutti i miei dvd. Nella maschera principale ho
inserito un campo "oggetto ole" per inserire la foto della copertina di ogni
dvd che posseggo, purtroppo ho constatato che il file mdb sta prendendo man
mano dimensioni sempre più grosse. Non ricordo dove ma mi sembra di aver
letto che sopra a 1GB di grandezza del file il database si potrebbe
bloccare.
Per "alleggerire" il database mi è stato detto che al posto di inserire
l'immagine direttamente nel database, c'è la possibilità tramite un codice
visual-basic di creare un link al file situato nella directory X.
Qualcuno sarebbe così gentile da fornirmi il codice da inserire e spiegare
come e dove inserirlo?
Grazie in anticipo a tutti coloro che mi aiuteranno con validi consigli.
Saluti, Sandro.


title: Inserire foto in maschere di access

text:
"Randy" <
randy...@hotmail.com
> ha scritto nel messaggio
news:3e9f077a$1...@news.swissonline.ch...

Sul sito comune trovi alcuni esempi di come gestire immagini all'interno del
Database proprio con la tecnica che ti hanno indicato.
www.sitocomune.com
@Alex.


title: copiare informazioni da una maschera all'altra

author: wildsurfer

text:
voglio creare un tasto che mi permetta di aprire un'altra maschera in
modalità immissione dati e che compili automaticamente un campo contenuto
nella maschera appena aperta col valore contenuto in un campo nella maschera
di partenza.come posso fare?
grazie mille dell'aiuto!
ciao a tutti!


author: Roberto dal portatile

text:
"wildsurfer" <
wildsu...@libero.it
> ha scritto nel messaggio
news:0Whb6.1923$ew1....@news.infostrada.it...
> voglio creare un tasto che mi permetta di aprire un'altra maschera in
> modalitą immissione dati e che compili automaticamente un campo contenuto
> nella maschera appena aperta col valore contenuto in un campo nella
maschera
> di partenza.come posso fare?
> grazie mille dell'aiuto!
> ciao a tutti!
>
>
Per la differenza tra campo e controllo ti rimando al mio messaggio
precedente.
Ipotizziamo che il nome della maschera da aprire si chiami Maschera1, che il
controllo della maschera chiamante di cui vuoi copiare il valore si chiami A
e che il controllo di Maschera1 nel quale vuoi copiare il valore di A si
chiami B, a fronte dell'evento "Su clic" del tuo pulsante di comando
contenuto nella maschera chiamante genera il seguente codice VBA:
DoCmd.OpenForm ("Maschera1")
[Forms]![Maschera1]![B] = Me![A]
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


author: Riccardo

text:
wildsurfer <
wildsu...@libero.it
> wrote in message
0Whb6.1923$ew1....@news.infostrada.it...

______
ipotizziamo che la maschera da aprire si chiami Pippo
Dopo il comando
DoCmd.OpenForm "Pippo", , , , acFormAdd
inserisci
Forms![Pippo]![NomeControllo] =Me!Nomecontrollo
ciao Riccardo


title: Attivazione show box queries

author: Marzia

text:
Ciao ragazzi,
e' possibile attivare via codice le show box di una query?
Nella pratica stò creando una maschera di selezione dati e vorrei,
direttamente dalla maschera, poter decidere che campi mi farà poi vedere la
query collegata, indipendentemente dai criteri inseriti.
Grazie in anticipo e buona serata,
Marzia
--------------------------------
Inviato via
http://usenet.libero.it


title: Attivazione show box queries

text:
"Marzia" <
Ciccio...@libero.it
> ha scritto nel messaggio
news:62Z10Z44Z41Y10...@usenet.libero.it...
> Ciao ragazzi,
>
> e' possibile attivare via codice le show box di una query?
>
> Nella pratica stò creando una maschera di selezione dati e vorrei,
> direttamente dalla maschera, poter decidere che campi mi farà poi vedere
la
> query collegata, indipendentemente dai criteri inseriti.
>
> Grazie in anticipo e buona serata,
>
> Marzia
>
Non sono sicuro di aver capito il tuo problema, ma se vuoi
crearti/modificare dinamicamenta una query, determinando i campi da
visualizzare, i campi su cui ordinare ecc, trovi un esempio di quello che ti
serve sul Sito Comune, nella Sezione Queries mella FAQ intitolata "Come si
può creare in maniera dinamica una query con la tecnica QBF?".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: listbox, listview....selezione record

author: Norica s.c.r.l.

text:
Ho una ListView inserita in una maschera che mi visualizza dei records
provenienti da una tabella [Pippo]
e cè anche il campo "chiave" (ID) [Cliente]....
Vorrei che scrivendo il valore in una casella di testo, sull' evento
ufterupdate della stessa il record venga evidenziato nella ListView....
Se qualcuno lo sa fare anche per la ListBox va bene lo stesso...poi mi
arrangio....
Grazie mille
Ciao


title: listbox, listview....selezione record

author: Maurizio Borrelli

text:
> "Norica s.c.r.l." [...]:
> Ho una ListView inserita in una maschera che mi visualizza dei records
> provenienti da una tabella [Pippo]
> e cè anche il campo "chiave" (ID) [Cliente]....
> Vorrei che scrivendo il valore in una casella di testo,
    Scusa, quale valore? L'ID Cliente?
> sull' evento
> ufterupdate della stessa il record venga evidenziato nella ListView....
> Se qualcuno lo sa fare anche per la ListBox va bene lo stesso...poi mi
> arrangio....
    Poniamo che il tuo Controllo ActiveX di Classe
"MSComctlLib.ListViewCtrl.2" abbia come Nome elemento "lvw1" e che il
Controllo Casella di testo abbia come Nome elemento "txt1". Allora il codice
seguente dovrebbe selezionare l'oggetto Item dell'insieme ListItems di lvw1
la cui proprieta' Key ha valore uguale a quello della proprieta' Value di
txt1:
        With Me
            .lvw1.Object.ListItems.Item(.txt1.Value).Selected = True
        End With
    Come vedi pero' questa tipo di scrittura, oltre che essere lunga, ti
priva della comodita' dell'Intellisense. Per questo motivo preferisco
dichiarare, nel modulo, una variabile oggetto nel modo seguente:
        Option Compare Database: Option Explicit
        Private m_lvw1 As MSComctlLib.ListView
        Private Sub Form_Load()
            Set m_lvw1 = Me.lvw1.Object
        End Sub
        Private Sub Form_Unload( _
          ByRef Cancel As Integer)
            Set m_lvw1 = Nothing
        End Sub
al fine di poter scrivere, coadiuvato dall'Intellisense:
        m_lvw1.ListItems.Item(Me.txt1.Value).Selected = True
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: Auguri a tutti

author: Tecnoricambi Oderzo

text:
Quale assiduo lettore del ng sento il dovere di porgere a tutti i
collaboratori del gruppo i miei più fervidi auguri di Buon Natale e di nuovo
anno.
Mi piacerebbe citare ognuno di Voi, correrei però il rischio di dimenticare
qualcuno.
Grazie comunque a tutti per la fattiva collaborazione.
Claudio


title: Auguri a tutti

text:
"Tecnoricambi Oderzo" <
tecnor...@wind.it.net
> ha scritto nel messaggio
news:a01dfb$101mg$1...@news02.it.net...

Buon Natale a te.
Roberto


title: Auguri a tutti

author: Lucia Rita Carfagno

text:
"Tecnoricambi Oderzo" <
tecnor...@wind.it.net
> ha scritto nel messaggio
news:a01dfb$101mg$1...@news02.it.net...

Grazie e tanti auguri anche a te.
Ciao
Rita


title: Auguri a tutti

author: Ringhitt

text:
Mi unisco ai Vs. auguri. Buon natale a tutti
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:qS1V7.4230$QL2.1...@twister1.libero.it...
>
> "Tecnoricambi Oderzo" <
tecnor...@wind.it.net
> ha scritto nel messaggio
> news:a01dfb$101mg$1...@news02.it.net...
> > Quale assiduo lettore del ng sento il dovere di porgere a tutti i
> > collaboratori del gruppo i miei pių fervidi auguri di Buon Natale e di
> nuovo
> > anno.
> > Mi piacerebbe citare ognuno di Voi, correrei perō il rischio di



title: Auguri a tutti

text:
"Ringhitt" <
dfl.a...@tiscalinet.it
> ha scritto nel messaggio
news:a04b98$ml0$1...@pegasus.tiscalinet.it...
> Mi unisco ai Vs. auguri. Buon natale a tutti
Buon Natale anche a te. :)
Roberto


title: Casella combinata

author: Roby F.

text:
Windows xp e Office 2003.
All'evento "su non in elenco" di una casella combinata ho associato una
macro che mi apre una maschera popup per poter inserire il valore che non è
in elenco.
Quando chiudo la maschera popup e ritorno a inserire i dati nella maschera
precedente come posso aggiornare la casella in modo che contenga il nuovo
valore, senza dover chiudere e riaprire la maschera?
Grazie Roberto


title: Casella combinata