author: Sergio MAZZA

text:
"Claudio" <
cre...@tiscali.it
> ha scritto nel messaggio
news:i8uob.73738$e5.26...@news1.tin.it...
> Salve a tutto il NG è da un pò che non posto
> Mi si presenta questo annoso problema che non mi fa dormire la notte
Pensa un po'...
----- omissis -------
> In soldoni, come posso dare io, senza l'interferenza esterna, il formato
del
> report con i miei margini a prescindere dalla stampante presente e/o
> predefinita
Per i margini non so'; ma se hai la stampante installata puoi cambiarla "al
volo" con lo script:
Dim WshNet As Object
Set WshNet = CreateObject("Wscript.Network")
WshNet.SetDefaultPrinter "HP LaserJet 4100 PCL 6"
Set WshNet = Nothing
> Sperando di essere stato chiaro, attendo vostri prezionsi consigli
> a presto
> Claudio
Ciao.
--
Sergio MAZZA


title: Formato report a prescindere dalla stampante predefinita

author: Claudio

text:
"> Per i margini non so'; ma se hai la stampante installata puoi cambiarla
"al
> volo" con lo script:
> Dim WshNet As Object
> Set WshNet = CreateObject("Wscript.Network")
> WshNet.SetDefaultPrinter "HP LaserJet 4100 PCL 6"
> Set WshNet = Nothing
Grazie, l'ho appena provato, è ottimo, però ahimè mi stampa su 4 etichette
perchè mi vede un formato A4 con margini eccessivi per l'etichetta
Mi sa che questa sera la stampante si farà un volo dalla finestra ;-)
> Ciao.
>
> --
> Sergio MAZZA
Non capisco perchè non posso personalizzarmi un documento per i fatti miei a
prescindere dalla stampante esistente
Mi viene da piangere
Ciao
Claudio


text:
"Claudio" <
cre...@tiscali.it
> ha scritto nel messaggio
news:Xrvob.74129$e5.27...@news1.tin.it...
>
> Grazie, l'ho appena provato, è ottimo, però ahimè mi stampa su 4 etichette
> perchè mi vede un formato A4 con margini eccessivi per l'etichetta
> Mi sa che questa sera la stampante si farà un volo dalla finestra ;-)
Prima hai aperto il report e impostato la stampante?
> Non capisco perchè non posso personalizzarmi un documento per i fatti miei
a
> prescindere dalla stampante esistente
> Mi viene da piangere
Purtroppo non avendo versioni di access superiori al 97 non posso dirti di
più; prova a cercare nei messaggi precedenti (se non l'hai già fatto),
l'argomento è stato trattato così tante volte...
> Ciao



title: Inviare email con allegato da VBA con Outlook Express - PROBLEMA!!!

author: Alessandro Massarenti

text:
In un'applicazione Access2000 devo inviare un messaggio e-mail con un
allegato. Il requisito è che posso usare solo Outlook Express.
Su
www.SitoComune.com
 ho trovato il codice che fa per me (messaggio 6.129 di
Andrea Barchetti che, con l'occasione, ringrazio di cuore).
Sarebbe tutto meraviglioso, vista anche la semplicità estrema
nell'utilizzare la funzione InviaMSOE, che implementa la  MAPISendMail della
libreria c:\programmi\outlook express\msoe.dll
Peccato però che in una certa situazione si verifica un blocco della
funzione.
- Se è attiva una connessione al server di posta oppure se Outlook Express è
al momento impostato su "Non in Linea", tutto OK.
- Se però disgraziatamente Outlook Express è impostato su "In Linea" (perchè
si è usciti così l'ultima volta) e nessuna connessione è al momento attiva
succede il disastro:
la funzione MAPISendMail tenta di eseguire immediatamente "INVIA/RICEVI" e,
in questa situazione, compare la form che avverte di problemi nella
connessione, quindi, anche chiudendo la form, l'applicazione ACCESS rimane
ferma sulla chiamata di MAPISendMail. L'unico modo di uscirne è buttare giù
tutto da task manager!!!
Questo succede immediatamente se si chiama MAPISendMail  senza opzione
MAPI_DIALOG, oppure, se provo con MAPI_DIALOG, non appena l'utente tenta di
premere 'INVIA' sulla form di composizione messaggio di Outlook Express...
D'accordo che si può dire all'utente di verificare che, se la connessione
non è attiva, l'opzione di Outlook "Non in Linea" sia marcata, ma non è
certo un modo elegante di risolvere il problema, anche perchè se scappa,
uccidere brutalmente l'applicazione non fa mai bene.
Ho provato ad aggirare l'ostacolo mettendo una chiamata ad Outlook Express
immediatamente prima della MAPISendMail:
Shell"C:\Programmi\Outlook Express\msimn.exe", vbNormalFocus
in modo che sia Outlook stesso ad accorgersi della presenza o meno di una
connessione attiva, eventualmente proporre la dialog di connessione e quindi
impostare di conseguenza il flag "Non in linea", ma è comunque un rimedio da
poveretti: intanto apro inutilmente Outlook, poi l'utente tonto potrebbe
sempre (se chiamo MAPISendMail con opzione MAPI_DIALOG) modificarla
direttamente dalla form di composizione messaggio e quindi inchiodare tutto
appena prova a fare INVIA...
Qualcuno ha idea di come risolvere il problema???
Mi sono fatto l'idea che il tutto si blocchi perchè il sistema tenta di
visualizzare la dialog di richiesta connessione ma che per qualche motivo
questa rimanga "sotto" a qualcosa; essendo una pop-up a risposta
obbligatoria, se non trovo il modo di rispondere o chiuderla, la chiamata
rimane lì all'infinito...
Possibile che non esista un'alternativa ancora più semplice lasciando la
palla al sistema operativo???
(Docmd.SendObject, il fetente, permette solo l'invio di oggetti Access,
con - ShellExecute 0, "open", "mailto:" & indirizzo@indirizzo, "Testo
Messaggio", 0, 0 - dove lo metto il file da allegare???)
Mi scuso per la lunghezza del messaggio ma ho cercato di descrivere il
meglio possibile la cosa.
Ringrazio in anticipo chi mi può dare una dritta.
Alessandro Massarenti
ale....@katamail.com


author: Gaspare

text:
"Alessandro Massarenti" <
ale....@katamail.com
> ha scritto nel messaggio
news:FpW_d.674621$b5.30...@news3.tin.it...

Ciao,
se vuoi ho 1 applicativo che può fare al caso tuo
Gaspare


text:
"Gaspare" <
gaspar...@tele2.it
> ha scritto nel messaggio
news:1SX_d.1085472$35.40...@news4.tin.it...

Giusto per puntualizzare: te lo spedisco "GRATIS" (se vuoi) l'applicativo e
poi lo implementi o personalizzi a tuo piacimento
Ciao Gaspare


text:
Caro Gaspare,
beh, sei fin troppo gentile.
Lo puoi mandare alla mia casella?
ale....@katamail.com
Grazie e a buon rendere
Ciao
"Gaspare" <
gaspar...@tele2.it
> ha scritto nel messaggio
news:qaY_d.1085568$35.40...@news4.tin.it...



author: Roberto da casa

text:
"Alessandro Massarenti" <
ale....@katamail.com
> ha scritto nel messaggio
news:FpW_d.674621$b5.30...@news3.tin.it...
> In un'applicazione Access2000 devo inviare un messaggio e-mail con un
> allegato. Il requisito è che posso usare solo Outlook Express.
> Su
www.SitoComune.com
 ho trovato il codice che fa per me (messaggio 6.129
di
> Andrea Barchetti che, con l'occasione, ringrazio di cuore).
> Sarebbe tutto meraviglioso, vista anche la semplicità estrema
> nell'utilizzare la funzione InviaMSOE, che implementa la  MAPISendMail
della
> libreria c:\programmi\outlook express\msoe.dll
[SUPERCUT]
Sul Sito Comune oltre alla FAQ 6.129 di Andrea Barchetti trovi molte altre
FAQ che ti permettono di inviare messaggi e-mail con allegati, alcuno non
sono basati su MAPI.
Nellla Sezione General del Sito Comune prova a leggere anche queste altre
FAQ:
1) 6.145 Esempio della gestione di invio di messaggi di posta elettronica
con Access di Alessandro Baraldi
2) 6.88 Inviare e-mail ad una lista di utenti (mailing list) con MSAccess
utilizzando il winsock di Maurizio Cenere
3) 6.77 Inviare e-mail con MSAccess utilizzando il winsock di Paolo Beltrame
4) 6.76 Inviare e-mail con MSAccess utilizzando la libreria mapi32.dll di
Carlo Costarella
Se poi ti va di farti una passeggiata in altri siti, vai al link:
http://www.granite.ab.ca/access/email.htm
Spero che tra tutte le soluzioni ne troverai una che non presenta il difetto
presentato dalla FAQ 6.129 .
> Alessandro Massarenti
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


text:
Grazie, Roberto
le avevo giŕ viste un po' tutte, e quella che mi piaceva di piů era proprio
quella di Andrea Barchetti (che tra l'altro ho poi ritrovato gironzolando
per il link che mi hai passato): non scomoda Outlook/Exchange, presenta il
messaggio prima di inviarlo, il messaggio rimane tra gli spediti in Outlook
Express, non si devono mettere in piedi dei paciughi che vanno dritto al
winsock...insomma, era quello che ci voleva, non fosse per quella schifezza
che combina...
Comunque grazie di nuovo.
Ciao
Alessandro
"Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
news:qNZ_d.2027$IN.4...@twister2.libero.it...
>
> "Alessandro Massarenti" <
ale....@katamail.com
> ha scritto nel messaggio
> news:FpW_d.674621$b5.30...@news3.tin.it...
> > In un'applicazione Access2000 devo inviare un messaggio e-mail con un
> > allegato. Il requisito č che posso usare solo Outlook Express.
> > Su
www.SitoComune.com
 ho trovato il codice che fa per me (messaggio
6.129
> di
> > Andrea Barchetti che, con l'occasione, ringrazio di cuore).
> > Sarebbe tutto meraviglioso, vista anche la semplicitŕ estrema



text:
"Alessandro Massarenti" <
ale....@katamail.com
> ha scritto nel messaggio
news:FpW_d.674621$b5.30...@news3.tin.it...

> CUT
>
> Alessandro Massarenti
>
ale....@katamail.com
>
>
Mi do la risposta da solo, dato che alla fine ci sono saltato fuori e, nel
caso a qualcuno capiti lo stesso problema, può forse evitare di perdere due
o tre giorni e di rompere le scatole al prossimo come il sottoscritto.
L'invio di messaggi con MAPISendMail va in crisi in presenza di Account di
posta definiti con connessione LAN (anche disabilitati) e si sta lavorando
off-line. Questo, almeno, è quello che ho potuto verificare.
In realtà sarebbe stato molto più semplice se avessi letto fin da subito con
più attenzione il messaggio di errore che compariva nel box informativo di
sincronizzazione posta (quello che compare durante la procedura di
"Invia/Ricevi", dopo il quale mi si bloccava tutto). Questo messaggio faceva
riferimento ad un Account di posta che non era quello "vero", cioè a quello
correttamente configurato per accedere ad un server di posta pubblico
tramite connessione remota. In effetti, ne avevo un altro (dimenticato!),
creato tempo fa per fare prove in un'azienda, basato su una connessione LAN
(l'indirizzo dei server POP3 e SMTP era un indirizzo IP di rete privata).
Il fatto strano è che questo account era giustamente disabilitato (il flag
'Includi l'account nella ricezione o sincronizzazione messaggi' era
smarcato), tant'è che nelle normali operazioni di Invia/Ricevi fatte con
Outlook Express non era minimamente preso in considerazione...
Resta il fatto che l'invio di un messaggio tramite la funzione MAPISendMail,
invece, per qualche ragione tentava di utilizzare proprio quell'Account e,
non essoci la sua LAN di riferimento, evidentemente si veniva a creare una
situazione che lo metteva in imbarazzo...
Ho cancellato l'account e tutto magicamente funziona alla perfezione: se
Outlook Express è stato chiuso "in linea" e la connessione al momento non è
attiva, quando invio un messaggio tramite MAPISendMail compare correttamente
la dialog per attivare la connessione; se rifiuto, il messaggio rimane tra
la posta in uscita di Outlook (che viene messo in stato "non in linea").
Ringrazio e saluto di nuovo Gaspare e Roberto per le loro risposte.
Alessandro


text:
"Alessandro Massarenti" <
ale....@katamail.com
> ha scritto nel messaggio
news:Vsi%d.1088870$35.40...@news4.tin.it...
[CUT]
> Mi do la risposta da solo, dato che alla fine ci sono saltato fuori e, nel
> caso a qualcuno capiti lo stesso problema, può forse evitare di perdere
due
> o tre giorni e di rompere le scatole al prossimo come il sottoscritto.
>
> L'invio di messaggi con MAPISendMail va in crisi in presenza di Account di
> posta definiti con connessione LAN (anche disabilitati) e si sta lavorando
> off-line. Questo, almeno, è quello che ho potuto verificare.
>
[CUT]
>
> Alessandro
OK Alessandro,
nel prossimo aggiornamento del Sito Comune inserirò una nota a tuo nome
nella FAQ "6.129 Inviare da codice VBA una e-mail con allegati usando
Outlook Express", nota in cui si spiega quanto hai scritto qui sopra, così
chi userà quella soluzione sarà messo al corrente del fatto.



title: aiuto per inesperto

author: luchetti

text:
ho fatto un database con una semplice tabella, una maschera e un report
(archivio pazienti); fino a 445 record ha stampato tutto; ora anche se
aggiungo pazienti stampa sempre il 445; quale potrebbe essere la causa e
quale il rimedio. Grazie comunque e un saluto a tutti


title: aiuto per inesperto

author: Francesco R.

text:
Per postare su questo NG dovresti seguire le regole che trovi sul sito
www.sitocomune.com
, insieme a moltissimo materiale interessante.
Ciao.


title: query infinite

text:
Salve a tutti,
sono un neofita di access e stò imparando i primi passi ora...ed ecco
subito un piccolo problemino!
Vorrei, se possibile, poter creare una query di richiesta che mi
permetta di richiedere infiniti campi fino a quando non spinga il
pulsante "invio" o altro.
Faccio un esempio:
codice   articolo  famiglia
1           pane      rossi
2           carne     bianchi
3           rose       rossi
4           fragola    verdi
vorrei che la query mi chiedesse la famiglia [famiglia] e che
continuasse fino a quando spingo "invio"(o un altro tasto non
importa).Dimodochè se scrivo "rossi" alla prima richiesta e alla
seconda spingo "invio" mi flitri solo il cod 1 e 3 con relativo
articolo e famiglia, se invece alla prima richiesta scrivo "rossi",
alla seconda richiesta scrivo "bianchi" e alla terza "invio" aggiunge
ai codici precedenti il cod 2...e così via.
Spero di essermi spiegato e che qualcuno raccolga la
richiesta...grazie!
Maurilloh


title: query infinite

author: wlady

text:
mente...@email.it
 ha scritto:

Se ho capito cosa intendi ti consiglio di creare una query di
accodamento.Così facendo richiederai di volta in volta dei records
andandoli ad accodare ad una tabella esistente che potrei creare ad
hoc. Ti faccio un esempio:
INSERT INTO TabellaRisultati ( Codice,Articolo,Famiglia )
SELECT Tabella.Codice, Tabella.Articolo, Tabella.Famiglia
FROM Tabella
WHERE Tabella.Famiglia='Rossi'
Ogni volta che eseguirai questa query, cambiando ovviamente la
condizione WHERE a tuo piacimento, nella tabella TabellaRisultati
verranno accodati i records richiesti. Potresti in altrnativa
utilizzare query di unione, ma dovresti memorizzare tutte le richieste
per poi poter eseguire la query alla fine, in una volta sola.
Ciao


title: query infinite

author: Carlo Costarella

text:
<
mente...@email.it
> ha scritto nel messaggio
news:1156946080.2...@m73g2000cwd.googlegroups.com...
Salve a tutti,
sono un neofita di access e stň imparando i primi passi ora...ed ecco
subito un piccolo problemino!
Vorrei, se possibile, poter creare una query di richiesta che mi
permetta di richiedere infiniti campi fino a quando non spinga il
pulsante "invio" o altro.
Faccio un esempio:
codice   articolo  famiglia
1           pane      rossi
2           carne     bianchi
3           rose       rossi
4           fragola    verdi
vorrei che la query mi chiedesse la famiglia [famiglia] e che
continuasse fino a quando spingo "invio"(o un altro tasto non
importa).Dimodochč se scrivo "rossi" alla prima richiesta e alla
seconda spingo "invio" mi flitri solo il cod 1 e 3 con relativo
articolo e famiglia, se invece alla prima richiesta scrivo "rossi",
alla seconda richiesta scrivo "bianchi" e alla terza "invio" aggiunge
ai codici precedenti il cod 2...e cosě via.
Spero di essermi spiegato e che qualcuno raccolga la
richiesta...grazie!
Maurilloh
[risposta]
Forse sarebbe piů conveniente far scegliere in modo sicuro la o le
"famiglie" all'utente.
Questo perchč cattive digitazioni non sarebbero scoperte...e costringi
l'utente a continue richieste.
Per fare questo potresti usare una casella di riepilogo alimentata dalla tua
tabella e con la selezione impostata su estesa. L'utente seleziona una o piů
"famiglie" e il gioco č fatto. Magari richiede qualche riga di codice ma
l'effetto e il risultato sono professionali.
Che ne pensi?
Ciao, Carlo


title: query infinite

author: maurilloh

text:
grazie per le risposte, ma mi spiego meglio...
sto lavorando su tabelle collegate in una rete aziendale, quindi non
posso assolutamente modificarle, posso solamente collegarle in una
query e filtrare ciò che mi interessa, o creare altre tabelle.
Le famiglie che dovrei richiedere le conosco a priori e per gli errori
non c'è problema (sono l'unico che lo userà). Il fatto poi è che ci
sono qualcosa come 9999 famiglie da gestire, quindi un elenco a discesa
non credo sia proponibile.
finora ho gestito la cosa mettendo nella casella "criteri" della mia
query, sotto il campo "famiglie" il seguente comando: "[Fam1?] Or Is
Null",poi nella casella sotto "oppure": [Fam2?] Or Is Null, e così
via.
questa tabella poi la stampo con un report.
Il fatto è che a volte devo stampare elenchi di una sola famiglia, a
volte di due o tre...insomma non so a priori quante famiglie dovrò
estrapolare.
Volevo quindi sapere (e qui il mio problema), se c'era un modo per
richiedere l'inserimento della/e famiglie che si vuole filtrare in modo
dinamico (poter inserire 1 o n famiglie).
Facile no? :)


title: query infinite

text:
"maurilloh" <
mente...@email.it
> ha scritto nel messaggio
news:1156951445.4...@i42g2000cwa.googlegroups.com...






Facile no? :)
.........................................................
Ho fatto una prova con una tabella ABI volendo cercare uno o più codici
(numerici) ed estrapolato questa funzione che fa più o meno quello che ti
interessa. Crea una query al volo (QryFamiglie) che puoi anche lasciare
salvata o cancellare e che potrai usare a tuo piacimento.
Ovvio che la funzione va opportunamente adattata al tuo caso. Per chiedere
tutti i valori basta digitare "*", per smettere la richiesta basta lasciare
vuota la inputbox.
il valore 13 di: UnaStringa = Mid(UnaStringa, 1, Len(UnaStringa) - 13) &
"));" va opportunamente modificato secondo le tue esigenze.
Public Function UnaStringa() As String
Dim inpu As String
Dim Qdf As QueryDef
UnaStringa = "SELECT Abi.Abi, Abi.Descrizione FROM Abi WHERE (((Abi.Abi)"
inpu = " "
While inpu <> ""
inpu = InputBox("Inserisci un nome famiglia (* per tutte)", "Famiglie da
filtrare", "")
If inpu = "*" Then
UnaStringa = "SELECT Abi.Abi, Abi.Descrizione FROM Abi WHERE (((Abi.Abi)
Like" & "'" & "*" & "'" & "));"
End If
If inpu <> "" Then
UnaStringa = UnaStringa & "=" & CLng(inpu) & " or (Abi.Abi)"
End If
Wend
If Mid(UnaStringa, Len(UnaStringa), 1) = ")" Then
UnaStringa = Mid(UnaStringa, 1, Len(UnaStringa) - 13) & "));"
End If
On Error Resume Next
  Set Qdf = CurrentDb.QueryDefs("QryFamiglie")
  Select Case Err
    Case 0 'nessun errore, aggiorna l'espressione SQL nella query e la
esegue
      Qdf.SQL = UnaStringa
      Qdf.Close
      DoCmd.OpenQuery "QryFamiglie" 'apre la query
    Case 3265 'query non trovata, quindi la crea
      Err.Clear 'errore gestito
      Set Qdf = CurrentDb.CreateQueryDef("QryFamiglie")
      If Err <> 0 Then
       MsgBox Error$ 'errore nella creazione
      Else
       Qdf.SQL = UnaStringa
       Qdf.Close
       DoCmd.OpenQuery "QryFamiglie"
      End If
    Case Else 'altri errori
      MsgBox Err & " : " & Error$
    End Select
Exit Function
End Function
Fammi sapere,
Ciao, Carlo


title: query infinite

text:

.............................................................................................
Grazie mille Carlo...però come ho detto da primo post sono un neofita
di access e non so dove mettere le mani.
Mi potresti spiegare un po meglio dove devo incollare questa funzione?
va in una query, in una maschera, in un report...e dove di preciso?
Scusami se sono domande sciocche ma sarebbe un peccato non riuscire
adesso che ho la soluzione tra le mani solo perchè non so dove
applicarla.
grazie.
ciao, Mauro


title: query infinite

text:
"maurilloh" <
mente...@email.it
> ha scritto nel messaggio
news:1157008528.5...@m79g2000cwm.googlegroups.com...

.............................................................................................


grazie.
ciao, Mauro
...............................................................
Credo che per un neofita sia una cosa piuttosto dura.
Sinceramente sarebbe estremamente lungo e difficile entrare nel merito di
funzioni, moduli, cicli, querydef, recordset ecc.
Tutte le funzioni possono essere pubbliche o private e possono risiedere in
moduli propri di maschere o report, oppure risiedere in oggetti modulo a se
stanti.
La funzione proposta deve risiedere in un modulo pubblico a se stante e può
essere "chiamata" da un pulsante in una maschera o in seguito ad eventi di
un qualche controllo o da una macro.
La funzione crea una querydef che può essere salvata e utilizza dati
numerici come criterio.
Detto questo mi sembra che più in là non si possa andare. Tocca studiare o
farsi affiancare da un tutor con esperienza di programmazione.
Se poi, strada facendo, hai delle domande, postale pure che io o altri ti
daranno una mano.
Ciao, Carlo


title: query infinite

text:

allora......mi rinbocco le maniche e mi metto a studiare un pò!
Grazie mille del tuo aiuto Carlo.
ciao, Mauro


title: query infinite

text:
<
mente...@email.it
> ha scritto nel messaggio
news:1156946080.2...@m73g2000cwd.googlegroups.com...
Salve a tutti,
sono un neofita di access e stň imparando i primi passi ora...ed ecco
subito un piccolo problemino!
Vorrei, se possibile, poter creare una query di richiesta che mi
permetta di richiedere infiniti campi fino a quando non spinga il
pulsante "invio" o altro.
Faccio un esempio:
codice   articolo  famiglia
1           pane      rossi
2           carne     bianchi
3           rose       rossi
4           fragola    verdi
vorrei che la query mi chiedesse la famiglia [famiglia] e che
continuasse fino a quando spingo "invio"(o un altro tasto non
importa).Dimodochč se scrivo "rossi" alla prima richiesta e alla
seconda spingo "invio" mi flitri solo il cod 1 e 3 con relativo
articolo e famiglia, se invece alla prima richiesta scrivo "rossi",
alla seconda richiesta scrivo "bianchi" e alla terza "invio" aggiunge
ai codici precedenti il cod 2...e cosě via.
Spero di essermi spiegato e che qualcuno raccolga la
richiesta...grazie!
Maurilloh
[risposta]
Puoi utilizzare l'istruzione In (in SQL) per construirti la condizione
Where;
es.
Select * From nomeTabella Where famiglia In ('Rossi','verdi')
Quindi se nella casella di testo (chiamata: testoDaCercare) ci scrivi:
Rossi,Verdi
nell'evento "su clic" di un bottone (lascia perdere l'invio) potresti
scrivere il codice VBA:
es.
'---
Dim strWhere As String
If InStr(1, Me!testoDaCercare, ",") > 0 Then
    strWhere= "famiglia In ('" & Replace(Me!testoDaCercare, ",", "','", 1) &
"')"
Else
    strWhere = "famiglia = '" & Me!testoDaCercare& "'"
End If
'<-- qui istruzioni per filtrare
'---
Poi se utilizzi una sottomaschera per vedere i dati puoi filtrarla in questo
modo:
Me!nomeSottomaschera.form.filter = strWhere
Me!nomeSottomaschera.form.FilterOn = True
Ciao.
--
Sergio MAZZA


title: [MS SQL] ordinare una tabella pivot

author: Ammammata

text:
Ho adattato una semplice query che crea una tabella pivot, mettendo il
codice prodotto sulle righe, i vari listini nelle colonne e il prezzo
nelle caselle; fin qui tutto ok, funziona

ora però vorrei che i codici dei prodotti venissero ordinati
(crescente) ma non capisco dove infilare sto benedetto ORDER BY

la tabella base (per eventuali prove) è la ITM1 di SAP Business One

ho provato a mattere ORDER BY nella query iniziale:
    SELECT ItemCode, Price, PriceList as PL
    FROM   ITM1
    ORDER BY ItemCode
ma dà errore:

Msg 1033, Level 15, State 1, Line 32
The ORDER BY clause is invalid in views, inline functions, derived
tables, subqueries, and common table expressions, unless TOP, OFFSET or
FOR XML is also specified.

ho provato a metterlo più sotto:
	SELECT t.ItemCode, t.Price, t.PL
	FROM   #tmp1 t
     ORDER BY ItemCode

ma dà lo stesso errore

altro non mi viene in mente, se non di preordinare la tabella ITM1 con
una query da usare poi nei passi successivi, oppure di dirottare
l'output del codice SQL finale in una seconda tabella temporanea per
poi rileggerla ordinata come vorrei, ma entrambe le "soluzioni", sempre
che funzionino, mi sembrano giri astrusi

quindi chiedo a voi: dove posso mettere ORDER BY, se si può metterlo?

/*
Query a campi incrociati
estrae i listini e li incasella per listino e prodotto
*/

-- query pivot con costruzione della lista dei campi (colonne) con
numero listino

DECLARE
  @columns NVARCHAR(MAX) = '',
  @sqlcmd  NVARCHAR(MAX) = ''

-- seleziona i listini da incolonnare
SELECT   @columns+=QUOTENAME(PriceList) + ','
FROM     ITM1
GROUP BY PriceList
ORDER BY PriceList;

-- toglie l'ultima virgola
SET @columns = LEFT(@columns, LEN(@columns) - 1)

-- crea tabella temporanea
-- versione con solo il codice prodotto e il prezzo
SELECT * into #tmp1 from
    (
    SELECT ItemCode, Price, PriceList as PL
    FROM   ITM1
	) tmp1

-- costruisce SQL, presa da
https://stackoverflow.com

SET @sqlcmd ='
	SELECT * FROM
	(
		SELECT t.ItemCode, t.Price, t.PL
		FROM   #tmp1 t
	) t
	PIVOT(
		MAX(t.Price)
		FOR t.PL IN ('+ @columns +')
	) AS pivot_table;
	';

-- esegue il codice SQL con output a video
EXECUTE sp_executesql @sqlcmd

-- rilascia la tabella temporanea
drop table #tmp1

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-


title: [MS SQL] ordinare una tabella pivot

author: BFS

text:

cambia qualcosa se metti

  SELECT  top 100 percent ItemCode, Price, PriceList as PL
     FROM   ITM1
     ORDER BY ItemCode

BFS


title: [MS SQL] ordinare una tabella pivot

text:
Il /11 Oct 2022/, *BFS* ha scritto:

> Msg 1033, Level 15, State 1, Line 32
> The ORDER BY clause is invalid in views, inline functions, derived
> tables, subqueries, and common table expressions, unless TOP,
> OFFSET or FOR XML is also specified.

>> SELECT * into #tmp1 from
>>      (
>>      SELECT ItemCode, Price, PriceList as PL
>>      FROM   ITM1
>>      ) tmp1

> cambia qualcosa se metti
>
>   SELECT  *top 100 percent* ItemCode, Price, PriceList as PL
>      FROM   ITM1
>      *ORDER BY ItemCode*

sì, non dà più errore :)
se tolgo "top 100 percent" si ripresenta

mah, misteri di SQL

grazie



title: [MS SQL] ordinare una tabella pivot

text:
Il 11/10/2022 17:38, Ammammata ha scritto:
> Il /11 Oct 2022/, *BFS* ha scritto:
>
>
>> Msg 1033, Level 15, State 1, Line 32
>> The ORDER BY clause is invalid in views, inline functions, derived
>> tables, subqueries, and common table expressions, unless TOP,
>> OFFSET or FOR XML is also specified.
>
>
>>> SELECT * into #tmp1 from
>>>       (
>>>       SELECT ItemCode, Price, PriceList as PL
>>>       FROM   ITM1
>>>       ) tmp1
>
>> cambia qualcosa se metti
>>
>>    SELECT  *top 100 percent* ItemCode, Price, PriceList as PL
>>       FROM   ITM1
>>       *ORDER BY ItemCode*
>
> sì, non dà più errore :)
> se tolgo "top 100 percent" si ripresenta
>
> mah, misteri di SQL
>
> grazie
>
>

non è che sia un mistero eh :-)

metti su google quel "The ORDER BY clause is invalid in views, inline
functions, derived
tables, subqueries, and common table expressions, unless TOP,
OFFSET or FOR XML is also specified"

e avrai la spiegazione tecnica

BFS


title: [MS SQL] ordinare una tabella pivot

text:
Il /11 Oct 2022/, *BFS* ha scritto:

> e avrai la spiegazione tecnica
>

ok, ma se il default è tirar fuori tutti i record (quando non specifico
nulla) perché la cosa non funziona se non glielo dico esplicitamente?
non voglio una risposta, sottolineo una "stranezza"



title: Creare paricolari funzioni

author: Videosound

text:
Vi chiedo se è possibile creare un campo che
elabori

un altro campo....Faccio un esempio..

Campo 1

ALBERO

CASA

FUOCO

vorrei che il campo 2 mi estragga
automaticamente

Campo 2

AL

CA

FU

cioe' mi estragga le prime due lettere del
campo

Andando su tipo di dati- valore predefinito o visto
che ci

sono diferse funzioni matematiche, logiche ...
però non ho idea di come poterle utilizare..

Esiste poi una funzione che mi genera un numero
casuale cio la classica funzione

random

grazie mille....


title: Creare paricolari funzioni

author: Silvio Berruti

text:
"Videosound" <
video...@tiscalinet.it
> ha scritto nel messaggio
news:8tu1sh$lqf$1...@lacerta.tiscalinet.it...


1°) innanzi tutto ti prego di non postare in HTML;
2°) poiché presumo che tu voglia operare dentro a maschere o a report, sappi
che non ci sono campi (riservati alle tabelle), ma controlli;
3°) puoi farti funzioni personalizzate quante e come vuoi: nel tuo caso vai
a vedere Left nella guida in linea (F1);
4°) sempre premendo F1 vai a cercare Rnd e Randomize.
Ciao
--
Silvio
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access


title: Creare paricolari funzioni

author: Riccardo

text:
Videosound <
video...@tiscalinet.it
>
  wrote in message
8tu1sh$lqf$1...@lacerta.tiscalinet.it
...

#####

con la funzione Left$(nomecampo,2)

Riccardo


title: Creare paricolari funzioni

text:
Riccardo <
ricc...@free.panservice.it
> wrote in message
8tu53e$rk0$1...@news.panservice.it...
Videosound <
video...@tiscalinet.it
> wrote in message
8tu1sh$lqf$1...@lacerta.tiscalinet.it...
Vi chiedo se č possibile creare un campo che elabori
un altro campo....Faccio un esempio..
Campo 1
ALBERO
CASA
FUOCO
vorrei che il campo 2 mi estragga automaticamente
Campo 2
AL
CA
FU
cioe' mi estragga le prime due lettere del campo
Andando su tipo di dati- valore predefinito o visto che ci
sono diferse funzioni matematiche, logiche ... perň non ho idea di come
poterle utilizare..
Esiste poi una funzione che mi genera un numero casuale cio la classica
funzione
random
grazie mille....
#####
con la funzione Left$(nomecampo,2)
Riccardo
Scusami ma visto che č da poco tempo che sto cercando di imparare access
vorrei che fossi un po piů esplicito grazie...
saresti di grande aiuto.....


title: Creare paricolari funzioni

text:
Videosound <
video...@tiscalinet.it
> wrote in message
8tuikm$11o$1...@lacerta.tiscalinet.it...

___
Hai una maschera contenente una casella di testo che ha come origine
controllo il tuo famoso Campo 1;
accanto ci posizioni un'altra casella di testo e nell'origine controllo ci
scrivi:
=Left$([Campo 1];2)
Riccardo


title: Estrapolare una parte di una stringa.

author: Alfio

text:
Buongiorno,
vorrei un aiuto nella giusta sintassi della funzione instr.
Devo estrapolare da questa stringa:

\\Pc-Server\gestione archivi easyfatt\SRL - Allegati\Prod\ITW4208I -- 000 (54).bmp

questa stringa:

"ITW4208I -- 000 (54).bmp".

Quindi da destra verso sinistra fino al primo slash.

Grazie


title: Estrapolare una parte di una stringa.

author: Karl Donaubauer

text:

Dove? Codice, query, espressione? In principio:

Mid(TuaStringa, InstrRev(TuaStringa,"\")+1)

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

Access Lobby:
http://www.AccessDevelopers.org


title: Estrapolare una parte di una stringa.

text:

In una query,

grazie Karl.


title: Ancora Utente Access e Dominio Windows

author: Checco

text:
Ciao a tutti,
ho questo codice che mi ha gentilmente postato MAssimiliano, ma non riesco a
eseguirlo correttamente! Cosa dovrei fare esattamente per visualizzare il
nome di dominio su una maschera ACCESS?
Grazie mille
Private Declare Function api_GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function api_GetComputerName Lib "Kernel32" Alias _
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function CNames(UserOrComputer As Byte) As String
'UserorComputer; 1=User, anything else = computer
Dim NBuffer As String
Dim Buffsize As Long
Dim Wok As Long
Buffsize = 256
NBuffer = Space$(Buffsize)
If UOrC = 1 Then
Wok = api_GetUserName(NBuffer, Buffsize)
CNames = Trim$(NBuffer)
Else
Wok = api_GetComputerName(NBuffer, Buffsize)
CNames = Trim$(NBuffer)
End If
End Function
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Ancora Utente Access e Dominio Windows

author: MA

text:
"Checco" <
fra....@libero.it
> ha scritto nel messaggio
news:217Z59Z54Z60Y1...@usenet.libero.it...
> Ciao a tutti,
> ho questo codice che mi ha gentilmente postato MAssimiliano, ma non riesco
a
> eseguirlo correttamente! Cosa dovrei fare esattamente per visualizzare il
> nome di dominio su una maschera ACCESS?
>
> Grazie mille
Ciao Checco, impara a leggere le funzioni.
Queste sono le librerie necessarie.
Vanno inserite in testa a tutto il modulo
Potresti avere diverse librerie richiamate per funzioni diverse, ma tutte
devono essere inserite
in testa
> Private Declare Function api_GetUserName Lib "advapi32.dll" Alias _
> "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
> Private Declare Function api_GetComputerName Lib "Kernel32" Alias _
> "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Qui comincia la funzione che ti serve e che puoi richiamare nelle query o
nelle maschere o report
Public: vale per tutto il progetto
Function: e che te lo dico a fare
CName: è il nome della funzione che dovrai richiamare quando serve
(...) tra le parentesi ci può essere o meno un argomento cioè un valore che
devi passargli a meno che non ci sia Optional (vedi per esempio la funzione
di arrotondamento Fctround di Karl)
In questo caso c'è e ti dice che vuole un valore byte (infatto a lui servirà
Uorc = 1 o nulla)
> Public Function CNames(UserOrComputer As Byte) As String
Qui sei fortunato perchè è commentata la soluzione
1 avrai lo user
Nullo avrai il nome del pc
> 'UserorComputer; 1=User, anything else = computer
>
> Dim NBuffer As String
> Dim Buffsize As Long
> Dim Wok As Long
>
> Buffsize = 256
> NBuffer = Space$(Buffsize)
>
>
> If UOrC = 1 Then
> Wok = api_GetUserName(NBuffer, Buffsize)
> CNames = Trim$(NBuffer)
> Else
> Wok = api_GetComputerName(NBuffer, Buffsize)
> CNames = Trim$(NBuffer)
> End If
> End Function
>
Alla fine tu avrai nella maschera che ti interessa
Private Sub Form_Load()
Me.Testo0 = CNames(uorc = 1)
End Sub
e così sai il tuo user.
MAssimiliano


title: Ancora Utente Access e Dominio Windows

text:

Massimiliano non ho parole! Sei stato davvero gentilissimo (come al solito)!
:o)
Il fatto è che ci sto entrando adesso nella parte "codice" e non ho molto
tempo per l'autoformazione con tutti i casini anziandali che ci sono...
Ti ringrazio ancora!
Ciao
Francesco



title: Report guida telefonica

author: RobertOne

text:
Salve a tutto il n.g.
Premetto che sono un neofita per l'applicativo in oggetto. Ho creato una
guida telefonica dove ho inserito tutti i numeri di telefono che avevo nella
medesima ma in formato cartaceo. Ora dovrei effettuare la stampa degli
utenti in questione. Logicamente devo ragruppare gli utenti in ordine
alfabetico e poter scegliere se stampare tutte le pagine della lettara A, B,
etc.
Avevo iniziato con il creare delle query che avrei richiamato nei report,
query con il criterio Like "a*", Like "b*" etc. ma un amico mi ha detto che
c'č di meglio. Si puň creare un report che raggruppi gli abbonati. Ma poi
come faccio per stampare gli abbonati del gruppo A o del gruppo B per
esempio?
Grazie per l'attenzione.
Rob.


title: Report guida telefonica

author: Antonio Biso

text:
"RobertOne" <
robe...@robort.it
> ha scritto nel messaggio
news:ZGZQd.907945$35.34...@news4.tin.it...

Prepara una query sulla tabella contenente anche un campo calcolato fatto
cosě
Iniziale: left(cognome;1)
Nel report fai un raggruppamento sul campo calcolato: ci metti
nell'intestazione di gruppo il campo calcolato, quindi l'iniziale.
Nel pič di gruppo metti un salto pagina, oppure un rigone grosso che divide
i gruppi.
Poi ti prepari una maschera, ci metti per esempio una casella di testo dove
metterai una lettera oppure tanti interruttori mutuamente esclusivi per ogni
lettera dell'alfabeto.
poi con un pulsante lanci il report con docmd.openreport e, nel punto del
parametro criteriWHERE (vedi help su openreport), metterai:
- niente se nella casella non č stato scritto niente oppure se non č stato
premuto nessun interruttore, oppure č stato premuto l'interruttore "tutti".
- la stringa "Iniziale = '" & valoreletterascelta & "'" che ti filtra
l'iniziale scelta
Antonio


title: VBA: problem with recordset

author: sdamy

text:
Ciao a tutti
Dovrei confrontare il contenuto del recordset rsAfter con il recodset tmp
ovvero estrarre tutti i record comuni ai due recordset. Come posso fare?
CODICE:
Set dbs = CurrentDb
Set loqd = dbs.QueryDefs("qry_anacli")
stSQL = "SELECT * FROM anacli"
loqd.SQL = stSQL
Set rsBefore = loqd.OpenRecordset(dbOpenDynaset)
rsBefore.Filter = "statgiur like '" &
Forms!scheda_work_portafoglio!persona_tipo & "'"
Set tmp = dbs.OpenRecordset("polcli")
Set rsAfter = rsBefore.OpenRecordset()
GRAZIE!
SDAMY


title: VBA: problem with recordset

text:
sdamy <
sd...@tiscalinet.it
> wrote in message
IpTD6.428$o3....@news2.tin.it...



title: VBA: problem with recordset

text:
Antonio Biso <
ch...@etruria.net
> wrote in message
CdXD6.60115$s93.6...@news.infostrada.it...

Secondo me stai a fa un sacco di giri inutili.
Invece di dare la tua soluzione, perchè non provi a spiegare che cosa
vorresti fare?
Antonio


title: VBA: problem with recordset

text:
Antonio Biso <
ch...@etruria.net
> wrote in message
TgXD6.60132$s93.6...@news.infostrada.it...

In sintesi voglio costriure una maschera "parametrica" con parecchi
controlli, caselle combinate e caselle di riepilogo. Impostando tali
controlli voglio che la maschera mi restituisca i clienti che soddisfano i
parametri impostati sulla maschera. All'inizio me la cavavo utilizzando una
query collegata ai parametri della maschera... ma la cosa è diventata
ingestibile ed ora vorrei utilizzare il codice per rendere la cosa piu
strtutturata, performante e manipolabile a mio piacimento.
Volevo quindi utilizzare il comando filter per "scremare" i vari recordset
secondo i parametri della maschera e alla fine congiungere il risultato nei
recordset per tenere solo i dati comuni (il codice sopra è solo uno
spezzone.... per la tipologia del progetto ho bisogno di usare 4 recordset,
scremarli secondo dei parametri e poi fare il join di tutti e 4)
Se puoi darmi una dritta mi faresti un grosso piacere... stanotte alle ore
1:30 mi sono arreso.. non riesco a legare i vari recordset..
GRAZIE CIAO


title: VBA: problem with recordset

text:
sdamy <
sd...@tiscalinet.it
> wrote in message
DxXD6.968$2l.2...@news1.tin.it...
>
>
> In sintesi voglio costriure una maschera "parametrica" con parecchi
> controlli, caselle combinate e caselle di riepilogo. Impostando tali
> controlli voglio che la maschera mi restituisca i clienti che soddisfano i
> parametri impostati sulla maschera. All'inizio me la cavavo utilizzando
una
> query collegata ai parametri della maschera... ma la cosa è diventata
> ingestibile ed ora vorrei utilizzare il codice per rendere la cosa piu
> strtutturata, performante e manipolabile a mio piacimento.
>
> Volevo quindi utilizzare il comando filter per "scremare" i vari recordset
> secondo i parametri della maschera e alla fine congiungere il risultato
nei
> recordset per tenere solo i dati comuni (il codice sopra è solo uno
> spezzone.... per la tipologia del progetto ho bisogno di usare 4
recordset,
> scremarli secondo dei parametri e poi fare il join di tutti e 4)
>
> Se puoi darmi una dritta mi faresti un grosso piacere... stanotte alle ore
> 1:30 mi sono arreso.. non riesco a legare i vari recordset..
Io non uso mai i filter. Se devo fare una maschera parametrica uso due
strade:
1) o preparo una query, definita una volta per tutte, che abbia una serie di
criteri like sotto i campi corrispondenti ai controlli della maschera su cui
filtrare. Ogni criterio è fatto in questo modo
like nz([forms]![miaform]![miocontrollo];"*")
in modo che se nel controllo non c'è scritto nulla, restituisce tutti i
valori con like "*".
2) Oppure mi costruisco da codice una stringa SQL andando a testare dove ci
sono i valori nei controlli filtro e scrivendo criteri WHERE in
corrispondenza dei campi associati. Poi assegno la stringa al controllo
(tipo una sottomaschera o una casella di riepilogo) o alla maschera stessa
se è legata, ad ogni evento dopo aggiornamento dei controlli filtro.
Questo lo puoi fare anche se devi avere 4 origine dati diverse (e questo, ti
dico, continua sempre e comunque a suonarmi strano!!!)
Antonio


title: VBA: problem with recordset

text:
> 1) o preparo una query, definita una volta per tutte, che abbia una serie
di
> criteri like sotto i campi corrispondenti ai controlli della maschera su
cui
> filtrare. Ogni criterio è fatto in questo modo
> like nz([forms]![miaform]![miocontrollo];"*")
> in modo che se nel controllo non c'è scritto nulla, restituisce tutti i
> valori con like "*".
A questa buona idea non ci avevo pensato!
Ma sei il vero Biso o il falso?
Altrimenti non la scopiazzo.
Ale


title: VBA: problem with recordset

text:
Ale@Work <
alessand...@softhome.net
> wrote in message
9c8hul$c8i24$1...@ID-15127.news.dfncis.de...

Vero, vero...
Il falso è una zappa sparacavolate trolleggiante.
Antonio


title: VBA: problem with recordset

text:
Antonio Biso <
ch...@etruria.net
> wrote in message
bmwF6.6553$PE.6...@news.infostrada.it
...

Ciao antonio.... alla fine ho preso la strada delle
querydef+stringhe SQL... è stata dura ma ci son riuscito...

Il problema non era di avere 4 origini di dati
diverse ma di vedere lo stesso archivio sotto 4 ottiche diverse....

Alla fine ho creato le "4 ottiche" e le ho unite
alla fine....

Il mio prox obiettivo unificare il tutto
con un'unica grossa stringa SQL.... ma per ora il mio cervelletto non
ci arriva...

vorrei provarci ma penso di
fonderlo....

Se hai voglia di dargli un'occhiata al codice....
è  in allegatoo

GRAZIE 10000

CIAO CIAO
DAMIANO

Private Sub calcola_dati_Click()
Dim stSQL As
String
Dim loqd As QueryDef

' (((Polcli.scad) Between
[forms]![scheda_work_portafoglio]![data_inizio] And
[forms]![scheda_work_portafoglio]![data_fine])

' Costruzione stringa sql da parametri maschera per
Portafoglio AUTO

If Forms!scheda_work_portafoglio!auto_tipo = "*"
Then
stSQL = "select npc from anacli"
Else
    If
Forms!scheda_work_portafoglio!auto_tipo = "SI"
Then
        If
Forms!scheda_work_portafoglio!categoria_scelta_auto = "*"
Then
        stSQL = "select npc from
polcli where ((ramo ='031') or (ramo ='032') or (ramo ='013')) and (motstor is
null) and ( scad between Forms!scheda_work_portafoglio!data_inizio and
Forms!scheda_work_portafoglio!data_fine) group by
npc"

Else
            If
Forms!scheda_work_portafoglio!categoria_scelta_auto = "SI"
Then
            stSQL
= "select npc from polcli where ((ramo ='031') or (ramo ='032') or (ramo
='013')) and (categ in  (" & Me!txt_categ & ")) and (motstor is
null) and ( scad between Forms!scheda_work_portafoglio!data_inizio and
Forms!scheda_work_portafoglio!data_fine) group by
npc"

Else

stSQL = "select npc from polcli where ((ramo ='031') or (ramo ='032') or (ramo
='013')) and (categ not in  (" & Me!txt_categ & ")) and (motstor is
null) and ( scad between Forms!scheda_work_portafoglio!data_inizio and
Forms!scheda_work_portafoglio!data_fine) group by
npc"
            End
If
        End
If

Else
            stSQL
= "select npc from polcli where ((ramo <>'031') and (ramo <>'032')
and (ramo <>'013')) and (motstor is null) and ( scad between
Forms!scheda_work_portafoglio!data_inizio and
Forms!scheda_work_portafoglio!data_fine) group by npc"
    End
If
End If

' Aggancio stringa sql alla
query "po_auto"

Set loqd =
CurrentDb.QueryDefs("po_auto")
loqd.SQL = stSQL
loqd.Close

' Costruzione stringa sql da parametri maschera per
Portafoglio VITA

If Forms!scheda_work_portafoglio!vita_tipo = "*"
Then
stSQL = "select npc from anacli"
Else
    If
Forms!scheda_work_portafoglio!vita_tipo = "SI"
Then
        If
Forms!scheda_work_portafoglio!categoria_scelta_vita = "*"
Then
        stSQL = "select npc from
polcli where ((ramo ='081') or (ramo ='086') or (ramo ='090')) and (motstor is
null) and ( scad between Forms!scheda_work_portafoglio!data_inizio and
Forms!scheda_work_portafoglio!data_fine) group by
npc"

Else
            If
Forms!scheda_work_portafoglio!categoria_scelta_vita = "SI"
Then
            stSQL
= "select npc from polcli where ((ramo ='081') or (ramo ='086') or (ramo
='090')) and (categ in  (" & Me!txt_categ_vita & ")) and (motstor
is null) and ( scad between Forms!scheda_work_portafoglio!data_inizio and
Forms!scheda_work_portafoglio!data_fine) group by
npc"

Else

stSQL = "select npc from polcli where ((ramo ='081') or (ramo ='086') or (ramo
='090')) and (categ not in  (" & Me!txt_categ_vita & ")) and
(motstor is null) and ( scad between Forms!scheda_work_portafoglio!data_inizio
and Forms!scheda_work_portafoglio!data_fine) group by
npc"
            End
If
        End
If

Else
            stSQL
= "select npc from polcli where ((ramo <>'081') and (ramo <>'086')
and (ramo <>'090')) and (motstor is null) and ( scad between
Forms!scheda_work_portafoglio!data_inizio and
Forms!scheda_work_portafoglio!data_fine) group by npc"
    End
If
End If

' Aggancio
stringa sql alla query "po_vita"

Set loqd =
CurrentDb.QueryDefs("po_vita")
loqd.SQL = stSQL
loqd.Close

' Costruzione stringa sql da parametri maschera per
Portafoglio DANNI

If Forms!scheda_work_portafoglio!Danni_tipo = "*"
Then
stSQL = "select npc from anacli"
Else
    If
Forms!scheda_work_portafoglio!Danni_tipo = "SI"
Then
        If
Forms!scheda_work_portafoglio!categoria_scelta_danni = "*"
Then
        stSQL = "select npc, ramo
from polcli where ((ramo <>'031') and (ramo <>'032') and (ramo
<>'013')and (ramo <>'081') and (ramo <>'086') and (ramo
<>'090')) and (motstor is null) and ( scad between
Forms!scheda_work_portafoglio!data_inizio and
Forms!scheda_work_portafoglio!data_fine) group by npc,
ramo"

Else
            If
Forms!scheda_work_portafoglio!categoria_scelta_danni = "SI"
Then
            stSQL
= "select npc, ramo from polcli where ((ramo ='031') or (ramo ='032') or (ramo
='013')) and (categ in  (" & Me!txt_categ_danni & ")) and (motstor
is null) and ( scad between Forms!scheda_work_portafoglio!data_inizio and
Forms!scheda_work_portafoglio!data_fine) group by npc,
ramo"

Else

stSQL = "select npc, ramo from polcli where ((ramo ='031') or (ramo ='032') or
(ramo ='013')) and (categ not in  (" & Me!txt_categ_danni & ")) and
(motstor is null) and ( scad between Forms!scheda_work_portafoglio!data_inizio
and Forms!scheda_work_portafoglio!data_fine) group by npc,
ramo"
            End
If
        End
If

Else
            stSQL
= "select npc, ramo from polcli where ((ramo ='031') or (ramo ='032') or (ramo
='013') or (ramo ='081') or (ramo ='086') or (ramo ='090')) and (motstor is
null) and ( scad between Forms!scheda_work_portafoglio!data_inizio and
Forms!scheda_work_portafoglio!data_fine) group by npc,
ramo"
    End If
End If

'
Aggancio stringa sql alla query "po_danni"

Set loqd =
CurrentDb.QueryDefs("po_danni")
loqd.SQL = stSQL
loqd.Close

' Gestione RAMI integrata nella query def
"po_danni" precedentemente creata

If Forms!scheda_work_portafoglio!ramo_scelto = "*"
Then
        stSQL = "select npc from
po_danni"

Else
            If
Forms!scheda_work_portafoglio!ramo_scelto = "SI"
Then
            stSQL
= "select npc from po_danni where ramo in  (" & Me!txt_rami & ")
group by
npc"

Else

stSQL = "select npc from po_danni where ramo not in  (" & Me!txt_rami
& ") group by
npc"
            End
If
End If

' Aggancio stringa sql alla query
"po_danni_rami"

Set loqd =
CurrentDb.QueryDefs("po_danni_rami")
loqd.SQL =
stSQL
loqd.Close

QUERY DI UNIONE
FINALE

SELECT [cognome1] & " " & [nome1] AS
nominativo, Anacli.indir1, Anacli.numciv1, Anacli.cap1, Anacli.citta1,
Anacli.prov1, Anacli.tel1
FROM ((Anacli LEFT JOIN po_auto ON Anacli.npc =
po_auto.npc) LEFT JOIN po_vita ON Anacli.npc = po_vita.npc) LEFT JOIN
po_danni_rami ON Anacli.npc = po_danni_rami.npc
WHERE (((po_auto.npc) Is Not
Null) AND ((po_vita.npc) Is Not Null) AND ((po_danni_rami.npc) Is Not
Null));


title: Nome Utente

author: Giorgiomur

text:
Salve

Per visulizzare il nome utente in una maschera di access utilizzavo in una
casella di testo

=Environ("Username")

In access 2012 non funziona....

e' cambiato qualcosa ?

grazie

ciao
Giorgio

--

questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Nome Utente

text:
Giorgiomur wrote:
> Per visulizzare il nome utente in una maschera di access utilizzavo
> in una casella di testo
>
> =Environ("Username")
>
> In access 2012 non funziona....
>
> e' cambiato qualcosa ?

Che cosa è "Access 2012"?
Cosa succede?

In alternativa puoi usare una delle funzioni API:

Ottenere il nome utente/computer di rete
http://www.donkarl.com/it?FAQ2.24

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


title: ACCESS --> VISUAL BASIC

author: Marco

text:
Salve a tutti, qualcuno sa dirmi se esiste un modo per trasformare un
programma fatto in access, in uno fatto in visualbasic, perchè non ho tempo
di rifarmi completamente tutte le maschere.
Probabilmente è una cosa assurda e impossibile ma io chiedo lo stesso.
Grazie a chi mi risponderà!
Ciao Marco


title: ACCESS --> VISUAL BASIC

author: oliones

text:
Marco <
alfalink...@libero.it
> wrote in message
max47.15525$m06.6...@news.infostrada.it...

ci sono dei software appositi ma da quello che ho sentito non ne vale la
pena fai prima a riscrivere il tutto (al limite copi ciò che è possibile)


title: Errore di Microsoft jet su query

text:
Scusate ho un problema con una  applicazione access dove gli utenti fanno
login attraverso una query che verifica l'utente e la password ed apre
determinate maschere in caso di accesso corretto.
Il problema è che da un paio di giorni non riesco a fare login da 2 client
(l'applicativo esiste da oltre 4 anni) infatti al momento del login mi
restituisce questo errore:
Il modulo di gestione database Microsoft jet ha interrotto l'elaborazione.
un altro utente sta tentando contemporaneamente di modificare gli stessi
dati.
Premetto che ho fatto le prove a non far entrare nessuno nell'applicativo e
quindi ad essere l'unico....
non riesco a capire percè questa query mi risulta bloccata.
Confido in un vostro aiuto
Grazie


title: Errore di Microsoft jet su query

text:
gog...@cropcirclecrew.org
 ha scritto:

Non hai rivelato la tua versione di Access, JET, SP/SR.
Ma con questo errore puoi sempre provare l'ultimo SP di JET o
la riparazione con Jetcomp.exe:
A97
http://support.microsoft.com/?id=172733
A00/XP/03
http://support.microsoft.com/?id=239114
Vedi anche
http://support.microsoft.com/?id=182867
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: Errore di Microsoft jet su query

text:
Scusa dimenticavo di dire che ho installato access 97 su win2k server e
sulla stessa macchina è installato word ed excel 2000.
Grazie per l'aiuto ma non riesco ad installare quegli aggiornamenti.


title: Errore di Microsoft jet su query

text:
Risolto con JetCU40.exe grazie per la dritta.
Ciao
<
gog...@cropcirclecrew.org
> ha scritto nel messaggio
news:bu1b3g$7jf$2...@newsreader.mailgate.org...



title: Problema con il "Trova" di Access...

author: Alberto

text:
Innanzitutto un saluto a tutta la lista.
In Access 2.0 ho un problema con la funzione "TROVA" richiamabile con il
tasto destro su un campo di un form.
Questo campo (di tipo testo di 50 caratteri) è contenuto in una sotto-form,
la quale "pesca" i dati direttamente da una tabella.
Il che è tutto semplice, se non che è contenuta in una sotto-form.
Ora, quando con il tasto destro seleziono la funzione di Access "TROVA", per
un certo dato alfanumerico, mi dice che non riesce a recuperare dati. Se
apro, a parte, la sottoscheda invece funziona correttamente.
Cosa posso fare perchè funzioni?!?
Un mille grazie anticipatamente a chi saprà e vorrà rispondermi.
Alberto


title: Problema con il "Trova" di Access...

author: Ditta Cerri (Sib)

text:
"Alberto" dice
> In Access 2.0 ho un problema con la funzione "TROVA" richiamabile con il
> tasto destro su un campo di un form.
> Questo campo (di tipo testo di 50 caratteri) č contenuto in una
sotto-form,
> la quale "pesca" i dati direttamente da una tabella.
> Il che č tutto semplice, se non che č contenuta in una sotto-form.
> Ora, quando con il tasto destro seleziono la funzione di Access "TROVA",
per
> un certo dato alfanumerico, mi dice che non riesce a recuperare dati.
La cosa e' abbastanza ovvia, non e' un problema del "trova", ma un problema
legato al fatto che, con ogni probabilita', la sottomaschera e' filtrata in
base alla maschera principale e quindi non contiene tutti i record della
tabella, ma solo una piccola parte tra cui non sara' compreso il record che
cerchi. E' chiaro che se apri la sottomaschera da sola (come maschera
principale) ti funzionera' perfettamente perche' in questo caso, non essendo
filtrata, conterra' tutti i record della tabella, tra cui anche quello che
cerchi.
Ciao, Sib


title: Problema con il "Trova" di Access...

text:
Accidenti... è proprio vero!
Che sciocco che sono. Adesso però non so proprio come fare... sig sig...
Comunque grazie.
Alberto
"Ditta Cerri (Sib)" <
cerriserv...@tiscalinet.it
> ha scritto nel
messaggio news:8iqnl6$677$3...@lacerta.tiscalinet.it...
>
> "Alberto" dice
> > In Access 2.0 ho un problema con la funzione "TROVA" richiamabile con il
> > tasto destro su un campo di un form.
> > Questo campo (di tipo testo di 50 caratteri) è contenuto in una
> sotto-form,
> > la quale "pesca" i dati direttamente da una tabella.
> > Il che è tutto semplice, se non che è contenuta in una sotto-form.



title: Problema con il "Trova" di Access...

author: Sib

text:
"Alberto" <
al...@freemail.it
> ha scritto nel messaggio
news:8iscb7$qp0$1...@pinco.nettuno.it...
> Accidenti... è proprio vero!
> Che sciocco che sono. Adesso però non so proprio come fare... sig sig...
> Comunque grazie.
> Alberto
Con un dlookup puoi cercare nella tabella di origine della sottomaschera il
record che ti interessa e quindi filtrare la maschera principale in base al
campo di collegamento che trovi nella tabella origine della sottomaschera.
Saro' stato chiaro? boh!
Ciao, Sib


title: Problema con il "Trova" di Access...

text:
Teoricamente ho capito... ma che cosa č un "dlookup"?
Infatti, con il pulsante predefinito di Access 2.0, io uso il "Trova"
standard.
Come faccio infatti ad intervenire a livello di codice?
Si accetta codice allegato...............
Grazie mille ad entrambi!
Alberto
"Sib" <
cerriserv...@tiscalinet.it
> ha scritto nel messaggio
news:8isi0s$j51$2...@pegasus.tiscalinet.it...
>
> "Alberto" <
al...@freemail.it
> ha scritto nel messaggio
> news:8iscb7$qp0$1...@pinco.nettuno.it...
> > Accidenti... č proprio vero!
> > Che sciocco che sono. Adesso perň non so proprio come fare... sig sig...



title: Problema con il "Trova" di Access...

author: sib

text:
Alberto dice
> Teoricamente ho capito... ma che cosa č un "dlookup"?
Una istruzione che va a pescare dati in una tabella in base a dei criteri
(vedi help, lo descrive molto bene)
> Infatti, con il pulsante predefinito di Access 2.0, io uso il "Trova"
> standard.
Infatti na ha a che vedere con i pulsanti, si usa nel codice
> Come faccio infatti ad intervenire a livello di codice?
Non ho la possibilita' di mettermi subito a scrivere un esempio, se trovo il
tempo te lo scrivo tra un paio di giorni.
> Si accetta codice allegato...............
>
> Grazie mille ad entrambi!
Come entrambi!!!
E' vero che mi faccio in due per il ng (hehehe) ma non esageriamo, non sono
mica binario!! ;-D
> Alberto
Ciao, Sib


title: Aiuto per query

author: Greg

text:
Vado sempre in dififcoltà quando devo questo tipo di quesry che non saprei come definire
Vorrei ottenere una sola  riga per nome, qulla col campo data maggiore, ma siccome trova il campo Inrvento diverso mi
tira dentro tutto:

Nome   Intervento Data
Rossi    prova1   10/05/19
Rossi    prova2   19/05/19
Bianchi  prova3   15/05/19

Vorrei ottenere:
Nome   Intervento Data
Rossi    prova2   19/05/19
Bianchi  prova3   15/05/19

Come la dovrei scrivere? Grazie per ogni info

--
Greg


title: Aiuto per query

text:
Devi usare una query con tabelle derivate...

Questa di esempio fa la stessa cosa estraendo i dati con prezzo maggiore...

Adattala al tuo caso specifico sostituemdo ai campi dell'esempio i tuoi facendo riferimento che la dove nell'esempio ho il MAX(Prezzo) nel tuo caso avrò MAX(CampoData)...

Select T1.Provenienza,MAXP.IdProdotto,MAXP.Massimo
    From T1
    RIGHT JOIN
        (select IdProdotto, Max(Prezzo) as Massimo
         From T1
         Group By IdProdotto) AS MAXP
    ON T1.IdProdotto=MAXP.IdProdotto AND T1.Prezzo=MAXP.Massimo

@Alex


title: Aiuto per query

text:
Il 20/05/19 18:51:51 @Alex ha scritto:

Grazie, spero di riuscire ad adattare, ho sempre trovato ostiche questo ripo di queru perhè non riesco proprio a
"leggerle"-
Son curioso di vedere se Provioenza diversa causa piu righe diverse

--
Greg


title: Aiuto per query

author: Bruno Campanini

text:
Greg submitted this idea :

SELECT T.Nome, Last(T.Intervento) AS LastOfIntervento,
Max(T.Data) AS MaxOfData FROM T
GROUP BY T.Nome ORDER BY Last(T.Intervento);

Bruno


title: Aiuto per query

text:
Il 21/05/19 02:56:11 Bruno Campanini ha scritto:

> SELECT T.Nome, Last(T.Intervento) AS LastOfIntervento,
> Max(T.Data) AS MaxOfData FROM T
> GROUP BY T.Nome ORDER BY Last(T.Intervento);
>
> Bruno

Molto semplice e chiara, si legge pure bene, e funziona. Non pensavo di potesse applicare la funzione Last ad un c ampo
stringa. Si impara sempre.
Grazie :)

--
Greg


title: Aiuto per query

text:
Il 21/05/19 02:56:11 Bruno Campanini ha scritto:

La sto adattanto agli scopi, se volessi aggiungere una ulteriore condizione su Max(T.Data) non restituisce il risultato
che mi apsetto:

SELECT T.Nome, Last(T.Intervento) AS LastOfIntervento,
Max(T.Data) AS MaxOfData FROM T
GROUP BY T.Nome ORDER BY Last(T.Intervento)
Having Max(T.Data) AS MaxOfData > #20/05/19#

Guardando meglio scopro che da il risultato opposto a quello atteso: tutti records con data MINORE del 20.5.19 invece
di maggiore.
Incredulo ho provato a camabire segno di uguaglianza, e incredibilmente fornisce il risultato voluto:
Having Max(T.Data) AS MaxOfData < #20/05/19# mi da i record con MaxOfData maggiore del 20/5/19 !!!

Come si spiega?

--
Greg


title: Aiuto per query

author: GiorgioDaPrato

text:
> Having Max(T.Data) AS MaxOfData > #20/05/19#
>

a primissima vista:
non credo che si possa utilizzare having
(che esprime un criterio di selezione su valori aggregati)
per ottenere un nuovo CampoCalcolato (AS ...)

quindi dovrebbe essere un errore di sintassi


title: Aiuto per query

text:
Il 23/05/19 10:47:26 GiorgioDaPrato ha scritto:

Esatto, devo in qualche modo selezionare prima, grazie

--
Greg


title: Aiuto per query

text:
Forse...

Select T.Nome,tdMAXDate.MaxOfData
    From T
    RIGHT JOIN
        (select Nome, Max(Data) as MaxOfData
         From T
         Group By Nome
         HAVING Data>#20/05/19#) AS tdMAXDate
    ON T.Nome=tdMAXDate.Nome AND T.Data=tdMAXDate.MaxOfData

@Alex


title: Aiuto per query

text:

La versione sopra prevede >#20/05/19#, ma ovviamente se vuoi <#20/05/19# metterai così...

@Alex

@Alex


title: Aiuto per query

text:
Il 23/05/19 14:40:13 @Alex ha scritto:

Grazie Alex, adesso mi metto al lavoro, ti farò sapere :)

--
Greg


title: Aiuto per query

text:
Il 23/05/19 14:40:13 @Alex ha scritto:

>
> La versione sopra prevede >#20/05/19#, ma ovviamente se vuoi <#20/05/19# metterai così...
>
> @Alex

Perfetta! Grazie :)

--
Greg


title: Aiuto per query

text:
Era quella che avevo suggerito all'inizio che sembrava meno bella ;-)

Saluti
@Alex


title: Problemi con Query

author: Mercurio

text:
Ciao a tutti
Ho questo problemino con una query di selezione.
Ho due tabelle :
Tab1:                                                    Tab2
Id: contatore                                        Id:Numerico
Numero treno: Testo                            Nome Impianto:Testo
Data:    Data                                         A Bordo: Numerico
Mi servono per una raccolta di dati. Uso la tab1 come intestazione comune a
tutti i treni la tab2, per ogni treno, per immettere tutti gli impianti del
percorso del treno con il numero delle persone a bordo.
La relazione tra le due è uno a molti tramite id.
Ora vorrei poter estrarre, per ogni treno ad una certa data, il numero di
viaggiatori Max a bordo e in quale impianto l'ho avuto.
Riesco ad ottenere il numero massimo, ma nel momento che cerco di avere
anche l'impianto relativo, la query mi restituisce tutti gli impianti del
persorso.
Grazie per l'aiuto


title: Problemi con Query

text:
"Mercurio" <
gabriele...@inwind.it
> ha scritto nel messaggio
news:uh8t9.62064$RO.15...@twister1.libero.it...

Fai una query di raggruppamento sulla seconda tabella, raggruppando per id e
mettendo max al numerico. In questo modo avrai, per ogni treno, il max di
viaggiatori.
Poi fai una query in cui metti le due tab e la query di prima, mettendo in
join tab1, tab2 e query sull'id, e mettendo come criterio sotto il campo A
bordo della tab2, il campo max ottenuto dalla query. Quindi selezioni anche
il campo Impianto dalla tab2.
Dovrebbe funzionare...
Antonio


title: Sequenza eventi combobox

text:
Salve a tutti,
Access Xp
Ho varie combobox con propriet� "Solo in elenco" impostata a No, in quanto
mi serve poter inserire nella combo dei dati da tastiera da usare come
filtro.
A) Se inserisco dati da tastiera e poi esco dalla combo la sequenza degli
Eventi �: Change -> AfterUpdate
B) Se invece seleziono con il mouse un valore dall'elenco della combo la
sequenza degli Eventi �: AfterUpdate -> Change
La cosa per me � strana, in ogni caso c'� un modo per impedire ad Access di
eseguire in automatico un Evento? Vorrei che nel caso A) non venga eseguito
AfterUpdate, nel caso B) non venga eseguito il Change.

La cosa l'ho gi� risolta usando delle variabili booleane "Spia" che tengono
traccia della sequenza degli Eventi, ma vorrei evitarle.
Qualche idea?
Grazie
774


title: Sequenza eventi combobox

author: Alessandro Cara

text:
Il 19/07/2014 20:11, 774 ha scritto:
> Salve a tutti,
> Access Xp
> Ho varie combobox con propriet� "Solo in elenco" impostata a No, in
> quanto mi serve poter inserire nella combo dei dati da tastiera da usare
> come filtro.
> A) Se inserisco dati da tastiera e poi esco dalla combo la sequenza
> degli Eventi �: Change -> AfterUpdate
> B) Se invece seleziono con il mouse un valore dall'elenco della combo la
> sequenza degli Eventi �: AfterUpdate -> Change
> La cosa per me � strana, in ogni caso c'� un modo per impedire ad Access
> di eseguire in automatico un Evento? Vorrei che nel caso A) non venga
> eseguito AfterUpdate, nel caso B) non venga eseguito il Change.

C'e'un modo.
Non mettere la routine relativa a quell'evento!

Mi sembra strana questa "inversione" di eventi
Mi permetti di dubitare?
Anche se potrebbe avere un senso poiche' il tipo di "operazione"  che
fai e' diverso.
Il cbx di fatto e' un oggetto complesso formato da due volgari controlli
un txtbox ed un button piu' un po' di codice "embedded".
Anche se ci fosse un modo di "sopprimere" un evento (a parte quello gia'
indicato) dovresti scrivere del codice per "governare" la logica.
Non ti sembra un UCAS?
Sarebbe un codice abbastanza simile alle tue "spie".
Fermo restando che attivare contemporanemente l'eventi di Change e
AfterUpdate (avrai sicuramente le tue ragioni) credo non mi sia mai
stato necessario.

--
ac (x=y-1)
Aborro il Killfile
(La violenza e' l'ultimo rifugio degli incapaci -Salvor Hardin-)

---
Questa e-mail � priva di virus e malware perch� � attiva la protezione avast! Antivirus.
http://www.avast.com


title: Sequenza eventi combobox

text:
"Alessandro Cara" <
aley-1....@gmail.com
> ha scritto nel messaggio
news:muByv.5602$A66....@tornado.fastwebnet.it...
> Il 19/07/2014 20:11, 774 ha scritto:
>> Salve a tutti,
.........................
>
> C'e'un modo.
> Non mettere la routine relativa a quell'evento!
>
> Mi sembra strana questa "inversione" di eventi
> Mi permetti di dubitare?

Eh si, non sono molto sicuro della cosa.
In effetti se si digita nella casella della combo si attiva Change, poi se
si sceglie una voce dall'elenco si attiva AfterUpdate e poi di nuovo Change.
AfterUpdate, come dice il nome, non dovrebbe attivarsi dopo tutti gli altri?

La sequenza con click �:
AfterUpdate -> OnClick -> Change

Non capisco la logica, io avrei fatto:
OnClick -> Change -> AfterUpdate

Molte volte le incomprensioni nascono dalla errata traduzione degli Eventi
in Italiano, ad esempio l'evento "In Attesa" corrisponde all'evento "Dirty".
L'evento in italiano non si capisce cosa faccia, mentre quello in inglese lo
si capisce benissimo, si attiva solo "alla prima" modifica di un controllo,
cio� quando viene "sporcato".

> Anche se potrebbe avere un senso poiche' il tipo di "operazione"  che fai
> e' diverso.
> Il cbx di fatto e' un oggetto complesso formato da due volgari controlli
> un txtbox ed un button piu' un po' di codice "embedded".
> Anche se ci fosse un modo di "sopprimere" un evento (a parte quello gia'
> indicato) dovresti scrivere del codice per "governare" la logica.
> Non ti sembra un UCAS?
> Sarebbe un codice abbastanza simile alle tue "spie".
> Fermo restando che attivare contemporanemente l'eventi di Change e
> AfterUpdate (avrai sicuramente le tue ragioni) credo non mi sia mai stato
> necessario.

Il fatto � che mi servono sia Change che AfterUpdate.
Ho combobox in cui bisogna scegliere tra centinaia o anche migliaia di voci
e quindi � indispensabile applicare qualche filtro.
Il filtro si pu� applicare digitando direttamente il testo da cercare nella
casella della combo, in questo modo l'utente vede "al volo" i dati filtrati,
tutto questo lo si pu� fare modificando il rowsource all'interno di Change
ed eseguendo un dropdown da codice,
Poi ho anche bisogno dell'AfterUpdate per effettuare modifiche nella Form
dopo aver effettualo la scelta.
Alla fine sono riuscito ad aver bisogno di una sola variabile "spia", usata
all'interno dell'Evento OnClick, che impedisce l'esecuzione dell'evento
Change dopo che l'utente ha effettuato la selezione.
In questo il funzionamento � quello che cercavo.
Non conoscevo l'evento OnClick, l'ho scoperto da poco, ma mi ha permesso di
risolvere il problema.
Ogni elemento di Access contiene molti Eventi e Propriet�, bisognerebbe ogni
tanto mettersi a studiare, magari la soluzione a volte � a portata di mano e
ci arrampichiamo sugli specchi, almeno io tendo a fossilizzarmi e uso sempre
i soliti 2-3 eventi e non va bene.
774


title: Report "orizzontale" con struttura dati "verticale"

text:
E' tosto pure da spiegare.
Allora: ho una tabella principale che si lega ad altre tre tabelle in
relazione uno a molti su un campo chiave.
Devo realizzare un report che rappresenti i dati raggruppati per ciascun
record della tab principale.
Il problema è che deve essere organizzato in maniera orizzontale come un
tabulato excel. Per esempio
Supponiamo per semplicità che la tabella principale abbia una serie di dati
tipici del record principale, e che ci siano due tabelle T1 e T2 con un
numero di record variabile per ogni record principale e possibilmente
diverso tra loro.
Il report dovrebbe essere:
Dati tipiciR1 - T1Campo1 T1Campo2 - T2Campo1 - T2Campo2
                         T1Campo1 T1Campo2 - T2Campo1 - T2Campo2
T2Campo1 - T2Campo2
T2Campo1 - T2Campo2
Dati tipiciR2 - T1Campo1 T1Campo2 - T2Campo1 - T2Campo2
                         T1Campo1 T1Campo2 - T2Campo1 - T2Campo2
                        T1Campo1 - T1Campo2
e così via...
Ho provato ad usare sottomaschere, caselle di riepilogo, ma per un motivo o
un altro non mi viene il risultato atteso.
Come si può fare (se si può fare)?
Antonio


author: nwrr

text:
> Ho provato ad usare sottomaschere, caselle di riepilogo, ma per un motivo o
> un altro non mi viene il risultato atteso.
non ho capito molto bene perň se TU le hai provate tutte sicuramente
semplice non č, considerando poi che io non sono un esperto da considerare
la seguente solo come un semplice idea di soluzione
vado comunque cosě un po ad orecchio
se come dici hai provato a mettere le sottomaschere e non funziona
potrebbe (molto potrebbe) essere che il report non riesce a gestire come vuoi
tu
piů sottomaschere ed il record principale nella forma che vuoi tu
se il tutto, praticamenet il modo in cui tu lo vuoi vedere
te lo imposti con una query e quindi nel report ci metti la query e non piů
tre controlli 1 masch princip 2 tab 1 e 3 tab2
ma direttamente una tabella query unica che perň deve essere studiata in modo
che sia equivalente alla situazione grafica di recordprincipale e tab1 e tab2
spero di esserti stato di aiuto
se ho scritto qulache grossa caz.. chiedo perdono
(mi andava di darti una mano in ogni modo)


author: OndaMax

text:
Antonio Biso wrote in message ...
> Come si può fare (se si può fare)?
Azz ... non ce l'hai una domanda di riserva ... :-)


text:
Antonio Biso wrote in message ...
> E' tosto pure da spiegare.
Figurati da capire ... :-)
> Il report dovrebbe essere:
> Dati tipiciR1 - T1Campo1 T1Campo2 - T2Campo1 - T2Campo2
>                      T1Campo1 T1Campo2 - T2Campo1 - T2Campo2
>                                                         T2Campo1 -
T2Campo2
[cut]
Da quello che capisco ...
- L'esempio si riferisce ad un report tabellare di 5 campi in totale
- I record di T1 e T2 viaggiano a coppie sul medesimo record
- Ogni coppia viene ripetuta una sola volta
Non vedo soluzioni semplici o scorciatoie ...
Perň, se ho capito giusto, sarebbe fattibile in 6 passaggi:
1) Metti in JOIN la tabella Base con T1 ed esporta il risultato su una
TEMPT1, aggiungendo su query un campo ordinamento impostato a zero.
2) Metti in JOIN la tabella Base con T2 ed esporta il risultato su una
TEMPT2, aggiungendo su query un campo ordinamento impostato a zero.
3) Prepari una funzioncina che ti numeri (prima su una TEMP e poi
sull'altra) in maniera progressiva i record per ogni Dato Base (R1 -
1,2,3... / R2 - si ricomincia da 1).
4) Metti in LEFTJOIN TEMPT1 e TEMPT2 (creazione tabella) e scarica il
contenuto su una TEMPREPORT (incluso il campo ordinamento).
5) Metti in LEFTJOIN TEMPT2 e TEMPT1 (accodamento) e scarica il contenuto
sulla stessa TEMPREPORT (incluso il campo ordinamento).
6) Con una query di raggruppamento da TEMPREPORT ordinata per Dato Base +
ordinamento dovresti visualizzare qualcosa di piů umano e vicino a quello
che ti serve.
Su report riporti tutto tabellarmente e nascondi eventuali duplicati del
dato Base. Ma non te lo devo certo insegnare io ... ;-)
Ciao Anto'
OndaMax


text:
"nwrr" <
nwrrAN...@lycos.it
> ha scritto nel messaggio
news:3C6E78DC...@lycos.it...
> > Ho provato ad usare sottomaschere, caselle di riepilogo, ma per un
motivo o
> > un altro non mi viene il risultato atteso.
>
> se come dici hai provato a mettere le sottomaschere e non funziona
> potrebbe (molto potrebbe) essere che il report non riesce a gestire come
vuoi
Non è che con le sottomaschere non funziona, il problema è che non sono
gestibili per quanto riguarda il layout. Non gli si può dire di espandere i
campi, inoltre ti mette le righe verticali delle singole colonne, ma solo
finchè ci sono righe poi le tronca...insomma il risultato finale è una
pecionata, anche se sarebbe il risultato voluto.
> più sottomaschere ed il record principale nella forma che vuoi tu
> se il tutto, praticamenet il modo in cui tu lo vuoi vedere
> te lo imposti con una query e quindi nel report ci metti la query e non
più
> tre controlli 1 masch princip 2 tab 1 e 3 tab2
> ma direttamente una tabella query unica che però deve essere studiata in
modo
> che sia equivalente alla situazione grafica di recordprincipale e tab1 e
tab2
Forse quello di ottenere, magari con tab d'appoggio, una soluzione come
record già trasformata per il report, rispetto a quella normalizzata con le
tre tabelle 1 a molti, è l'unica soluzione. Ci penso, se si può fare...
>
> spero di esserti stato di aiuto
> se ho scritto qulache grossa caz.. chiedo perdono
> (mi andava di darti una mano in ogni modo)
Grazie mille... e cazzate non le hai dette, anzi...
Antonio


text:
"OndaMax" <
ond...@liberox.it
> ha scritto nel messaggio
news:kfxb8.5981$8F6.3...@twister2.libero.it...
> Antonio Biso wrote in message ...
> > E' tosto pure da spiegare.
>
> Figurati da capire ... :-)
>
> > Il report dovrebbe essere:
> > Dati tipiciR1 - T1Campo1 T1Campo2 - T2Campo1 - T2Campo2
> >                      T1Campo1 T1Campo2 - T2Campo1 - T2Campo2
> >                                                         T2Campo1 -
> T2Campo2
> [cut]
>
>
> Da quello che capisco ...
> - L'esempio si riferisce ad un report tabellare di 5 campi in totale
> - I record di T1 e T2 viaggiano a coppie sul medesimo record
> - Ogni coppia viene ripetuta una sola volta
Non ci siamo. Le tabelle 1 e 2 possono avere da 0 a n record associati alla
tabella principale e con un numero anche diverso tra loro.
Il report finale dovrebbe avere prima un'intestazione, ma alla stessa
altezza del resto dei dati, quindi i campi della tabella 1 riempiti per il
numero di record che risultano associati (0->n) e alla stessa altezza i
campi della tabella 2 riempiti del numero di record associati (0->n). Se il
numero di record di T1 e T2 sono diversi, per esempio T1 2 record, T2 4
record, nella terza e quarta riga si avrà bianco per i campi di T1 e con i
dati per T2.
In altre parole, se avessi una sola tabella, metterei come origine record
una query che JOINA sul campo chiave la tab principale con quella "molti",
quindi nel report raggrupperei sul campo chiave e nel corpo metterei i campi
della tab "molti". Dovrei fare questo per più tabelle "molti", mettendo i
dati allo stesso livello... Con un'unica query, non avrei però i campi
bianchi sulle righe "spaiate", ma ci sarebbe un prodotto cartesiano tra il
numero di record delle varie tabelle "molti"...
Groan!
Antonio


title: Chiave multipla in sottomaschera

author: Santoro Antonio

text:
Salve a tutti, Mi chiamo Antonio e sono nuovo in questo gruppo.
Spero di poter dare un qualche contributo, anche se sono alla prima
esperienza per quanto riguarda il prodotto access e quindi ho ancora
molto da imparare.
Infatti arrivo con questa mia per chiedere aiuto riguardo il seguente
problema.
Io ho creato due tabelle
TabellaA con una chiave primaria univoca
TabellaB con una chiave composta da due campi:
         il primo campo č la chiave primaria della TabellaA
         il secondo un progressivo.
Decido di realizzare una maschera che mi permetta di gestire queste
informazioni. Vale a dire i dati della TabellaA e una sottomaschera
con la TabellaB.
Al momento della costruzione della sottomaschera, Access mi chiede se
voglio che la chiave comune funga da filtro per la sottomaschera e io
accetto.
Il problema qual'č!
Che quando vado ad inserire i dati nella maschera e cerco di creare il
primo elemento non riesco ad assegnare automaticamente il valore del
campo in comune.
Spero di essere stato chiaro..
Qualcuno mi puň aiutare?
Grazie in anticipo.
Antonio Santoro


title: Chiave multipla in sottomaschera

author: Roberto da casa

text:
"Santoro Antonio" <
Santoro_...@hotmail.com
> ha scritto nel messaggio
news:c5c165a5.02020...@posting.google.com...
> Salve a tutti, Mi chiamo Antonio e sono nuovo in questo gruppo.
> Spero di poter dare un qualche contributo, anche se sono alla prima
> esperienza per quanto riguarda il prodotto access e quindi ho ancora
> molto da imparare.
>
> Infatti arrivo con questa mia per chiedere aiuto riguardo il seguente
> problema.
>
> Io ho creato due tabelle
>
> TabellaA con una chiave primaria univoca
>
> TabellaB con una chiave composta da due campi:
>          il primo campo č la chiave primaria della TabellaA
>          il secondo un progressivo.
>
[CUT]
Bisognerebbe entrare in merito a come gestisci il progressivo di TabellaB.
Ti suggerisco di tagliare la testa al toro: inserisci in TabellaB un campo
di tipo contatore e dichiaralo chiave primaria; mette le due tabelle in
relazione uno-a-molti in base al campo che č chiave primaria di TabellaA e
chiavew esterna di TabellaB.
> Qualcuno mi puņ aiutare?
> Grazie in anticipo.
> Antonio Santoro
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Chiave multipla in sottomaschera

author: Emyr

text:
On 1 Feb 2002 04:55:42 -0800,
Santoro_...@hotmail.com
 (Santoro
Antonio) wrote:
>Salve a tutti, Mi chiamo Antonio e sono nuovo in questo gruppo.
>Spero di poter dare un qualche contributo, anche se sono alla prima
>esperienza per quanto riguarda il prodotto access e quindi ho ancora
>molto da imparare.
>
>Infatti arrivo con questa mia per chiedere aiuto riguardo il seguente
>problema.
>
>Io ho creato due tabelle
>
>TabellaA con una chiave primaria univoca
>
>TabellaB con una chiave composta da due campi:
>         il primo campo è la chiave primaria della TabellaA
>         il secondo un progressivo.
>
la chiave primaria di che tipo è nella tabella?
se campo contatore prova e cambiarla in tipo numerico
così pure nell'altra tabella e creaci una relazione con integrità
referenziale attivata.
>Decido di realizzare una maschera che mi permetta di gestire queste
>informazioni. Vale a dire i dati della TabellaA e una sottomaschera
>con la TabellaB.
>
>Al momento della costruzione della sottomaschera, Access mi chiede se
>voglio che la chiave comune funga da filtro per la sottomaschera e io
>accetto.
>
>Il problema qual'è!
>
>Che quando vado ad inserire i dati nella maschera e cerco di creare il
>primo elemento non riesco ad assegnare automaticamente il valore del
>campo in comune.
>
>Spero di essere stato chiaro..
>
>Qualcuno mi può aiutare?
>Grazie in anticipo.
>Antonio Santoro
Saluti.
Emanuele.


title: acc2000 si chiude

author: xenod

text:
Salve,
	Ho una form master/detail con un bottone provvedo a fare la
cancellazione il codice del bottone è il seguente:
<--- Inizio --->
public sub CancellaFattura(byval IDFattura as long)
    'Cancella i movimenti dettaglio e testa
    CurrentDb.Execute "delete from Dettaglio where IDFattura = " &
IDFattura
    Me.SubMask.Requery
    CurrentDb.Execute "delete from Fatture where IDFattura = " &
IDFattura
    Me.Requery
end sub
<--- Fine --->
Dopo aver eseguito il codice access si chiude senza nessun errore.
Ho una versione acc2000 sr1 e sp3.
Avete qualche idea ? Sbaglio il codice ? Qualche suggerimento ?
Grazie


title: acc2000 si chiude

author: MA

text:
"xenod" <x...@xxx.xx> ha scritto nel messaggio
news:MPG.1b6061d14...@news.it.net...

Mettici un bel punto di interruzione e vai di F8
MAssimiliano


title: acc2000 si chiude

text:
> >
> Mettici un bel punto di interruzione e vai di F8
> MAssimiliano
>
Ho provato, ma la chiusura avviene su me.requery.
Anche se lo tolgo e provo a cambiare record, da un msg "record
eliminato" e chiude access.


title: acc2000 si chiude

author: Sergio MAZZA

text:
"xenod" <x...@xxx.xx> ha scritto nel messaggio news:MPG.1b606589e...@news.it.net...
> Ho provato, ma la chiusura avviene su me.requery.
> Anche se lo tolgo e provo a cambiare record, da un msg "record
> eliminato" e chiude access.
Prima del requery sposta il cursore del record al primo record esistente...
Ciao.
--
Sergio MAZZA


title: acc2000 si chiude

author: Marco Antonioli

text:
"xenod" <x...@xxx.xx> wrote in message
news:MPG.1b6061d14...@news.it.net
> Dopo aver eseguito il codice access si chiude senza nessun errore.
> Ho una versione acc2000 sr1 e sp3.
>
> Avete qualche idea ? Sbaglio il codice ? Qualche suggerimento ?
>
> Grazie
Cosa hai scritto nell'origine record ?
Ciao
Marco
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: uso di inet e ftp

author: AEOM

text:
ciao a tutti
uso inet per fare upload e download da un server
una volta connesso con il comando
   Me.itc.Execute , "CD
xxxxxx.com/yyyyy/zzzzzz
'" & Chr(34)
accedo alla directory indicata (zzzzz)
e carico dei file...
avrei bisono poi di caricare dei file in un'altra cartella ma se eseguo
direttamente un
   Me.itc.Execute , "CD
xxxxxx.com/yyyyy/oooooo
" & Chr(34)
per passare alla cartella di interesse
mi da errore, devo prima fare Due
   Me.itc.Execute , "CD .." & chr(34)
per tornare alla root
e poi
   Me.itc.Execute , "CD
xxxxxx.com/yyyyy/oooooo
" & Chr(34)
non esiste il modo per passare direttamente alla directory che voglio?
sicuramente sbaglio qualcosa nella stringa dopo il CD ma non capisco cosa
ciao, AEOM


title: uso di inet e ftp

author: Cinzia

text:
"AEOM" <
nos...@tin.it
> ha scritto nel messaggio
news:437e14e0$0$13263$4faf...@reader2.news.tin.it...

Ciao AEOM,
prova con
 Me.itc.Execute , "CD ../oooooo" & Chr(34)
saluti
--
Cinzia
---------------------------------------
|
http://www.riolab.org
  |
--------------------------------------->


title: uso di inet e ftp

text:
"Cinzia" <
cinziapagani_...@tiscali.it
> ha scritto nel messaggio
news:437e1786$0$8485$5fc...@news.tiscali.it...

grazie mille e ne approfitto per chiederti...se mi trovo sulla cartella
ftp.hhhh.com/xxxx/yyyy/zzzzz/
esiste un comando per tornare alla root cioe in una sola istruzione
riportarmi a
fto.hhhh.com
grazie mille
AEOM


title: uso di inet e ftp

text:
> >>
> >> uso inet per fare upload e download da un server
> >> una volta connesso con il comando
> >>
> >>    Me.itc.Execute , "CD
xxxxxx.com/yyyyy/zzzzzz
'" & Chr(34)
> >>
> >> accedo alla directory indicata (zzzzz)
> >>
> >> e carico dei file...
> >> avrei bisono poi di caricare dei file in un'altra cartella ma se eseguo
> >> direttamente un
> >>
> >>    Me.itc.Execute , "CD
xxxxxx.com/yyyyy/oooooo
" & Chr(34)
> >>
> >> per passare alla cartella di interesse
> >> mi da errore, devo prima fare Due
> >>
> >>    Me.itc.Execute , "CD .." & chr(34)
> >>
> >> per tornare alla root
> >> e poi
> >>
> >>    Me.itc.Execute , "CD
xxxxxx.com/yyyyy/oooooo
" & Chr(34)
> >>
> >> non esiste il modo per passare direttamente alla directory che voglio?
> >>
> >> sicuramente sbaglio qualcosa nella stringa dopo il CD ma non capisco
cosa
> >> ciao, AEOM
> >>
> >>
> > Ciao AEOM,
> >
> > prova con
> >
> > Me.itc.Execute , "CD ../oooooo" & Chr(34)
> >
> grazie mille e ne approfitto per chiederti...se mi trovo sulla cartella
>
ftp.hhhh.com/xxxx/yyyy/zzzzz/
> esiste un comando per tornare alla root cioe in una sola istruzione
> riportarmi a
fto.hhhh.com
>
> grazie mille
> AEOM
> >
ciao AEOM
se valgono i vecchi comandi DOS o Unix
con "CD /"   dovresti posizionarti sulla root
o in alternativa cd ../../   cioč tanti ../ quanti sono i livelli di
sottodirectory in cui ti trovi



title: Access XP & WinXP SP2

author: Mavic

text:
Avete provato a installare una vostra applicazione Access XP creata con il
pacchetto di installazione su un Wndows XP SP2 ????
Risultato : Il setup non rileva il Service Pack 2 e quindi non continua
l'installazione del runtime.
Esiste una soluzione oltre a scaricare tutti gli aggiornamenti di Office XP
(che ho gia provveduto a fare) per risolvere il problema ?
Grazie


title: Access XP & WinXP SP2

author: Carlo Costarella

text:
"Mavic" <
ma...@interfee.it
> ha scritto nel messaggio
news:tkkmd.35237$Ni.12...@twister1.libero.it...

A me č capitato con Windows 2003 server...ho dovuto fare il runtime
dell'applicativo con Access 2003. Per inciso la versione del developer
(Microsoft Access 2003 Developer Extensios) del pacchetto Visual Studio
Tools per Office System, ha una interfaccia bellissima ma io non sono
riuscito a creare il gruppo di programmi come facevo benissimo con il
developer della versione XP.
Se hai notizie faccelo sapere.
Ciao, Carlo


title: Access XP & WinXP SP2

author: giorgio rancati

text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:HFlmd.176130$b5.88...@news3.tin.it...
>
> "Mavic" <
ma...@interfee.it
> ha scritto nel messaggio
> news:tkkmd.35237$Ni.12...@twister1.libero.it...
>
> A me è capitato con Windows 2003 server...ho dovuto fare il runtime
> dell'applicativo con Access 2003.
[CUT]
----------------------------
You may receive error messages when you install an Access 2002 runtime
deployment package on a computer that is running Windows Server 2003
http://support.microsoft.com/default.aspx?scid=kb;en-us;837150&Product=acc2002
----------------------------
Valida sia per Windows 2003 Server che per WindowsXp Sp2
Ciao Giorgio


title: Access XP & WinXP SP2

text:
> [CUT]
>
> ----------------------------
> You may receive error messages when you install an Access 2002 runtime
> deployment package on a computer that is running Windows Server 2003
>
http://support.microsoft.com/default.aspx?scid=kb;en-us;837150&Product=acc2002
> ----------------------------
> Valida sia per Windows 2003 Server che per WindowsXp Sp2
>
> Ciao Giorgio
>
Ciao Giorgio
grazie per la tempestiva soluzione.
Hai già creato degli applicativi con il developer 2003?
Se sì come hai risolto la creazione del gruppo di programmi?
Ciao, Carlo


title: Access XP & WinXP SP2

text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:nommd.176307$b5.88...@news3.tin.it...
>
[CUT]
>
>
> Hai già creato degli applicativi con il developer 2003?
> Se sì come hai risolto la creazione del gruppo di programmi?
Ciao Carlo,
spiacente, non ho il developer 2003.
(questa versione la salto, non ho visto novità interessanti rispetto a Xp)
Ciao Giorgio


title: Access XP & WinXP SP2

author: Ferrari Rino

text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:nommd.176307$b5.88...@news3.tin.it...

Ciao Carlo  siamo alle solite con MS , dopo aver testato
Office Sys. Pack con diverse applicazioni
e relativi bug , sono ritornato ad  A.Xp poiché quello del gruppo
programmi e un dei tanti errori ma non il solo , hai provato dopo aver
installato
una applicazione presso un utente tramite cd e poi ad disinstallare tale
applicativo ?
Ti viene richiesto il cd di installazione (o Setup) altrimenti e impossibile
disinstallare il tutto
parlandone con MS mi anno confermato che e un grave Bug e che però non sono
in
grado di dire quando sarà risolto (magari all'uscita della nuova Vs D Off.),
Bhe... a questo
 punto mi sono totalmente dissociato dai pacchetti di installazione di MS e
sono
passato ad altro:
Problemi 0
Sodisfazzioni :-))))
Flessibilità di Installazione +++++++++
Ciao Carlo
By Rino


title: Access XP & WinXP SP2

author: Simone Calligaris

text:
"Ferrari Rino"
nuova Vs D Off.),
> Bhe... a questo
>  punto mi sono totalmente dissociato dai pacchetti di installazione di MS
e
> sono
> passato ad altro:
> Problemi 0
> Sodisfazzioni :-))))
> Flessibilità di Installazione +++++++++
Cosa utilizzi?


title: Access XP & WinXP SP2

text:
"Simone Calligaris" <
simo...@libero.it
> ha scritto nel messaggio
news:VXmmd.36834$Es2.7...@twister2.libero.it...

SageKey  Software
MSI Wizard  2002
o per Wise(Molto flessibile)
Naturalmente il tutto a pagamento,
ma con molte soddisfazioni.
By Rino


title: Access XP & WinXP SP2

text:
> You may receive error messages when you install an Access 2002 runtime
> deployment package on a computer that is running Windows Server 2003
>
http://support.microsoft.com/default.aspx?scid=kb;en-us;837150&Product=acc2002
> ----------------------------
> Valida sia per Windows 2003 Server che per WindowsXp Sp2
>
> Ciao Giorgio
>
>
Grazie.
Funziona tutto perfettamente.
Ciao.


title: Access XP & WinXP SP2

text:
"Ferrari Rino"
> SageKey  Software
> MSI Wizard  2002
> o per Wise(Molto flessibile)
> Naturalmente il tutto a pagamento,
> ma con molte soddisfazioni.
Interessante, ma all'atto pratico come viene preparato il Setup?
Ovviamente la versione DEV di Access dovrà essere comunque installata...
Saluti.


title: Access XP & WinXP SP2

text:
CUT
>>
> Ciao Carlo  siamo alle solite con MS , dopo aver testato
> Office Sys. Pack con diverse applicazioni
> e relativi bug , sono ritornato ad  A.Xp poiché quello del gruppo
> programmi e un dei tanti errori ma non il solo , hai provato dopo aver
> installato
> una applicazione presso un utente tramite cd e poi ad disinstallare tale
> applicativo ?
> Ti viene richiesto il cd di installazione (o Setup) altrimenti e
> impossibile disinstallare il tutto
> parlandone con MS mi anno confermato che e un grave Bug e che però non
> sono in
> grado di dire quando sarà risolto (magari all'uscita della nuova Vs D
> Off.), Bhe... a questo
> punto mi sono totalmente dissociato dai pacchetti di installazione di MS e
> sono
> passato ad altro:
>
> Problemi 0
> Sodisfazzioni :-))))
> Flessibilità di Installazione +++++++++
>
> Ciao Carlo
> By Rino
>
>
Ciao Rino
è un piacere sentirti.
Per il cd richiesto in fase di disinstallazione, basta rimettere quello
usato per l'installazione e farlo puntare per la ricerca dei file alla
cartella "Files", tipicamente ACCESSRT.MSI.
Rimane comunque la mancata creazione del gruppo di programmi.
Ciao, Carlo


title: Access XP & WinXP SP2

text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:eyvmd.345353$35.15...@news4.tin.it...

Si Carlo questo lo so ma non e molto corretto anzi non lo e per niente,
non per altro la Microsoft lo ha catalogato come un grave Bug
quindi l'utente non deve essere vincolato al cd di prima installazione ess:
Se scarica una Demo da un server web (tra l'altro Sagekey il Pakage con
tutto il RunTime e
di circa 50MB oggi accessibilissimo a chiunque, ADSL permettendo)
e poi elimini il file di setup e dopo un po' di tempo decida di
disinstallare
l'applicativo cosa succede?
Che non sarà possibile disinstallare e quindi si dovrà accontentare
di rimuovere i file manualmente.
Il setup di A2003 gira solo su  SO XP o 2000 in poi e con i SO 98
Cosa facciamo?
Se ci saranno Pathc come nel 98, da installare e questo il Pakage xp
no ti permetteva di fare, e ne tanto meno il 2003 come si fa ?
Bisognerebbe intervenire manualmente ,poco professionale non credi!
Bene questi e molti altri problemi come il gruppo di programmi
ecc.. li ho risolti come descritto sopra.
Con la possibiltà di utilizzare un programma come Wise o InstalShield
per creare i propri pacchetti professionali personalizzabili in tutto e per
tutto
in tutta semplicità e non hai che da chiedere.
By Rino


title: Access XP & WinXP SP2

text:
"Simone Calligaris" <
simo...@libero.it
> ha scritto nel messaggio
news:syrmd.37372$Es2.8...@twister2.libero.it...

Ciao Simone Bhe..! si bisogna installare comunque la versione Dev
anche se comunque si utilizza solo la cartella contenente il
RunTime quindi una volta generata non si necessita più
dell'installazione del DEV.
In merito alla preparazione del setup e molto semplice
indicando i vari percorsi dove sono locate i file da inserire nel
proprio Setup compresa la cartella di RunTime naturalmente
in merito alle installazioni  win 98 o XP si possono installare
contemporaneamente anche le pathc per l' MDAC
e Jet naturalmente viene eseguito tutto dietro le quinte
senza che l'utente ne debba confermare nulla ,ne tantomeno
vedere nulla ,dissocia totalmente le dipendenze da qualsiasi
versione di access l'utente abbia installato ,cosa che con
il DEV. non succede, poiché il Package di MS verifica se esiste
una precedente installazione di Access, e quindi non installa i RunTime.
Mentre con SageKey comunque il tuo applicativo girerà solo
con il RunTime installato, evitando dunque uno dei problemi
comuni di installazione disinstallazione di Office.
L'interfaccia di setup e totalmente personalizzabile
naturalmente con i relativi passaggi come lo sono i menù
programmi e diversi collegamenti sul desktop e relativa barra veloce ecc.
Spero di essere stato abbastanza chiaro.
By Rino


title: Access XP & WinXP SP2

text:
"Ferrari Rino" <
> Ciao Simone Bhe..! si bisogna installare comunque la versione Dev
> anche se comunque si utilizza solo la cartella contenente il
> RunTime quindi una volta generata non si necessita piů
> dell'installazione del DEV.
Quindi il file .ZIP contenente il Runtime viene decompresso e "riassemblato"
diversamente?
Lo chiedo perchč in un precedente post confermavi che il Setup con SageKey č
piů smilzo rispetto a quello MS.
Saluti.


title: Access XP & WinXP SP2

text:
"Simone Calligaris" <
simo...@libero.it
> ha scritto nel messaggio
news:O8Lmd.37454$Ni.13...@twister1.libero.it...

Si in effetti il file.exe generato viene decompresso e poi installato
o invece di utilizzare il file compresso si puň usare il file .msi
naturalmente un po' piů grande .
By Rino


title: Re:Query di raggruppamento orari 2

author: MarcoMac

text:
Ciao a tutti.
Ho questa situazione:
IDBadge     OraInOut            InOut
=======     ==========          =====
   1        27/01/2005 08:30      0
   1        27/01/2005 09:30      1
   1        27/01/2005 11:00      0
   1        27/01/2005 13:30      1
   1        27/01/2005 14:00      0
   1        27/01/2005 15:00      1
   1        27/01/2005 16:30      0
   1        27/01/2005 17:30      1
   1        28/01/2005 07:30      0
   1        28/01/2005 13:00      1
   1        28/01/2005 13:30      0
   1        28/01/2005 17:30      1
ecc
Questa tabella da origine a questa tabella chiamata TEMP
IDBadge     Giorno        OraIn    OraOut
=======     =======       =====    =====
   1        27/01/2005    08:30    09:30
   1        27/01/2005    11:00    13:30
   1        27/01/2005    14:00    15:00
   1        27/01/2005    16:30    17:30
   1        28/01/2005    07:30    13:00
   1        28/01/2005    13:30    17:30
L'output che vorrei ottenere è questo:
Id   Giorno      In1    Out1   In2    Out2   In3    Out3   In4    Out4
==   ========    ===    ===    ===    ===    ===    ====   ====   ====
 1   27/01/2005  08:30  09:30  11:00  13:30  14:00  15:00  16:30  17:30
 1   28/01/2005  07:30  13:00  13:30  17:30
Lavorando con recordset e VBA ciclerei la tabella prendendo ad uno ad uno
i record ed inserendoli nei campi giusti.
Procedendo logicamente dovrei:
a) individuare quanti record ci sono per un giorno (usereri un Loop)
b) inserire nei campi In e Out le timbrature corrispondenti ed "avanzare"
campo per ogni coppia di record
Tramite SQL è fattibile una cosa del genere?
Forse il problema nasce dal fatto che non il numero delle coppie di
timbrature non è fisso ma variabile?
Ciao e grazie
MarcoMac
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Re:Query di raggruppamento orari 2

text:
"MarcoMac" <
pi...@pluto.it
> ha scritto nel messaggio
news:d4q5sq$erb$1...@news.newsland.it...

> L'output che vorrei ottenere č questo:
>
> Id   Giorno      In1    Out1   In2    Out2   In3    Out3   In4    Out4
> ==   ========    ===    ===    ===    ===    ===    ====   ====   ====
> 1   27/01/2005  08:30  09:30  11:00  13:30  14:00  15:00  16:30  17:30
> 1   28/01/2005  07:30  13:00  13:30  17:30
>
>
> Lavorando con recordset e VBA ciclerei la tabella prendendo ad uno ad uno
> i record ed inserendoli nei campi giusti.
> Procedendo logicamente dovrei:
> a) individuare quanti record ci sono per un giorno (usereri un Loop)
> b) inserire nei campi In e Out le timbrature corrispondenti ed "avanzare"
> campo per ogni coppia di record
>
> Tramite SQL č fattibile una cosa del genere?
> Forse il problema nasce dal fatto che non il numero delle coppie di
> timbrature non č fisso ma variabile?
> Ciao e grazie
> MarcoMac
>
>
> --
Credo ci possano essere piů strade. Quella che mi viene in mente č questa.
Per ogni id conta il numero di timbrature: ottieni cosě il numero massimo,
per esempio 8
Da codice crea al volo una tabella temporanea con ID Giorno e tanti In e Out
quanti sono (8) quelli contati.
A questo punto č un gioco riempirla.
In alternativa ti crei una tabella di appoggio con 20 o 30 in e out che
svuoterai e riempirai dinamicamente.
Con la tabella poi farai quello che vuoi.
Ciao, Carlo


title: Re:Query di raggruppamento orari 2

author: Ronvai

text:
"Carlo Costarella" <
carloantonioco...@virgilio.it
> ha scritto nel
messaggio news:Tp6ce.835009$b5.37...@news3.tin.it...

Anch'io ho avuto un problema simile ho risolto con una Query in questo modo,
poi ho apportato alcune modifiche per l'utilizzo in specifico. Grazie a
Roberto.
Format([Data],"mm/dd/yyyy") & "# AND InOut =
'00'")<>0,CDate(DMin("OraInOut","Tabella1","Matricola ='" & [Matricola] & "'
AND Data = #" & Format([Data],"mm/dd/yyyy") & "# AND InOut = '00'")),Null)
AS Ingresso, IIf(DCount("*","Tabella1","Matricola ='" & [Matricola] & "' AND
Data = #" & Format([Data],"mm/dd/yyyy") & "# AND InOut =
'01'")<>0,CDate(DMin("OraInOut","Tabella1","Matricola ='" & [Matricola] & "'
AND Data = #" & Format([Data],"mm/dd/yyyy") & "# AND InOut = '01'")),Null)
AS Uscita, IIf(DCount("*","Tabella1","Matricola ='" & [Matricola] & "' AND
Data = #" & Format([Data],"mm/dd/yyyy") & "# AND InOut = '00'")<>0,IIf(Not
IsNull(DMax("OraInOut","Tabella1","Matricola ='" & [Matricola] & "' AND Data
= #" & Format([Data],"mm/dd/yyyy") & "# AND InOut = '00'" & " AND OraInOut
<> #" & CDate(DMin("OraInOut","Tabella1","Matricola ='" & [Matricola] & "'
AND Data = #" & Format([Data],"mm/dd/yyyy") & "# AND InOut = '00'")) &
"#")),CDate(DMax("OraInOut","Tabella1","Matricola ='" & [Matricola] & "' AND
Data = #" & Format([Data],"mm/dd/yyyy") & "# AND InOut = '00'" & " AND
OraInOut <> #" & CDate(DMin("OraInOut","Tabella1","Matricola ='" &
[Matricola] & "' AND Data = #" & Format([Data],"mm/dd/yyyy") & "# AND InOut
= '00'")) & "#")),Null),Null) AS Ingresso1,
IIf(DCount("*","Tabella1","Matricola ='" & [Matricola] & "' AND Data = #" &
Format([Data],"mm/dd/yyyy") & "# AND InOut = '01'")<>0,IIf(Not
IsNull(DMax("OraInOut","Tabella1","Matricola ='" & [Matricola] & "' AND Data
= #" & Format([Data],"mm/dd/yyyy") & "# AND InOut = '01'" & " AND OraInOut
<> #" & CDate(DMin("OraInOut","Tabella1","Matricola ='" & [Matricola] & "'
AND Data = #" & Format([Data],"mm/dd/yyyy") & "# AND InOut = '01'")) &
"#")),CDate(DMax("OraInOut","Tabella1","Matricola ='" & [Matricola] & "' AND
Data = #" & Format([Data],"mm/dd/yyyy") & "# AND InOut = '01'" & " AND
OraInOut <> #" & CDate(DMin("OraInOut","Tabella1","Matricola ='" &
[Matricola] & "' AND Data = #" & Format([Data],"mm/dd/yyyy") & "# AND InOut
= '01'")) & "#")),Null),Null) AS Uscita1
FROM Tabella1
GROUP BY Tabella1.Matricola, Tabella1.Data
ORDER BY Tabella1.Data, Tabella1.Matricola;
Ciao Ronvai