title: Archivio di immagini

text:
"Cinzia" <
cinziapagani_...@tiscali.it
> ha scritto nel messaggio
news:cftlq2$g8u$1...@lacerta.tiscalinet.it...

Ciao Cinzia,
grazie della celere risposta, ho provato ad inserire il codice, ma c'è
qualcosa che non va perchè mi restituisce lo stesso errore (impossibile
aprire il file...) Ora ho questo codice:
If Not IsNull(Path_Immagine) Then
Me.MioControlloImmagine.Picture = Me.Path_Immagine
Else
If IsNull(Path_Immagine) Then
Me.MioControlloImmagine.Picture = Empty
Else
if not isnull(Me.Path_Immagine) then
if Len(Dir(Me.Path_Immagine))> 0 then
Me.MioControlloImmagine.Picture = Me.Path_Immagine
End If
End If
End If
End If


title: Archivio di immagini

author: Pixel

text:
"Vespamu" <> Dopo aver seguito le istruzioni del Sito Comune su come

Scusa, ma perchè non scarichi gli esempi pratici pubblicati sul Sito Comune
e non li analizzi?
Pixel


title: Archivio di immagini

author: Vespamu

text:
"Pixel" <
pixe...@libero.it
> ha scritto nel messaggio
news:E1uUc.43332$1V3.1...@twister2.libero.it...

Ciao,
li scarico volentieri, ma non ho trovato l'esempio di cui ho bisogno, sai
darmi un'indicazione di dove poterli trovare?


title: Archivio di immagini

text:
"Vespamu" <> > > (MioControlloImmagine) rimanga "vuoto" e senza che venga
generato
> li scarico volentieri, ma non ho trovato l'esempio di cui ho bisogno, sai
> darmi un'indicazione di dove poterli trovare?
Sono ben due gli .mdb pubblicati: cerca bene.
Quello che ricordo è :"Implementare un archivio d'immagini" di Silvio
Savoldi.
Pixel


title: Archivio di immagini

text:
"Pixel" <
pixe...@libero.it
> ha scritto nel messaggio
news:9puUc.46110$OH4.1...@twister1.libero.it...

>Hai ragione sono anche più di due, li ho "analizzati" il fatto è che non ne
capisco un'accidenti ed avrei solamente bisogno di sapere quale istruzione
occorre per intercettare questo errore e cioè:
Se il nome del file o il percorso contenuti nel campo MioPath sono errati o
inesistenti allora MioControlloImmagine = vuoto.
tutto qua, facile facile per gli esperti, montagna da scalare per i pivelli
:-)
Ciao


title: Archivio di immagini

author: ALESSANDRO Baraldi

text:
[CUT]
> Se il nome del file o il percorso contenuti nel campo MioPath sono errati
o
> inesistenti allora MioControlloImmagine = vuoto.
>
> tutto qua, facile facile per gli esperti, montagna da scalare per i
pivelli
> :-)
>
> Ciao
Io direi poca voglia di leggere e molta voglia di trovare tutto pronto...!!!
Gli esempi sono chiari e come ti ha suggerito Pixel dovresti perderci
un pò di tempo, come hanno fatto quelli che hanno realizzato gli esempi.
Come se non bastasse in questo NG l'argomento è trattato molto
spesso e molto bene, quindi potevi almeno effettuare una ricerca tra i
POST precedenti.
Facile facile per tutti.....!
@Alex.


title: Archivio di immagini

author: SunRex

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:cfu153$noq$1...@lacerta.tiscalinet.it...

Concordo con Ale ed aggiungo che sul web trovi tonnellate di esempi e di
codice non necessariamente su siti che trattano access.
Qui sotto un esempio "da analizzare" tratto da un sito su Visual Basic
per controllare l'esistenza di un file passando (nota l'argomento della
funzione) il percorso dello stesso.
Public Function FileExists(sFilename As String) As Boolean
    On Error GoTo ErrExit
    FileExists = CBool(Len(Dir(sFilename)) <> 0)
    Exit Function
ErrExit:
 FileExists = False
    MsgBox "Non trovo il file!", vbInformation
        Resume
         Exit Function
End Function
SunRex


title: Archivio di immagini

author: Cinzia

text:


Ciao,
ho commentato il tuo esempio di codice per farti capire dove sono gli
errori!
Questo if verifica solo che il percorso non sia nullo ma non verifica
l'esistenza del file, per cui nel caso in cui il file non esiste va in
errore.
> If Not IsNull(Path_Immagine) Then
> Me.MioControlloImmagine.Picture = Me.Path_Immagine
> Else
in questo if entra solo nel caso in cui il percorso sia nullo
> If IsNull(Path_Immagine) Then
> Me.MioControlloImmagine.Picture = Empty
in questo else praticamente non entrerà mai perchè in tutti i casi in cui il
path non è nullo entrerà nel primo IF e qui non  arriverà mai
> Else
> if not isnull(Me.Path_Immagine) then
> if Len(Dir(Me.Path_Immagine))> 0 then
> Me.MioControlloImmagine.Picture = Me.Path_Immagine
>
> End If
> End If
> End If
> End If
morale la routine dovrebbe essere riscritta in questo modo:
 If IsNull(Path_Immagine) Then
    Me.MioControlloImmagine.Picture = Empty
else
    if Len(Dir(Me.Path_Immagine))> 0 then
           Me.MioControlloImmagine.Picture = Me.Path_Immagine
    End If
end  if
Saluti
Cinzia


title: Archivio di immagini

text:
"Vespamu" <
> >Hai ragione sono anche più di due, li ho "analizzati" il fatto è che non
ne
> capisco un'accidenti ed avrei solamente bisogno di sapere quale istruzione
> occorre per intercettare questo errore e cioè:
>
> Se il nome del file o il percorso contenuti nel campo MioPath sono errati
o
> inesistenti allora MioControlloImmagine = vuoto.
>
> tutto qua, facile facile per gli esperti, montagna da scalare per i
pivelli
> :-)
Quindi chi ha realizzato e messo gratuitamente a disposizione del s.c. i
suddetti esempi ha faticato inutilmente?
Sinceramente non ti capisco.
Pixel


title: Archivio di immagini

author: Frank Adim Costa

text:
"Vespamu" <
ves...@libero.it
> wrote:

Controlla se il file esiste
Function PathFilenameIsValid(pathfilename As String) As Integer
    Set fs = CreateObject("Scripting.FileSystemObject")
    PathFilenameIsValid = fs.FileExists(pathfilename)
End Function


title: Archivio di immagini

text:
"Frank Adim Costa" <
fr...@dadoservice.it
> ha scritto nel messaggio
news:ou46i0hq4rbbol9r2...@4ax.com...

Grazie a tutti per l'aiuto.


title: Recupero "ID" per query di accodamento...

author: slumpolo

text:
Ho provato in tutti i modi possibili ma proprio non riesco...
Ho due tabelle che chiamerò semplicemente "testate" e "righe", le tabelle sono collegate fra loro da un campo "ID".
Ovviamente ad ogni testata possono corrispondere una o più righe:

Tabella Testate
ID   Descrizione
01   Rossi

Tabella Righe
ID   Citta
01   Milano
01   Roma
01   Napoli

Mi sono creato poi due tabelle temporanee una per le testate per le righe dove vado a scrivere dei dati che poi dovrei accodare alle tabelle di cui sopra.
Dentro tali tabelle temporanee si avrà sempre una solo record per quanto riguarda le testate e uno o più record per quanto riguarda le righe.

Ora per quanto riguarda l'accodamento della testata non ci sono i problemi in quanto l'ID mi viene assegnato automaticamente. Il problema lo ho con le righe in quanto dovrei accodarle utilizzando lo stesso ID della testata appena importata.

Ho provato utilizzando Dlookup, Dmax, Max, etc. ma ottengo sempre errore.

Come posso risolvere?

Grazie


author: BFS

text:
Il 17/07/2014 16:32, slumpolo ha scritto:
> Ho provato in tutti i modi possibili ma proprio non riesco...
> Ho due tabelle che chiamer� semplicemente "testate" e "righe", l
> Come posso risolvere?
>
> Grazie
>

dmax sul campo id di testate � la soluzione corretta per ottenere l'id
appena creato sulle testate...che errore ti da?
come richiami le query? da vba? da macro?

(do per scontato che la query di accodamento non possa venir eseguita
contemporaneamente su altri pc)

ciao
BFS


text:
> dmax sul campo id di testate � la soluzione corretta per ottenere l'id
>
> appena creato sulle testate...che errore ti da?
>
> come richiami le query? da vba? da macro?
>
>
>
> (do per scontato che la query di accodamento non possa venir eseguita
>
> contemporaneamente su altri pc)
>
>
>
> ciao
>
> BFS

Ho rimesso mano alla cosa solo oggi e misteriosamente ha funzionato...
Grazie per la risposta


title: prulsante esegui query - "Operazione precedente Annullata"

author: pfm

text:
salve
ho creato un pulsante per una query di raggruppamento parametrica

no capisco perche' se la eseguo dalla sezione query funziona mentre da una maschera mi scrive "Operazione precedente Annullata"

Private Sub cmd_Control_TuttiProduzioneDalAl_DTurno_Click()
On Error GoTo Err_cmd_Control_TuttiProduzioneDalAl_DTurno_Click

    Dim stDocName As String

    stDocName = "q_Control_Tutti_DalAL_DTurno"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_cmd_Control_TuttiProduzioneDa:
    Exit Sub

Err_cmd_Control_TuttiProduzioneDalAl_DTurno_Click:
    MsgBox Err.Description
    Resume Exit_cmd_Control_TuttiProduzioneDa

End Sub

Grazie anticipatamente


text: Qualcuna un suggerimento?


text:
Il giorno giovedì 3 ottobre 2019 21:30:55 UTC+2, pfm ha scritto:
> Qualcuna un suggerimento?

Saranno i nomi della LABEL della gestion errori.... ;-) assurde...

Scherzi a parte se non hai altro in CORSO, un TIMER nella form o altro..., non è possibile arti una risposta...

@Alex


title: dopo aver chiuso excel con Set xlsdoc = Nothing

text:
Dopo averlo chiuso excel con
Set xlsdoc = Nothing
con quella istruzione da codice, se premo ctrl+alt+canc excel c'č ancora e
se lo apro piů volte lo trovo piů volte come applicazione in esecuzione,
sapete come chiudere quel processo di excel al termine del codice?
grazie.


author: Alberto S.

text:
[CUT]
> Dopo averlo chiuso excel con
>
> Set xlsdoc = Nothing
>
> con quella istruzione da codice, se premo ctrl+alt+canc excel c'è ancora e
> se lo apro più volte lo trovo più volte come applicazione in esecuzione,
> sapete come chiudere quel processo di excel al termine del codice?
>
> grazie.
>
Io faccio:
    xlsdoc.Quit
    Set xlsdoc = Nothing
... e mi si chiude a dovere
--
Alberto


title: Run-Time2000 Vendesi

author: massimilianoŽ

text:
Salve Come da Oggetto Vendo licenza del RunTime di Access2000 Versione 1.5
Inglese (e la sola in commercio)
Per info:
gen...@tin.it


title: Run-Time2000 Vendesi

author: BabboNatale

text:
"massimilianoŽ"

Sarebbe Access 2000 developper kit?
PEO
www.studiopasquali.it


title: Progetto comunicazioni

author: Alberto

text:
Buongiorno,
mi hanno affidato un progetto da fare in Access, devo gestire un database
in rete che in base ad un oggetto predifinito spedisca un report ad utente
(via email), chiaramente gli "oggetti" sono tanti come gli utenti sono
diversi e se è possibile mandare il report per conoscenza ad altri utenti.
Qualcuno ha qualche idea ?
Grazie per la pazienza
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Progetto comunicazioni

author: Alessandro Cara

text:
Alberto wrote:
>
> Buongiorno,
> mi hanno affidato un progetto da fare in Access, devo gestire un database
> in rete che in base ad un oggetto predifinito spedisca un report ad utente
> (via email), chiaramente gli "oggetti" sono tanti come gli utenti sono
> diversi e se è possibile mandare il report per conoscenza ad altri utenti.
>
> Qualcuno ha qualche idea ?
sendobject
--
a.cara
Togli qualcosa dall'email


title: Errore SubQuery

text:
Salve ragazzi ho un database, con due tabelle,una tabella rappresenta degli
studenti, con i loro nomi e la relativa classe di appartenenza, l'altra
tabella ci sono delle prove fatte dagli studenti con il relativo voto per
ogni prova.
Devo fare una query che mi restituisca il cognome, nome degli studenti di
una classe, che hanno la media dei voti di tutte le prove, inferiore alla
media dei voti di tutte le prove, per l'intera classe. Ho fatto questa query
ma mi segnala l'errore: Impossibile eseguire una query che non include
l'espressione "nome" specificata come parte di una funzione di aggregazione.
Comunque ecco la mia query
SELECT S.nome, S.cognome, avg(P.voto) AS media
FROM studente AS S, prova AS P
WHERE S.classe='III' and S.id_studente=P.studente
GROUP BY S.nome, S.cognome
HAVING avg(P.voto) <
(select  avg(P.voto)
from studente
where S.classe='III');
Grazie a chi vorrà aiutarmi per scoprire l'errore
--
# ICQ 84624356
# MSN
lello...@katamail.com


title: Errore SubQuery

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
messaggio news:422f6d71$0$6305$5fc...@news.tiscali.it...
>
> "Il_Puntatore" <
lello...@katamail.it
> ha scritto nel messaggio
> news:DOIXd.3980$zZ1....@twister1.libero.it...

>> Grazie a chi vorrŕ aiutarmi per scoprire l'errore
>>
>
> Ciao,
> c'č un problema nella subquery.
> Prova a considerare la subquery come una singola unitŕ e ad eseguirla in
> modo autonomo
> ------------
> select  avg(P.voto)
> from studente
> where S.classe='III'
> ------------
> di accorgerai che c'č qualcosa che non va.
>
> Per estrarre la media della classe puoi fare cosě
> -----------------
> select  avg(P.voto)
> from studente AS S,Prova AS P
> where S.classe='III' and S.id_studente=P.studente
> -----------------
>
> Quindi
> -------------
> SELECT S.nome, S.cognome, avg(P.voto) AS media
> FROM studente AS S, prova AS P
> WHERE S.classe='III' and S.id_studente=P.studente
> GROUP BY S.nome, S.cognome
> HAVING avg(P.voto) <
> (select  avg(P.voto)
> from studente AS S,Prova AS P
> where S.classe='III' and S.id_studente=P.studente);
> ----------------
>
> Ciao Giorgio
Grazie non mi ero accorto di questo errore ;-)


title: Errore SubQuery

author: giorgio rancati

text:
"Il_Puntatore" <
lello...@katamail.it
> ha scritto nel messaggio
news:DOIXd.3980$zZ1....@twister1.libero.it...

> Grazie a chi vorrŕ aiutarmi per scoprire l'errore
>
Ciao,
c'č un problema nella subquery.
Prova a considerare la subquery come una singola unitŕ e ad eseguirla in
modo autonomo
------------
select  avg(P.voto)
 from studente
 where S.classe='III'
------------
di accorgerai che c'č qualcosa che non va.
Per estrarre la media della classe puoi fare cosě
-----------------
select  avg(P.voto)
from studente AS S,Prova AS P
where S.classe='III' and S.id_studente=P.studente
-----------------
Quindi
-------------
SELECT S.nome, S.cognome, avg(P.voto) AS media
FROM studente AS S, prova AS P
WHERE S.classe='III' and S.id_studente=P.studente
GROUP BY S.nome, S.cognome
HAVING avg(P.voto) <
(select  avg(P.voto)



title: maschere/sottomaschere e maschere esterne...

author: Alcibiade

text:
Ciao a tutti, cerco di esporre rapidamente il problema: ho una maschera
A(scrittori) che contiene una sottomaschera B(libri).
Scegliendo lo scrittore la sottomaschera mi elenca solo i libri dello
scrittore scelto.
Nell'intestazione di maschera A, ho creato una funzionalità che mi
permette di cercare lo scrittore a partire dalle  iniziali(in base alle
iniziali immesse nella casella di testo vengono elencati i nomi
corrispondenti in un listbox).Fin qui tutto ok!
Ho aggiunto un pulsante che mi apre una maschera per l'inserimento di
un nuovo scrittore.
Il nome dello scrittore aggiunto compare nel listbox ma non nella
maschera.Devo chiudere e riaprire la maschera per associare
correttamente il nuovo nome, come posso evitarlo?
Grazie e scusate la lunghezza del post.


author: Sergio MAZZA

text:
"Alcibiade" <
pand...@libero.it
> ha scritto nel messaggio news:1153468444.9...@i42g2000cwa.googlegroups.com...

[risposta]
Alla chiusura della form fai un requery della casella combinata sull'altra maschera:
es.
Forms!nomeCasella.Requery
Docmd.Close acform,
me.name
Ciao.
--
Sergio MAZZA


text:
> [risposta]
> Alla chiusura della form fai un requery della casella combinata sull'altra maschera:
> es.
> Forms!nomeCasella.Requery
> Docmd.Close acform,
me.name
>
>
> Ciao.
>
> --
> Sergio MAZZA
Grazie Sergio mi hai fatto venire un'altra idea: ho provveduto a
chiudere la form principale e riaprirla  alla chiusura della form
esterna ;)
Ciao.


text:
"Alcibiade" <
pand...@libero.it
> ha scritto nel messaggio news:1153473324.4...@i3g2000cwc.googlegroups.com...
>
> Grazie Sergio mi hai fatto venire un'altra idea: ho provveduto a
> chiudere la form principale e riaprirla  alla chiusura della form
> esterna ;)
> Ciao.
Secondo me è un metodo "dispendioso" in termini di risorse; la chiusura e riapertura della form ti costringe a rileggerti il
recordset...
Ciao.
--
Sergio MAZZA


text:
Sergio MAZZA ha scritto:
> "Alcibiade" <
pand...@libero.it
> ha scritto nel messaggio news:1153473324.4...@i3g2000cwc.googlegroups.com...
>Alla chiusura della form fai un requery della casella combinata sull'altra maschera:
>es.
>Forms!nomeCasella.Requery
>Docmd.Close acform,
me.name
> >
> > Grazie Sergio mi hai fatto venire un'altra idea: ho provveduto a
> > chiudere la form principale e riaprirla  alla chiusura della form
> > esterna ;)
> > Ciao.
>
>
> Secondo me è un metodo "dispendioso" in termini di risorse; la chiusura e riapertura della form ti costringe a rileggerti il
> recordset...
>
> Ciao.
>
> --
> Sergio MAZZA
Ho fatto cosi perchè non ho ben capito quale era il tuo consiglio, se
me lo rispieghi accetto volentieri.Probabilmente non illustrato
chiaramente , ci riprovo :)
Le 2 maschere (A e B) fanno riferimento a 2 tabelle libro, scrittore.
Con un pulsante aggiungo un nuovo scrittore tramite una form
esterna.Chiusa la form esterna, lo scrittore compare nella listbox( è
stata da me aggiunta per vedere in modo veloce tutti gli scirttori
presenti ed esegue questa query
 SELECT scrittore.id_scrittore, scrittore.nome FROM scrittore WHERE
scrittore.nome Like forms!fat1!testo8 ORDER BY scrittore.nome;
Il problema è che tutti gli altri campi( caselle di testo ,
navigazione del db etc...) creati automaticamente da access tramite la
creazione guidata, sembra che non si accorgano della presenza del nuovo
scrittore, fin quando non chiudo e riapro la maschera.
Ciao


text:
"Alcibiade" <
pand...@libero.it
> ha scritto nel messaggio news:1153478110.4...@p79g2000cwp.googlegroups.com...
Ho fatto cosi perchè non ho ben capito quale era il tuo consiglio, se
me lo rispieghi accetto volentieri.Probabilmente non illustrato
chiaramente , ci riprovo :)
Le 2 maschere (A e B) fanno riferimento a 2 tabelle libro, scrittore.
Con un pulsante aggiungo un nuovo scrittore tramite una form
esterna.Chiusa la form esterna, lo scrittore compare nella listbox( è
stata da me aggiunta per vedere in modo veloce tutti gli scirttori
presenti ed esegue questa query
 SELECT scrittore.id_scrittore, scrittore.nome FROM scrittore WHERE
scrittore.nome Like forms!fat1!testo8 ORDER BY scrittore.nome;
Il problema è che tutti gli altri campi( caselle di testo ,
navigazione del db etc...) creati automaticamente da access tramite la
creazione guidata, sembra che non si accorgano della presenza del nuovo
scrittore, fin quando non chiudo e riapro la maschera.
Ciao
[risposta]
Oltre al requery della casella combinata dovrai posizionarti sul record appena aggiunto/creato:
es.
if me.dirty then me.refresh '<-- forza la scrittura del record
...requery casella combinata su form B...
Dim rst As Recordset
Set rst = Forms!B.RecordsetClone
rst.FindFirst "[id]=" & Me!id
If rst.NoMatch Then
    MsgBox "Non trovato."
Else
    Forms!B.Bookmark = rst.Bookmark
End If
set rst = nothing
...chiudi maschera...
Ciao.
--
Sergio MAZZA


text:
Ciao Sergio, non ci riesco. Se vuoi posso rendere disponibile il file
access.
Grazie, Marco
Sergio MAZZA ha scritto:



text:
"Alcibiade" <
pand...@libero.it
> ha scritto nel messaggio
news:1153560892.0...@h48g2000cwc.googlegroups.com...
Ciao Sergio, non ci riesco. Se vuoi posso rendere disponibile il file
access.
Grazie, Marco
[risposta]
In cosa "non riesci"?
Ciao.
--
Sergio MAZZA


text:
Sergio MAZZA ha scritto:

Ciao Sergio, non riesco a far riferimento al recordset del form B
>>Forms!B.RecordsetClone mi da errore....ho provato anche varie combinazioni ma niente


text:
"Alcibiade" <
pand...@libero.it
> ha scritto nel messaggio
news:1153745942.7...@m73g2000cwd.googlegroups.com...
> Ciao Sergio, non riesco a far riferimento al recordset del form B
>Forms!B.RecordsetClone mi da errore....ho provato anche varie combinazioni
>ma niente
Forse la sintassi giusta č:
Forms!B.Form.RecordsetClone
Ciao.
--
Sergio MAZZA


title: query statistiche su grafico

author: Jiji

text:
Sono giorni che cerco di capire come realizzare il seguente:
1.Vorrei realizzare una maschera con all'interno un grafico
tale grafico deve essere possibile modificarlo in base alle opzioni settate
dall'utente.
fin qua posso dire di esserci riuscito a patto che faccia riferimento ai
campi di una sola tabella
2. Vorrei che l'utente possa selezionare i campi di tabelle diverse e
visionare al click ol grafico corrispondente
Come posso fare??
In pratica se ho il nome di un dipendente in una tabella e lo stipendio in
un'altra tabella come faccio a realizzare la query Sql con il vba? e' cosi'
intelligente da fare il join da solo??
Ditemi se sono pazzo o lo sto per diventare
Grazie


title: query statistiche su grafico

author: wlady

text:
Jiji ha scritto:

se non hai dimistichezza con SQL ti suggerirei di crearti una query
tipo con lo strumenti di access e copiarti il codice generato che
potrai utilizzare, opportunamente modificato in vba.
ciao


title: query statistiche su grafico

text:
[CUT]
>
> se non hai dimistichezza con SQL ti suggerirei di crearti una query
> tipo con lo strumenti di access e copiarti il codice generato che
> potrai utilizzare, opportunamente modificato in vba.
>
> ciao
>
si quello che dici e' giusto se ho un numero limitato di query da eseguire..
..il problema e' che a priori nn conosco quali saranno le tabelle coinvolte
in un eventuale Join quindi vorrei capire come faccio ad ottenere le chiavi
primarie/secondarie delle tabelle coinvolte:-(
Grazie


title: query statistiche su grafico

text:

Non ti servono le "chiavi". Ti servono le "relazioni" e ti servono
sopratutto gli "attributi", o meglio i valori degli attributi da
esporre. Il tutto si dovrebbe ridurre alla creazione di una query (via
VBA non e' particolarmente complicato) che alimenta "l'origine dati" del
grafico.
Piu' o meno una cosa simile a questa:
.........
sQuery = sQuery & " SELECT [DATIBUD].[Margine] FROM (select * from
datibud where budget between   " & iBudget & " and " & uBudget
sQuery = sQuery & " and margine in (" & sSql & ")) GROUP BY
[DATIBUD].[Margine] PIVOT [DATIBUD].[Budget]"
Me("graf0" & me!tipograf).RowSource = sQuery
Me("graf0" & me!tipograf).Requery
.......
--
ac


title: subtotale in form record continui

author: mario rossi

text:
buongiorno a tutti, ho la necessità di avere un subtotale di un importo in euro ogni volta che termina una settimana

esempio

lunedì 21/03/2022 - 10,00 €
martedì 22/03/2022 - 15,00 €
sabato 26/03/2022 - 18,00 €
domenica 27/03/2022 - 13,00 €
totale numero settimana x importo 56,00 €

lunedì 28/03/2022 - 8,00 €
mercoledì 30/03/2022 - 2,00 €
domenica 03/04/2022 - 8,00 €
totale numero settimana x importo 18,00 €

pensavo di usare una sottomaschera e di raggruppare in qualche modo i record ma non so come precodere, qualcuno ha qualche idea?


title: subtotale in form record continui

text:

Ciao TmTu,
supponendo che tu abbia una tabella con i campi ID, GiornoSett, dData e Importo, potresti creare una query con la somma di Importo e il campo calcolato nSett (numero settimana ottenuto con la funzione DatePart):

  SELECT DatePart("ww",[dData]) AS nSett, Sum(TotSettimana.[importo]) AS TotSett
  FROM TotSettimana
  GROUP BY DatePart("ww",[dData]);

Il risultato sarà la somma degli importi per numero di settimana:
  nSett	TotSett
      13	        43
      14	        23
      15	          8


title: subtotale in form record continui

text:

tabella entrate con

datap : data
importo: valuta
id: contatore

sql:

select a.datap, a.importo  from(

SELECT Entrate.datap, Entrate.importo, Entrate.ID,
DatePart('ww',[datap],2) AS Sett
FROM Entrate
ORDER BY  DatePart('ww',[datap],2), id

UNION select null, sum(importo),32, DatePart('ww',[datap],2) AS Sett
from entrate group by DatePart('ww',[datap],2)) as a

order by a.sett,
a.id

risultato
https://i.imgur.com/fhxyIaU.png

BFS

--
Questa email è stata esaminata alla ricerca di virus da AVG.
http://www.avg.com


title: subtotale in form record continui

text:
Il 21/03/2022 23:45,
mau...@gmail.com
 ha scritto:
> Il giorno lunedì 21 marzo 2022 alle 20:38:57 UTC+1
tmtu...@gmail.com
 ha scritto:
>> buongiorno a tutti, ho la necessità di avere un subtotale di un importo in euro ogni volta che termina una settimana
>>
>> esempio
>>
>> lunedì 21/03/2022 - 10,00 €
>> martedì 22/03/2022 - 15,00 €
>> sabato 26/03/2022 - 18,00 €
>> domenica 27/03/2022 - 13,00 €
>> totale numero settimana x importo 56,00 €
>>
>> lunedì 28/03/2022 - 8,00 €
>> mercoledì 30/03/2022 - 2,00 €
>> domenica 03/04/2022 - 8,00 €
>> totale numero settimana x importo 18,00 €
>>

>
> Il risultato sarà la somma degli importi per numero di settimana:
>    nSett	TotSett
>        13	        43
>        14	        23
>        15	          8

che non coincidono con i suoi...
nella funzione datepart va impostato anche che giorno della settimana va
considerato come il primo

in italia, il lunedi quindi
DatePart("ww",[dData],2)

se lasci solo DatePart("ww",[dData]) viene considerata la domenica



title: subtotale in form record continui

text:

Vero! Grazie per aver controllato.


title: subtotale in form record continui

text:

ci provo grazie nel frattempo


title: subtotale in form record continui

text:

ho provato cosi ma aprendo la query mi esce il messaggio seguente: "immettere valore parametro a.idutente"
i campi della mia tabella sono questi
id, idutente, datastampa, orastampa, data, ora, importo, sf, descrizione

***CODICE SQL PROVATO***
SELECT a.idutente, a.datastampa, a.orastampa, a.data, a.ora, a.importo, a.sf, a.descrizione
FROM (SELECT log.data,log.importo,log.ID,
DatePart('ww',[data],2) AS Sett
FROM log
ORDER BY DatePart('ww',[data],2),id

UNION select null, sum(importo),32, DatePart('ww',[data],2) AS Sett
from log group by DatePart('ww',[data],2))  AS a
ORDER BY a.sett,
a.id
;


title: subtotale in form record continui

text:

ti da errore perchè hai una select per un campo idutente :
SELECT a.idutente

che lui si aspetta di trovare in

SELECT log.data,log.importo,log.ID,
DatePart('ww',[data],2) AS Sett

ma che invece non c'è

inoltre fai una union di due query che hanno un numero diverso di colonne

BFS


title: subtotale in form record continui

text:

ho modificato la query come segue ma non è esattamente lo stesso aspetto del tuo esempio, ho aggiunto anche una tabella per prelevare cognome e nome
ottengo però i 2 totali di due settimane in alto e gli altri record di seguito sotto, mentre il tuo esempio mostra i giorni poi totale settimana poi altri giorni e altro totale settimana
è un problema solo di ordinamento ma non so cosa modificare

**code sql**
SELECT utenti.Cognome, utenti.Nome, a.idutente, a.data, a.sf, a.descrizione,
a.id
, a.importo
FROM (SELECT log.idutente,log.importo,log.data,log.sf,log.descrizione,log.ID,
DatePart('ww',[data],2) AS Sett
FROM log
ORDER BY DatePart('ww',[data],2),id

UNION select null, sum(importo),32, DatePart('ww',[data],2),null,null,null AS Sett
from log group by DatePart('ww',[data],2))  AS a LEFT JOIN utenti ON a.idutente = utenti.ID
ORDER BY a.sett,
a.id
;

la query la apre e ottengo quanto segue

cognome-nome-idutente-data-sf-descrizione-id-importo
null-null-null-32-12-null-null-150
null-null-null-32-13-null-null-15
rossi-mario-7-18/03/2022-18-1-28-50€
rossi-mario-7-17/03/2022-19-1-29-50€
rossi-mario-7-16/03/2022-20-1-30-50€
rossi-mario-7-24/03/2022-10-1-20-10€
rossi-mario-7-23/03/2022-12-1-22-5€

mentre mi aspettavo
rossi-mario-7-16/03/2022-20-1-30-50€
rossi-mario-7-17/03/2022-19-1-29-50€
rossi-mario-7-18/03/2022-18-1-28-50€
null-null-null-32-12-null-null-150
rossi-mario-7-23/03/2022-12-1-22-5€
rossi-mario-7-24/03/2022-10-1-20-10€
null-null-null-32-13-null-null-15

cosa sbaglio?


title: subtotale in form record continui

text:

Prova a sostiuire la riga
UNION select null, sum(importo),32, DatePart('ww',[data],2),null,null,null AS Sett
con
UNION SELECT null, sum(importo), 32, null, null, null, DatePart('ww',[data],2) AS Sett


title: subtotale in form record continui

text:

che non stai unendo le colonne correttamente

sulla prima in terza posizione hai idutente
nella seconda in terza posizione hai  32

e cmq l'id serve solo per dare un ordine alle righe del mio esempio, nel
tuo caso non so cosa rappresenti. devi assicurarti di avere un valore
nella seconda che sia sempre maggiore della prima per poi poterle ordinare

studiati le query di unione

https://support.microsoft.com/en-us/office/use-a-union-query-to-combine-multiple-queries-into-a-single-result-1f772ec0-cc73-474d-ab10-ad0a75541c6e




title: subtotale in form record continui

text:

funziona grazie a tutti


title: Cambiare colore da formula.

author: Govardo Libero

text:
E' possibile cambiare i colori ad un controllo da formula su A97?
Qualcosa tipo  ....= format([miocampo];"coloreacaso")
--
                     Angelo
------------------------------------------------------
Sito comune di it.comp.appl.access
http://www.sitocomune.com
------------------------------------------------------


title: Cambiare colore da formula.

author: Silvio Berruti

text:
"Govardo Libero" <
gov...@libero.it
> ha scritto nel messaggio
news:eDyy7.20254$1H1.1...@news.infostrada.it...
> E' possibile cambiare i colori ad un controllo da formula su A97?
> Qualcosa tipo  ....= format([miocampo];"coloreacaso")
>
Sito Comune.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Cambiare colore da formula.

text:
Scusa Silvio, ma non trovo.
Rispondi almeno booleanamente se proprio non puoi compilarmi l'esempio.
Perché questo funziona:
 = format([miocampo];">")
e questo no
 = format([miocampo];"[rosso]")
GrazieGrazie
--
                     Angelo
------------------------------------------------------
Sito comune di it.comp.appl.access
http://www.sitocomune.com
------------------------------------------------------
"Silvio Berruti" <
sber...@libero.it
> ha scritto nel messaggio
news:Sjzy7.20501$1H1.1...@news.infostrada.it...



title: Cambiare colore da formula.

text:
"Govardo Libero" <
gov...@libero.it
> ha scritto nel messaggio
news:d2Cy7.21568$1H1.1...@news.infostrada.it...
> Scusa Silvio, ma non trovo.
> Rispondi almeno booleanamente se proprio non puoi compilarmi l'esempio.
>
> Perché questo funziona:
>  = format([miocampo];">")
> e questo no
>  = format([miocampo];"[rosso]")
>
Innanzi tutto rispondi dopo i messaggi precedenti, per favore.
Se vai sul Sito Comune, sezione Forms, hai a disposizione:
- "Formattazione Condizionale nelle maschere continue" di Silvio Savoldi;
- "Evidenziare specifiche righe in Maschere Continue" di Asukuo;
- "In modalità maschere continue è possibile visualizzare un controllo
colorato diversamente a seconda del suo contenuto? (1)" di Lorenzo Coronati;
- "In modalità maschere continue è possibile visualizzare un controllo
colorato diversamente a seconda del suo contenuto? (2)" di Graziano Mario
Valenti.
vedi tu quella che ti piace di +



title: Cambiare colore da formula.

text:
"Silvio Berruti" <
sber...@libero.it
> ha scritto nel messaggio
news:lDFy7.23286$1H1.1...@news.infostrada.it...

Grazie Silvio, ma avevo già smanettato tra gli esempi, qualcuno dei quali
ricorre al trucco dei controlli sovrapposti e qualcun'altro alle windows
api.
Mi rendo conto che forse cio che volevo è un utopia (per ora).
--
                     Angelo
------------------------------------------------------
Sito comune di it.comp.appl.access
http://www.sitocomune.com
------------------------------------------------------


title: Cambiare colore da formula.

text:
Ciao,
scusate mi intrometto anche io avrei un problemino simile...
nel
senso che avrei bisogno che a seguito della selezione su una casella di
controllo gli altri controlli vengano visualizzati... con un colore
diverso...
pensate sia possibile?
grazie
@fly
--------------------------------
Inviato via
http://usenet.iol.it


title: creare record da tabella

author: walter

text:
In una Form di tipo "maschera continua" vorrei che su apertura mi
prediponesse una serie di record con deio valori prelevati da una tabella,
ma no so da che parte cominciare
Grazie per l'aiuto
Walter


title: creare record da tabella

text:
"walter" <
val...@inwind.it
> ha scritto nel messaggio
news:dCxrb.105761$e6.38...@twister2.libero.it...

qeury di accodamento prima di aprire la maschera?


title: shell

author: straw

text:
Come si fa a sapere quando si lancia .exe con shell se il .exe è terminato
oppure si può bloccare l'esecuzione del programma alla shell di lancio e
passare alla riga successiva solo dopo aver chiuso l'aplicazione . exe?
Grazie a tutti


title: shell


title: shell

author: Liones

text:
"straw" <
st...@freesurf.ch
> ha scritto nel messaggio
news:lSrY9.44305$ZE.12...@twister2.libero.it...
> Come si fa a sapere quando si lancia .exe con shell se il .exe è terminato
> oppure si può bloccare l'esecuzione del programma alla shell di lancio e
> passare alla riga successiva solo dopo aver chiuso l'aplicazione . exe?
http://www.sitocomune.com


title: query che raggruppa record x mese

author: Fabio

text:
Come si fa' a dire ad una query di restituire tutti i record raggruppati per
mese? Dovendo calcolare il mese dalla data in formato cifre     es: 08/06/02
Grazie e ciao


title: query che raggruppa record x mese

author: sittinghorse

text:
"Fabio" <
fole...@libero.it
> ha scritto nel messaggio
news:PT7M8.18808$K4.4...@twister2.libero.it...

> Basta mettere nel campo criteri della query di selezione che usi il
criterio; nello specifico potresti seguire questo esempietto:
Supposto che la tua tabella contenete i dati si chiami "Tabella1"
Supposto che il tuo campo contente le date si chiami "campo1"
allora
Nella query di selezione basata sulla tabella1 inserisci nella griglia il
campo1 e poi nella riga criteri aggiungi quanto segue:
Month([Tabella1]![Campo1])=1
ovviamente dopo l'uguale inserisci un numero che indichi il mese secondo cui
raggruppare.
Ciao e in bocca al lupo da sittinghorse
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.362 / Virus Database: 199 - Release Date: 07/05/02


title: query che raggruppa record x mese

author: Roberto da casa

text:
"Fabio" <
fole...@libero.it
> ha scritto nel messaggio
news:PT7M8.18808$K4.4...@twister2.libero.it...

Se la tabella che contiene i dati si chiama Tabella1 ed ha una struttura
simile a questa:
ID                Contatore e chiave primaria
Data1           Data/ora
Importo        Valuta
Se vuoi creare una query di raggruppamento che tirestituisce i totali del
campo Importo raggruppati per il mese di Data1.
Prova con una query che ha il seguente codice SQL:
SELECT Format([Data1],"yyyymm") AS Mese, Sum(Tabella1.Importo) AS
SommaDiImporto
FROM Tabella1
GROUP BY Format([Data1],"yyyymm");
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: comparare valori real

author: pfm

text:
salve

ho 3 campi
a, b, c real

vorrei vedere se a = b+c

come posso fare?

visto che mi mette una sfilza di numeri decimali

ho provato con format(a,"0.0") ma così diventa testo

GRAZIE


title: comparare valori real

text:

Li devi arrotondare al decimale che ti serve come precisione di confronto.

@Alex


title: comparare valori real

text:

grazie ma con round()?


title: comparare valori real

text:

Se è solo a scopo di CONFRONTO si, se invece è a fini commerciali, meglio la funzione di KARL...

http://www.donkarl.com/it?FAQ2.1

@Alex


title: Import automatico dati fra file mdb

author: Servizio Tecnico

text:
  Ciao,
è possibile in Access importare in automatico i valori di una tabella da
una tabella identica, ma in un altro file MDB su una macchina remota?
Un aggiornamento automatico (cliccare un bottone, o un evento ogni volta
che si apre il file) che carichi i dati aggiornati da un'altra copia del
DB su una macchina in rete, insomma. Si può fare? Bisogna creare una
origine dati apposita o basta programmare la cosa in VBA?


title: Import automatico dati fra file mdb

author: Pablitomf

text:
"Servizio Tecnico" <
Servizi...@gmail.com
> ha scritto nel messaggio
news:48f5d4aa$0$40312$4faf...@reader5.news.tin.it...

se la macchina è in rete locale, o in VPN remota, basta creare una query di
accodamento.
---
Ciao
Pablitomf
www.accessgroup.it
---
FORZA NAPOLI - - - SEMPRE!
Tifosi Napoletani, gente fantastica
http://it.youtube.com/watch?v=gUqFHOXrK-M&feature=related


title: cambiare porta lpt da vba

author: BFS

text:
Salve
avrei la necessitï¿œ di gestire le porte assegnate alle varie stampanti da
codice vba...in particolare switchare da lpt1 a lpt2 la porta di una
stampante installata.
ï¿œ fattibile magari con qualce API?
grazie
BFS


title: cambiare porta lpt da vba

text:
BFS ha scritto:
>Salve
>
>avrei la necessit� di gestire le porte assegnate alle varie stampanti da
>codice vba...in particolare switchare da lpt1 a lpt2 la porta di una
>stampante installata.
>� fattibile magari con qualce API?
>
>grazie
>BFS
Non credo ci sia bisogno di scomodare la API.....se hai => A2003 c'� l'insieme
printers (con la sua propriet� Port) che magari fa al caso tuo
O anche con un file bat da lanciare tramite shell.....io lo uso per un vecchio
programma in dos al fine di cambiare l'assegnazione di una stampante di rete e
convincerlo a stampare su usb
net use Lpt1.......
--
Questo articolo e` stato inviato dal sito web
http://www.nonsolonews.it


title: Fotografia pigra

author: Giuseppe

text:
Ciao a tutti:
Sulla falsa riga di Northwind.mdb, (maschera impiegati) mi sono creato una
maschera, dove trovo per ogni piano di un condominio la foto dell'ingresso
dell'appartamento sul lato sinistro
e la pianta dello stesso sul lato destro . Se rimuovo la foto (lato
sinistro) dopo l'aggiornamento (chiudo e riapro la maschera) la pianta (lato
destro) non si visualizza.
Il codice è quello di nortwind e l'evento errato credo sia "Form_Current()"
Invio il codice (uguale a quello di northwind ma con doppi oggetti)
Cosa può essere?
Grazie
Codice:
Private Sub Form_Current()
    ' Visualizza la foto per il record dell'impiegato corrente se
disponibile.
    ' Se il file non è più disponibile o se non è stato specificato un nome
di file
    ' per l'impiegato corrente, imposta il messaggio appropriato per la
didascalia
    ' ErrorMsg.
    Dim res As Boolean
    Dim fName As String
    Dim fName2 As String
    path = CurrentProject.path
    On Error Resume Next
        ErrorMsg.Visible = False
        ErrorMsg2.Visible = False
        If Not IsNull(Me![Foto]) Then
            res = IsRelative(Me![Foto])
            fName = Me![ImagePath]
            If (res = True) Then
                fName = path & "\" & fName
            End If
        If Not IsNull(Me![Pianta]) Then
            res = IsRelative(Me![Pianta])
            fName2 = Me![ImagePath2]
            If (res = True) Then
                fName2 = path & "\" & fName2
            End If
          End If
            Me![ImageFrame].Picture = fName
            showImageFrame
            Me.PaintPalette = Me![ImageFrame].ObjectPalette
            Me![ImageFrame2].Picture = fName2
            showImageFrame2
            Me.PaintPalette = Me![ImageFrame2].ObjectPalette
            If (Me![ImageFrame].Picture <> fName) Then
                hideImageFrame
                ErrorMsg.Caption = "Impossibile trovare la foto"
                ErrorMsg2.Caption = "Impossibile trovare la pianta"
                ErrorMsg.Visible = True
                ErrorMsg2.Visible = True
            End If
            If (Me![ImageFrame2].Picture <> fName2) Then
                hideImageFrame2
                ErrorMsg.Caption = "Impossibile trovare la foto"
                ErrorMsg2.Caption = "Impossibile trovare la pianta"
                ErrorMsg.Visible = True
                ErrorMsg2.Visible = True
            End If
        Else
            hideImageFrame
            hideImageFrame2
            ErrorMsg.Caption = "Fare clic su Aggiungi/modifica per
aggiungere una foto"
            ErrorMsg2.Caption = "Fare clic su Aggiunsi/modifica per
aggiungere una pianta"
            ErrorMsg.Visible = True
            ErrorMsg2.Visible = True
        End If
End Sub


title: Fotografia pigra

text:
Giuseppe ha scritto:
[CUT]
Usa LeBans... me lo suggerirono e io apprezzai... e ancora apprezzo! ;-)
--
Ciao
Pablitomf (Maurizio Facciuti)
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Percorso BackEnd

author: Brunoz

text:
In un FrontEnd avento tutti i BeckEnd con medesimo percorso è possibile
determinare un nuovo percorso (da codice o da apposita tabella).
Ho gia scaricato gli esempi di riallegamento presenti in sitocomune ma
"penso" non facciano al caso mio.
Tenete presente che sono un principiante ed in sù con l'età.
Grazie infinite per l'attenzione.
-Bruno-


title: Percorso BackEnd

text:
"Brunoz" <b.zanin...@NOSPtiscali.it> ha scritto nel messaggio
news:boijrm$an2$1...@lacerta.tiscalinet.it...

eccolo qua!!! ciao.
---------------------------------------------------
Public Function CambiaPercorso(path2 As String)
Dim miatable As TableDef
Dim miodb As Database
Dim path As String
Dim i As Integer
path = path2
Set miodb = CurrentDb()
For i = 0 To miodb.TableDefs.Count - 1
    Set miatable = miodb.TableDefs(i)
    If miatable.Connect <> "" Then
       miatable.Connect = ";DATABASE=" & path & ";UID=sa;PWD=33333;"
       miatable.RefreshLink
    End If
Next i
End Function


title: Corrispettivi telematici

author: liones

text:
Sulle "casse" il tecnico deve impostare se la cassa ventila
(record tipo 3)
o Iva puntuale (record tipo 2)
???


title: Problema con campi SI/NO

author: Giulio Severini

text:
Ho creato una tabella con molti campi SI/NO.
Poi nella maschera cui ho associato tali controlli, ne ho messi giusto un
paio per prova e mi sono ritrovato con due caselle combinate già pronte.
Il problema è che quando metto uno dei due valori mi appare un errore in
cui mi si dice che sto cercando di assegnare un valore non valido al campo.
Ma come mai?
Grazie!
--
Insostenibile è il peso della conoscenza, se questa toglie poesia all'
Essere Umano.
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Problema con campi SI/NO

author: Carlo Costarella

text:
"Giulio Severini" <
giulio....@ministero.difesa.it
> ha scritto nel
messaggio news:d6vbom$9b1$1...@news.newsland.it...
> Ho creato una tabella con molti campi SI/NO.
> Poi nella maschera cui ho associato tali controlli, ne ho messi giusto un
> paio per prova e mi sono ritrovato con due caselle combinate già pronte.
> Il problema è che quando metto uno dei due valori mi appare un errore in
> cui mi si dice che sto cercando di assegnare un valore non valido al
> campo.
> Ma come mai?
>
> Grazie!
>
> --
Cambia, sostituisci le caselle combinate con due Caselle di controllo.
Ciao, Carlo


title: Eliminare link alle tabelle dati

author: BiBi

text:
Ho bisogno di eliminare nel FE il link alle tabelle residenti nel BE,
per effettuare questa operazione utilizzo il seguente comando:
dbs.TableDefs.Delete "UeImportTrans"
Questo comando è in un ciclo e non sempre durante l'esecuzione del
codice il link viene cancellato senza dare comunque errore.
Per assicurarmi l'effettiva cacnellazione ho provato il seguente
codice:
            On Error Resume Next
            Do While Err = 0
                CurrentDb.TableDefs("TabLink").RefreshLink
                CurrentDb.TableDefs.Delete "TabLink"
            Loop
Ho notato che il metodo Delete va in errore anche se il link è ancora
presente...
L'errore che viene sollevato è: "Oggetto non presente nel db", acnhe
se in verità è presente. Che cosa succede?
Come posso creare un link dinamico al BE? Come posso assicurarmi
dell'effettiva cancellazione del link?


title: Eliminare link alle tabelle dati

author: Sib

text:
"BiBi" <
bb...@gostec.it
> ha scritto nel messaggio
cut
> Per assicurarmi l'effettiva cacnellazione ho provato il seguente
> codice:
>
>             On Error Resume Next
>             Do While Err = 0
>                 CurrentDb.TableDefs("TabLink").RefreshLink
>                 CurrentDb.TableDefs.Delete "TabLink"
>             Loop
>
> Ho notato che il metodo Delete va in errore anche se il link è ancora
> presente...
> L'errore che viene sollevato è: "Oggetto non presente nel db", acnhe
> se in verità è presente. Che cosa succede?
Non sono daccordo, se va in errore il link non e' piu' presente.
Talvolta access non aggiorna subito l'elenco delle tabelle nella finestra
del database e quindi puoi avere l'impressione che l'oggetto sia ancora
presente quando in realta' e' gia' stato cancellato.
Comunque con l'OnError lo fai proseguire e via
> Come posso creare un link dinamico al BE?
Puoi accedere alle tabelle del be da codice anche se non sono collegate
aprendo direttamente il database remoto.
> Come posso assicurarmi dell'effettiva cancellazione del link?
Da codice? semplicemente cercando la tabella che vuoi camcellare
nell'insieme delle tabledefs
Sib


title: Eliminare link alle tabelle dati

text:
On Sat, 04 May 2002 22:58:19 GMT, "Sib" <si...@SPAMiol.it> wrote:
>"BiBi" <
bb...@gostec.it
> ha scritto nel messaggio
>cut
>> Per assicurarmi l'effettiva cacnellazione ho provato il seguente
>> codice:
>>
>>             On Error Resume Next
>>             Do While Err = 0
>>                 CurrentDb.TableDefs("TabLink").RefreshLink
>>                 CurrentDb.TableDefs.Delete "TabLink"
>>             Loop
>>
>> Ho notato che il metodo Delete va in errore anche se il link è ancora
>> presente...
>> L'errore che viene sollevato è: "Oggetto non presente nel db", acnhe
>> se in verità è presente. Che cosa succede?
>
>Non sono daccordo, se va in errore il link non e' piu' presente.
>Talvolta access non aggiorna subito l'elenco delle tabelle nella finestra
>del database e quindi puoi avere l'impressione che l'oggetto sia ancora
>presente quando in realta' e' gia' stato cancellato.
>Comunque con l'OnError lo fai proseguire e via
Dopo l'esecuzione del codice sopra trascritto riesco comunque a vedere
ed accede alla tabella tramite il link presente (anche dopo aver
premuto F5) dalla finestra del database.
>
>> Come posso creare un link dinamico al BE?
>
>Puoi accedere alle tabelle del be da codice anche se non sono collegate
>aprendo direttamente il database remoto.
Ho necesseita di mettere in relazione due tabelle residenti su due be
diversi, MsAccess non mi permette di farlo...



title: Eliminare link alle tabelle dati

text:
"BiBi" <
bb...@gostec.it
> ha scritto nel messaggio
> On Sat, 04 May 2002 22:58:19 GMT, "Sib" <si...@SPAMiol.it> wrote:
> >"BiBi" <
bb...@gostec.it
> ha scritto nel messaggio
> >cut
> >> Per assicurarmi l'effettiva cacnellazione ho provato il seguente
> >> codice:
> >>
> >>             On Error Resume Next
> >>             Do While Err = 0
> >>                 CurrentDb.TableDefs("TabLink").RefreshLink
> >>                 CurrentDb.TableDefs.Delete "TabLink"
> >>             Loop
> >>
> >> Ho notato che il metodo Delete va in errore anche se il link è ancora
> >> presente...
> >> L'errore che viene sollevato è: "Oggetto non presente nel db", acnhe
> >> se in verità è presente. Che cosa succede?
> >
> >Non sono daccordo, se va in errore il link non e' piu' presente.
> >Talvolta access non aggiorna subito l'elenco delle tabelle nella finestra
> >del database e quindi puoi avere l'impressione che l'oggetto sia ancora
> >presente quando in realta' e' gia' stato cancellato.
> >Comunque con l'OnError lo fai proseguire e via
>
> Dopo l'esecuzione del codice sopra trascritto riesco comunque a vedere
> ed accede alla tabella tramite il link presente (anche dopo aver
> premuto F5) dalla finestra del database.
Continuo a non essere daccordo.
Secondo me si verifica un qualche errore che gli fa saltare l'istruzione di
eliminazione e non te ne accorgi per via dell'On Error Resume Next.
> >> Come posso creare un link dinamico al BE?
> >
> >Puoi accedere alle tabelle del be da codice anche se non sono collegate
> >aprendo direttamente il database remoto.
>
> Ho necesseita di mettere in relazione due tabelle residenti su due be
> diversi, MsAccess non mi permette di farlo...
Direttamente non c'e' nulla che te lo permetta.
Ad ogni modo se nell'help cerchi Connect trovi un bell'esempio bello e
pronto che fa quello che cerchi di fare.
Mi chiedevo, perche' vuoi eliminare i link?
Sib


title: Eliminare link alle tabelle dati

text:


Cmq ho provato a non fare il ciclo e quindi non usare On error. In
teoria dovrebbe essere sufficiente  per eliminare il link, purtroppo
non sempre viene eliminato mandando così l'applicazione in errore.
Spero che non sia colpa dello stato del mio Access, in quanto ho
verificato delle cose strane:
In un altro PC il metodo delete senza On error è sufficiente per
eliminare il link e l'applicazione non va in errore come nella mia
macchina.
Un altra cosa molto strana è che in questo PC se faccio l'edit di un
recordset di una query con join esterno di un record dove nella
tabella esterna non ci sono dati Access aggiunge (addnew) un record
correlato da solo, nella mia macchina da logicamente un errore. Come è
possibile tutto questo?
>
>> >> Come posso creare un link dinamico al BE?
>> >
>> >Puoi accedere alle tabelle del be da codice anche se non sono collegate
>> >aprendo direttamente il database remoto.
>>
>> Ho necesseita di mettere in relazione due tabelle residenti su due be
>> diversi, MsAccess non mi permette di farlo...
>
>Direttamente non c'e' nulla che te lo permetta.
>Ad ogni modo se nell'help cerchi Connect trovi un bell'esempio bello e
>pronto che fa quello che cerchi di fare.
>
>Mi chiedevo, perche' vuoi eliminare i link?
>
>Sib
>
>
Sto sviluppando una procedura per il trasferimento dei dati da una
sede all'altra. Dato che le informazioni da trasferire sono
configurabili (quindi il  numero di tabelle varia in base alla
configurazione) per non creare tanti link quante sono le tabelle che
devo trasferire mi creo un link temporaneo per trasferire i dati della
tabella interessata (non devo trasferire tutti i dati della tabella ma
solo i dati successivi all'ultimo trasferimento).
BB


title: Stampa

author: Casalini s.r.l.

text:
Come si fa a stampare da codice su stampante?
Per ora ho trovato solo Debug.Print "Pippo" per stampare sula finestra di
controllo immediata la parola - Pippo - . Ho necessità di fare la stessa
cosa ma inviando tutto sulla stampante predefinita del PC.
Come devo fare?
Ringrazio anticipatamente chi riesce ad aiutarmi.


title: Stampa

text:
"Casalini s.r.l." <
in...@ydea.it
> ha scritto nel messaggio
news:10391734...@merlino.agonet.it...

Quale versione di Access usi?
Se Access2000/XP vedi il metodo PrintOut dell'oggetto DoCmd.
Ciao, Carlo


title: Stampa

text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:961I9.49148$qF1.2...@news2.tin.it...

Ho commesso una svista: Il metodo PrintOut è applicabile anche ad Access 97.
Usando tale metodo il report deve essere aperto.
Ciao, Carlo


title: Gestione Convegni

author: SLoP

text:
Ciao a tutto il NG,
è la seconda volta che chiedo una mano...alla prima mi siete stati di
grande aiuto...=)...cmq mi trovo a dover gestire dei convegni, ho
cercato in rete se ci fosse qualche software in grado di venire in
contro alle mie necessità ma non ho trovato niente!
Così avendo disponibile in ufficio Access mi è venuta la folle idea di
costruirmelo da me!!!!
Ho iniziato a buttar giù le tabelle:
t_categorie
id_categoria|categoria
t_enti
id_categoria|id_ente|vari campi indirizzo etc|id_provincia
t_contatti
id_ente|id_contatto|id_organo|id_titolo|campi indirizzo
etc|id_provincia
t_organo
id_organo|organo
t_titolo
id_titolo|titolo
t_provincia
id_provincia|provincia|sigla
Le tabelle sono collegate fra loro con i campi contraddistinti da id_
e per adesso si tratta di una semplicissima rubrica!
Secondo voi la struttura è corretta?
Grazie
Ciao e alla prossima puntata!
LR


title: Gestione Convegni

author: Nick

text:
"SLoP" <
roccuh...@virgilio.it
> ha scritto nel messaggio
news:aca7c960.05020...@posting.google.com...

secondo me va bene.. dipende tutto da come poi ti serviranno i dati.
l'unica cosa che direi è di cambiare l'idprovincia nella tabella
t_contatti e t:_ente e mettere direttamente la sigla della provincia.
puoi cmq usare la sigla stessa per collegarti alla tabella con detaglio
della provincia e velocizzi le operazioni in fase di lettura dati (anche
se questo dipende molto da quanti record sono)
cmq va bene ;)
ciao
Nick


title: Gestione Convegni

text:
> secondo me va bene.. dipende tutto da come poi ti serviranno i dati.
L'utilizzo che farò di questi "contatti" è il seguente:
devo inviare via email 3 con comunicazioni varie ai contatti selezionati per
categoria o ente e che compongono la mailinglist del convegno
stampare l'indirizzo sulla busta, spedire l'invito cartaceo e registrare
l'invio
registrare la conferma di partecipazione
stampare l'elenco degli iscritti al convegno
aggiornare le presenze effettive
stampare un foglio con le presenze effettive al convegno
> l'unica cosa che direi è di cambiare l'idprovincia nella tabella
> t_contatti e t:_ente e mettere direttamente la sigla della provincia.
> puoi cmq usare la sigla stessa per collegarti alla tabella con detaglio
> della provincia e velocizzi le operazioni in fase di lettura dati (anche
> se questo dipende molto da quanti record sono)
E' vero...adesso lo cambio.
Tieni presente che approssimativamente ho calcolato di poter recuperare nel
corso dell'anno 4.000 contatti!
>
> cmq va bene ;)
>
> ciao
> Nick
Grazie Tanto
Ciao
LR


title: Espressione come origine controllo

text:
Buona sera

Ho una casella di testo  Txt31
il cui origine controllo è  =[Prezzo]*(1-[UltimoSconto])
però ho un problema , vorrei che se  il controllo "UltimoSconto" è pari a 0,00%  allora il valore della casella di testo Txt31 dovrebbe essere 0,00

in poche parole se "UltimoSconto" ha un valore sopra a 0,00  allora l'espressione dovrebbe essere eseguita
mentre ora se il valore è 0,00 mi  da il valore  del controllo "Prezzo"

come posso fare ?

Grazie Giuseppe


title: Espressione come origine controllo

text:
=IIF(Condizione;Se Vero;Se Falso)

@Alex


title: Espressione come origine controllo

text:
Il giorno giovedì 26 marzo 2020 20:04:11 UTC+1, @Alex ha scritto:
> =IIF(Condizione;Se Vero;Se Falso)
>
> @Alex

ho provato diverse soluzioni ma non riesco

=IIf(IsNull([UltimoSconto]), " ", [Prezzo]*(1-[UltimoSconto])

cosa non va bene ?


title: Espressione come origine controllo

author: Karl Donaubauer

text:
Salve,

amrri...@hotmail.com
:
> @Alex ha scritto:
>> =IIF(Condizione;Se Vero;Se Falso)
>>
>> @Alex
>
> ho provato diverse soluzioni ma non riesco
>
> =IIf(IsNull([UltimoSconto]), " ", [Prezzo]*(1-[UltimoSconto])
>
> cosa non va bene ?
>

Prima hai scritto:
 > se il controllo "UltimoSconto" è pari a 0,00%  allora il valore della
 > casella di testo Txt31 dovrebbe essere 0,00

Sono tre cose diverse:

0 <> Null <> " "

con 0 --> 0 sarebbe:

=IIf([UltimoSconto] = 0 ; 0; [Prezzo]*(1-[UltimoSconto])

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

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


title: Espressione come origine controllo

text:
>
> =IIf([UltimoSconto] = 0 ; 0; [Prezzo]*(1-[UltimoSconto])
>

-------------
OK  perfetto

-------------
Grazie mille

Giuseppe


title: problemi con timerinterval e recordset

author: Arold

text:
vorrei impostare da codice vba il timerinterval della form e fin li tutto
ok.
vorrei poi perň poter leggere con texttospeech ogni volta un nuovo messaggio
scorrendo il recorset cosi:
    With Me.RecordsetClone
            .MoveFirst
        Do
            TextToSpeech1.Speak "Procedura" & !numero
            Sleep (1000)
            TextToSpeech1.Speak !procedura
            Sleep (t)
            .MoveNext
        Loop Until .EOF()
    End With
se perň metto questo codice nel'evento timer mi legge tutti i record ogni
timerinterval millisecondi mentre io vorrei che mi leggesse il primo poi
attenda timerinterval millisecondi poi legga il secondo poi attenda
timerinterval millisecondi ecc..
mi sapete aiutare?
thank 1k


title: problemi con timerinterval e recordset

text:
"Arold" <
simb...@libero.it
> ha scritto nel messaggio

Se e' cosi' allora non e' chiaro a cosa serve l'istruzione sleep.
poi e' ovvio che ti legge tutti i record, hai un do loop che non si ferma
finche' non arriva all'ultimo record, togli il do loop
Sib


title: problemi con timerinterval e recordset

author: namor

text:
Arold ha scritto:
> vorrei impostare da codice vba il timerinterval della form e fin li tutto
> ok.
> vorrei poi però poter leggere con texttospeech ogni volta un nuovo messaggio
> scorrendo il recorset cosi:
>     With Me.RecordsetClone
>             .MoveFirst
>         Do
>             TextToSpeech1.Speak "Procedura" & !numero
>             Sleep (1000)
>             TextToSpeech1.Speak !procedura
>             Sleep (t)
>             .MoveNext
>         Loop Until .EOF()
>     End With
> se però metto questo codice nel'evento timer mi legge tutti i record ogni
> timerinterval millisecondi mentre io vorrei che mi leggesse il primo poi
> attenda timerinterval millisecondi poi legga il secondo poi attenda
> timerinterval millisecondi ecc..
> mi sapete aiutare?
> thank 1k
Se hai modo di sapere quando finisce la lettura di un msg puoi usare un
flag globale a livello di modulo che segnali se si sta già leggendo un msg
o meno (quando è finita la lettura lo resetti).
Nella sub Timer avvii la lettura del prossimo msg solo quando il flag non
è attivo.
Namor
--

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


title: problemi con timerinterval e recordset

text:
> > mi sapete aiutare?
>
> Se e' cosi' allora non e' chiaro a cosa serve l'istruzione sleep.
> poi e' ovvio che ti legge tutti i record, hai un do loop che non si ferma
> finche' non arriva all'ultimo record, togli il do loop
>
> Sib
si scusate la funzione sleep non doveva esserci visto che il codice và
dentro l'evento timer, volevo usare sleep ma ha dei bug che non mi spiego.
se metto tutto in evento timer senza sleep come posso dirgli ora leggimi il
primo quando rientri in evneto timer leggi il secondo quando entri leggi il
terzo ecc....
avete qualche dritta da darmi?


title: problemi con timerinterval e recordset

author: Simone Calligaris

text:
"Arold" <
> si scusate la funzione sleep non doveva esserci visto che il codice và
> dentro l'evento timer, volevo usare sleep ma ha dei bug che non mi spiego.
> avete qualche dritta da darmi?
Ma hai provato le tre righe che ti ho postato al TH precedente?
Ciao.


title: problemi con timerinterval e recordset

text:
"Simone Calligaris" <
simo...@libero.it
> ha scritto nel messaggio

Non credo,
mi sembra il tipo che legge solo il primo rigo delle risposte che gli si
danno.
Sib


title: problemi con timerinterval e recordset

text:
> Non credo,
> mi sembra il tipo che legge solo il primo rigo delle risposte che gli si
> danno.
>
> Sib
>
Sib sta buono dai......... leggo leggo, forse mi è sfuggita. oppure ho
postato questo prima della risposta.


title: problemi con timerinterval e recordset

text:
"Arold" <
simb...@libero.it
> ha scritto nel messaggio

Te ne sono sfuggite due.
anche la mia risposta l'hai letta a meta' dato che hai ripetuto il quesito.
a volte chi legge le risposte ai propri quesiti si distrae e si fissa sulle
prime cose che legge e magari non legge la risposta che gli serviva nel rigo
sotto.
Sib


title: problemi con timerinterval e recordset

text:
> anche la mia risposta l'hai letta a meta' dato che hai ripetuto il
quesito.
> a volte chi legge le risposte ai propri quesiti si distrae e si fissa
sulle
> prime cose che legge e magari non legge la risposta che gli serviva nel
rigo
> sotto.
>
> Sib
Ok! ;(


title: fosse un bug?

author: Luigi

text:
mi è capitato con una applicazione che ho creato, di poterla eseguire sul
mio portatile e non sul mio pc desktop nonostante l'installazione di access
fosse stata fatta in modo identica e abbia usato gli oggetti interni ad
access. Dopo aver installato office più volte in vari modi, confrontando la
lista dei riferimenti di access dei due pc mi sono accorto che in uno
mancava il file isctrls.ocx nella directory \windows\system e mi dava
sistematicamente un errore in run-time del tipo "errore di compilazione e
libreria non trovata". Chiedo se qualcuno ha avuto lo stesso problema e il
perchè di questo.
grazie luigi


title: fosse un bug?

author: Stefano Bettini

text:
Luigi ha scritto nel messaggio <10kfcb3$g4h$
1...@fe2.cs.interbusiness.it
>...
> Dopo aver installato office più volte in vari modi, confrontando la
>lista dei riferimenti di access dei due pc mi sono accorto che in uno
>mancava il file isctrls.ocx ....
E' un problema collegato al tipo di browser installato (IE3.x o IE4.x)
ed all' installazione dello stesso (aggiornamento di una versione
precedente o full-install di w98).
Bye, Ste


title: problemi con allow edits

author: MOLISSO

text:
ciao
nel database che sto svilluppando ho creato un tasto che modifica il record
corrente per non far modificare tutti gli altri ho inserito la propieta
allowetits(consenti modifica) su no il mio probelma che nella maschera c'e
una sottomaschera che entra in conflito con questa propieta cambando da solo
tutte le propieta della sottomaschera come immisione dati, consentite
aggiunte ecc come faccio a evitare questo problema?
ciao
grazie


title: problemi con allow edits

author: Alessandro Cara

text:
MOLISSO ha scritto:

mah? metti bloccato=si e riabiliti allowedits?
a.cara


title: scegliere l'account per l'invio email da outlook - .SendUsingAccount

author: mario rossi

text:
Buongiorno a tutti, dopo aver incluso nei riferimenti VBA la libraria Microsoft Outlook 16.0 Object Library, utilizzo questo codice per inviare email da access utilizzando outlook
Il mio problema è che ho 2 account di posta certificata in outlook e vorrei poterne usare uno o l'altro scegliendolo direttamente da VBA per questo scopo ho trovato in internet
.SentOnBehalfOfName che credo imposti solo il nome del mittente, poi ho trovato

.SendUsingAccount = oOutlookApp.Session.Accounts.Item(1)
dove fra parentesti si mette il numero dell'account da utilizzare per l'invio della mail

il problema è, come faccio a sapere che numero hanno i 2 account?
la numerazione parte da zero come gli array? esiste un modo da vba per far elencare con un msgbox tutti i numeri degli account e rispettiva mail associata?

grazie a tutti.


text:
Hai provato a stampare il contenuto si Accounts.Item(1)...?

@Alex


author: Bruno Campanini

text:
@Alex laid this down on his screen :
> Hai provato a stampare il contenuto si Accounts.Item(1)...?

Non ti sei sforzato molto! :-)

For i = 1 To Session.Accounts.Count
    MsgBox i & " - " & Session.Accounts.Item(i)
Next

Ciao
Bruno


text:
Bruno Campanini explained :

> For i = 1 To Session.Accounts.Count
>     MsgBox i & " - " & Session.Accounts.Item(i)
> Next

Ovvero:

For i = 1 To Session.Accounts.Count
    S = S & i & " - " & Session.Accounts.Item(i) & vbCrLf
Next
MsgBox S

Bruno


text:
In che senso...?

@Alex


text:
on 01-02-19, @Alex supposed :
> In che senso...?

Nel senso che potevi scriverle tu quelle tre righe che ho scritto io.

O non ti degni d'impegnarti per così poco?

Bruno


text:

perfetto ho provato il codice da voi postato e su un outlook con 1 solo account ho ottenuto
1 - nomeaccount

quindi parte dall'1 e si suppone il secondo aggiunto sia 2

grazie a entrambi


text:
P.s. passando alle cose che invece sono utili da suggerire e non come fare Debug... che lo lasciamo ai maestri, evita di usare l'associazione preventiva inserendo i riferimenti nel progetto, perché se andrai a distribuirlo avrai più rogne che vantaggi.
La tecnica da usare è Latebinding o associazione tardiva.

@Alex


text:
Ti avrei tolto 2 piaceri fondamwntali ed importanti se avessi scritto io il codice...
1) quello di farlo tu
2) quello di fare "pollemica"

Ora sei più felice invece.
@Alex


text:
@Alex explained on 02-02-19 :

Faccio i salti di gioia!

Piuttosto...
Ieri, dopo anni che non ci mettevo mano, volevo modificare del
codice VBA di Outlook (ora da Office 2019), ma è cambiato il
mondo.
Prima se facevo una scansione dei vari Folder ottenevo Inbox,
SentMail, etc. Ora l'elenco dei Folder mi dà l'elenco degli
Accounts. Non sono riuscito a far l'elenco della SentMail.
Una cosa però è cambiata in meglio: il debug ora è simile
a tutto quello di Office.
Prima per Outlook era praticamente inesistente.
Tu ne sai qualcosa?

Bruno


text:
Ho ancora Office 2016 quindi non ho ancora avuto modo di aggiornarmi...
Spero di aggiornare per vedere le news di Access... sperando abbiano sistemato i bachi dei nuovi grafici anche se le query Pivot erano le migliori...
Spero anche in ActiveX seri compatibili con i 64bit.

@Alex


text:

ci sono novità importanti nella versione 2019?


text:
mario rossi wrote on 03-02-19 :

Io di Office uso Outlook, Access, Excel e Word soprattutto in
programmazione... delle differenze non ne ho trovate nemmeno
una mezza.
Le Reference interne sono ancora tutte riferite a Office 2016.

Bruno


text:

con questo codice ho ottenuto un elenco degli account un messaggio tip
1 -
mia...@pec.it

2 -
mia...@pec.it

eppure il codice sotto in cui seleziono .SendUsingAccount non funziona usa sempre quello di default cioè la pec 1, qualcuno sa dirmi il perchè? sbaglio qualcosa?

    Dim OutlookApp As Outlook.Application
    Dim MItem As Object
    Dim Recipient As String, Subj As String
    Dim Msg As String, Fname As String

    On Error Resume Next
    Subj = "Allegato PDF"

    Set OutlookApp = New Outlook.Application
    Set MItem = OutlookApp.CreateItem(olMailItem)
    With MItem
            For i = 1 To Session.Accounts.Count
                s = s & i & " - " & Session.Accounts.Item(i) & vbCrLf
            Next
            MsgBox s
    End With

    Set OutlookApp = Nothing

**** il codice qui sotto non seleziona la pec che gli dico ****

            'se è è ID 1 usa account outlook 1
            If Forms![miaform]![idazienda] = 2 Then
                .SendUsingAccount = oOutlookApp.Session.Accounts.Item(1)
            'se è ID 2 usa account outlook 2
            ElseIf Forms![miaform]![idazienda] = 1 Then
                .SendUsingAccount = oOutlookApp.Session.Accounts.Item(2)
            End If


text:

C'è un po' di confusione... adattati questo:
================================================
Public Sub SelectOutlookSender()
Dim OutlookApp As New Outlook.Application
Dim mItem As Outlook.MailItem
Dim i As Long, S As String

For i = 1 To Session.Accounts.Count
    S = S & i & " - " & Session.Accounts.Item(i) & vbCrLf
Next
MsgBox S

Set mItem = OutlookApp.CreateItem(olMailItem)
'mItem.SendUsingAccount =
Session.Accounts.Item(Forms![miaform]![IDazienda])
mItem.SendUsingAccount = Session.Accounts.Item(2)
MsgBox mItem.SendUsingAccount

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

Bruno


text:

lo provo e poi ti so dire grazie.


text:

Grazie Bruno funziona perfettamente, credo che il mio errore fosse nel tipo della variabile MItem

la mia era Dim MItem As Object

mentre la tua corretta è
Dim mItem As Outlook.MailItem


text:

La sua ha i Riferimenti... ma che sia quella corretta... potresti smentirlo alla prima installazione...

Non si mettono i Rifeirmenti... quindi si sviluppa senza.

@Alex


text:
@Alex was thinking very hard :

>> Grazie Bruno funziona perfettamente, credo che il mio errore fosse nel tipo
>> della variabile MItem
>>
>> la mia era Dim MItem As Object
>>
>> mentre la tua corretta è
>> Dim mItem As Outlook.MailItem
>
> La sua ha i Riferimenti... ma che sia quella corretta... potresti smentirlo
> alla prima installazione...
>
> Non si mettono i Rifeirmenti... quindi si sviluppa senza.

Sarebbe a dire? spiegati con un esempio.

Bruno


author: RobertoA

text:

Forse si riferisssie al late-binding


text:
È vero che sei quello degli esempi... io sono poco portato di slito lascio ad altri...
I riferimenti vincolano lo sviluppatore.

Vale a dire che se inserisci un riferimento a Lib che poi si rivela non essere la stessa versione del pc di destinazione la Libreria non viene riconosciuta ed il codice fallisce...
Basta una Major version diversa... Non ricordo se anche la Minor può generare irriconoscibilità...
Si fatto quando distribuisci un compilato o lo compili sulla macchina di destinazione o rischi.
Per questo nessun riferimento va inserito...ma serve sviluppare sfruttando l'associazione tardiva dichiarando gli oggetti come Object e sfruttando l'assegnazione con il CreateObjet o GetObject invece di usare l'interfaccia COM esplicita.

Ecco un esempio:

Function OpenEmail()

Dim olApp As Object ' Outlook.Application
Dim olFolderInbox As Object
Dim objExplorer As Object

On Error Resume Next

Set olApp = GetObject(, "Outlook.Application")

If olApp Is Nothing Then
    MsgBox "Outlook is not Open"
    Set olApp = CreateObject("Outlook.Application")
End If

Set objExplorer = CreateObject("Outlook.MAPIFolder")
Set objExplorer = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
....
Ecc...

Da tener presente che si perde l'intellisense e l'help ma soprattutto le Costanti di Libreria che vanno ridichiarate come costanti interne al progetto...
Io uso la formattazione condizionata per questi casi ed in fase di sviluppo uso le librerie mentre in fase di compilazione e distribuzione metto a False una costante che chiamo EarlyBinding ed il compilatore mi prende l'associazione tardiva dopo che ho rimosso il riferimento è così non.tocco il codice.

Spero che sia tutto chiarissimo.
@Alex


text:
Ovviamente intendevo Compilazione Condizionata

Public Const EarlyBinding=True/False

#If EarlyBinding the
  DIM oMSO as Outlook.Application
#Else
  DIM oMSO as Object
  const nomecostante1=1
  Const nomecostabte2=445
  Ecc...
#End if

@Alex


text:
@Alex used his keyboard to write :

> È vero che sei quello degli esempi... io sono poco portato di slito lascio ad
> altri... I riferimenti vincolano lo sviluppatore.
[...]

Vexata quaestio!
================
Ne abbiamo discusso altre volte, quindi non val la pena
riprendere già esposte considerazioni.

Quanto agli esempi... in circostanze come l'attuale sono
molto utili, se ben concepiti, a far comprendere le cose
anche ai non addetti ai lavori, e ciò non è cosa da poco.

Come si risolve il problema dell'OP per
altra via proprio non s'è capito, ovvero
io non l'ho capito... senectus ipsa morbus!

E di latino per oggi ho finito la dotazione.

Ciao
Bruno


text:

Se vuoi parliamo di VBA, il latino mi pare relativamente utile...

Cosa non ti è chiaro e cosa possiamo approfondire...?
Fatico a capire in cosa l'esempio postato non è chiaro... se mi aiuti, posso avere qualche possibilità più concreta.

Ciao
@Alex


text:
@Alex brought next idea :

> Se vuoi parliamo di VBA, il latino mi pare relativamente utile...
No, dicevo che la vecchiaia è una brutta bestia,
e io domani ne faccio 83.

> Cosa non ti è chiaro e cosa possiamo approfondire...?
> Fatico a capire in cosa l'esempio postato non è chiaro... se mi aiuti, posso
> avere qualche possibilità più concreta.

A domanda di mario rossi (perché poi non scriva Mario Rossi lo
sa solo lui) io ho risposto con:
==============================
Public Sub SelectOutlookSender()
Dim OutlookApp As New Outlook.Application
Dim mItem As Outlook.MailItem
Dim i As Long, S As String

For i = 1 To Session.Accounts.Count
    S = S & i & " - " & Session.Accounts.Item(i) & vbCrLf
Next
MsgBox S

Set mItem = OutlookApp.CreateItem(olMailItem)
'mItem.SendUsingAccount =
Session.Accounts.Item(Forms![miaform]![IDazienda])
mItem.SendUsingAccount = Session.Accounts.Item(2)
MsgBox mItem.SendUsingAccount

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

Tu hai obiettato: "Non si mettono i Rifeirmenti... quindi
si sviluppa senza."

Dai, fammi assaggiare il frutto della tua vigna!

Bruno


text:

Lo so bene che sei un "saggio"..., ma il mio rispetto non è per questo... è perchè sei sempre sul pezzo con l'approccio giusto ed è un piacere scambiare "tecnica" con chi ha il medesimo piacere di farlo.

Ho preso la tua routine ed ho apportato i concetti del LateBinding, ho messo il commento all'ultima parte, ma basta toglierlo per provarlo tutto, io non ho fatto la maschera, l'ho provato così velocemente.

Public Function SelectOutlookSender()
    Dim olApp           As Object
    Dim mItem           As Object
    Dim i               As Long
    Dim S               As String
    Const olMailItem    As Integer = 0

    On Error Resume Next

    Set olApp = GetObject(, "Outlook.Application")

    If olApp Is Nothing Then
        Set olApp = CreateObject("Outlook.Application")
    End If

    For i = 1 To olApp.Session.Accounts.Count
        S = S & i & " - " & olApp.Session.Accounts.Item(i) & vbCrLf
    Next
    MsgBox S

'    Set mItem = olApp.CreateItem(olMailItem)
'    'mItem.SendUsingAccount =
'    olApp.Session.Accounts.Item (Forms![miaform]![IDazienda])
'    mItem.SendUsingAccount = olApp.Session.Accounts.Item(2)
'    MsgBox mItem.SendUsingAccount
    Exit Function

End Function

Ora per provarlo, togli completamente i RIferimenti alle LIB di Microsoft Outlook 16(o quello che hai) e lancialo, otterrai il Messaggio con l'elenco degli Accounts...
Questo codice lo puoi far girare anche su PC con differenti versioni di Outlook, l'importante è che ci sia... ;-)

Se vogliamo commentare i passaggi e capire meglio lo facciamo.

Ciao

@Alex


text:

Questa e' un esempio di una tecnica (la compilazione condizionale) forse
poco conosciuta ma estremamente utile
Sviluppare con i riferimenti (intellisense+costanti), e rilasciare il
progetto senza riferimenti (compatibilita' con versioni diverse di Office)


text:
@Alex was thinking very hard :


Commenti:
1 - Non so a che serva quel Const oòMailItem As Integer = 0,
    quindi l'ho tolto.
2 - Non so a che serva la virgola in
    GetObject(, "OutlookApplication"), quindi l'ho tolta.
3 - L'ultima parte (MsgBox mItem.sendUsingAccount), che è il
    risultato della procedura, non funziona: nemmeno
    si apre la finestrella di MsgBox con immagine Null.
4 - On Error Resume Next immagino sia stato buttato lì
    frettolosamente: io non lo metterei mai indiscriminatamente
    su tutta la procedura.
5 - L'IntelliSens non funziona, e questo si sapeva, ma non
    è cosa da poco! (vabbè, all'utente non gliene frega niente).
6 - Ho sostituito MsgBox S con:
    MsgBox S & vbCrLf & vbLf & Timer - T
    Dopodiché ho rilevato che per definire i miei 4 account
    di posta la tua procedura impiega 7.3 millisecondi, la mia
    0.4 millisecondi: un tempo pari a 18 volte il mio.

> Ora per provarlo, togli completamente i RIferimenti alle LIB di Microsoft
> Outlook 16(o quello che hai) e lancialo, otterrai il Messaggio con l'elenco
> degli Accounts... Questo codice lo puoi far girare anche su PC con differenti
> versioni di Outlook, l'importante è che ci sia... ;-)
Io ho sempre preferito fare il calzolaio su misura.
E per far la scarpa su misura ci sono stati anni in cui avevo
tre versioni di Access addirittura su tre diversi PC.

> Se vogliamo commentare i passaggi e capire meglio lo facciamo.
Credo di aver capito perfettamente.

Sono stato un po' troppo crudel? direi di sì,
ma non volermene.
Cazzo OGGI è il mio compleanno
e non m'hai nemmeno fatti gli auguri!

Bruno


text:
After serious thinking RobertoA wrote :

> Questa e' un esempio di una tecnica (la compilazione condizionale) forse poco
> conosciuta ma estremamente utile
> Sviluppare con i riferimenti (intellisense+costanti), e rilasciare il
> progetto senza riferimenti (compatibilita' con versioni diverse di Office)

Quindi se vi mandassi (a te e al tuo compagno di ventura) un
piccolo db (650Kb, Access 2016/2019) contenente, come extra
installazione, queste quattro References:
-- Microsoft Office 16.0 Access database engine Object Library
-- Microsoft XML, v6.0
-- Microft Scripting Runtime
-- Microsoft Office 16.0 Object Library

voi sareste in grado di variarne la costituzione,
cosicché potesse funzionare da Access XP ad Access 2048?
Pagando naturalmente!

Bruno


text:

Intanto paga, che poi vediamo!

Non ho ben capito la critica
Ritieni l'esempio sopra descritto come inutile?
E' chiaro che se vai di Access 2019 e poi late-bindi su una postazione
che ha Office 2000 e' abbastanza probabile che qualcosa non vada
Ma perche' le librerie richiamate non contengono le funzioni richieste
Non perche' il programma non trova le librerie usate


author: CIDI

text:
Il 10/02/2019 00:45, Bruno Campanini ha scritto:
> @Alex was thinking very hard :
>
>> Lo so bene che sei un "saggio"..., ma il mio rispetto non è per
>> questo... è perchè sei sempre sul pezzo con l'approccio giusto ed è un
>> piacere scambiare "tecnica" con chi ha il medesimo piacere di farlo.
cut
> Io ho sempre preferito fare il calzolaio su misura.
> E per far la scarpa su misura ci sono stati anni in cui avevo
> tre versioni di Access addirittura su tre diversi PC.
>
>> Se vogliamo commentare i passaggi e capire meglio lo facciamo.
> Credo di aver capito perfettamente.
>
> Sono stato un po' troppo crudel? direi di sì,
> ma non volermene.
> Cazzo OGGI è il mio compleanno
> e non m'hai nemmeno fatti gli auguri

Ciao Bruno
Tantissimi auguri di Buon Compleanno :-)

Daniele


text:

Ti suggerisco di ripristinare il codice che hai tolto...

IN relazione alla COSTANTE
Const oMailItem As Integer = 0

NEl tuo codice scrivevi:
Set mItem = olApp.CreateItem(olMailItem) <--- Questa

Senza le LIB non viene riconosciuta, quindi o metti esplicitamente 0 o, per comprensione del codice, metti la COSTANTE, cambia nulla ma in ottica di COMPILAZIONE CONDIZIONALE...

Hai un po di cose con cui giocare, chissà quanti giocatotli nuovi hai ricevuto oggi...  e non parliamo della torta sotto le CANDELINE...  se la trovi...

Buona giornata.

(CIAO RAGAZZO... lui sa chi è visto che appare e scompare)

@Alex


text:
RobertoA expressed precisely :

Se le librerie non cambiano il late-binding non serve a niente,
se le librerie cambiano ti devi aggiornare e il late-binding
a che è servito?

A dir che ti vada bene, penso che la tua applicazione in
late-binding abbia buone probabilità di sopravvivenza
con riferimento ai 3/4 anni che la precedono e la seguono,
poi devi aggiornare.
Tieni anche conto che "buone probabilità" non significa certezza.

Conclusione, ognuno si sente felice di giocarsela come crede,
così va il mondo...

Bruno


text:
CIDI was thinking very hard :

Grazie Daniele,
apprezzo molto la tua gentilezza!

Bruno


text:
Bruno considera che ci sono sviluppatori che distribuiscono il loro prodotto ad una platea più ampia della singola casalinga... le realtà alle quali ci si può interfacciare hanno una varietà di sistemi, e se gli si presenta un prodotto non deve impattare sul resto del sistema o se lo fa deve farlo il meno possibile.

Sviluppare applicazioni che espongono meno problematiche di Versione è risparmio di lavoro e non ha controindicazioni.

Va da sé che se sviluppi per casa tua fai e brighi come ti pare... ma non è sempre cosi e non tutti hanno piacere rimettere mano alle applicazioni se non serve è soprattutto se si può evitare.

Quando hai fatto come ti pare sei sempre a posto.

@Alex


text:
It happens that @Alex formulated :

Conosco bene come funziona il lavoro in una SWH; in quelle ben
organizzate i programmatori sono delle macchine, le procedure
di routine già tutte definite anche per la parte che concorre
a formare il prezzo dell'intera applicazione, i tempi d'inserimento
nel progetto etc.
L'organizzazione aziendale è imperativo imprescindibile per lo
stare sul mercato.
Lì i programmatori non sono degli artisti, non possono esserlo
ancorché ne abbiano la stoffa.
Per gli analisti farei considerazioni diverse.
>
> Quando hai fatto come ti pare sei sempre a posto.
Già, così senza dover tenere il conto del tempo e della spesa né
per te né per altri... vassene il tempo l'uom non se n'avvede.
Ma la cosa non ha prezzo.

Ciao brigante, alla prossima.
Bruno


text:
Io sono, anzi vorrei essere, un "artista" nel concetto del VBA e la tecnica per me è a prescindere... dal momento che non sono a cottimo ;-)

Un caro saluto.
@Alex


title: Creazione query da tabelle non correlate

author: Etto

text:
Vorrei creare una query in sql (perché provando con l'autocomposizione o in
visualizzazione struttura mi dice che le devo correlare e non so cosa si
intende)
In sostanza questa query mi dovrebbe far visualizzare una sequenza di
pietanze con il relarivo prezzo in una colonna separata (primi, secondi,
contorni)
Le tabelle sono tre (primi, secondi, contorni) ogni tabella ha due colonne,
nella prima trovo il nome, nella seconda il prezzo)
Grazie a chi mi sa aiutare.
Sciao !!


author: TANNHAUSER

text:
Etto ha scritto:


Ma, in pratica, vuoi che la query ti crei una lista con tutte le possibili
combinazioni di primi, secondi e contorni? In questo caso è sufficiente
che nella struttura della query tu inserisca i sei campi (due per tabella)
senza nessun tipo di relazione.
Se non è così, chiarisci.
TANNHAUSER
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
"TANNHAUSER" <
tannau...@virgilio.it
> ha scritto nel messaggio
news:cq6nhd$b6k$1...@news.newsland.it...
> Ma, in pratica, vuoi che la query ti crei una lista con tutte le possibili
> combinazioni di primi, secondi e contorni? In questo caso è sufficiente
> che nella struttura della query tu inserisca i sei campi (due per tabella)
> senza nessun tipo di relazione.
> Se non è così, chiarisci.
>
> TANNHAUSER
>
Non tutte le possibili soluzioni, ma tutte le pietanze dagli antipasti ai
secondi.
Quindi la query deve avere due colonne una per i nomi ed una per i prezzi.
Una volta finiti gli antipasti, partono i primi, magari con una riga di
divisione.


author: Roberto da casa

text:
"Etto" <
ett...@tiscali.it
> ha scritto nel messaggio
news:cq6pph$s2h$1...@lacerta.tiscalinet.it...

Se vuoi fondere (mettendoli in fila) i record delle tre tabelle creati una
query unione (vedi help).
Ti faccio presente che una query unione non può essere creata tramite la
griglia di struttura, quindi devi crearla scrivendo direttamente il suo
codice SQL.
--
Roberto
------------------------------------------------
il Sito Comune di it.comp.appl.access
www.sitocomune.com
-----------------------------------------------


text:
[CUT]
> Non tutte le possibili soluzioni, ma tutte le pietanze dagli antipasti ai
> secondi.
> Quindi la query deve avere due colonne una per i nomi ed una per i prezzi.
> Una volta finiti gli antipasti, partono i primi, magari con una riga di
> divisione.
Non hai pensato ad una soluzione alternativa, tipo fondere le tre tabelle
in una sola e aggiungere un terzo campo "TipoPietanza" dove specificherai
se si tratta di un Primo, un Antipasto, un Secondo , ecc?
In questo modo le cose sarebbero più semplici da gestire.



text:
[CUT]
> Non tutte le possibili soluzioni, ma tutte le pietanze dagli antipasti ai
> secondi.
> Quindi la query deve avere due colonne una per i nomi ed una per i prezzi.
> Una volta finiti gli antipasti, partono i primi, magari con una riga di
> divisione.
Allora, come diceva Roberto, utilizza una query di unione. Scegli nuova
query, selezioni Visualizzazione struttura, chiudi subito la finestra che
ti mostra le tabelle tra cui scegliere e scegli dal menu Query-SQL
specifico-Unione. A questo punto scrivi:
SELECT DescrizionePiatto, Prezzo FROM Antipasti
UNION SELECT DescrizionePiatto, Prezzo FROM Primi
UNION SELECT DescrizionePiatto, Prezzo FROM Secondi
....
UNION SELECT DescrizionePiatto, Prezzo FROM Liquori
e salvi tutto.



title: IMPORTAZIONE AUTOMATICA DI TESTO IN UN DB . MM

author: MM

text:
Ciao a tutti,
ho la neccessità di importare ogni settimana un listino prezzi (file .txt)
scaricabile da un sito internet.
Tutte le volte devo collegarmi al sito cliccare per scaricare il file e una
volta scaricato devo opportunamente specificare i parametri per
l'importazione nella tabella del mio DB.
Il file TXT in questione non è un CSV e con access devo sempre perdere tempo
per ottenere il famoso listino prezzi modificato come voglio io.
Esiste una procedura che tramite access o VBA mi permetta cliccando su un
pulsante di scaricare il file dal sito internet in automatico (il sito
internet richiede nome utente e password per accedere al listino) e
succesivamente importarlo nella tabella del mio db rispettando le solite
regole di importazione ?
Credo che sia fattibile ma non so da dove iniziare.
Devo sapere :
Cosa devo scrivere per far accedere al sito internet con nome utente e
password
Cosa devo fare per farlo scaricare (file .txt) in automatico nel mio pc
Cosa devo fare per impostare (magari con una macro) le regole di
importazione dal file txt alla tabella
Grazie a tutti, in attesa di avere una risposta.
Speriamo.....


author: Lenny

text:
guardati le funzioni
open , get , input, close
con queste puoi leggere qualunque file di testo,
poi basta inserire le stringhe che leggi nelle tabelle che ti servono
ciao
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.377 / Virus Database: 211 - Release Date: 15/07/2002


author: Sergio MAZZA

text:
"MM" <
mar...@libero.it
> ha scritto nel messaggio
news:mQ%%8.3267$lu5....@twister1.libero.it...

Per favore non scrivere in maiuscolo che equivale ad urlare...
Le regole di importazione/esportazione, una volta percorse a mano, le puoi
salvare. Poi con il TransferText (vedi help) le utilizzi.
Non posso aiutarti per "scaricare" il file...
Ciao.
--
Sergio MAZZA


text:
> > ho la neccessità di importare ogni settimana un listino prezzi (file
.txt)
> > scaricabile da un sito internet.
> >
> > Tutte le volte devo collegarmi al sito cliccare per scaricare il file e
> una
> > volta scaricato devo opportunamente specificare i parametri per
> > l'importazione nella tabella del mio DB.
> >
> > Il file TXT in questione non è un CSV e con access devo sempre perdere
> tempo
> > per ottenere il famoso listino prezzi modificato come voglio io.
> >
> > Esiste una procedura che tramite access o VBA mi permetta cliccando su
un
> > pulsante di scaricare il file dal sito internet in automatico (il sito
> > internet richiede nome utente e password per accedere al listino) e
> > succesivamente importarlo nella tabella del mio db rispettando le solite
> > regole di importazione ?
> >
> > Credo che sia fattibile ma non so da dove iniziare.
> >
[CUT]
> Le regole di importazione/esportazione, una volta percorse a mano, le puoi
> salvare. Poi con il TransferText (vedi help) le utilizzi.
> Non posso aiutarti per "scaricare" il file...
> Sergio MAZZA
>
>
Ti ringrazio ma puoi farmi un esempio piccolo perfavore ?
Grazie.


text:
"MM" <
mar...@libero.it
> ha scritto nel messaggio
news:AT909.4245$n04.1...@twister2.libero.it...
>
> Ti ringrazio ma puoi farmi un esempio piccolo perfavore ?
>
> Grazie.
>
'------- tratto dall'help del TransferText  --------
Sintassi
DoCmd.TransferText [tipotrasferimento][, nomefilespecifiche], nometabella,
nomefile[, nomicampo][, nometabellaHTML]
Nell'esempio riportato di seguito viene indicato come esportare i dati della
tabella Report Esterno di Microsoft Access nel file di testo delimitato
Aprile.doc, utilizzando la specifica 'Output standard'.
DoCmd.TransferText acExportDelim, "Output standard", "Report esterno",
"C:\FileTxt\Aprile.doc"
'--------------------------------------------------
Quindi se lo vogliamo applicare diventa:
'------------------------------
DoCmd.TransferText acImportFixed, "nomeSpecificheSalvateInPrecedenza",
"nomeTabellaCheRiceveiDati", "nomeFileDaImportare"
'------------------------------
Devi fare l'importazione utilizzando il wizard e prima di completarla c'è il
bottone (se non sbaglio) "salva"...
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:ahrd1f$p2h$1...@canarie.caspur.it...

Grazie sergio,
mi sei stato di vero aiuto.
Infatti sono riuscito a fare quello che dovevo tranne la parte dove il db si
collega al sito , fornisce il nome utente e password e poi mi scarica il
file.
Attualmente devo scaricare il file che poi non è proprio un .txt ma è .asp
poi tramite un pulsante su di una maschera col codice vb assegnato
all'evento click esegue l'importazione dei dati nel modo da me specificato
nel specifiche di importazione.
Ora la mia domanda è un'altra :  dove risiede questo file delle specifiche ?
Te  lo domando perchè se io dovessi trasferire il db creato per
l'importazione di questo file di testo su un altro pc , funziona o no ?
Le specifiche sono inglobate nel file .mdb oppure in un file esterno ?
*** Per quelli che mi possono dare una mano *****
Devo scaricare questo "famoso" file che poi non è altro che una pagina in
.asp da un sito ASP che mi chiede il codice cliente e la password.
Volevo sapere se cè un modo per evitare di inserire manualmente codice
cliente e password tutte le volte cliccando poi sul pulsante entra per
accedere alla zona riservata.
Io credevo ci fosse un metodo per il passaggio di parametri da collegamento
ipertestuale del tipo :
Esempio :
http://www.sitomio.it/home.asp
&codicecliente=miocodice&password=miapassword ---> invio tramite #13#10
Una cosa del genere.....penso sia per quelli che se ne intendono di ASP.
Spero qualcuno mi possa dare una mano.
Parto sempre dal presupposto che siamo nel 3 millennio e che tutto è
possibile !!!
Grazie e ciao.
P.S. il link diretto per scaricare il listino è strutturato come segue (è
solo un esempio il nome del sito non è questo ma la sua struttura è questa):
http://www.miosito.it/listinotxt.asp?contentype=txt
Se prima apro il sito e metto la password e codice cliente e accedo al sito
e succesivamente clicco sul pulsante nella mia maschera dove ho associato
questo link
sopraesposto allora la cosa funziona come voglio io, ma mi serve il
passaggio del passaggio parametri del codice e password da assegnare al
link.


text:
"MM" <
mar...@libero.it
> ha scritto nel messaggio
news:mjc09.4832$n04.1...@twister2.libero.it...

Sono due tabelle di sistema nascoste: MSysIMEXColumns e MSysIMEXSpecs; le
vedi con strumenti - opzioni - scheda visualizzazione: oggetti di sistema.
Le puoi importare in qualsiasi mdb.
Ciao.
--
Sergio MAZZA


text:
> Sono due tabelle di sistema nascoste: MSysIMEXColumns e MSysIMEXSpecs; le
> vedi con strumenti - opzioni - scheda visualizzazione: oggetti di sistema.
> Le puoi importare in qualsiasi mdb.
>
> Ciao.
>
> --
> Sergio MAZZA
>
>
Sei un mostro !! (nel senso buono)
Cmq per tua conoscenza, ho provato nel frattempo a mettere il file mdb su un
altro pc e farlo girare.
Non avendo importato le specifiche  nel mdb probabilmente access le ingloba
del mdb stesso in automatico perchè le specifiche vengono mantenute anche su
un altro pc.
Grazie cmq veramente di cuore.  BRAVO.


text:
"MM" <
mar...@libero.it
> ha scritto nel messaggio
news:yPc09.4959$n04.1...@twister2.libero.it...
>
> Sei un mostro !! (nel senso buono)
Ho! Se la Sacra Triade non toglie le foto dal sito, mi rovino il giro di
donne!
> Cmq per tua conoscenza, ho provato nel frattempo a mettere il file mdb su
un
> altro pc e farlo girare.
> Non avendo importato le specifiche  nel mdb probabilmente access le
ingloba
> del mdb stesso in automatico perchè le specifiche vengono mantenute anche
su
> un altro pc.
>
> Grazie cmq veramente di cuore.  BRAVO.
>
Grazie...
Ciao.
--
Sergio MAZZA


author: Antonio Biso

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:ai2pa3$ib6$1...@canarie.caspur.it...
> > Non avendo importato le specifiche  nel mdb probabilmente access le
> ingloba
> > del mdb stesso in automatico perchè le specifiche vengono mantenute
anche
> su
> > un altro pc.
> >
> > Grazie cmq veramente di cuore.  BRAVO.
> >
>
> Grazie...
Va beh, però ora smetti di scodinzolare...
He eh ehe
Antonio


text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:tR519.12930$n04.3...@twister2.libero.it...
>
> Va beh, però ora smetti di scodinzolare...
> He eh ehe
>
> Antonio
'Nvidioso!
Ciao.
--
Sergio MAZZA


title: Errore in apertura di un file!

author: Backbone

text:
Ho un database in Access 97, quando vado ad aprirlo mi da il seguente
errore:
"Il modulo di gestione di database Microsoft Jet non è in grado di aprire il
file 'pincopallino'. Il file è già aperto con accesso esclusivo da un altro
utente o è necessario disporre dell'autorizzazione per visualizzare i dati"
Il file l'ho fatto io, l'ho installato in un alrto PC e ora che l'ho ripreso
mi da questo problema! In realtà poi si apre ma non si visualizza il grafico
e poi mi da un sacco di altri errori se provo a lavorarci.
Se qualcuno mi sa dare una mano!? Grazie.


title: Errore in apertura di un file!

text:
 Ho trovato, lavoravo dal floppy, bastava portarlo sul disco. Sarò alle
prime armi ma è bastardo sto programma!!!
"Backbone" <
Backb...@mail.com
> ha scritto nel messaggio
news:ybuO6.3091$d8.5...@news2.tin.it...



title: Us congress hearing of maan alsaan Money laundry قضية الكونغجرس لغسيل الأموال للمليادير معن الصانع

author: silvia rano

text:
YouTube videos of

 U.S. Congress money laundering hearing

of

Saudi Billionaire  " Maan  Al sanea"

 with bank of America

and  The  owner of Saad Hospital and  Schools

 in the Eastern Province in Saudi Arabia

and the Chairman of the Board of Directors of Awal Bank  in Bahrain

With Arabic Subtitles

http://www.youtube.com/watch?v=mIBNnQvhU8s

موقع اليوتيوب الذي عرض جلسة استماع الكونجرس الأمريكي

 لمتابعة نشاطات غسل الأموال ونشاطات

السعودي معن عبدالواحد الصانع

مالك مستشفى  وشركة سعد  ومدارس سعد بالمنطقة الشرقية بالسعودية   ورئيس مجلس ادارة بنك اوال البحريني

مترجم باللغة العربية

http://www.youtube.com/watch?v=mIBNnQvhU8s


title: aiuto...

author: Aieie Braso

text:
Salve.
In una maschera ho la necessità di automatizzare la seguente istruzione:
se nel campo 1 inserisco qualcosa allora scrivi "XXX" nel campo 2.
Come faccio???
Grazie


title: aiuto...

author: Alessandro Romeo

text:
"Aieie Braso" <
a...@bb.it
> ha scritto nel messaggio
news:a3b1t4$hbv$1...@serv1.iunet.it...

Sulla proprietà lostfocus del controllo1
if controllo1.text & "" <> "" then
   controllo2.text = quello che ti pare
end if
Ciao Alessandro


title: aiuto...

author: Alessandro

text:
"Aieie Braso" <
a...@bb.it
> wrote in message
news:a3b1t4$hbv$1...@serv1.iunet.it...

Su Evento "Disattivato" del TuoControllo:
If me.Tuocontrollo1<>Vbnullstring then
   me.TuoControllo2="XXX"
end if
Alessandro.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: aiuto...

author: Mrok

text:
"Aieie Braso" <
a...@bb.it
> ha scritto nel messaggio
news:a3b1t4$hbv$1...@serv1.iunet.it...

E una bella multina ?.....


title: Access Navigator 1.0

author: Dott. Michele Amato

text:
Ciao a tutti,
dopo 3 tre mesi di spremitura di meningi, ho il piacere di presentarvi
Access Navigator 1.0
a gratis.
Access Navigator 1.0 ha l'obiettivo di consentire a tutti gli utenti Access
di definire le relazioni tra le maschere e i reports di una applicazione
Access 97 e di "navigare" tra i dati di una maschera all'altra in modo
agevole e senza uso di codice vba.
Per poter utilizzare Access Navigator 1.0 è necessario definire le relazioni
che intercorrono tra i vari documenti della vostra applicazione.
Per definire le relazioni, Access Navigator 1.0 ha un'interfaccia (Link
Manager).
Questa interfaccia si attiva attraverso l'apposito pulsante presente sulla
maschera "Access Navigator" (oltre che da un pulsante della toolbar 'Access
Navigator 1.0')
La maschera Link Manager consta di due sottomaschere di tipo Lista-Dettaglio
e si distinguono perciò due sezioni:
la prima, quella in alto, consente di porre in relazioni una maschera con
un'altra maschera o con un report: "Quando lavoro con la maschera DA voglio
poter attivare la maschera A".
la seconda, quella in basso, consente di definire il criterio attraverso il
quale le due maschere (oppure la maschera ed il report) sono il relazione
(join condition).
IMPORTANTE: La sincronia tra i dati della maschera di partenza e tutte le
maschere aperte con Access Navigator 1.0 è attivata grazie a una istruzione
(MAE_Synchronize) scritta automaticamente da questa add-in.E' possibile
inibire tale azione attraverso una opzione presente nella maschera Options
(raggiungibile attraverso il popup menu di Access Navigator 1.0).
Disattivando la sincronia automatica (realizzabile solo se l'utente ha
accesso al codice) è possibile avere comunque la sincronizzazione dei
documenti aperti attraverso l'apposito pulsante della toolbar "Access
Navigator 1.0".
Presto sarà possibile porre in relazione due qualsiasi documenti tra loro
(una maschera con una query, una tabella con un'altra tabella, una maschera
con l'invocazione di una funzione i cui parametri formali vengono
attualizzati con valori presi direttamente dal documento di partenza).
La definizione di un menu ad albero, la possibilità di definire dei filtri
"al volo", la definizione di un "contesto applicativo" (e qualcos'altro
ancora) completaranno la gamma delle funzionalità che giornalmente un utente
medio-esperto richiede.
Questa versione sarà la 2.0. Data prevista per il rilascio 31.12.2000 (prima
beta 30.06.2000).
Ogni vostro commento è il benvenuto.
Saluti Michele Amato
http://members.xoom.com/OfficeTools/download.htm


title: Access Navigator 1.0

author: Ditta Cerri (Sib)

text:
Dott. Michele Amato scrivette:
> Ciao a tutti,
>
> dopo 3 tre mesi di spremitura di meningi, ho il piacere di presentarvi
>
> Access Navigator 1.0
>
> a gratis.
>
> Access Navigator 1.0 ha l'obiettivo di consentire a tutti gli utenti
Access
> di definire le relazioni tra le maschere e i reports di una applicazione
> Access 97 e di "navigare" tra i dati di una maschera all'altra in modo
> agevole e senza uso di codice vba.
Ma sei proprio sicuro di non complicarti la vita in questo modo.
Ciao, Sib


title: passare da un controllo all'altro senza tab

author: Giancarlo Francesconi

text:
Ciao a tutti.
Uso A97.
Ho una tabella che ha 3 campi con Dimensione campo=2. Per l'immissione dei
dati in questa tab. utilizzo una maschera.
Vorrei sapere se è possibile, dopo aver immesso i dati nel primo controllo,
passare al successivo automaticamente, senza utilizzare il tasto Tab o il
mouse.
Grazie a tutti.
Giancarlo


author: Silvio Berruti

text:
"Giancarlo Francesconi" <
thi...@tin.it
> ha scritto nel messaggio
news:O7Vr7.40258$P04.3...@news2.tin.it...

Vedi sulla guida le voci:
- tabulazione automatica
- maschera di input
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


author: Mik Mark

text:
"Giancarlo Francesconi" <
thi...@tin.it
> ha scritto nel messaggio
news:O7Vr7.40258$P04.3...@news2.tin.it...

Oppure :
nel AfterUpDate del Campo2 metti Me!Campo2.Setfocus
poi
nel AfterUpDate del Campo3 metti Me!Campo3.Setfocus etc...


text:
"Silvio Berruti" <
sber...@libero.it
> ha scritto nel messaggio
news:e_Vr7.5121$jT5.2...@news.infostrada.it...

Grazie, tutto fatto!
Giancarlo