title: Controllo incrociato con query

author: vuLCan Karayan

text:
La tabella č cosě composta:
IDRecord (Contatore)
Nome (string)
Cognome (string)
Mese (Integer)
Valore (valuta)
Attivo (Si/No)
E' possibile con una query ottenere un risultato tale da visualizzare solo i
record che:
1) Abbiamo valore < 100
2) NON includono il mese corrente (12) (month(date)) ma includono quello
precedente (11) ((month(date))-1) AND il campo Considera sia Si?
Heelp! :)


title: Controllo incrociato con query

author: Roberto da casa

text:
"vuLCan Karayan" <vulcankarayan@[tiscali]PUNTO.it> ha scritto nel messaggio
news:43a659ea$0$13253$4faf...@reader2.news.tin.it...

Se la tabella che contiene i dati si chiama Tabella1.
Se con "il campo Considera" intendi il campo Attivo.
Prova con una query che abbia il seguente codice SQL:
SELECT Tabella1.*
FROM Tabella1
WHERE (((Tabella1.Valore) < 100) AND ((Tabella1.Attivo) = True) AND
((Tabella1.Mese) = Month(Date())-1));
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Controllo incrociato con query

text:
> Prova con una query che abbia il seguente codice SQL:
>
> SELECT Tabella1.*
> FROM Tabella1
> WHERE (((Tabella1.Valore) < 100) AND ((Tabella1.Attivo) = True) AND
> ((Tabella1.Mese) = Month(Date())-1));
Grazie per la risposta, Rob...
Mi spiego meglio: vorrei verificare che i record elencati dalla query
_non contengano_ il mese corrente
ma
_contengano_ il mese precedente a quello corrente


title: Controllo incrociato con query

text:
"vuLCan Karayan" <
nos...@please.it
> ha scritto nel messaggio
news:43a66f36$0$16208$4faf...@reader3.news.tin.it...

Scusami, ma visto che vengono visualizzati solo i record che hanno il mese
uguale al mese precedente alla data corrente, automaticamente vengono
esclusi i record che abbiano un mese uguale a quello corrente.
Onestamente non capisco la tua puntualizzazione.



title: Controllo incrociato con query

text:
> Scusami, ma visto che vengono visualizzati solo i record che hanno il mese
> uguale al mese precedente alla data corrente, automaticamente vengono
> esclusi i record che abbiano un mese uguale a quello corrente.
> Onestamente non capisco la tua puntualizzazione.
Grazie per la risposta Rob.
L'esatto contrario.
Vorrei fossero visualizzati quelli che CONTENGONO il mese corrente ma NON
CONTENGONO il mese precedente al mese corrente...


title: Controllo incrociato con query

text:
"vuLCan Karayan" <
nos...@please.it
> ha scritto nel messaggio
news:43a683ab$0$16218$4faf...@reader3.news.tin.it...

Perdonami, ma continuo a non capire: ogni record contiene UN SOLO campo Mese
che o conterrà il mese della data corrente o conterrà un mese diverso  da
quello della data corrente: a questo punto non capisco che significato abbia
la tua affermazione "quelli che CONTENGONO il mese corrente ma NON
CONTENGONO il mese precedente al mese corrente" visto che se siverifica la
prima condizione è automatico che non si verifica la seconda e viceversa:
insomma ritengo quanto da te scritto o ridondante o un non senso.
Sarà forse per colpa del lunedì, ma non riesco proprio a capire cosa ti
serva.



title: Controllo incrociato con query

text:
> Perdonami, ma continuo a non capire: ogni record contiene UN SOLO campo
Mese
> che o conterrà il mese della data corrente o conterrà un mese diverso  da
> quello della data corrente: a questo punto non capisco che significato
abbia
> la tua affermazione "quelli che CONTENGONO il mese corrente ma NON
> CONTENGONO il mese precedente al mese corrente" visto che se siverifica la
> prima condizione è automatico che non si verifica la seconda e viceversa:
> insomma ritengo quanto da te scritto o ridondante o un non senso.
> Sarà forse per colpa del lunedì, ma non riesco proprio a capire cosa ti
> serva.
Scusa tu, Rob.
Sono io bruciato di Lun mattina!
Sto provando in un altro modo.
Ho due query
Q1
IDRecord
CodiceFiscale
ValoreA
ValoreB
Mese
Mese nella Q1 contiene 9 (che sta per settembre)
Q2
IDRecord
CodiceFiscale
ValoreA
ValoreB
Mese
Mese nella Q2 contiene 10 (che sta per ottobre)
Come posso ottenere una Query Q3 che confronti le due Query e mi faccia
ottenere
l'elenco dei record di Q1 non inclusi in Q2?
Scusate. Notte insonne di programmazione.


title: Controllo incrociato con query

text:
"vuLCan Karayan" <
nos...@please.it
> ha scritto nel messaggio
news:43a68dae$0$16202$4faf...@reader3.news.tin.it...

Se la corrispondenza tra le due query va effettuata tramite i rispettivi
campi CodiceFiscale, dovresti risolvere il problema con una query che abbia
il seguente codice SQL:
SELECT DISTINCTROW Q1.*
FROM Q1 LEFT JOIN Q2 ON Q1.CodiceFiscale = Q2.CodiceFiscale
WHERE (((Q2.CodiceFiscale) Is Null));
Questa query te la poi tranquillamente creare senza sforzo con
l'Autocomposizione ricerca dati non corrispondenti.



title: Esiste in Access una specie di COPY del Cobol ?

author: antonio

text:
Buongiorno a tutti.
Avrei la necessità di ripetere all'inizio di ogni routine una diecina di
istruzioni sempre uguali, comprese alcune dichiarazioni di variabili.
Non posso metterle in una routine esterna anche perchè le variabili si
devono generare univocamente in ogni routine.
Mi chiedo se c'è la possibilità di utilizzare una specie dell'istruzione
COPY del Cobol, che serve appunto a copiare rigorosamente alcune istruzioni
memorizzate in un altro file.
Nell'help non ho trovato niente di simile. Mi potete dare qualche consiglio
?
Grazie
Antonio


author: Alessandro Cara

text:

usa una classe. La Copy (include) non c'e'
--
ac


text:

ps. c'e' anche la type ma descrive solo un tracciato dati.
--
ac


author: Carlo Costarella

text:
"antonio" <
antone...@tiscali.it
> ha scritto nel messaggio
news:44951582$0$976$5fc...@news.tiscali.it...

Mettile in un file di testo esterno che andrai a leggere ogni volta che
vuoi...Open.
Mi sorge un dubbio: non è che hai già scritto molte decine di routine e ora
vuoi correggerle aggiungendo a tutte altre istruzioni?
Ciao, Carlo


title: Importare Access 2002 in Access 2002 (sembra semplice?!)

author: Diego Lavieri

text:
Salve mi trovo di fronte a questo problema: Ho creato 8 database uguali con
Access 2002, ognuno contiene una sola tabella con gli stessi campi, colonne,
e li ho distribuiti a dei collaboratori per un lavoro di schedatura.
L'esigenza era quella di far schedare dei libri a più persone, un lavoro di
gruppo. Adesso dovrei far confluire tutti i dati raccolti in una sola
tabella...ma quando vado ad importare i database, Access mi inserisce tante
tabelle nuove quanti sono i database importati. Domanda: come devo fare per
accedere a tutti i dati insieme, magari in una sola tabella?
Grazie anticipatamente


author: Sib

text:
"Diego Lavieri" <
diegol...@tiscalinet.it
> ha scritto nel messaggio
e infatti e' semplice.

Il problema e' che stai facendo l'operazione sbagliata.
L'importazione serve esattamente a importare oggetti tali e quali come sono
nel db di origine, mentre tu non devi importare gli oggetti (le tabelle) ma
i dati (ossia i record).
Per fare questo puoi seguire 3 strade:
1 collegare tutte le tabelle dai db di origine nel db di destinazione e fare
una query di accodamento per ogni tabella collegata che accodi i dati alla
tabella di destinazione
2 collegare una tabella e fare la relativa query e ciclare il link della
tabella da codice a turno su tutti i database d'origine eseguendo la query
per ogni link
3 Aprire da codice il database i origine e i relativi recordset e accodare
manualmente i record alla tabella di destinazione.
Sib


text:
Effettivamente importa gli oggetti come sono in origine...
Ma in realtà devo solo inglobare i dati di tutte le tabelle in una sola
tabella, non mi conviene fare relazioni, o query, tanto tutte le tabelle
sono uguali, stessi campi, stesse colonne, cambiano i record. Io credo che
comunque prima di inglobare tutti i dati devo comunque importare nel
database le tabelle...Che ne pensi?



text:
Ho trovato il metodo..però vedi se và bene. Ho notato che sei esperto, dammi
un consiglio.
1° Importo i 7-8 "database-tabelle" con la procedura nota...Importa bla bla
bla
2° Apro la tabella nella quale voglio importare tutti i record
3° Apro la "finestra Database", nella quale ci sono: Tabella 1- tabella 2-
tabella 3.......cioè quelle importate prima
4° Uso il comando "Prendi e trascina" e ad una ad una le incorporo nella
"tabella madre"...a me funziona!!!
Fico no!?
Vado incontro ad inconvenienti?



text:
"Diego Lavieri" <
diegol...@tiscalinet.it
> ha scritto nel messaggio


Prima di tutto scrivi dopo il quoting.
Ad ogni modo mi pare che tu non abbia letto per intero la mia risposta, che
rispondeva gia' a questa tua domanda.
Sib


text:
"Diego Lavieri" <
diegol...@tiscalinet.it
> ha scritto nel messaggio
> Ho trovato il metodo..però vedi se và bene. Ho notato che sei esperto,
dammi
> un consiglio.
> 1° Importo i 7-8 "database-tabelle" con la procedura nota...Importa bla
bla
> bla
> 2° Apro la tabella nella quale voglio importare tutti i record
> 3° Apro la "finestra Database", nella quale ci sono: Tabella 1- tabella 2-
> tabella 3.......cioè quelle importate prima
> 4° Uso il comando "Prendi e trascina" e ad una ad una le incorporo nella
> "tabella madre"...a me funziona!!!
> Fico no!?
> Vado incontro ad inconvenienti?
Non vai incontro a inconvenienti, ma se dovevi fare cosi' ti bastava un
foglio excel, non hai nessun automatismo.
Sib


author: oizirbaF

text:
On Wed, 20 Nov 2002 12:47:35 +0100, "Diego Lavieri"
<
diegol...@tiscalinet.it
> wrote:
>Ho trovato il metodo..però vedi se và bene. Ho notato che sei esperto, dammi
>un consiglio.
>1° Importo i 7-8 "database-tabelle" con la procedura nota...Importa bla bla
>bla
>2° Apro la tabella nella quale voglio importare tutti i record
>3° Apro la "finestra Database", nella quale ci sono: Tabella 1- tabella 2-
>tabella 3.......cioè quelle importate prima
>4° Uso il comando "Prendi e trascina" e ad una ad una le incorporo nella
>"tabella madre"...a me funziona!!!
>Fico no!?
>Vado incontro ad inconvenienti?
Che tristezza : che brutta fine che gli fai fare al tuo Access .....
piango al solo pensiero che debba sopportare te che, invece di fare
una semplicissima query di accodamento , ti ostini ad usarlo come un
semplicissimo foglio di calcolo e ti metti lì, a manina santa, a
copiare, riga per riga, i record.
Perchè non provi a chiedere, anche se non è questa la sede più adatta
,  come si fa una query di accodamento ( che è la soluzione al tuo
problema come ti ha detto Sib ) ): scoprirai che è più fico, a parte
l'inconveniente di metterci un decimo del tempo che ci hai messo tu e
con meno errori .
p.s. si risponde sempre dopo il quoting ( la parte con i segni '>',
tanto per capirci)
Ciao. Fabrizio.
(Access XP (sp2), Win ME, P4 1Ghz, 320 RAM)


author: Emyr

text:
On Wed, 20 Nov 2002 12:47:35 +0100, "Diego Lavieri"
<
diegol...@tiscalinet.it
> wrote:
>Ho trovato il metodo..però vedi se và bene. Ho notato che sei esperto, dammi
>un consiglio.
che tristezza.............eccone un'altro che legge poco il NG
Saluti.
Emanuele.


title: BackEnd Lento

author: Lucio

text:
Salve a tutto il NG;
per necessità ho un front end che deve attingere dati da due back end
posizionati l'uno su un pc differente dall'altro.
Il problema che sorto è la lentezza esasperante durante la lettura di uno
dei due backend.
Individuato il BE  che compromette la velocità del FE mi chiedevo:
c'è la possibilità di importare le tabelle del BE lento nel BE che va bene
e dargli la possibilità, su apertura del front end di aggiornarle con il
BE originale?
Mi spego meglio: sul BE lento ho Tab1, che fa capo ad un altro FE che ne
immette i dati quotidianamente, vorrei importare nell'altro BE, quello che
non mi dà problemi di lentezza, Tab1 che però mi si deve sincronizzare con
il BE originale tutte le volte che apro il nuovo FE.
Help.
Grazie anticipatamente.
Lucio
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: BackEnd Lento


title: BackEnd Lento

author: Roberto dalla campagna

text:
"Lucio" <
nap...@tin.it
> ha scritto nel messaggio
news:d7uc9f$tfu$1...@news.newsland.it...
> Salve a tutto il NG;
> per necessità ho un front end che deve attingere dati da due back end
> posizionati l'uno su un pc differente dall'altro.
> Il problema che sorto è la lentezza esasperante durante la lettura di uno
> dei due backend.
> Individuato il BE  che compromette la velocità del FE mi chiedevo:
> c'è la possibilità di importare le tabelle del BE lento nel BE che va bene
> e dargli la possibilità, su apertura del front end di aggiornarle con il
> BE originale?
> Mi spego meglio: sul BE lento ho Tab1, che fa capo ad un altro FE che ne
> immette i dati quotidianamente, vorrei importare nell'altro BE, quello che
> non mi dà problemi di lentezza, Tab1 che però mi si deve sincronizzare con
> il BE originale tutte le volte che apro il nuovo FE.
> Help.
> Grazie anticipatamente.
> Lucio
>
Non sono sicuro di aver ben compreso il tuo problema, ma nessuno ti vieta di
collegare quella tabella di quel BE al FE; potresti, all'apertura del FE,
importare quella tabella tramite il metodo TransferDatabase (vedi help);
naturalmente prima di effettuare l'importazione verificherai se nel FE già
esiste una tabella con quel nome ed eventualmente la eliminerai.
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: BackEnd Lento

text:
Ti sarei grato se mi definissi meglio cosa fare in considerazione del
fatto che per me è una procedura nuova.
Grazie
Lucio
Roberto dalla campagna ha scritto:
> "Lucio" <
nap...@tin.it
> ha scritto nel messaggio
> news:d7uc9f$tfu$1...@news.newsland.it...
> > Salve a tutto il NG;
> > per necessità ho un front end che deve attingere dati da due back end
> > posizionati l'uno su un pc differente dall'altro.
> > Il problema che sorto è la lentezza esasperante durante la lettura di uno
> > dei due backend.
> > Individuato il BE  che compromette la velocità del FE mi chiedevo:
> > c'è la possibilità di importare le tabelle del BE lento nel BE che va bene
> > e dargli la possibilità, su apertura del front end di aggiornarle con il
> > BE originale?
> > Mi spego meglio: sul BE lento ho Tab1, che fa capo ad un altro FE che ne
> > immette i dati quotidianamente, vorrei importare nell'altro BE, quello che
> > non mi dà problemi di lentezza, Tab1 che però mi si deve sincronizzare con
> > il BE originale tutte le volte che apro il nuovo FE.
> > Help.
> > Grazie anticipatamente.
> > Lucio
> >
> Non sono sicuro di aver ben compreso il tuo problema, ma nessuno ti vieta di
> collegare quella tabella di quel BE al FE; potresti, all'apertura del FE,
> importare quella tabella tramite il metodo TransferDatabase (vedi help);
> naturalmente prima di effettuare l'importazione verificherai se nel FE già
> esiste una tabella con quel nome ed eventualmente la eliminerai.
--
questo articolo e` stato inviato via web dal servizio gratuito



title: BackEnd Lento

text:
"Lucio" <
nap...@tin.it
> ha scritto nel messaggio
news:d7vj32$hrm$1...@news.newsland.it...
> Ti sarei grato se mi definissi meglio cosa fare in considerazione del
> fatto che per me è una procedura nuova.
> Grazie
> Lucio
> Roberto dalla campagna ha scritto:
>
Per prima cosa quando rispondi scrivi DOPO e non prima del testo dei
messaggi precedenti.
In un modulo del tuo FE inserisci questa funzione:
Public Function EsisteOggetto(TipoOggetto As String, NomeOggetto As String)
As Integer
On Error Resume Next
Dim OggettoTrovato As Integer, CercaOggetto As String, NumOggetto As Integer
Dim db As DAO.Database, t As DAO.TableDef
Dim Q As DAO.QueryDef, C  As DAO.Container
Dim msg As String
OggettoTrovato = False
Set db = CurrentDb()
Select Case TipoOggetto
Case "Tabella"
    CercaOggetto = db.TableDefs(NomeOggetto).Name
Case "Query"
    CercaOggetto = db.QueryDefs(NomeOggetto).Name
Case Else
    If TipoOggetto = "Maschera" Then
        NumOggetto = 1
    ElseIf TipoOggetto = "Modulo" Then
        NumOggetto = 2
    ElseIf TipoOggetto = "Report" Then
        NumOggetto = 4
    ElseIf TipoOggetto = "Macro" Then
        NumOggetto = 5
    Else
        msg = "Il nome oggetto """ & TipoOggetto & """ non è un valido"
        msg = msg & " argomento per la funzione EsisteOggetto!"
        MsgBox msg, 16, "Funzione EsisteOggetto"
        Exit Function
    End If
    Set C = db.Containers(NumOggetto)
    CercaOggetto = C.Documents(NomeOggetto).Name
End Select
If Err = 3265 Or CercaOggetto = "" Then
    OggettoTrovato = False
Else
    OggettoTrovato = True
End If
    EsisteOggetto = OggettoTrovato
End Function
Se vuoi importare nell FE attivo una tabella chiamata Tabella2.
Se il databse che contiene tale tabella ha il seguente nome e percorso:
C:\MiaDirectory\MioDatabase.mdb
Se vuoi che la tabella importata continui a chiamarsi Tabella2.
Memorizza in un modulo del tuo FE la seguente funzione:
Public Function ImportaTabella()
Dim Path As String
Path = "C:\MiaDirectory\MioDatabase.mdb"
If EsisteOggetto("Tabella", "Tabella2") = True Then
    DoCmd.DeleteObject acTable, "Tabella2"
End If
DoCmd.TransferDatabase acImport, "Microsoft Access", _
Path, acTable, "Tabella2", "Tabella2"
End Function
A questo punto creati una macro chiamata AutoExec che contiene l'azione
EseguiCodice e nel cui nome funzione scriverai ImportaTabella().
Così facendo, ogni volta che si apre il FE, Access verificherà se esiste una
tabella chiamata Tabella2, nel qual caso la elimina, quindi reimporta nel FE
la tabella Tabella2 dal database che ha come nome e path
C:\MiaDirectory\MioDatabase.mdb .



title: Ancora su eventi timer diversi ...

author: hoyt

text:
Buon giorno a tutto il NG,
nonostante i preziosi consigli di Geppo e Max offertimi nel mio
precedente post, credo di ... non aver capito ... cerco di riproporre
il problema, anche se modifcato, in maniera diversa e più pratica ...
Utilizzo una slash form per verificare, all'apertura del DB che il DB
Front End Client sia aggiornato all'ultima versione ... per motivi di
"abbellimento", ma nahc eper meglio comprendere il funzionamento della
funzione Timer Interval, vorrei che all'apertura della form si
visualizzasse un messaggio del tipo "verifica connessioni e versione
in corso" e, solo dopo il controllo cdella congruità della versione,
si visualizzasse il messaggio p.e. "versione recente ... buon
lavoro" ... quindi ho provato con il seguente condice:
Private Sub Form_Load()
On Error Resume Next
    'Popolamento delle variabili quando la form viene caricata
    strVerClient = Nz(DLookup("[VerionNumber]", "[tblVersionClient]"),
"")
    strVerServer = Nz(DLookup("[VerionNumber]", "[tblVersionServer]"),
"")
    Me.TimerInterval = 2000
End Sub
Private Sub Form_Timer()
On Error Resume Next
    Dim strMsg As String
    Dim strPath As String
    Dim strUpdateTool As String
    Const q As String * 1 = """"
    'Se le versioni coincidono, si procede con l'apertura della
mschera principale
    If strVerClient = strVerServer Then
        Me.Testo51.Visible = True
        Me.TimerInterval = 5000
        DoCmd.OpenForm "Anni"
        'DoCmd.Close acForm, "Splash"
    '...se le versioni NON coincidono, si offre l'opportunità
all'operatore di scaricare la più recente
    Else
        strMsg = "Non sei in possesso della versione corretta
dell'applicativo." & vbCrLf & vbCrLf & _
            "Vuoi scaricare l'ultima versione ?"
        If MsgBox(strMsg, vbExclamation + vbOKCancel, "Update") = vbOK
Then
            strPath = Left(CurrentDb.Name, LastInStr(CurrentDb.Name,
"\"))
            strPath = strPath & "Update.mdb"
            strUpdateTool = "MSAccess.exe" & q & strPath & q
            'viene usata la SHELL per aprire l'utility UPDATE.MDB
            '... quindi viene chiusa questa versione CLIENT per essere
sovrascritta
            Shell strUpdateTool, vbNormalFocus
            DoCmd.Quit
        End If
    End If
... ma non ne vuole sapere di aspettare il tempo impostato per farmi
visualizzare il msg. di "        Me.Testo51.Visible = True" ... ma
passa direttamente all'apertura della form "Anni".
Ovviamente le ho provate tutte ...
Grazie per l'attenzione.
Francesco


title: Ancora su eventi timer diversi ...

author: Valerio Valentini

text:
hoyt wrote:
> Buon giorno a tutto il NG,
> nonostante i preziosi consigli di Geppo e Max offertimi nel mio
> precedente post, credo di ... non aver capito ... cerco di riproporre
> il problema, anche se modifcato, in maniera diversa e pi� pratica ...
> Utilizzo una slash form per verificare, all'apertura del DB che il DB
> Front End Client sia aggiornato all'ultima versione ... per motivi di
> "abbellimento", ma nahc eper meglio comprendere il funzionamento della
> funzione Timer Interval, vorrei che all'apertura della form si
> visualizzasse un messaggio del tipo "verifica connessioni e versione
> in corso" e, solo dopo il controllo cdella congruit� della versione,
> si visualizzasse il messaggio p.e. "versione recente ... buon
> lavoro" ... quindi ho provato con il seguente condice:
>
>
> Private Sub Form_Load()
> On Error Resume Next
>
>     'Popolamento delle variabili quando la form viene caricata
>     strVerClient = Nz(DLookup("[VerionNumber]", "[tblVersionClient]"),
> "")
>     strVerServer = Nz(DLookup("[VerionNumber]", "[tblVersionServer]"),
> "")
>     Me.TimerInterval = 2000
> End Sub
>
>
> Private Sub Form_Timer()
> On Error Resume Next
>
>     Dim strMsg As String
>     Dim strPath As String
>     Dim strUpdateTool As String
>     Const q As String * 1 = """"
>
>     'Se le versioni coincidono, si procede con l'apertura della
> mschera principale
>     If strVerClient = strVerServer Then
>         Me.Testo51.Visible = True
>         Me.TimerInterval = 5000
>         DoCmd.OpenForm "Anni"
>         'DoCmd.Close acForm, "Splash"
>
>     '...se le versioni NON coincidono, si offre l'opportunit�
> all'operatore di scaricare la pi� recente
>     Else
>         strMsg = "Non sei in possesso della versione corretta
> dell'applicativo." & vbCrLf & vbCrLf & _
>             "Vuoi scaricare l'ultima versione ?"
>         If MsgBox(strMsg, vbExclamation + vbOKCancel, "Update") = vbOK
> Then
>             strPath = Left(CurrentDb.Name, LastInStr(CurrentDb.Name,
> "\"))
>             strPath = strPath & "Update.mdb"
>             strUpdateTool = "MSAccess.exe" & q & strPath & q
>
>             'viene usata la SHELL per aprire l'utility UPDATE.MDB
>             '... quindi viene chiusa questa versione CLIENT per essere
> sovrascritta
>             Shell strUpdateTool, vbNormalFocus
>             DoCmd.Quit
>         End If
>     End If
>
>
> ... ma non ne vuole sapere di aspettare il tempo impostato per farmi
> visualizzare il msg. di "        Me.Testo51.Visible = True" ... ma
> passa direttamente all'apertura della form "Anni".
> Ovviamente le ho provate tutte ...
>
> Grazie per l'attenzione.
>
> Francesco
Per quel poco che ho letto rapidamente sull'help TimerInterval va inserito
su Form_Load e poi il codice in Form_Timer.
Ciao, Valerio.


title: Ancora su eventi timer diversi ...

text:
hoyt wrote:
> Buon giorno a tutto il NG,
> nonostante i preziosi consigli di Geppo e Max offertimi nel mio
> precedente post, credo di ... non aver capito ... cerco di riproporre
> il problema, anche se modifcato, in maniera diversa e pi� pratica ...
> Utilizzo una slash form per verificare, all'apertura del DB che il DB
> Front End Client sia aggiornato all'ultima versione ... per motivi di
> "abbellimento", ma nahc eper meglio comprendere il funzionamento della
> funzione Timer Interval, vorrei che all'apertura della form si
> visualizzasse un messaggio del tipo "verifica connessioni e versione
> in corso" e, solo dopo il controllo cdella congruit� della versione,
> si visualizzasse il messaggio p.e. "versione recente ... buon
> lavoro" ... quindi ho provato con il seguente condice:
>
>
> Private Sub Form_Load()
> On Error Resume Next
>
>     'Popolamento delle variabili quando la form viene caricata
>     strVerClient = Nz(DLookup("[VerionNumber]", "[tblVersionClient]"),
> "")
>     strVerServer = Nz(DLookup("[VerionNumber]", "[tblVersionServer]"),
> "")
>     Me.TimerInterval = 2000
> End Sub
>
>
> Private Sub Form_Timer()
> On Error Resume Next
>
>     Dim strMsg As String
>     Dim strPath As String
>     Dim strUpdateTool As String
>     Const q As String * 1 = """"
>
>     'Se le versioni coincidono, si procede con l'apertura della
> mschera principale
>     If strVerClient = strVerServer Then
>         Me.Testo51.Visible = True
>         Me.TimerInterval = 5000
>         DoCmd.OpenForm "Anni"
>         'DoCmd.Close acForm, "Splash"
>
>     '...se le versioni NON coincidono, si offre l'opportunit�
> all'operatore di scaricare la pi� recente
>     Else
>         strMsg = "Non sei in possesso della versione corretta
> dell'applicativo." & vbCrLf & vbCrLf & _
>             "Vuoi scaricare l'ultima versione ?"
>         If MsgBox(strMsg, vbExclamation + vbOKCancel, "Update") = vbOK
> Then
>             strPath = Left(CurrentDb.Name, LastInStr(CurrentDb.Name,
> "\"))
>             strPath = strPath & "Update.mdb"
>             strUpdateTool = "MSAccess.exe" & q & strPath & q
>
>             'viene usata la SHELL per aprire l'utility UPDATE.MDB
>             '... quindi viene chiusa questa versione CLIENT per essere
> sovrascritta
>             Shell strUpdateTool, vbNormalFocus
>             DoCmd.Quit
>         End If
>     End If
>
>
> ... ma non ne vuole sapere di aspettare il tempo impostato per farmi
> visualizzare il msg. di "        Me.Testo51.Visible = True" ... ma
> passa direttamente all'apertura della form "Anni".
> Ovviamente le ho provate tutte ...
>
> Grazie per l'attenzione.
>
> Francesco
Scusa, ho detto una sciocchezza, hai TimerInterval anche in Form_Load,
perch� poi anche dopo? Comunque non credo che Timer sospenda l'esecuzione
del codice, quindi suppongo, e solo suppongo che tu debba lasciare
nell'evento Timer solo ci� che vuoi temporizzare e poi avviare l'altra form
su un'evento tipo su chiusura.
Ciao, Valerio.


title: Ancora su eventi timer diversi ...

author: Antonio

text:
"hoyt" <
d_cre...@libero.it
> ha scritto nel messaggio
news:76069fa2-0629-431f...@o6g2000yqj.googlegroups.com...
Buon giorno a tutto il NG,
nonostante i preziosi consigli di Geppo e Max offertimi nel mio
precedente post, credo di ... non aver capito ... cerco di riproporre
il problema, anche se modifcato, in maniera diversa e pi� pratica ...
Utilizzo una slash form per verificare, all'apertura del DB che il DB
Front End Client sia aggiornato all'ultima versione ... per motivi di
"abbellimento", ma nahc eper meglio comprendere il funzionamento della
funzione Timer Interval, vorrei che all'apertura della form si
visualizzasse un messaggio del tipo "verifica connessioni e versione
in corso" e, solo dopo il controllo cdella congruit� della versione,
si visualizzasse il messaggio p.e. "versione recente ... buon
lavoro" ... quindi ho provato con il seguente condice:
Private Sub Form_Load()
On Error Resume Next
    'Popolamento delle variabili quando la form viene caricata
    strVerClient = Nz(DLookup("[VerionNumber]", "[tblVersionClient]"),
"")
    strVerServer = Nz(DLookup("[VerionNumber]", "[tblVersionServer]"),
"")
    Me.TimerInterval = 2000
End Sub
Private Sub Form_Timer()
On Error Resume Next
    Dim strMsg As String
    Dim strPath As String
    Dim strUpdateTool As String
    Const q As String * 1 = """"
    'Se le versioni coincidono, si procede con l'apertura della
mschera principale
    If strVerClient = strVerServer Then
        Me.Testo51.Visible = True
        Me.TimerInterval = 5000
        DoCmd.OpenForm "Anni"
        'DoCmd.Close acForm, "Splash"
    '...se le versioni NON coincidono, si offre l'opportunit�
all'operatore di scaricare la pi� recente
    Else
        strMsg = "Non sei in possesso della versione corretta
dell'applicativo." & vbCrLf & vbCrLf & _
            "Vuoi scaricare l'ultima versione ?"
        If MsgBox(strMsg, vbExclamation + vbOKCancel, "Update") = vbOK
Then
            strPath = Left(CurrentDb.Name, LastInStr(CurrentDb.Name,
"\"))
            strPath = strPath & "Update.mdb"
            strUpdateTool = "MSAccess.exe" & q & strPath & q
            'viene usata la SHELL per aprire l'utility UPDATE.MDB
            '... quindi viene chiusa questa versione CLIENT per essere
sovrascritta
            Shell strUpdateTool, vbNormalFocus
            DoCmd.Quit
        End If
    End If
... ma non ne vuole sapere di aspettare il tempo impostato per farmi
visualizzare il msg. di "        Me.Testo51.Visible = True" ... ma
passa direttamente all'apertura della form "Anni".
Ovviamente le ho provate tutte ...
Grazie per l'attenzione.
Francesco
-----------  RISPOSTA  --------------
Mi sembra un po' confusa la cosa.
Nell'evento Load imposti il TimerInterval a 2000 millisecondi, quindi a 2
secondi.
Dopo 2 secondi si innesca l'evento ed il controllo passa alla routine Timer.
All'interno di questa routine vai a modificare il TimerInterval... perch�
?!? Questo parametro serve solo per far rientrare nella routine dopo 5
secondi, ma non per attendere 5 secondi. Se vuoi inserire un tempo di attesa
prima che prosegua dopo aver impostato a true quella variabile che dici tu,
potresti fare cos�:
    dim TimerSleep as single
    TimerSleep = timer
    while timer - TimerSleep < 5
    wend
In questo modo fa un loop per 5 secondi. Comunque credo che per fare
visualizzare quel controllo, prima di attivare questa specie di
temporizzatore, tu debba lanciare un refresh della maschera seguito da
doevents. Riepilogando:
    If strVerClient = strVerServer Then
        Me.Testo51.Visible = True
            me.refresh
            doevents
            dim TimerSleep as single
            TimerSleep = timer
            while timer - TimerSleep < 5
            wend
        DoCmd.OpenForm "Anni"
e prosegue...
Ciao
Antonio


title: Ancora su eventi timer diversi ...

text:
On 3 Ago, 18:18, "Antonio" <
antonewsgr...@tiscali.it
> wrote:
> "hoyt" <
d_cremon...@libero.it
> ha scritto nel messaggionews:76069fa2-0629-431f...@o6g2000yqj.googlegroups.com...
> Buon giorno a tutto il NG,
> nonostante i preziosi consigli di Geppo e Max offertimi nel mio
> precedente post, credo di ... non aver capito ... cerco di riproporre
> il problema, anche se modifcato, in maniera diversa e più pratica ...
> Utilizzo una slash form per verificare, all'apertura del DB che il DB
> Front End Client sia aggiornato all'ultima versione ... per motivi di
> "abbellimento", ma nahc eper meglio comprendere il funzionamento della
> funzione Timer Interval, vorrei che all'apertura della form si
> visualizzasse un messaggio del tipo "verifica connessioni e versione
> in corso" e, solo dopo il controllo cdella congruità della versione,
> si visualizzasse il messaggio p.e. "versione recente ... buon
> lavoro" ... quindi ho provato con il seguente condice:
>
> Private Sub Form_Load()
> On Error Resume Next
>
>     'Popolamento delle variabili quando la form viene caricata
>     strVerClient = Nz(DLookup("[VerionNumber]", "[tblVersionClient]"),
> "")
>     strVerServer = Nz(DLookup("[VerionNumber]", "[tblVersionServer]"),
> "")
>     Me.TimerInterval = 2000
> End Sub
>
> Private Sub Form_Timer()
> On Error Resume Next
>
>     Dim strMsg As String
>     Dim strPath As String
>     Dim strUpdateTool As String
>     Const q As String * 1 = """"
>
>     'Se le versioni coincidono, si procede con l'apertura della
> mschera principale
>     If strVerClient = strVerServer Then
>         Me.Testo51.Visible = True
>         Me.TimerInterval = 5000
>         DoCmd.OpenForm "Anni"
>         'DoCmd.Close acForm, "Splash"
>
>     '...se le versioni NON coincidono, si offre l'opportunità
> all'operatore di scaricare la più recente

> All'interno di questa routine vai a modificare il TimerInterval... perchè
> ?!? Questo parametro serve solo per far rientrare nella routine dopo 5
> secondi, ma non per attendere 5 secondi. Se vuoi inserire un tempo di attesa
> prima che prosegua dopo aver impostato a true quella variabile che dici tu,
> potresti fare così:
>     dim TimerSleep as single
>     TimerSleep = timer
>     while timer - TimerSleep < 5
>     wend
> In questo modo fa un loop per 5 secondi. Comunque credo che per fare
> visualizzare quel controllo, prima di attivare questa specie di
> temporizzatore, tu debba lanciare un refresh della maschera seguito da
> doevents. Riepilogando:
>     If strVerClient = strVerServer Then
>         Me.Testo51.Visible = True
>             me.refresh
>             doevents
>             dim TimerSleep as single
>             TimerSleep = timer
>             while timer - TimerSleep < 5
>             wend
>         DoCmd.OpenForm "Anni"
> e prosegue...
>
> Ciao
> Antonio
Ciao Valerio e Antonio,
 ... con l'indicazione di Antonio ho risolto egregiamente ed ho anche
compreso come posso gestire periodi di attesa nell'ambito della
strutturazione del mio di DB ...
Grazie nuovamente per la sempre cortese attenzione dimostrata da tutti
i componenti di questo NG attraverso il quale riusciamo a superare i
quotidiani problemi con l'amato Access ...
Buona giornata lavorativa per chi deve ancora "soffrire" e ottime
ferie per chi invece se la sta già godendo ...
Francesco


title: Verificatore per partite iva

author: RobertoA

text:
Penso che a molti possa interessare un programma per utilizzare le api
messe a disposizione dal sistema Vies
Ciapa ki

https://github.com/amusarra/VIESCheckVatService


title: Verificatore per partite iva

text:

-----------------------------------------
     Dim sURL As String
     Dim sEnv As String
     Dim xmlhttp As New MSXML2.XMLHTTP60
     Dim xmlDoc As New MSXML2.DOMDocument60
     Dim sCountryCode As String
     Dim sVATNo As String
     sURL =
"
http://ec.europa.eu/taxation_customs/vies/services/checkVatService
"
     sEnv = "<soapenv:Envelope
xmlns:soapenv=""
http://schemas.xmlsoap.org/soap/envelope/
""
xmlns:urn=""urn:ec.europa.eu:taxud:vies:services:checkVat:types"">"
     sEnv = sEnv & "<soapenv:Header/>"
     sEnv = sEnv & "<soapenv:Body>"
     sEnv = sEnv & "<urn:checkVat>"
     sEnv = sEnv & "<urn:countryCode>" & "IT" & "</urn:countryCode>"
     sEnv = sEnv & "<urn:vatNumber>" & "06382641006" & "</urn:vatNumber>"
     sEnv = sEnv & "</urn:checkVat>"
     sEnv = sEnv & "</soapenv:Body>"
     sEnv = sEnv & "</soapenv:Envelope>"

     xmlhttp.Open "POST", sURL, False
     xmlhttp.SetRequestHeader "Content-Type", "text/xml;"
     xmlhttp.Send sEnv

     xmlDoc.Load xmlhttp.ResponseText

     If LCase(xmlDoc.getElementsByTagName("valid").item(0).Text) =
"true" Then
         MsgBox "Partita Iva valida"
         Else
         MsgBox "Partita Iva NON valida"
         End If
-----------------------------------------

Sapreste dirmi cosa c'e' di scorretto nel codice sopra?
Chiedo perche' sulla riga

xmlDoc.getElementsByTagName("valid").item(0).Text)

mi restituisce un errore 91 e pur rivedendo piu' volte il codice non
riesco a scovare l'errore, mi sembra tutto corretto


title: Verificatore per partite iva

author: gallego

text:
>
> mi restituisce un errore 91 e pur rivedendo piu' volte il codice non
> riesco a scovare l'errore, mi sembra tutto corretto

prova togliere il confronto con true:

If (LCase(xmlDoc.getElementsByTagName("valid").item(0).Text)) Then ....


title: Verificatore per partite iva

text:

No
Sembra che il getElementsByTagName  con la versione 6.0 delle librerie
xml non si 'prendano'

http://help.prognoz.com/en/mergedProjects/ModXml/samples/work_using_msxml6.htm


title: Verificatore per partite iva

author: Carlo POTS

text:
Il 27/11/2018 16:22, RobertoA ha scritto:

Io ho questo codice:
*--------*
Dim PI2 As Integer

'Controllo dell'esattezza formale della Partita IVA

Dim n As Integer  ' contatore

Dim cd As Integer ' contributo cifre dispari

Dim cp As Integer ' contributo cifre pari

Dim ct As Integer ' contributo totale

' controlla la lunghezza del codice

If Len([CAMPO_PARTITA_IVA]) <> 11 Then

     Beep
     PI1 = False

End If

' controlla l'esattezza del carattere di controllo

ct = 0

For n = 1 To 9 Step 2

     cd = CInt(Mid([CAMPO_PARTITA_IVA], n, 1))

     cp = CInt(Mid([CAMPO_PARTITA_IVA], n + 1, 1)) * 2

     If cp > 9 Then cp = cp - 9

     ct = ct + cd + cp

Next n

If (10 - ct Mod 10) Mod 10 = CInt(Right([CAMPO_PARTITA_IVA], 1)) Then

     PI1 = True

Else
     Beep
     PI1 = False
     PI2 = MsgBox("Partita IVA Errata")

End If

*--------*

Ovviamente mi da' solo la correttezza della Partita IVA, ma a me tanto
mi basta

---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus


title: Verificatore per partite iva

text:

La verifica sintattica e' ovviamente il primo step da completare
Pero' se ci pensi, essendo tutta numerica, l'ultima cifra che funge da
chek ha una probabilita' su 10 di essere giusta, qualsiasi sia la
partita iva
Voglio dire, se nelle prime 10 cifre ce n'e' una scorretta, c'e' una
probabilita' su 10 che l'undicesima cifra (il check) confermi la
correttezza formale
Comunque, anche passato il controllo formale, su 100 invii una
percentuale discreta ti ritorna indietro proprio a causa della partita
iva inesistente o non attiva o altre cose simili
E proprio a questa verifica stavo pensando, per limitare il piu'
possibile i ritorni dovuti alla partita iva


title: Verificatore per partite iva

text:
Il 01/12/2018 10:23, RobertoA ha scritto:

> La verifica sintattica e' ovviamente il primo step da completare
> Pero' se ci pensi, essendo tutta numerica, l'ultima cifra che funge da
> chek ha una probabilita' su 10 di essere giusta, qualsiasi sia la
> partita iva
> Voglio dire, se nelle prime 10 cifre ce n'e' una scorretta, c'e' una
> probabilita' su 10 che l'undicesima cifra (il check) confermi la
> correttezza formale
> Comunque, anche passato il controllo formale, su 100 invii una
> percentuale discreta ti ritorna indietro proprio a causa della partita
> iva inesistente o non attiva o altre cose simili
> E proprio a questa verifica stavo pensando, per limitare il piu'
> possibile i ritorni dovuti alla partita iva
>

Sono d'accordo con te, pero', se ci pensi bene, alla fin fine a
un'azienda importa piu' la correttezza sittattica della partita IVA,
ossia se dal punto di vista della decodifica ci sono errori o meno.

Un'aggiunta interessante sarebbe eventualmente controllare da quale
ufficio IVA dipende il soggetto giuridico; e allora in questo caso
dovresti prelevare solo 7^, 8^ e 9^ cifra, che si riallacciano
all'ufficio IVA dov'e' stata aperta la partita IVA (per esempio, una
partita IVA con codice 01828740611, se prelevi le cifre 061, ti rendi
conto che e' stata aperta a Caserta).

Non e' come il Codice Fiscale, da cui, per esempio, puoi estrapolare
sesso, data e luogo di nascita del soggetto ...

Non so se mi sono spiegato :-)



title: Verificatore per partite iva

text:

No, non credo di aver capito
Forse intendi dire che e' possibile distinguere aziende terrone dalle
polentone?
Se cosi' fosse direi che e' poco importante, le brave persone, come i
delinquenti, ci sono sia sotto che sopra (e a destra ed a sinistra,
davanti e dietro)

Credo che uan cosa importante, in questo momento di preparazione al
cambio fattura elettronica, sarebbe avere uno strumento che consenta di
verificare se la partita iva che stai inserendo nell'xml sara' accettata
da Agenzia Entrate oppure no
E questo strumento attualmente non esiste
Basterebbe fare un web service tipo il Vies, accessibile dopo
registrazione, non e' che servirebbe molto poi dal punto di vista
impegno realizzativo
Il fatto e' che stiamo parlando di 'pubblico'
Che e' un mondo nettamente separato dal reale
Ma vedo che qualcosa sta cambiando negli ultimi anni, forse troppo
lentamente rispetto alle reali necessita' ma almeno un'inversione di
tendeza c'e' stata


title: Verificatore per partite iva

text:
Il 01/12/2018 12:27, RobertoA ha scritto:

> No, non credo di aver capito
> Forse intendi dire che e' possibile distinguere aziende terrone dalle
> polentone?

No, intendo che e' possibile sapere da quale ufficio IVA e' stata emessa
la partita IVA.
Io, per esempio, ho una tabella istat, debitamente modificata, che mi
consente di fare cio'.

[CUT]

> Credo che uan cosa importante, in questo momento di preparazione al
> cambio fattura elettronica, sarebbe avere uno strumento che consenta di
> verificare se la partita iva che stai inserendo nell'xml sara' accettata
> da Agenzia Entrate oppure no

Si' ma dovrebbe essere collegato direttamente con Agenzia delle Entrate ...

> E questo strumento attualmente non esiste

Appunto.

Comunque, guarda: io saro' un po' retrogado, ma tutta sta storia della
fatturazione elettronica mi sta facendo davvero girare le scatole, oltre
che causarmi dei grandi dolori di testa per capire come preparare il
tracciato xml (ho delle gravissime lacune); cosa che a mio avviso non
serve per combattere l'evasione fiscale, ma paradossalmente la incentiva
ancora di piu', perche' se una persona e' abituata ad evadere con delle
fatture cartacee normali, immagina un poco se, col nuovo formato (tra
l'altro gradirei sapere a chi e' venuto in mente di usare un tracciato
del genere!!!) non e' tentato maggiormente ....

Ma non era meglio effettuare un tracciato record unico, magari
distinguendolo con un carattere iniziale, giusto per distinguere il
riepilogo della fattura dal dettaglio?

Una volta io preparavo dei (all'epoca) dischetti con un file .txt che
avevano stringhe alfanumeriche che raggruppavano tantissimi dati utili
(mi occupavo di erogazione Premio CEE su tabacco); bastava acquisirli,
scompattarli, destinarli alle varie tabelle e il gioco era fatto,
semplice e coinciso.



title: Verificatore per partite iva

text:
Il 01/12/2018 20:14, Carlo POTS ha scritto:
> Il 01/12/2018 12:27, RobertoA ha scritto:
>
>> No, non credo di aver capito
>> Forse intendi dire che e' possibile distinguere aziende terrone dalle
>> polentone?
>
> No, intendo che e' possibile sapere da quale ufficio IVA e' stata emessa
> la partita IVA.
> Io, per esempio, ho una tabella istat, debitamente modificata, che mi
> consente di fare cio'.

Sapere qual'e' l'ufficio che ha emesso la piva, in cosa ti e' utile?

>> Credo che uan cosa importante, in questo momento di preparazione al
>> cambio fattura elettronica, sarebbe avere uno strumento che consenta
>> di verificare se la partita iva che stai inserendo nell'xml sara'
>> accettata da Agenzia Entrate oppure no
>
> Si' ma dovrebbe essere collegato direttamente con Agenzia delle Entrate ...
>
>> E questo strumento attualmente non esiste
>
> Appunto.

Certo, stato parlando di interrogare lo stesso db che usano loro per
dirti giusto/sballiatto
Potessimo farlo pure noi, e costerebbe poco, eviteremmo un sacco di
ritorni e rotture di balle

> Comunque, guarda: io saro' un po' retrogado, ma tutta sta storia della
> fatturazione elettronica mi sta facendo davvero girare le scatole, oltre
> che causarmi dei grandi dolori di testa per capire come preparare il
> tracciato xml (ho delle gravissime lacune); cosa che a mio avviso non
> serve per combattere l'evasione fiscale, ma paradossalmente la incentiva
> ancora di piu', perche' se una persona e' abituata ad evadere con delle
> fatture cartacee normali, immagina un poco se, col nuovo formato (tra
> l'altro gradirei sapere a chi e' venuto in mente di usare un tracciato
> del genere!!!) non e' tentato maggiormente ....
>
> Ma non era meglio effettuare un tracciato record unico, magari
> distinguendolo con un carattere iniziale, giusto per distinguere il
> riepilogo della fattura dal dettaglio?
>
> Una volta io preparavo dei (all'epoca) dischetti con un file .txt che
> avevano stringhe alfanumeriche che raggruppavano tantissimi dati utili
> (mi occupavo di erogazione Premio CEE su tabacco); bastava acquisirli,
> scompattarli, destinarli alle varie tabelle e il gioco era fatto,
> semplice e coinciso.

Mi sembra sia quello che ha fatto Agenzia Entrate
Uniformare il formato fatture vendita


title: Verificatore per partite iva

text:
Il 02/12/2018 18:05, RobertoA ha scritto:

> Mi sembra sia quello che ha fatto Agenzia Entrate
> Uniformare il formato fatture vendita

Si' ma non e' quello che dicevo io.
Le fatture come la FE si fanno una per una, in un codice XML e con una
struttura che a me, personalmente, sta facendo perdere tempo e pazienza
per come fare per realizzarla (personalmente non ci sono ancora riuscito).

Quello che intendevo io era un file .txt, che puo' contenere anche
diverse fatture (nello stesso file), senza andare li' a caricarne una
per una.

Magari usando un record che comincia per 1 per il riepilogo fattura,
tanti record che iniziano per 2 per i dettagli della fattura, un record
che inizia per 3 per inserire i dati del venditore e un record che
inizia per 4 per inserire i dati del cliente, magari aggiungendo anche
un record che inizia per 5 per inserire i dati bancari.

Questa e' praticamente la codifica che usavo io all'epoca e che, in
access, si puo' realizzare molto piu' rapidamente.



title: Verificatore per partite iva

text:
Il 02/12/2018 22:07, Carlo POTS ha scritto:
> Il 02/12/2018 18:05, RobertoA ha scritto:
>
>> Mi sembra sia quello che ha fatto Agenzia Entrate
>> Uniformare il formato fatture vendita
>
> Si' ma non e' quello che dicevo io.
> Le fatture come la FE si fanno una per una, in un codice XML e con una
> struttura che a me, personalmente, sta facendo perdere tempo e pazienza
> per come fare per realizzarla (personalmente non ci sono ancora riuscito).
>
> Quello che intendevo io era un file .txt, che puo' contenere anche
> diverse fatture (nello stesso file), senza andare li' a caricarne una
> per una.
>
> Magari usando un record che comincia per 1 per il riepilogo fattura,
> tanti record che iniziano per 2 per i dettagli della fattura, un record
> che inizia per 3 per inserire i dati del venditore e un record che
> inizia per 4 per inserire i dati del cliente, magari aggiungendo anche
> un record che inizia per 5 per inserire i dati bancari.
>
> Questa e' praticamente la codifica che usavo io all'epoca e che, in
> access, si puo' realizzare molto piu' rapidamente.

Mi sembra tu stia descrivendo quasi esattamente il file xml previsto per
la fe da agenzia entrate, che e' un file di testo in tutto e per tutto

Un singolo xml PUO' contenere diverse fatture, se vedi la sezione 2
FatturaElettronicaBody vedrai un 1.N a fianco che significa 'da 1 a N
ripetizioni (fatture)'

Le tue sezioni 2,3,4,5 corrispondono esattamente alle sezioni 2.1, 1.2,
1.4, 2.4
Che poi non sia esattamente come era il tuo tracciato record, beh mi
pare comprensibile, e' un sistema che dovrebbe essere sufficiente per
descrivere con sufficiente accuratezza le vendite di tutta Italia
Magari non lo e' ancora perche' ci saranno dettagli da
aggiungere/modificare ma la via e' stata tracciata e permettera' una
completa automazione dello scambio documenti vendita

Quello che a mio parere e' incomprensibile e' la mancanza di supporto
che viene offerto per un sistema che sara' obbligatorio adottare
Se provi ad accreditarti per usare lo sdiftp o sdicoop, vedrai che la
documentazione fornita e' largamente insufficiente per completare le
procedure, chiami l'assistenza al telefono e ti rispondo che la
documentazione e' sul sito
fatturapa.gov.it
, strumenti, norme e regole


title: Verificatore per partite iva

text:
Il 03/12/2018 01:37, RobertoA ha scritto:

> Quello che a mio parere e' incomprensibile e' la mancanza di supporto
> che viene offerto per un sistema che sara' obbligatorio adottare
> Se provi ad accreditarti per usare lo sdiftp o sdicoop, vedrai che la
> documentazione fornita e' largamente insufficiente per completare le
> procedure, chiami l'assistenza al telefono e ti rispondo che la
> documentazione e' sul sito
fatturapa.gov.it
, strumenti, norme e regole

Per la serie "Armatevi e partite"



title: Verificatore per partite iva

text:
Il 03/12/2018 13:26, Carlo POTS ha scritto:
> Il 03/12/2018 01:37, RobertoA ha scritto:
>
>> Quello che a mio parere e' incomprensibile e' la mancanza di supporto
>> che viene offerto per un sistema che sara' obbligatorio adottare
>> Se provi ad accreditarti per usare lo sdiftp o sdicoop, vedrai che la
>> documentazione fornita e' largamente insufficiente per completare le
>> procedure, chiami l'assistenza al telefono e ti rispondo che la
>> documentazione e' sul sito
fatturapa.gov.it
, strumenti, norme e regole
>
> Per la serie "Armatevi e partite"
>
Della serie "vai avanti tu che a me vien da ridere"
(si copriva la bocca con la mano perche' aveva appena preso un bastonata
sui denti)


title: report con sottotitoli

author: Franz

text:
Non sono molto esperto nell'uso di MS Access e vorrei crearmi un Report
composto da più sottoreport.
Non è tanto il creare i sottoreport  ma la particolarità di questi:
La struttura è la seguente:
  Titolo
    sottotitolo
      sottotitolo
        dettaglio
        dettaglio
      sottotitolo
        dettaglio
oppure
  Titolo
    sottotitolo
      dettaglio
      dettaglio
      dettaglio
      ecc.
in pratica il problema si pone quando voglio gestire i sottotitoli su più
livelli.
Vorrei poter gestire in un unico report il sottoreport dei sottotitoli.
Spero di essere stato abbastanza chiaro.
Grazie in anticipo a chi mi può aiutare.


title: Dimensione esagerata

author: Marina F.

text:
Ho un db su A2000 così composto:
N° 1 tabella con un unico record (dove memorizzo la data e il nome
dell'utente)
N° 1 maschera con tre pulsanti con una ventina di righe di codice su ogni
pulsante (questi pulsanti mi aprono altri db.     END
E' possibile che questo db sia 2,6 mega??
Già provato a compattare di quì non si schiatta.
Ho creato un db vuoto e importato l'unica maschera e l'unica tabella ma
niente lui rimane fisso sui 2,6 mega
Grazie per eventuali consigli


title: Dimensione esagerata

text:
"Marina F." <1@l1> ha scritto nel messaggio
news:HnPb9.127651$n04.3...@twister2.libero.it...

Non è che hai una bellissima immagine come sfondo della maschera?
Ciao, Carlo


title: Dimensione esagerata

author: Mak

text:
"Marina F." <1@l1> ha scritto nel messaggio
news:HnPb9.127651$n04.3...@twister2.libero.it...

Prova a selezionare in strumenti - opzioni la funzione compatta alla
chiusura e vedi cosa succede.
Ciao Mak


title: Dimensione esagerata

text:
"Marina F." <1@l1> ha scritto nel messaggio
news:HnPb9.127651$n04.3...@twister2.libero.it...

Ho risolto seguendo il consiglio sul sito comune il db che dovrebbe
compattare però non funziona ma si pùò fare manualmente risultato ora è 228
k
>
>


title: Tempo determinato e bottoni

author: Bix

text:
1)Vorrei che una casella di testo/pulsante/immagine bitmap mi rimanesse
visibile per un
tempo determinato (es. 1sec.) dopo la pressione di un tasto.
E' possibile con Access?
Se si in che modo?
2)Esiste un modo per associare icone a testi nei bottoni di Access
Grazie
Bix


title: Tempo determinato e bottoni

author: Silvio Berruti

text:
"Bix" <
hiryubo...@hotmail.com
> ha scritto nel messaggio
news:ab4ies$9d9$1...@lacerta.tiscalinet.it...

1) non ho provato, ma se Su clic vai ad assegnare un valore a Intervallo
timer della maschera e su timer della stessa vai a nascondere il controllo,
dovrebbe funzionare;
2) purtroppo no, a meno che tu non faccia un'immagine bmp che contenga
entrambi.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Tempo determinato e bottoni

author: Alessandro

text:
"Silvio Berruti" <
sber...@libero.it
> wrote in message
news:KQpB8.14734$
US3.3...@twister1.libero.it
>
> "Bix" <
hiryubo...@hotmail.com
> ha scritto nel messaggio
> news:ab4ies$9d9$1...@lacerta.tiscalinet.it...
> > 1)Vorrei che una casella di testo/pulsante/immagine bitmap mi rimanesse
> > visibile per un
> > tempo determinato (es. 1sec.) dopo la pressione di un tasto.
> > E' possibile con Access?
> > Se si in che modo?
> >
> > 2)Esiste un modo per associare icone a testi nei bottoni di Access
> >
>
> 1) non ho provato, ma se Su clic vai ad assegnare un valore a Intervallo
> timer della maschera e su timer della stessa vai a nascondere il controllo,
> dovrebbe funzionare;
>
> 2) purtroppo no, a meno che tu non faccia un'immagine bmp che contenga
> entrambi.
> Silvio
Beh, per la 1° ha già risposto Silvio.
Per la 2° ti spiego come ho risolto la cosa in modo molto artigianale
io.
Ho creato una Label in cui imposto lo style su 3D, aggiungo l'icona
come OLE affiancata ma sempre in 2°piano.
Ovviamente la dimensione della Label deve contenere l'Icona.
A questo punto gestisco l'EVENTO MouseDown dell'etichetta e genero
l'evento...!
Per semplicità io mi sono creato un Modulo di Classe che mi gestisce
anche il passaggio del Mouse sulla Label, che in realtà è Flat e diventa
3D
solo al Passaggio del Mouse, ed in più modifico l'icona dello stesso.
Di fatto simula in qualche modo l'ACTIVEX Miscrosoft.
A chi interessa il Modulo di classe è disponibile.
Alessandro.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Errore in maschera dopo ricerca record

author: Berti Simone

text:
Ho una maschera la quale serve ad immettere dei dati all'inteno di una
tabella. I record di questa tabella sono diventati numerosi e, per questo
motivo, mi sono creato una casella combinata che mi ricerca (attraverso un
elenco a discesa) il record giusto. Tutto funziona correttamente solo che
una volta aver ricercato il record desiderato non posso andare a scorrere i
record in avanti o indietro attraverso i selettori come mai?
La maschera è di tipo a colonne....
Saluti a tutti


title: Errore in maschera dopo ricerca record

author: namor

text:
Berti Simone ha scritto:

Perchè forse invece di spostarti sul record trovato applichi un filtro.
Com'è il codice che cerca il record?
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Errore in maschera dopo ricerca record

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:c7d7up$h91$1...@news.newsland.it...

Si in effetti applica un filtro... quello che mi chiedevo è appunto se
invece di applicare un filtro è possibile andare al record desiderato
attraverso una casella combinata....
ciao


title: Errore in maschera dopo ricerca record

author: Alessandro Baraldi

text:
"Berti Simone" <
berti...@tiscali.it
> wrote in message
news:%Oqmc.207143$
rM4.8...@news4.tin.it
[CUT]
>
> Si in effetti applica un filtro... quello che mi chiedevo è appunto se
> invece di applicare un filtro è possibile andare al record desiderato
> attraverso una casella combinata....
>
> ciao
Creati una COMBO con l'AUTOCOMPOSIZIONE e leggi bene la proposta
del WIZZARD "Ricerca il record corrispondente....."
Questo fà esattamente ciò che chiedi non filtrando ma SPOSTANDO
il puntatore sul RECORD corrispondente.
Ciao.
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Errore in maschera dopo ricerca record

text:
[cut]
>
>
> Creati una COMBO con l'AUTOCOMPOSIZIONE e leggi bene la proposta
> del WIZZARD "Ricerca il record corrispondente....."
> Questo fà esattamente ciò che chiedi non filtrando ma SPOSTANDO
> il puntatore sul RECORD corrispondente.
>
> Ciao.
> @Alex.
>
Mille grazie


title: Re Re Re: Problemi con combo

author: Ryc

text:
ciao a tutti
dopo aver selezionato nella combo una percentuale
non riesco più a riportarla a zero.
Se cancello poi il valore nel menu a tendina, nella relativa casella
non viene
evidenziato nessun valore, neppure zero.
Grazie per l'aiuto


title: Re Re Re: Problemi con combo

text:

Hai intenzione di aprire un 3D anche per dirci che tempo fa dalle tue
parti, se il cane ha fatto pipi ed il giornalaio è caduto in
bicicletta....?????
Abbi un pò di coerenza e buonsenso, altrimenti ti fai terra bruciata
attorno, e sarai costretto a cambiare Nick per avere risposte....
cerca di capire
quello che ti viene suggerito, anche come maturo comportamento di
frequentazione...!
Ovviamente non ti darò risposte.
@Alex


title: Re Re Re: Problemi con combo

text:

scusami Alex
l'altro era già chiuso da tempo.
Pensavo di fare una cosa buona e non negativa
altrimenti non l'avrei fatto.


title: Re Re Re: Problemi con combo

text:

Ma non è chiuso... nessuno chiude nulla... è ancora li e l'ultimo post
è di 2gg fà... gli aggiungi il tuo problema e la data viene
riaggiornata
passando in TESTA... ovvio che non si fà per Post di 2 anni fà... ma
questo è recentissimo.
Ti manca un pò di quella che si chiama "NETIQUETTE"... che in gergo
culinario è "BON TON"... o educazione, ma non generale, specifica
per il posto nel quale ti rapporti... lo USENET.
Ciao
@Alex


title: Re Re Re: Problemi con combo

text:

ciao Alex
chiedo scusa.
Non succederà più


title: Re Re Re: Problemi con combo

author: Antonio Biso

text:
"Ryc" <
ars...@yahoo.it
> ha scritto nel messaggio
news:b0777eeb-6e85-4f63...@m35g2000vbn.googlegroups.com...

Questo lo dice sempre il mio bimbo di 4 anni
scusa, non l'ho fatto apposta, non lo faccio più papà
e poi  lo rifa dopo mezz'ora
Antonio


title: Re Re Re: Problemi con combo

text:
On 16 Gen, 14:40, "Antonio Biso" <
ab...@libero.it
> wrote:
> "Ryc" <
ars...@yahoo.it
> ha scritto nel messaggionews:b0777eeb-6e85-4f63...@m35g2000vbn.googlegroups.com...

Ciao Antonio
Non conosco bene le Vostre regole
ma faccio il massimo per adeguarmici.


title: Re Re Re: Problemi con combo

author: MA

text:
?"Ryc"  ha scritto nel messaggio
news:ed5eae20-bd1a-4fff...@k13g2000vbq.googlegroups.com...


___
Ryc, sei fortunato che non ti ha detto nulla sul subject...
MA


title: Task Windows Nascosto e dimens. applicaz. mdb

author: Pablitomf

text:
Ciao a tutti...
premessa1 :
ho sviluppato una funzioncina sfruttando delle "API" (non chiamate gli
animalisti :-D ) per visualizzare o meno sia le ICONE sul Desktop che la
TaskBar di Windows, ma qualcuno (MA) mi ha subito suggerito (e là mi sono
reso conto che avevo seriamente perso tempo) che qualcun altro l'aveva già
fatta tempo addietro (Alessandro Baraldi)...
premessa2 :
questa funzione mi serve (o almeno io l'ho pensata così) per aprire a
tutto schermo un applicativo access (ho tolto l'intestazione e
massimizzato l'applicativo e le Forms) senza usare popup e agire sui bordi
delle forms.
il problema :
quando vado a nascondere la Taskbar, e tento di aprire l'mdb, pur
massimizzando il tutto, la parte del video occupata precedentemente dalla
Taskbar ora nascosta, non mi viene occupata dall'applicativo, ma mi rimane
vuota con i colori dello sfondo del desktop.
E' possibile occupare quello spazio allargando effettivamente a tutto
schermo l'applicativo?
Notizie in merito?
Tnks
--
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
Per allargare a tutto schermo intendi Maximize oppure un Resize con
le coordinate Massime...?
In quel caso hai provato a ricavare la risoluzione del monitor,
convertirla in TWIPS
e passarla alla Form con SetWindowPos oppure con MoveWindow...?
Per il problema che lamenti invece credo dipenda dal ritardo con il
quale elimini la TaskBar rispetto al calcolo dell'area, se non ho
capito male....!
Prova a vedere cosa restituiscono queste 2 chiamate:
Private Const SPI_GETWORKAREA = 48
             Call GetWindowRect(GetDesktopWindow(), rctParent)
            '----------------------------------------------------
            ' Se si vuole rispettare la TaskBar e le altre Barre
Ancorate
            ' usare il seguente al posto di quello Commentato sopra
            Call SystemParametersInfoRect(SPI_GETWORKAREA, 0,
rctParent, 0)
le 3 funzioni API faccio senza postarle credo.
Ovviamente devi usare una variabile di tipo RECT, e controllarti cosa
viene restituito
magari anche facendo un test con un Pulsante(quindi su richiesta)...!
Ciao
@Alex


text:
Alessandro Baraldi ha scritto:
> Per allargare a tutto schermo intendi Maximize oppure un Resize con
> le coordinate Massime...?
> In quel caso hai provato a ricavare la risoluzione del monitor,
> convertirla in TWIPS
> e passarla alla Form con SetWindowPos oppure con MoveWindow...?
> Per il problema che lamenti invece credo dipenda dal ritardo con il
> quale elimini la TaskBar rispetto al calcolo dell'area, se non ho
> capito male....!
Ciao Ale, e ben trovato.
Bhč, ti spiego.
Avevo pensato anche io fosse un problema di ritardo, tant'č che ho
spostato il sistema su un DB esterno per provare, ma senza risultato.
La task viene eliminata, apro il DB Massimizzando l'applicativo, e
utilizzando un semplice
DoCmd.Echo False
Dim Altezza, Larghezza
    DoCmd.Maximize
    Larghezza = Me.WindowWidth
    Altezza = Me.WindowHeight
    DoCmd.Restore
    DoCmd.MoveSize 0, 0, Larghezza, Altezza
Application.Echo True
sulle forms) ma la sezione dello schermo prima dedicata alla Task ora
invisibile non viene occupata da nulla rimanendo vuota.
--
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchč un uomo con la testa nel forno



text:
Se riesco in serata faccio una prova poi ti faccio sapere, se hai un
MiniDemo
sarei più contento(sono prigrissimo................).
@Alex


text:
Alessandro Baraldi ha scritto:
> Se riesco in serata faccio una prova poi ti faccio sapere, se hai un
> MiniDemo
> sarei più contento(sono prigrissimo................).
Certo... te lo invio.
> @Alex
--
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno



text:
TNX
@Alex


title: eseguire Stored procedure parameters da VBA

author: pfm

text:
salve

ho un'applicazione Access collegata a SQL server via ODBC.
ho creato una StoredProcedure in SQL con alcuni parametri

potete aiutarmi a richiamare la stored procedure da Access passandogli i parametri definiti dall'utente?

GRAZIE


text:

Io usavo DAO, con una Query PassTrought invocando EXEC sp_name...

Vedi questi LINK:

https://social.msdn.microsoft.com/Forums/office/en-US/b4521015-4ca1-4644-adea-bdbd0b8106c7/best-way-to-execute-sql-stored-procedure-with-parameters-from-access-2010?forum=accessdev

https://access-programmers.co.uk/forums/showthread.php?t=129352

https://stackoverflow.com/questions/24248870/calling-stored-procedure-while-passing-parameters-from-access-module-in-vba

https://stackoverflow.com/questions/40828608/execute-mysql-stored-procedure-with-parameters-in-access-frontend-via-vba?rq=1

@Alex


text:
grazie

veramente gentile!

posso cosi' crearmi una maschera in access in modo che l'utente possa definire i parametri della stored procedure


title: Dov e' finito GENERA ? :(

author: Esposito Gennaro

text:
Salve a tutti,
sono un utente poco esperto che da poco e' passato da access97 a 2000.
Con grande sconforto ho notato che nella finestra di codice cliccando
col tasto destro del muose non esce piu' la voce "Genera" ....per
intenderci quella voce che apriva una finestra che permetteva di
evitare di scrivere i nomi dei controlli facendo un doppio click.
Qualcuno mi sa dire dove la trovo ? o se c'e' un qualcosa di simile ?
Ringrazio tutti anticipatamente


title: Dov e' finito GENERA ? :(

author: lbo dal portatile

text:
>sono un utente poco esperto che da poco e' passato da access97 a 2000.
>Con grande sconforto ho notato che nella finestra di codice cliccando
>col tasto destro del muose non esce piu' la voce "Genera" ....per
prova a dare uno sguardo su
www.trigeminal.com
.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: Dov e' finito GENERA ? :(

author: Karl Donaubauer

text:
lbo dal portatile <
l...@NOSPAM.blunet.it
> schrieb:
> >sono un utente poco esperto che da poco e' passato da access97 a 2000.
> >Con grande sconforto ho notato che nella finestra di codice cliccando
> >col tasto destro del muose non esce piu' la voce "Genera" ....per
>
> prova a dare uno sguardo su
www.trigeminal.com
.
Yep, TSI Xpression
http://www.trigeminal.com/utility.asp
BTW Non c'é nessuno qui che posso fare una traduzione italiana per
questo sito? Potrebb' essere un bel' esercizio per me di legere michka
in italiano. ;-)
--
cu
Karl
*********
Scusate il mio malissimo Italiano. Faccio solo esercizi qui.
Access-FAQ (Tedesco):
http://www.donkarl.com
APP:
http://www.AccessProfiPool.com


title: Dov e' finito GENERA ? :(

text:
>> prova a dare uno sguardo su
www.trigeminal.com
.
>
>Yep, TSI Xpression
http://www.trigeminal.com/utility.asp
>
>BTW Non c'é nessuno qui che posso fare una traduzione italiana per
>questo sito? Potrebb' essere un bel' esercizio per me di legere michka
>in italiano. ;-)
zitto, va', avevo promesso che glielo facevo io...  a dicembre...



title: Dov e' finito GENERA ? :(

text:
lbo dal portatile schrieb:
> >BTW Non c'é nessuno qui che posso fare una traduzione italiana per
> >questo sito? Potrebb' essere un bel' esercizio per me di legere michka
> >in italiano. ;-)
>
> zitto, va', avevo promesso che glielo facevo io...  a dicembre...
<sussurro>
Io l'ho fatto per tedescho. Dal ~settembre a oggi ca. una pagina al
settimana. ;-) Ma adesso mancano solo 5 pagine.
</sussurro>



title: su non in elenco

author: Franco dellavalle

text:
ciao a tutti
ho creato questa sub pubblica

Sub txtNotInList()

' da richiamare con: txtNotInList

Dim stCtrl As String

stCtrl =
Screen.ActiveControl.Name

stCtrl = Right(stCtrl, Len(stCtrl) - 3)

MsgBox "Il testo inserito in '" & stCtrl & "', non" & _
  vbCrLf & "corrisponde ad una voce dell'elenco." & _
  vbCrLf & "Premi 'ESC' per annullare l'operazione.", vbInformation, "Attenzione!"

End Sub

come devo fare per poter inserire
nella sub anche
Response = acDataErrContinue
per non doverla riportarla su non in
elenco di ogni casella combinata?

grazie


title: su non in elenco

text:
Non puoi... te lo sei inventato tu quel codice... Non è  l'Evento nativo cHe appunto invece espone parametri...

Spiega cosa vuoi fare...

@Alex


title: su non in elenco

text:

Ciao Alex
siccome ho diverse combo, dove su modifica
ho inserito il codice per la ricerca...
p.e.
.....
.....
strFind = strFind & "*" & strText & "*"
ecc. ecc.
per avere un mio messaggio personalizzato (invece del messaggio base:
il testo immesso non corrisponde a una voce ecc. ecc.) e per non
doverlo riscrivere su: 'non in elenco' di ogni combo;
ho creato una sub, da richiamare con:  txtNotInList


title: su non in elenco

text:
Ti sconsiglio questa cosa... il rischio è tu faccia più confusione che altro...

In ogni caso devi costruire una Function che abbia i parametri ByREF che poi devono essere recepiti dall'EVENTO base, ma non potrai dichiarare la Function al posto dell'evento...!

Private Sub NomeCombo_NotInList(NewData As String, Response As Integer)
   Call GlobalNotInList(Me!NomeCombo, NewData, Response)
End Sub

Function GlobalNotInList(myCBO As Access.Combobox, NewData As String, Response As Integer)

' quì fai la gestione...
End Function

I parametri come anche NewData e Response sono passati ByREF, quindi alla modifica nella Function subiranno la modifica nell'evento e si comporteranno di conseguenza...

@Alex


title: su non in elenco

text:

grazie Alex
myCBO mi restituisce un valore nullo invece del nome controllo


title: su non in elenco

text:

ok risolto
avevo tralasciato
stCtrl = myCBO.Name


author: Enzo

text:
E' possibile intercettare i record primo e ultimo?
Ho l'esigenza di rendere visibile o nascondere i tasti di navigazione in una
maschera in funzione del record in cui mi trovo.
Cosa è meglio fare per risolvere il problema?
Devo ricorrere ad un recordset o c'è già una funzione che riconosce che il
record corrente è il primo o l'ultimo inserito?
Eventualmente i recordset non li ho mai usati, qualcuno gentilmente potrebbe
mostrarmi un esempio di script per risolvere il caso?
Ciao e grazie.
Enzo


text:
Enzo <e...@liberoANTISPAM.it> ho scritto:
> E' possibile intercettare i record primo e ultimo?
> Ho l'esigenza di rendere visibile o nascondere i tasti di navigazione in una
> maschera in funzione del record in cui mi trovo.
> Cosa è meglio fare per risolvere il problema?
> Devo ricorrere ad un recordset o c'è già una funzione che riconosce che il
> record corrente è il primo o l'ultimo inserito?
Nel codice di un evento adatto (p.e. Current del form):
If Me.CurrentRecord = 1 Then MsgBox "sono il primo"
If Me.CurrentRecord = Me.RecordsetClone.RecordCount Then MsgBox "sono
l'ultimo"
--
HTH
Karl
*********
Scusate il mio malissimo Italiano. Faccio solo esercizi qui.
Access-FAQ (Tedesco):
http://www.donkarl.com


title: E' possibile intercettare i record primo e ultimo?

author: AG

text:
Se ho ben afferrato potresti risolvere il problema con l'algebra booleana
nell'evento "Su Corrente"
pulsantePrevious.enabled=Cbool(Me.CurrentRecord - 1)
questo perchè Cbool restituisce Vero per valori > 0
....
pulsanteNext.enabled=Not Me.NewRecord
così i pulsanti dovrebbero attivarsi o disattivarsi quando il cursore
raggiunge l'inizio  o la fine della sequenza
Ciao
Alessandro
Enzo <e...@liberoANTISPAM.it> wrote in message
cxGR5.87172$BF.31...@news.infostrada.it...



title: Settare Public Const a run-time

author: Mattia

text:
All'interno di un modulo setto la costante Public Const dirlav =
"c:\Mattia\prova". Volevo sapere se è possibile farlo a run-time cioè in
risposta all'esecuzione di una funzione o sub. Ho infatti utilizzato la sub
per riallegare le tabelle presente sul sito comune e volevo fare in modo di
salvarmi il path visto che mi serve durante l'esecuzione.
Avevo pensato di crearmi una 2° tabella di lavoro all'interno della quale
salvare questo tipo di info, nome del be, nome del fe, path, etc, ma non so
se è la soluzione giusta.
Aloa                Mattia
--
P.S. Togli NOSPAM dall'indirizzo e-mail


title: [OT]Scusate ma Lbo?

author: merca

text:
Ciao a tutti e da quasi un anno che non seguo più il NG, e non vedo più
messaggi di lbo (il creatore del faquone)c'è ancora o no , solo per
curiosità.
 Grazie, Roberto.


title: query di aggiornamento

author: tiziano

text:
Ciao scusate se rompo...
il mio sistema di ricerca per ora funzionamediante una maschera non
associata e dei controlli anch'essi non associati sul click del mouse
attivano una maschera con un elenco di piepilogo in cui vengono evidenziati
i record ottenuti ora mi chiedo se inserisco qui un comando(dio sa come...)
che mi permetta di fare una query di aggiornamento? può funzionare?
richiamando la maschera non associata e facendomi vedere i risultati?
ciao
Tz
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: query di aggiornamento

author: Valerio Valentini

text:
"tiziano" <
tiziano...@libero.it
> ha scritto nel messaggio
news:217Z172Z214Z103Y...@usenet.libero.it...
>
> Ciao scusate se rompo...
> il mio sistema di ricerca per ora funzionamediante una maschera non
> associata e dei controlli anch'essi non associati sul click del mouse
> attivano una maschera con un elenco di piepilogo in cui vengono
> evidenziati
> i record ottenuti ora mi chiedo se inserisco qui un comando(dio sa
> come...)
> che mi permetta di fare una query di aggiornamento? puň funzionare?
> richiamando la maschera non associata e facendomi vedere i risultati?
> ciao
> Tz
>
In attesa che qualcuno capisca meglio di me, potrei tentare di aiutarti se
sapessi cosa vuoi fare. Il click č su uno dei controlli che riempi o su un
pulsante, cioč cosa estrai e da dove, apri una maschera in visualizzazione
continua o una maschera con un controllo elenco di riepilogo, con cosa lo
riempi? una query?, e successivamente cosa vuoi aggiornare, la prima
maschera, che conteneva solo controlli non associati o anche dati?
Forse se tu provassi a dire ciň che vuoi fare e non come sarebbe piů
semplice.
Ciao Valerio.


title: casella di riepilogo e sottomaschera

author: milena

text:
grazie in anticipo per l'aiuto (ho provato a cercare nelle vecchie new ma
non ho trovato quello che mi servirva
il problema e' questo ..
ho una maschera clienti con un bottone che mi apre la maschera prodotto con
i relativi ordini
la maschera prodotti e' formata da una casella di riepilogo che elenco i
prodotti e selezionando i prodotti si vedono gli ordini.
bene vorrei che quando premo il botto nella maschera clienti si apra la
maschera prodotti con gia' evidenziato il primo prodotto dell'elenco ed i
relatyivi ordini.
spero di essermi spiegata.
grazie


title: casella di riepilogo e sottomaschera

author: cidi

text:
"milena" <
milena.d...@libero.it
> ha scritto nel messaggio
news:gKOAb.63264$AX1.2...@news1.tin.it...

Ciao Milena
se il problema è aprire la combo  all'apertura della maschera prodotti metti
su evento attivato della casella: Me.nomecasella.dropdown.
Non dici che relazioni hanno le tabelle sottostanti i clienti e prodotti e
ordini.
Ciao Daniele


title: Come compilare automaticamente un orario di lavoro?

author: RobertoA

text:
Vorrei affrontare un problema che finora non mi e' mai capitato di
risolvere, automatizzare la compilazione del classico orario di scuola

E quindi partendo da:
- elenco insegnanti
- materie fornite da ogni insegnante (ognuno potrebbe insegnare piu'
d'una materia) e quantita settimanale (es. insegnante codice 1  insegna
italiano e storia ed e' presente per 4 ore/settimana)
- elenco classi presenti (1A, 1B, 1C, 2A, ...)
- elenco settimanale delle materie per ogni classe (classe 1a=4h
italiano, 2K storia, 3H matematica...)

Come automatizzare il problema dell'ottenimento orario
settimanale/mensile usando le informazioni fornite sopra?
Che logica usereste per la compilazione dell'orario?


author: BFS

text:

con "automatizzare" cosa intendi?
che date le tabelle sopra il programma compili automaticamente gli
orari? se si...ci sono delle logiche da tener conto che il programma non
potrebbe valutare con i soli dati qui sopra

se invece intendi automatizzare la sequenza di inserimento io farei una
tabella per memorizzarmi gli orari, tipo:

IDslot
Classe
GiornoSettimana
1aOra
2aOra
..
5aOra

do per scontato che definiti i 6 giorni, quelli siano sempre uguali per
tutta la durata del quadrimestre. altrimenti andrebbe gestita la tabella
giorno per giorno

in corrispondenza di ogni 1-5ora mi salverei un id di una seconda
tabella dettagli con le info della lezione

iddettaglio
iddocente
idmateria

per caricare i dati farei una procedura guidata:
1)seleziono docente
2)farei apparire il calendario di ogni classe con le caselle disponibili
3)una volta selezionata la casella libera farei apparire la lista delle
materie del docente da scegliere per quella casella

aggiungerei magari dei vincoli
tipo immagino che un certo docente non lavori con tutte le classi, tipo
il prof di inglese non lavora con le prime

aggiornerei un contatore che mi va a scalare le ore gia inserite per
ogni docente.

da qui la stampa per classe e quella da dare ad ogni docente sarebbe una
banalità

BFS


text:
Il 29/10/2023 10:38, RobertoA ha scritto:




author: Ammammata

text:
on 29/10/2023, RobertoA supposed :
> Che logica usereste per la compilazione dell'orario?

che puntualmente, ogni inizio anno in seconda e in terza, alle scuole
medie, il prof. di applicazioni tecniche mi chiamava dalle normali
lezioni a dargli una mano con il tabellone compilato a matita, gomme,
sudore e imprecazioni :)

erano 4 sezioni per tre anni, totale 12 classi, roba abbastanza facile

in genere in una mattinata era a posto :)

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


text:
BFS formulated the question :
> con "automatizzare" cosa intendi?

farlo tutto in automatico potrebbe non valere la candela (del santo),
ci sono già software preposti all'uopo; un aiuto in caso di fai-da-te
potrebbe essere invece quello di segnalare la disponibilità del tal
docente quando lo si inserisce in un orario di classe

tra l'altro mi viene in mente che certe materie hanno bisogno di avere
almeno due ore consecutive, vuoi per i compiti in classe, vuoi per
ottimizzare i tempi morti (p.e. educazione fisica: noi la facevamo a
classi accoppiate oltretutto)

e c'era il giorno libero, le ore di ricevimento genitori, le ore di
presenza obbligatoria per eventuali supplenze (reperibilità, ma in
loco)

insomma, c'era da divertirsi (e imprecare)

bei tempi... son passati ben più di quaranta anni :(



text:
Il 30/10/2023 11:39, Ammammata ha scritto:
> BFS formulated the question :
>> con "automatizzare" cosa intendi?
>
> farlo tutto in automatico potrebbe non valere la candela (del santo), ci
> sono già software preposti all'uopo; un aiuto in caso di fai-da-te
> potrebbe essere invece quello di segnalare la disponibilità del tal
> docente quando lo si inserisce in un orario di classe
>
> tra l'altro mi viene in mente che certe materie hanno bisogno di avere
> almeno due ore consecutive, vuoi per i compiti in classe, vuoi per
> ottimizzare i tempi morti (p.e. educazione fisica: noi la facevamo a
> classi accoppiate oltretutto)
>
> e c'era il giorno libero, le ore di ricevimento genitori, le ore di
> presenza obbligatoria per eventuali supplenze (reperibilità, ma in loco)
>
> insomma, c'era da divertirsi (e imprecare)
>
> bei tempi... son passati ben più di quaranta anni :(
>

si infatti molti per i compiti in classe necessitano di due ore
consecutive (di solito ita e mate)
inoltre si cerca di ottimizzare i docenti..si evita di far venire uno
per un'ora alle 8 e un'ora alle 12.30.
insomma è tipo una riunione di condominio mettere d'accordo tutti


text:

Con 'automatizzare' intendo che dopo aver inserito i dati necessari i
dati necessari, insegnanti, insegnanti/materie, corsi,
corsi/materie/ore, vincoli aggiuntivi (ita - sto consecutive, giorni
vincolati per certi insegnanti/corsi, ecc...), schiacciando un tasto il
sistema dovrebbe propormi un orario settimanale/mensile papabile,
eventualmente da ritoccare manualmente


text:
Il 30/10/2023 11:39, Ammammata ha scritto:
> BFS formulated the question :
>> con "automatizzare" cosa intendi?
>
> farlo tutto in automatico potrebbe non valere la candela (del santo), ci
> sono già software preposti all'uopo; un aiuto in caso di fai-da-te
> potrebbe essere invece quello di segnalare la disponibilità del tal
> docente quando lo si inserisce in un orario di classe
>
> tra l'altro mi viene in mente che certe materie hanno bisogno di avere
> almeno due ore consecutive, vuoi per i compiti in classe, vuoi per
> ottimizzare i tempi morti (p.e. educazione fisica: noi la facevamo a
> classi accoppiate oltretutto)
>
> e c'era il giorno libero, le ore di ricevimento genitori, le ore di
> presenza obbligatoria per eventuali supplenze (reperibilità, ma in loco)
>
> insomma, c'era da divertirsi (e imprecare)
> bei tempi... son passati ben più di quaranta anni :(

So bene che esistono gia' procedure che realizzano quanto richiesto
Vorrei realizzare una cosa simile a queste procedure
L'obiettivo e' capire che logica seguono questi sistemi
Ci penso io se vale la candela oppure no


text:

Si certo, questi sono esempi di 'vincoli' che sara' necessario
rispettare, e ancor prima di metterci le mani dentro mi sembrano la cosa
probabilmente piu' complessa da codificare
Immagino sara' necessario inserire anche una 'priorita' sui singoli
vincoli per capire quali sono obbligatoriamente da rispettare e quali
invece se pur non rispettati succede niente


text:
Il 30/10/2023 11:28, Ammammata ha scritto:
> on 29/10/2023, RobertoA supposed :
>> Che logica usereste per la compilazione dell'orario?
>
> che puntualmente, ogni inizio anno in seconda e in terza, alle scuole
> medie, il prof. di applicazioni tecniche mi chiamava dalle normali
> lezioni a dargli una mano con il tabellone compilato a matita, gomme,
> sudore e imprecazioni :)
>
> erano 4 sezioni per tre anni, totale 12 classi, roba abbastanza facile
>
> in genere in una mattinata era a posto :)
>

Eccolo qua, abbiamo trovato uno sviluppatore che ha gia' codificato 'a
cervello' l'algoritmo necessario alla compilazione dell'agognato
settimanale
Basta tradurre il pensiero 'a capoccia' in logica 'a gombiuter' e siamo
a cavallo


text:

ai tempi dell'uni per problemi di questo tipo si usavano gli algoritmi
genetici.
in soldoni:
ad ogni vincolo si da un peso/importanza/coefficiente
si crea una funzione che accetti in entrata una generazione random
dell'orario
la funzione restituisce il "valore" del calendario stilato in base al
peso dei vincoli
vengono generate 100/100/1000 possibili calendari di orari e valutati
dalla funzione

viene scartato il 70% dei risultati/calendari con valore restituito
dalla funzione bassi
tra i 30% migliori vengono generati ulteriori calendari scambiando pezzi
di pianificazione (ovviamente sempre rispettando i vincoli) e nuovamente
valutati dalla funzione e scremati

come nella genetica, combinando tra loro sempre i migliori risultati si
va verso quella che dovrebbe essere la perfezione.

e ovviamente il risultato finale non andrà bene a nessun docente :-)

BFS


text:

Capisco, una rifinitura progressiva
Ma perche' dici che 'non va bene a nessuno' ?
Se rispetta i vincoli (e dubito si riesca a rispettarli tutti) allora
l'orario proposto dovrebbe andare bene a tutti

Mi pare che il punto principale sia farsi dare il minimo di vincoli
possibili, e magari trovare il modo di documentarli/certificarli in modo
da trovarsi preparati alle obiezioni che arriveranno dai docenti appena
vedranno l'orario appena sfornato


text:

era ironico per dire che cmq ci sarà qualcuno scontento :-)

BFS


author: Bruno Campanini

text:
Ammammata explained on 30-10-23 :
> BFS formulated the question :
>> con "automatizzare" cosa intendi?
>
> farlo tutto in automatico potrebbe non valere la candela (del santo), ci sono
> già software preposti all'uopo; un aiuto in caso di fai-da-te potrebbe essere
> invece quello di segnalare la disponibilità del tal docente quando lo si
> inserisce in un orario di classe
>
> tra l'altro mi viene in mente che certe materie hanno bisogno di avere almeno
> due ore consecutive, vuoi per i compiti in classe, vuoi per ottimizzare i
> tempi morti (p.e. educazione fisica: noi la facevamo a classi accoppiate
> oltretutto)
>
> e c'era il giorno libero, le ore di ricevimento genitori, le ore di presenza
> obbligatoria per eventuali supplenze (reperibilità, ma in loco)
>
> insomma, c'era da divertirsi (e imprecare)
Più imprecare che divertirsi!

Bruno


title: Recordset..query con parametri

author: norica

text:
Prendendo atto che ho letto i post precedenti relativi all'argomento, non ho
trovato una risposta valida al mio problema ovvero:
Devo aprire un recordset da una query con parametri...
Dim dbs as Database
Dim rst as Recordset
Dim qdf as QueryDef
Set dbs = CurrentDb
Set qdf = dbs.QueryDefs("QueryCalcolo")
qdf.Parameters!Cliente = Forms!Richiesta!Cliente
Set rst = qdf.OpenRecordset
'comandi vari'
Non funziona !!!!
Non riesco a capire come far combaciare il criterio di scelta del campo
"Cliente" della query a quello digitato nella Forms!RichiestaDati!Cliente
!!!!
Grazie Enrico
--
Posted from
smtp3.libero.it
 [193.70.192.53]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Recordset..query con parametri

author: Roberto da casa

text:
""norica"" <
nor...@libero.it
> ha scritto nel messaggio
news:000b01c0907b$daa1fc40$ee02a8c0@ev...
> Prendendo atto che ho letto i post precedenti relativi all'argomento, non
ho
> trovato una risposta valida al mio problema ovvero:
> Devo aprire un recordset da una query con parametri...
>
> Dim dbs as Database
> Dim rst as Recordset
> Dim qdf as QueryDef
> Set dbs = CurrentDb
> Set qdf = dbs.QueryDefs("QueryCalcolo")
> qdf.Parameters!Cliente = Forms!Richiesta!Cliente
> Set rst = qdf.OpenRecordset
> 'comandi vari'
>
> Non funziona !!!!
>
> Non riesco a capire come far combaciare il criterio di scelta del campo
> "Cliente" della query a quello digitato nella Forms!RichiestaDati!Cliente
> !!!!
>
> Grazie Enrico
>
>
Prova con:
Dim dbs as Database
Dim rst as Recordset
Dim qdf as QueryDef
Set dbs = CurrentDb
Set qdf = dbs.QueryDefs("QueryCalcolo")
qdf.Parameters("[Forms]![RichiestaDati]![Cliente]") = Me![Cliente]
Set rst = qdf.OpenRecordset()
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com/index_new.html
---------------------------------------------


title: Recordset..query con parametri

author: Federico Luciani

text:
norica wrote:
> Prendendo atto che ho letto i post precedenti relativi all'argomento, non ho
> trovato una risposta valida al mio problema ovvero:
> Devo aprire un recordset da una query con parametri...
> Dim dbs as Database
> Dim rst as Recordset
> Dim qdf as QueryDef
> Set dbs = CurrentDb
> Set qdf = dbs.QueryDefs("QueryCalcolo")
> qdf.Parameters!Cliente = Forms!Richiesta!Cliente
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
> Set rst = qdf.OpenRecordset
> 'comandi vari'
> Non funziona !!!!
scusa se te lo chiedo, ma nella query e' stato definito il parametro 'Cliente'?
se si prova con:
qdf.Parameters![Cliente] = [Forms]![Richiesta]![Cliente]
se il codice che esegui si trova sulla form 'Richiesta', allora puoi usare
qdf.Parameters![Cliente] = Me![Cliente]
--
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------


title: Gestione degli errori in caso di assenza delle immagini, o loro diverso nome

author: SpiderMax

text:
Come da oggetto, probabilmente poco chiarificatore, vorrei che se il nome
dell'immagine inserito fosse errato o inesistente, mi inserisse un'immagine
di richiamo tipo "Il percorso o il nome dell'immagine NON è corretto.
Controlla!" (che ho già creato).
Mi andrebbe bene anche visualizzare una etichetta.
Non riesco ad intercettare l'errore (che dovrebbe essere il 2220).
Purtroppo devo anche gestire due immagini nella stessa sottomaschera (una è
CopertinaAlbiOriginali e l'altra è QuartadiCopertinaAlbiOriginali) e
relativo errore.
Suggerimenti?
In anticipo grazie a chiunque mi darà consigli.
PS: ho cercato anche (senza successo) di usare la funzione di Fulvio Bonini
"Verificare la presenza di immagini in una determinata cartella", ma mi dà
il debug del codice sulla riga "immagine = !Image" (mi dice che non ha
trovato Image nell'insieme).
Scusate la confusione.
(¯`·.¸SpiderMax¸.·´¯)


author: Maurizio Borrelli

text:
> "SpiderMax" <
Spid...@vizzavi.it
> ha scritto nel messaggio
> news:L2c2a.106873$YG2.3...@twister1.libero.it...

    Potresti verificare che l'immagine esista, *prima* di caricarla. Per
esempio:
        sImgPathName = "C:\Fotografie\Foto1.jpg"
        Id (Len(Dir(sImgPathName))=0) Then
            ' carichi la tua "immagine di richiamo".
        Else
            ' carichi l'immagine.
        End If
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:b2bith$1a9od6$1...@ID-52090.news.dfncis.de...
> > Come da oggetto, probabilmente poco chiarificatore, vorrei che se il
nome
> > dell'immagine inserito fosse errato o inesistente, mi inserisse
> un'immagine
> > di richiamo tipo "Il percorso o il nome dell'immagine NON è corretto.
> > Controlla!" (che ho già creato).
> > Mi andrebbe bene anche visualizzare una etichetta.
> > Non riesco ad intercettare l'errore (che dovrebbe essere il 2220).
>     Potresti verificare che l'immagine esista, *prima* di caricarla. Per
> esempio:
>         sImgPathName = "C:\Fotografie\Foto1.jpg"
>         Id (Len(Dir(sImgPathName))=0) Then
>             ' carichi la tua "immagine di richiamo".
>         Else
>             ' carichi l'immagine.
>         End If
Anche se non so se leggerai questa mia, volevo dirti che, con il tuo
suggerimento, non ero riuscito.
Forse perchè il path non lo potevo conoscere ab initio dato che lo trovavo
con la funzione PathCorrente del sito.
Prima di impazzire ho risolto in stile "Northwind 2002" (orpole).
Mi show/hide un'etichetta con un messaggio di richiamo se l'errore è il
2220.
Comunque ancora grazie per la disponibilità e speriamo ti reiscriva al NG (o
almeno ci segua "dietro le quinte")
Saluti



text:
"SpiderMax" <
Spid...@vizzavi.it
> ha scritto nel messaggio
news:L2c2a.106873$YG2.3...@twister1.libero.it...

Per verificare l'esattezza del percorso dell'immagine, prima di impostarci
la proprietà Picture del controllo Immagine, usa la funzione Dir (vedi
help); se il file è inesistente la Dir ti restituisce una stringa vuota.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:sPw2a.110576$YG2.3...@twister1.libero.it...

Grazie, Roberto.
Stò temporeggiando nel darti una risposta (spero positiva alla tua dritta)
dato che la guida mi fa un pò le bizze.
Ti farò sapere.
Saluti



text:
> "Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
> news:sPw2a.110576$YG2.3...@twister1.libero.it...
> >
> >
> > Per verificare l'esattezza del percorso dell'immagine, prima di
impostarci
> > la proprietà Picture del controllo Immagine, usa la funzione Dir (vedi
> > help); se il file è inesistente la Dir ti restituisce una stringa vuota.
> >
>
> Grazie, Roberto.
>
> Stò temporeggiando nel darti una risposta (spero positiva alla tua dritta)
> dato che la guida mi fa un pò le bizze.
>
> Ti farò sapere.
>
Fatto or ora.
Grazie tantissimo della dritta.
PS: ma se la stringa del percorso è vuota perché non mi visualizza
l'immagine di "richiamo"? Bhò
Studio ancora (e tanto).



text:
"SpiderMax" <
Spid...@vizzavi.it
> ha scritto nel messaggio
news:aJa3a.118414$YG2.3...@twister1.libero.it...

Questo sta a te farglielo fare con l'ausilio di una If.
Se la funzione Dir ti restituisce come valore una stringa vuota, imposta
come Picture del controllo immagine il path dell'immagine di "richiamo", in
caso contrario imposta la proprietà con il path del file immagine che
esiste.
> Studio ancora (e tanto).
>
> Saluti
>
> (¯`·.¸SpiderMax¸.·´¯)
--



text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:Jko3a.119887$ZE.33...@twister2.libero.it...
>
> "SpiderMax" <
Spid...@vizzavi.it
> ha scritto nel messaggio
> news:aJa3a.118414$YG2.3...@twister1.libero.it...
> > PS: ma se la stringa del percorso è vuota perché non mi visualizza
> > l'immagine di "richiamo"? Bhò
> >
>
> Questo sta a te farglielo fare con l'ausilio di una If.
> Se la funzione Dir ti restituisce come valore una stringa vuota, imposta
> come Picture del controllo immagine il path dell'immagine di "richiamo",
in
> caso contrario imposta la proprietà con il path del file immagine che
> esiste.
>
E' quello che avevo fatto, ma se la stringa è vuota non mi restituisce
l'immagine di "richiamo" (sembra quasi che da qualche parte ci sia un pò di
codice che me la nasconde -anche se così non è-).
Mha.
Studio ancora e grazie della risposta.



author: Alessandro Cara

text:

scusa spider
ma se
x = dir()
if "" & x = "" then
     img.picture = immaginedirichiamo
 else
    img.picture = x
end if
non funziona? mi sembra impossibile.
--
a.cara
Togli qualcosa dall'email


author: MA

text:
> > > > PS: ma se la stringa del percorso è vuota perché non mi visualizza
> > > > l'immagine di "richiamo"? Bhò
> > > Questo sta a te farglielo fare con l'ausilio di una If.
> > > Se la funzione Dir ti restituisce come valore una stringa vuota,
imposta
> > > come Picture del controllo immagine il path dell'immagine di
"richiamo",
> > in
> > > caso contrario imposta la proprietà con il path del file immagine che
> > > esiste.
> > >
> >
> > E' quello che avevo fatto, ma se la stringa è vuota non mi restituisce
> > l'immagine di "richiamo" (sembra quasi che da qualche parte ci sia un pò
di
> > codice che me la nasconde -anche se così non è-).
> >
> scusa spider
> ma se
>
> x = dir()
> if "" & x = "" then
> img.picture = immaginedirichiamo
> else
> img.picture = x
> end if
>
> non funziona? mi sembra impossibile.
>
Potresti anche conteggiare con Len quante immagini soddisfano la tua
condizione.
In definitiva le strade sono diverse:
> x = dir()
> if "" & x = "" then
> img.picture = immaginedirichiamo
> else
> img.picture = x
> end if
A. Cara
if dir("tuopercorso" & tuastringa & ".jpg") = "" then
img.picture = Empty
else
img.picture = "tuopercorso" & tuastringa & ".jpg"
end if
Questa me la suggerì in illo tempore Roberto da casa
if len(dir("tuopercorso" & tuastringa & ".jpg")) > 0 then
img.picture = "tuopercorso" & tuastringa & ".jpg"
else
img.picture = Empty
end if
Questa lo rivista da qualche parte.
Io usa da tempo la sluzione di Roberto e va come un treno
ciao MAssimiliano

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


text:
"SpiderMax" <
Spid...@vizzavi.it
> ha scritto nel messaggio
news:oIP3a.124636$ZE.35...@twister2.libero.it...

Ogni aggiunta a quanto ti hanno detto Alessandro Cara e Ma sarebbe
superflua.



text:
Grazie a tutti per i consigli.
Purtroppo in questo momento non posso provare tutto il "ben di Dio" che mi
avete fatto avere.
Appena ho un'attimo faccio tutti i "test" (ha, ha, ha) e faccio sapere.
Potrebbero interessare anche ad altri.
Saluti



text:
Son riuscito (leggi: ho rubato tempo ad altro) a fare le varie prove:
> x = dir()
> if "" & x = "" then
> img.picture = immaginedirichiamo
> else
> img.picture = x
> end if
Alessandro Cara (after Bobby)
Se sino ad un quarto d'ora fa non fungeva e proprio non riuscivo a farla
andare (sarò impazzito io? E' Access che mi "turba"? Considera che lo avevo
testato -con i dovuti aggiustamenti- sia su A97 che su A00 che sull'AXP,
tutti RIGOROSAMENTE originali, mi restituiva alternativamente un errore
52 -se non ricordo male- oppure il messaggio "il file blà blà blà.... ...non
è stato trovato" con relativo pulsante per il debug -da evitare- oppure non
mi visualizzava nulla, pur avendo inserito il tutto a fronte sia dell'evento
"Su Corrente" che "Dopo Aggiornamento") ora, senza nulla fare (e con tutte
le prove del caso) mi gestisce correttamente anche due immagini.
>if len(dir("tuopercorso" & tuastringa & ".jpg")) > 0 then
>img.picture = "tuopercorso" & tuastringa & ".jpg"
>else
>img.picture = Empty
>end if
MAssimiliano
Questa funzia che è un piacere (al primo colpo - e considera che l'avevo già
provata, avendola trovata in un 3d precedente, ed il risultato era lo stesso
che andar a "coglier fragole" -leggi: mi dava gli stessi errori riscontrati
con il consiglio di Alessandro).
Naturalmente, per MA, al posto di "img.picture = Empty" (senza le
virgolette, of course) ho inserito "img.picture = miaimmaginedirichiamo",
visto che volevo richiamare l'attenzione dell'utente finale su suoi
possibili errori, omissioni, tric-trac e bombe a muro (stò "divagando"?).
Aggiungo che neanche una riga di codice è stata modificata nel mio DB per
inserire queste vostre dritte, e che per disperazione (e mia migliore
comprensione) avevo creato un DB ex novo per controllare ipotetiche mie
"sviste" (si, le chiamano così, ora).
Tutto inutile il lavoraccio di leggere centinaia di righe di codice per
capire se avevo fatto "nà strunzata" (vi prego di essere di "bocca buona" e
passarmelo), anche se ancora non la/le implementerò, per timore mi si possa
ripresentare il problema (non ho deciso quale inserirò, ma propendo per
quella di Roberto/Alessandro/MAssimiliano senza il Len, pur essendo tutte e
due valide).
Le testerò un bel pò e solo successivamente...
Grazie a tutti per la disponibilità e la celerità nelle dritte.
Saluti
(¯`·.¸SpiderMax¸.·´¯)
"SpiderMax" <
Spid...@vizzavi.it
> ha scritto nel messaggio
news:7%24a.126862$ZE.36...@twister2.libero.it...



text:
SpiderMax wrote:
[cut]
ciao
(¯`·.¸SpiderMax¸.·´¯)
mi pareva impossibile che non potesse funzionare
Tutte e tre i suggerimenti sono pressapoco la stessa zuppa.
Qualcuno ci mette il pepe, qualcuno il peperoncino, qualcuno la cannella
o la noce moscata ma siamo sempre li.
Proprio adesso sto rimettendo mano ad una mia vecchia applicazione
di gestione immagini. Mi rammenti qual'e' la chiave che devo modificare
nel registry
per evitare l'avviso di caricamento dell'immagine ?



text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:3E5108F0...@blunet.it...

Imposta a No
HKEY_LOCAL_MACHINE\Software\Microsoft\ Shared Tools\Graphics
Filters\Import\JPEG\Options\ShowProgressDialog



text:
Il 17 Feb 2003, 17:08, Alessandro Cara <
alexqu...@blunet.it
> ha scritto:
> SpiderMax wrote:
> [cut]
> ciao
> (¯`·.¸SpiderMax¸.·´¯)
>
> mi pareva impossibile che non potesse funzionare
> Tutte e tre i suggerimenti sono pressapoco la stessa zuppa.
> Proprio adesso sto rimettendo mano ad una mia vecchia applicazione
> di gestione immagini. Mi rammenti qual'e' la chiave che devo modificare
> nel registry
> per evitare l'avviso di caricamento dell'immagine ?
>
>HKEY_LOCAL_MACHINE\Software\Microsoft\ Shared Tools\Graphics
>Filters\Import\JPEG\Options ---->ShowProgressDialog
