title: query adodb per cercare campi vuoti

author: dario

text:
ciao a tutti ho un problema con una query ADODB
devo trovare dei record in cui un paticolare campo è vuoto, ho provato
a modificare la metodo che uso ma mi restituisce sempre errore
Set cmd1 = New ADODB.Command
    With cmd1
        .ActiveConnection = CurrentProject.Connection
        .CommandText = "Parameters [ctl1] Date, [ctl2] String;" & _
            "SELECT [vocimiste].[anno] AS Espr1, [vocimiste].[mese] AS
Espr2, " & _
            "[vocimiste].[data] AS Espr3, [vocimiste].[persone] AS
Espr4, " & _
            "[vocimiste].[tipo] AS Espr5, [vocimiste].[gruppo] AS
Espr6, " & _
            "[vocimiste].[sottogruppo] AS Espr7, [vocimiste].
[descrizione] AS Espr8, " & _
            "[vocimiste].[importo] AS Espr9, [vocimiste].[pagato] AS
Espr10, " & _
            "[vocimiste].[modo] AS Espr11, [vocimiste].[come] AS
Espr12, " & _
            "[vocimiste].[per] AS Espr13 " & _
            "FROM [vocimiste] " & _
            "WHERE [vocimiste].[data] <= [ctl1] AND [vocimiste].
[pagato] = [ctl2] " & _
            "ORDER BY [Vocimiste].[data], [Vocimiste].[tipo],
[Vocimiste].[gruppo], " & _
            "[Vocimiste].[sottogruppo];"
        .CommandType = adCmdText
        'Create and define parameter.
        Set prm1 = cmd1.CreateParameter("[ctl1]", adInteger,
adParamInput)
        cmd1.Parameters.Append prm1
        int1 = Forms("pilota").Controls.Item("oggi").value
        prm1.value = int1
        Set prm2 = cmd1.CreateParameter("[ctl2]", adInteger,
adParamInput)
        cmd1.Parameters.Append prm2
        int2 = Forms("pilota").Controls.Item("vpagato").value
        prm2.value = int2
        .Execute
    End With
potete aiutarmi?
grazie
dario


title: query adodb per cercare campi vuoti

author: Popi - TheBadHabits

text:

Ciao!
Dato che, a quanto mi è dato di capire, la query che ci indichi non è
quella che usi per cercare i record in cui un particolare campo è
vuoto, né ci dici se con vuoto intendi nullo, 0, o "", e neppure ci
dici quale sia l'errore che ti viene segnalato .... non so gli altri,
ma a me riesce un po' difficile aiutarti.
Popi


title: query adodb per cercare campi vuoti

text:
> Dato che, a quanto mi è dato di capire, la query che ci indichi non è
> quella che usi per cercare i record in cui un particolare campo è
> vuoto, né ci dici se con vuoto intendi nullo, 0, o "", e neppure ci
> dici quale sia l'errore che ti viene segnalato .... non so gli altri,
> ma a me riesce un po' difficile aiutarti.
>
> Popi
allore con la query originale estraggo i record compresi tra due date
(>ctl1 e < ctl2)
la query che ho indicato è quella originale modificata (male
evidentemente!) per estrarre dei record in un recordset di ADODB in
cui la data sia antecedente alla data ctl1 e il cui campo vpagato sia
vuoto (il campo è un campo testo che se non vuoto contiene "si")
se creo la query con autocomposizione di access ottengo il risultato
desiderato con questo stringa SQL:
SELECT vocimiste.anno, vocimiste.mese, vocimiste.data,
vocimiste.persone, vocimiste.tipo, vocimiste.gruppo,
vocimiste.sottogruppo, vocimiste.descrizione, vocimiste.importo,
vocimiste.pagato, vocimiste.modo, vocimiste.come, vocimiste.per,
vocimiste.ID
FROM vocimiste
WHERE (((vocimiste.pagato)=""));
gli errori che ottengo sono i seguenti:
3421 il tipo di valore utilizzato dall'applicazione non è valido per
l'operazione corrente.
e dopo:
-
2147217904
 nessun valore predefinito per il parametro [ctl2]
spero di essere riuscito a spiegarmi meglio


title: query adodb per cercare campi vuoti

text:

Parafrasando il mio conterraneo DarioVergassola, io sto a ADO come un
diabetico alla SacherTorte.
Ciò premesso, leggo un po' di confusione nella tua esposizione ... mi
spiego: la query che riporti qua sopra è quella che ti funziona,
mentre gli errori che riporti sono quelli che ti escono lanciando la
query del tuo primo post .... è così?
A parte ciò ... se il campo è di tipo testo (e la query risultante
dall'autocomposizione lo dimostra) per testare una stringa vuota si
usa "", ma tu passi direttamente il contenuto della textbox "vpagato"
invece di "'" & vpagato & "'" (cioè: apice + controllo + apice).
Idem per il controllo sulla data, che dev'essere (AFAIK!) passata
secondo un formato ben preciso (temo, anche, prefissata e suffissata
con "#"),
HTH
Popi


title: query adodb per cercare campi vuoti

text:
cerco di spiegarmi meglio:
se creo una query con autocomposizione di access come questa di seguito
ottengo quanto desidero:
SELECT  vocimiste.data, vocimiste.pagato
FROM vocimiste
WHERE (((vocimiste.data)<#7/1/2011#) AND ((vocimiste.pagato)=""));
con ADODB utilizzo questo codice :
Set cmd1 = New ADODB.Command
  With cmd1
   .ActiveConnection = CurrentProject.Connection
   .CommandText = "Parameters [ctl1] Date, [ctl2] String;" & _
    "SELECT [vocimiste].[data] AS Espr1, [vocimiste].[pagato] AS Espr2,
" & _
     "FROM [vocimiste] " & _
     "WHERE [vocimiste].[data] <= [ctl1] AND [vocimiste].
[pagato] = [ctl2] " & _
     "ORDER BY [Vocimiste].[data];"
    .CommandType = adCmdText
    'Create and define parameter.
    Set prm1 = cmd1.CreateParameter("[ctl1]", adInteger,
    adParamInput)
    cmd1.Parameters.Append prm1
    int1 = Forms("pilota").Controls.Item("oggi").value
    prm1.value = int1
    Set prm2 = cmd1.CreateParameter("[ctl2]", adInteger,
    adParamInput)
    cmd1.Parameters.Append prm2
    int2 = Forms("pilota").Controls.Item("vpagato").value
    prm2.value = int2
   .Execute
End With
e ottengo questi errori:
3421 il tipo di valore utilizzato dall'applicazione non è valido per
l'operazione corrente.
-
2147217904
 nessun valore predefinito per il parametro [ctl2]
comunque se esiste un altro metodo per ottenere un recordset che io non
conosco non esito ad usarlo
dario


title: query adodb per cercare campi vuoti

text:

Provando ad usare questo codice (che differenze *ci sono* con il tuo?)
cambia qualcosa?
Set cmd1 = New ADODB.Command
  With cmd1
   .ActiveConnection = CurrentProject.Connection
   .CommandText = "Parameters [ctl1] Date, [ctl2] String;" & _
    "SELECT [vocimiste].[data], [vocimiste].[pagato], " & _
     "FROM [vocimiste] " & _
     "WHERE [vocimiste].[data] <= [ctl1] AND [vocimiste].[pagato] =
[ctl2] " & _
     "ORDER BY [Vocimiste].[data];"
    .CommandType = adCmdText
    'Create and define parameter.
    cmd1.Parameters.Append cmd1.CreateParameter("[ctl1]", adInteger,
adParamInput, , "#" & Format$
(Forms("pilota").Controls.Item("oggi").Value, "mm/dd/yyyy") & "#")
    cmd1.Parameters.Append cmd1.CreateParameter("[ctl2]", adInteger,
adParamInput, , "'" & Forms("pilota").Controls.Item("vpagato").Value &
"'")
   .Execute
End With
E questo, invece, come lo vedi (e come funziona?)?
Set cmd1 = New ADODB.Command
  With cmd1
   .ActiveConnection = CurrentProject.Connection
   .CommandText = "SELECT [vocimiste].[data], [vocimiste].[pagato], "
& _
     "FROM [vocimiste] " & _
     "WHERE [vocimiste].[data] <= " & "#" & Format$
(Forms("pilota").Controls.Item("oggi").Value, "mm/dd/yyyy") & "# AND
[vocimiste].[pagato] = '" &
Forms("pilota").Controls.Item("vpagato").Value & "' " & _
     "ORDER BY [Vocimiste].[data];"
    .CommandType = adCmdText
   .Execute
End With
HTH
Popi


title: query adodb per cercare campi vuoti

text:
> Provando ad usare questo codice (che differenze *ci sono* con il tuo?)
> cambia qualcosa? Set cmd1 = New ADODB.Command With cmd1
> .ActiveConnection = CurrentProject.Connection .CommandText =
> "Parameters [ctl1] Date, [ctl2] String;" & _ "SELECT
> [vocimiste].[data], [vocimiste].[pagato], " & _ "FROM [vocimiste] " &
> _ "WHERE [vocimiste].[data] <= [ctl1] AND [vocimiste].[pagato] =
> [ctl2] " & _ "ORDER BY [Vocimiste].[data];" .CommandType = adCmdText
> 'Create and define parameter. cmd1.Parameters.Append
> cmd1.CreateParameter("[ctl1]", adInteger, adParamInput, , "#" &
> Format$ (Forms("pilota").Controls.Item("oggi").Value, "mm/dd/yyyy") &
> "#") cmd1.Parameters.Append cmd1.CreateParameter("[ctl2]", adInteger,
> adParamInput, , "'" & Forms("pilota").Controls.Item("vpagato").Value &
> "'") .Execute End With
questo non ha una formattazione corretta mi sembra di capire  nella riga
del WHERE al punto del =[ctl2]  (mi sembra di ricordare che bisognava
usare una sequenza tipo "%' o simile )
> E questo, invece, come lo vedi (e come funziona?)?
> Set cmd1 = New ADODB.Command With cmd1 .ActiveConnection =
> CurrentProject.Connection .CommandText = "SELECT [vocimiste].[data],
> [vocimiste].[pagato], " & _ "FROM [vocimiste] " & _ "WHERE
> [vocimiste].[data] <= " & "#" &
> Format$(Forms("pilota").Controls.Item("oggi").Value, "mm/dd/yyyy") &
> "# AND [vocimiste].[pagato] = '" &
> Forms("pilota").Controls.Item("vpagato").Value & "' " & _ "ORDER BY
> [Vocimiste].[data];" .CommandType = adCmdText .Execute End With
perfetto questa funziona! solo ho rimosso la virgola dopo [pagato] nella
riga SELECT
cosě ho risolto il problema.
ora passando ad un altro problema si puň passare i parametri di questa
query senza doverli leggere in un form?
comunque grazie dell'aiuto
dario


title: query adodb per cercare campi vuoti

text:

> così ho risolto il problema.
>
> ora passando ad un altro problema si può passare i parametri di questa
> query senza doverli leggere in un form?
Dario ... la virgola era già presente nella tua query iniziale (e non
me ne ero accorto), se fai caso ho semplicemente rimosso gli "AS Espr"
dal SQL, forse il tuo codice andava in errore _anche_ per quel
motivo ...
Non capisco, invece, cosa tu intenda con "formattazione corretta",
mentre il simbolo "%" si usa (AFAIK) in luogo del "*" nel SQL standard
con l'operatore LIKE.
Inoltre: la differenza tra i due SQL sta solo nel fatto che la prima
usa i parametri, mentre la seconda inserisce direttamente i valori dei
parametri nel costrutto SQL.
Per l'ultima domanda: un parametro è un dato che può arrivare da
qualsiasi origine, che sia una form, una tabella, una inputbox, una
funzione, una query, ...
Sta a te, quindi, decidere da dove prelevarne il valore ed inserirlo
(come in questo caso) nel costrutto SQL.
Così, nel caso della form userai la sintassi
Forms(NomeDellaMaschera).Controls.Item(NomeDelControllo).Value, mentre
per la inputBox dovrai solo dichiarare una variabile che contenga il
valore digitato e poi usare quella variabile come segue per passare il
valore.
Dim ValoreRichiesto As String
ValoreRichiesto = InputBox$("Codice?","Digita il testo da
selezionare")
ComandoSql="SELECT * FROM NomeTabella WHERE (Parametro = '" &
ValoreRichiesto & "');"
Nel caso della funzione sarà anche più semplice, dato che oltre a
poter costruire il SQL come negli altri casi, potresti utilizzare la
funzione (se dichiarata pubblica in un modulo accessibile)
direttamente nella query.
ComandoSql="SELECT * FROM NomeTabella WHERE (Parametro = '" &
MiaFunzione() & "');"
ComandoSql="SELECT * FROM NomeTabella WHERE (Parametro =
MiaFunzione() );"
Ovviamente, nel secondo caso la funzione dovrà restituire valori di
stringa racchiusi tra apici.
Suggerimento: è buona norma, se una domanda è stata completata, porne
una nuova in un nuovo thread.
Popi


title: query adodb per cercare campi vuoti

text:
>
> Dario ... la virgola era già presente nella tua query iniziale (e non
> me ne ero accorto), se fai caso ho semplicemente rimosso gli "AS Espr"
> dal SQL, forse il tuo codice andava in errore _anche_ per quel
> motivo ...
sicuramente sarà stato un mio errore
>
> Non capisco, invece, cosa tu intenda con "formattazione corretta",
> mentre il simbolo "%" si usa (AFAIK) in luogo del "*" nel SQL standard
> con l'operatore LIKE.
intendevo che nel modulo VB mi indicava qualcosa di non corretto a
livello di sintassi (penso sia l'espressione migliore)
>
>
>
> Per l'ultima domanda: un parametro è un dato che può arrivare da
> qualsiasi origine, che sia una form, una tabella, una inputbox, una
> funzione, una query, ...
> Sta a te, quindi, decidere da dove prelevarne il valore ed inserirlo
> (come in questo caso) nel costrutto SQL.
>
> Così, nel caso della form userai la sintassi
> Forms(NomeDellaMaschera).Controls.Item(NomeDelControllo).Value, mentre
> per la inputBox dovrai solo dichiarare una variabile che contenga il
> valore digitato e poi usare quella variabile come segue per passare il
> valore.
>
> Dim ValoreRichiesto As String
>
> ValoreRichiesto = InputBox$("Codice?","Digita il testo da
> selezionare")
>
> ComandoSql="SELECT * FROM NomeTabella WHERE (Parametro = '"&
> ValoreRichiesto&  "');"
>
> Nel caso della funzione sarà anche più semplice, dato che oltre a
> poter costruire il SQL come negli altri casi, potresti utilizzare la
> funzione (se dichiarata pubblica in un modulo accessibile)
> direttamente nella query.
>
> ComandoSql="SELECT * FROM NomeTabella WHERE (Parametro = '"&
> MiaFunzione()&  "');"
>
> ComandoSql="SELECT * FROM NomeTabella WHERE (Parametro =
> MiaFunzione() );"
>
> Ovviamente, nel secondo caso la funzione dovrà restituire valori di
> stringa racchiusi tra apici.
provo a modificare il codice per passare i valori alla query tramite una
variabile .
se non ho capito male creo una funzione che imposta il valore di una
variabile pubblica, giusto?
>
> Suggerimento: è buona norma, se una domanda è stata completata, porne
> una nuova in un nuovo thread.
>
> Popi
>
ok capito (devo spostare questa domanda in un nuovo thread o la lascio
qui ?)
dario


title: accettare data solo se del mese corrente

author: Giorgia

text:
Ciao a tutti coloro che lavorano ancora con questo calduccio......
Dunque, in un campo data dovrei limitare l'inserimento solo a una data del
mese corrente.
Cio�, siamo a luglio,
se inserisco 12/07/09 ok
se inserisco 30/06/09 mi dovrebbe essere segnalato con un msg (FUORI PERIODO
IVA CORRENTE)
"now" limita al giorno corrente, vorrei qualcosa di pi� elastico nel periodo
del mese senza dover ogni mese cambiare manualmente il periodo usando
Between.
Ho possibilit�?
Grazie
--
Giorgia


author: almorel

text:
On 30 Lug, 17:23, "Giorgia" <
gior...@vitaletrasporti.com
> wrote:
> Ciao a tutti coloro che lavorano ancora con questo calduccio......
> Dunque, in un campo data dovrei limitare l'inserimento solo a una data del
> mese corrente.
> Cioè, siamo a luglio,
> se inserisco 12/07/09 ok
> se inserisco 30/06/09 mi dovrebbe essere segnalato con un msg (FUORI PERIODO
> IVA CORRENTE)
>
> "now" limita al giorno corrente, vorrei qualcosa di più elastico nel periodo
> del mese senza dover ogni mese cambiare manualmente il periodo usando
> Between.
>
> Ho possibilità?
> Grazie
>
> --
> Giorgia
Prova questo:
sub CampoData_lostfocus()
if month(CampoData)<>month(date()) then msgbox "Data fuori periodo"
end sub
Alberto Morelli


author: BFS

text:
Giorgia ha scritto:
> Ciao a tutti coloro che lavorano ancora con questo calduccio......
> Dunque, in un campo data dovrei limitare l'inserimento solo a una data del
> mese corrente.
> Cioï¿œ, siamo a luglio,
> se inserisco 12/07/09 ok
> se inserisco 30/06/09 mi dovrebbe essere segnalato con un msg (FUORI PERIODO
> IVA CORRENTE)
>
> "now" limita al giorno corrente, vorrei qualcosa di piï¿œ elastico nel periodo
> del mese senza dover ogni mese cambiare manualmente il periodo usando
> Between.
>
> Ho possibilitï¿œ?
> Grazie
>
if month(tuadata)=month(int(now())) and year(tuadata)=year(int(now())) then
...quello che vuoi
else
	msgbox "data non valida"
end if
ciao, BFS


text:
"almorel" <
alm...@gmail.com
> ha scritto nel messaggio
news:b6c410df-77dc-4843...@r38g2000yqn.googlegroups.com...
On 30 Lug, 17:23, "Giorgia" <
gior...@vitaletrasporti.com
> wrote:
> Ciao a tutti coloro che lavorano ancora con questo calduccio......
> Dunque, in un campo data dovrei limitare l'inserimento solo a una data del
> mese corrente.
> Cio�, siamo a luglio,
> se inserisco 12/07/09 ok
> se inserisco 30/06/09 mi dovrebbe essere segnalato con un msg (FUORI
> PERIODO
> IVA CORRENTE)
>
> "now" limita al giorno corrente, vorrei qualcosa di pi� elastico nel
> periodo
> del mese senza dover ogni mese cambiare manualmente il periodo usando
> Between.
>
> Ho possibilit�?
> Grazie
>
> --
> Giorgia
Prova questo:
sub CampoData_lostfocus()
if month(CampoData)<>month(date()) then msgbox "Data fuori periodo"
end sub
Alberto Morelli
grazie Alberto, perfetto!
--
Giorgia


text:
"BFS" <
b...@bdffdfdfs.it
> ha scritto nel messaggio
news:4a71c224$0$34617$4faf...@reader4.news.tin.it...
> Giorgia ha scritto:
>> Ciao a tutti coloro che lavorano ancora con questo calduccio......
>> Dunque, in un campo data dovrei limitare l'inserimento solo a una data
>> del mese corrente.
>> Cio�, siamo a luglio,
>> se inserisco 12/07/09 ok
>> se inserisco 30/06/09 mi dovrebbe essere segnalato con un msg (FUORI
>> PERIODO IVA CORRENTE)
>>
>> "now" limita al giorno corrente, vorrei qualcosa di pi� elastico nel
>> periodo del mese senza dover ogni mese cambiare manualmente il periodo
>> usando Between.
>>
>> Ho possibilit�?
>> Grazie
>>
>
> if month(tuadata)=month(int(now())) and year(tuadata)=year(int(now()))
> then
>
> ...quello che vuoi
>
> else
>
> msgbox "data non valida"
>
> end if
>
>
> ciao, BFS
Grazie BFS, ma ero un po' in difficolt� su cosa inserire dopo il Then.
Usando il <> ho invece risolto, su suggerimento di Alberto.
Grazie per la risposta comunque!
--
Giorgia


author: Enrico T.S.

text:
"Giorgia" <
gio...@vitaletrasporti.com
> ha scritto nel messaggio
news:h4sidp$dd9$1...@aioe.org...

Occhio per� che col suggerimento di Alberto ti accetta anni differenti
dalla data del giorno.
Per es.: 30/07/08
Bye :o)


text:
Giorgia ha scritto:
> "almorel" <
alm...@gmail.com
> ha scritto nel messaggio
> news:b6c410df-77dc-4843...@r38g2000yqn.googlegroups.com...
> On 30 Lug, 17:23, "Giorgia" <
gior...@vitaletrasporti.com
> wrote:
>> Ciao a tutti coloro che lavorano ancora con questo calduccio......
>> Dunque, in un campo data dovrei limitare l'inserimento solo a una data del
>> mese corrente.
>> Cioï¿œ, siamo a luglio,
>> se inserisco 12/07/09 ok
>> se inserisco 30/06/09 mi dovrebbe essere segnalato con un msg (FUORI
>> PERIODO
>> IVA CORRENTE)
>>
>> "now" limita al giorno corrente, vorrei qualcosa di piï¿œ elastico nel
>> periodo
>> del mese senza dover ogni mese cambiare manualmente il periodo usando
>> Between.
>>
>> Ho possibilitï¿œ?
>> Grazie
>>
>> --
>> Giorgia
> Prova questo:
>
> sub CampoData_lostfocus()
> if month(CampoData)<>month(date()) then msgbox "Data fuori periodo"
> end sub
> Alberto Morelli
>
> grazie Alberto, perfetto!
>
>
devi controllare anche l'anno o crei un bug colossale
ciao
bfs


text:
Giorgia ha scritto:
> Ciao a tutti coloro che lavorano ancora con questo calduccio......
> Dunque, in un campo data dovrei limitare l'inserimento solo a una data del
> mese corrente.
> Cioï¿œ, siamo a luglio,
> se inserisco 12/07/09 ok
> se inserisco 30/06/09 mi dovrebbe essere segnalato con un msg (FUORI PERIODO
> IVA CORRENTE)
>
> "now" limita al giorno corrente, vorrei qualcosa di piï¿œ elastico nel periodo
> del mese senza dover ogni mese cambiare manualmente il periodo usando
> Between.
>
> Ho possibilitï¿œ?
> Grazie
>
visto che parli di "fuori periodo iva corrente" sicura che il blocco che
metti abbia senso?
perchï¿œ non potrei in agosto inserire un movimento iva di luglio? finchï¿œ
non hai chiuso la liquidazione di luglio  dovresti lasciare
all'operatore piena autonomia.
Una volta fatta la liquidazione e relative scritture contabili blocchi
il mese.
ovviamente a mio modesto parere
ciao, BFS


text:
"BFS" <
b...@bdffdfdfs.it
> ha scritto nel messaggio
news:4a71d15c$0$34613$4faf...@reader4.news.tin.it...
> Giorgia ha scritto:
>> Ciao a tutti coloro che lavorano ancora con questo calduccio......
>> Dunque, in un campo data dovrei limitare l'inserimento solo a una data
>> del mese corrente.
>> Cio�, siamo a luglio,
>> se inserisco 12/07/09 ok
>> se inserisco 30/06/09 mi dovrebbe essere segnalato con un msg (FUORI
>> PERIODO IVA CORRENTE)
>>
>> "now" limita al giorno corrente, vorrei qualcosa di pi� elastico nel
>> periodo del mese senza dover ogni mese cambiare manualmente il periodo
>> usando Between.
>>
>> Ho possibilit�?
>> Grazie
>>
> visto che parli di "fuori periodo iva corrente" sicura che il blocco che
> metti abbia senso?
> perch� non potrei in agosto inserire un movimento iva di luglio? finch�
> non hai chiuso la liquidazione di luglio  dovresti lasciare all'operatore
> piena autonomia.
> Una volta fatta la liquidazione e relative scritture contabili blocchi il
> mese.
>
> ovviamente a mio modesto parere
>
> ciao, BFS
Parere modesto ma corretto!
Non ho specificato che il campo data REGISTRAZIONE IVA viene popolato in
automatico dal campo DATA FATTURA secondo questa istruzione:
Private Sub DATA_FATTURA_BeforeUpdate(Cancel As Integer)
If IsNull([REGISTRAZIONE IVA]) Then
[REGISTRAZIONE IVA] = [DATA FATTURA]
End If
End Sub
Quindi se per es oggi  registro una fattura datata 30/06/2009, a mio avviso
� utile che mi venga segnalato che � una fattura del mese scorso ma che
dev'essere inserita nel registro Iva di Luglio.
E' sottointeso che il registro Iva di giugno sia chiuso.
Grazie, controllo l'anno....
Ciao!
--
Giorgia


text:

Giusto basta aggiungere l'anno
if month(CampoData)<>month(date())    and  year(CampoData)<>year(date
())    then msgbox "Data fuori periodo"
Saluti
Alberto


text:

> Alberto- Nascondi testo citato
>
> - Mostra testo citato -
Nell'evento prima di aggiornare del tuo controllo
Private Sub CampoData_BeforeUpdate(Cancel As Integer)
If Month(CampoData) <> Month(Date) Or Year(CampoData) <> Year(Date)
Then
MsgBox "Data fuori periodo"
Cancel = True
End If
End Sub


text:
Giorgia ha scritto:
> "BFS" <
b...@bdffdfdfs.it
> ha scritto nel messaggio
> news:4a71d15c$0$34613$4faf...@reader4.news.tin.it...
>> Giorgia ha scritto:
>>> Ciao a tutti coloro che lavorano ancora con questo calduccio......
>>> Dunque, in un campo data dovrei limitare l'inserimento solo a una data
>>> del mese corrente.
>>> Cioï¿œ, siamo a luglio,
>>> se inserisco 12/07/09 ok
>>> se inserisco 30/06/09 mi dovrebbe essere segnalato con un msg (FUORI
>>> PERIODO IVA CORRENTE)
>>>
>>> "now" limita al giorno corrente, vorrei qualcosa di piï¿œ elastico nel
>>> periodo del mese senza dover ogni mese cambiare manualmente il periodo
>>> usando Between.
>>>
>>> Ho possibilitï¿œ?
>>> Grazie
>>>
>> visto che parli di "fuori periodo iva corrente" sicura che il blocco che
>> metti abbia senso?
>> perchï¿œ non potrei in agosto inserire un movimento iva di luglio? finchï¿œ
>> non hai chiuso la liquidazione di luglio  dovresti lasciare all'operatore
>> piena autonomia.
>> Una volta fatta la liquidazione e relative scritture contabili blocchi il
>> mese.
>>
>> ovviamente a mio modesto parere
>>
>> ciao, BFS
>
> Parere modesto ma corretto!
> Non ho specificato che il campo data REGISTRAZIONE IVA viene popolato in
> automatico dal campo DATA FATTURA secondo questa istruzione:
> Private Sub DATA_FATTURA_BeforeUpdate(Cancel As Integer)
> If IsNull([REGISTRAZIONE IVA]) Then
> [REGISTRAZIONE IVA] = [DATA FATTURA]
> End If
>
> End Sub
>
> Quindi se per es oggi  registro una fattura datata 30/06/2009, a mio avviso
> ï¿œ utile che mi venga segnalato che ï¿œ una fattura del mese scorso ma che
> dev'essere inserita nel registro Iva di Luglio.
> E' sottointeso che il registro Iva di giugno sia chiuso.
>
> Grazie, controllo l'anno....
>
> Ciao!
>
ok avevo frainteso l'oggetto del post  "accettare data solo se del mese
corrente"
ciao!
BFS


text:
"almorel" <
alm...@gmail.com
> ha scritto nel messaggio
news:652a260e-99c9-468c...@d4g2000yqa.googlegroups.com...
On 30 Lug, 17:51, almorel <
almo...@gmail.com
> wrote:
> On 30 Lug, 17:23, "Giorgia" <
gior...@vitaletrasporti.com
> wrote:
>
> > Ciao a tutti coloro che lavorano ancora con questo calduccio......
> > Dunque, in un campo data dovrei limitare l'inserimento solo a una data
> > del
> > mese corrente.
> > Cio�, siamo a luglio,
> > se inserisco 12/07/09 ok
> > se inserisco 30/06/09 mi dovrebbe essere segnalato con un msg (FUORI
> > PERIODO
> > IVA CORRENTE)
>
> > "now" limita al giorno corrente, vorrei qualcosa di pi� elastico nel
> > periodo
> > del mese senza dover ogni mese cambiare manualmente il periodo usando
> > Between.
>
> > Ho possibilit�?
> > Grazie
>
> > --
> > Giorgia
>
> Prova questo:
>
> sub CampoData_lostfocus()
> if month(CampoData)<>month(date()) then msgbox "Data fuori periodo"
> end sub
> Alberto Morelli
Giusto basta aggiungere l'anno
if month(CampoData)<>month(date())    and  year(CampoData)<>year(date
())    then msgbox "Data fuori periodo"
Saluti
Alberto
Scusami Alberto segnalo solo che per funzionare correttamente ho dovuto
usare OR e non AND.
Grazie ancora per l'aiuto.
Buona giornata
--
Giorgia


text:
Giorgia ha scritto:
> "almorel" <
alm...@gmail.com
> ha scritto nel messaggio
> news:652a260e-99c9-468c...@d4g2000yqa.googlegroups.com...
> On 30 Lug, 17:51, almorel <
almo...@gmail.com
> wrote:
>> On 30 Lug, 17:23, "Giorgia" <
gior...@vitaletrasporti.com
> wrote:
>>
>>> Ciao a tutti coloro che lavorano ancora con questo calduccio......
>>> Dunque, in un campo data dovrei limitare l'inserimento solo a una data
>>> del
>>> mese corrente.
>>> Cioï¿œ, siamo a luglio,
>>> se inserisco 12/07/09 ok
>>> se inserisco 30/06/09 mi dovrebbe essere segnalato con un msg (FUORI
>>> PERIODO
>>> IVA CORRENTE)
>>> "now" limita al giorno corrente, vorrei qualcosa di piï¿œ elastico nel
>>> periodo
>>> del mese senza dover ogni mese cambiare manualmente il periodo usando
>>> Between.
>>> Ho possibilitï¿œ?
>>> Grazie
>>> --
>>> Giorgia
>> Prova questo:
>>
>> sub CampoData_lostfocus()
>> if month(CampoData)<>month(date()) then msgbox "Data fuori periodo"
>> end sub
>> Alberto Morelli
>
> Giusto basta aggiungere l'anno
>
> if month(CampoData)<>month(date())    and  year(CampoData)<>year(date
> ())    then msgbox "Data fuori periodo"
>
> Saluti
> Alberto
>
> Scusami Alberto segnalo solo che per funzionare correttamente ho dovuto
> usare OR e non AND.
> Grazie ancora per l'aiuto.
>
> Buona giornata
>
>
con or basta che sia soddisfatta una delle due perchï¿œ ti dica fuori
periodo..quindi non va bene
ï¿œ corretto AND....devono essere soddisfatte entrambe
ciao
BFS


author: Valerio Valentini

text:
BFS wrote:
> Giorgia ha scritto:
>> "almorel" <
alm...@gmail.com
> ha scritto nel messaggio
>> news:652a260e-99c9-468c...@d4g2000yqa.googlegroups.com...
>> On 30 Lug, 17:51, almorel <
almo...@gmail.com
> wrote:
>>> On 30 Lug, 17:23, "Giorgia" <
gior...@vitaletrasporti.com
> wrote:
>>>
>>>> Ciao a tutti coloro che lavorano ancora con questo calduccio......
>>>> Dunque, in un campo data dovrei limitare l'inserimento solo a una
>>>> data del
>>>> mese corrente.
>>>> Cio�, siamo a luglio,
>>>> se inserisco 12/07/09 ok
>>>> se inserisco 30/06/09 mi dovrebbe essere segnalato con un msg
>>>> (FUORI PERIODO
>>>> IVA CORRENTE)
>>>> "now" limita al giorno corrente, vorrei qualcosa di pi� elastico
>>>> nel periodo
>>>> del mese senza dover ogni mese cambiare manualmente il periodo
>>>> usando Between.
>>>> Ho possibilit�?
>>>> Grazie
>>>> --
>>>> Giorgia
>>> Prova questo:
>>>
>>> sub CampoData_lostfocus()
>>> if month(CampoData)<>month(date()) then msgbox "Data fuori periodo"
>>> end sub
>>> Alberto Morelli
>>
>> Giusto basta aggiungere l'anno
>>
>> if month(CampoData)<>month(date())    and  year(CampoData)<>year(date
>> ())    then msgbox "Data fuori periodo"
>>
>> Saluti
>> Alberto
>>
>> Scusami Alberto segnalo solo che per funzionare correttamente ho
>> dovuto usare OR e non AND.
>> Grazie ancora per l'aiuto.
>>
>> Buona giornata
>>
>>
>
>
> con or basta che sia soddisfatta una delle due perch� ti dica fuori
> periodo..quindi non va bene
> � corretto AND....devono essere soddisfatte entrambe
>
> ciao
> BFS
No guarda che avendo usato il diverso � fuori periodo quando una delle due
condizioni � vera, cio� o � sbagliato il mese o � sbagliato l'anno. Nel caso
opposto la condizione fuori periodo sarebbe stata nell'else e forse non le
serviva.
Ciao, Valerio.


text:
"Valerio Valentini" <
val...@accessgroup.it
> ha scritto nel messaggio
news:4a72affc$1...@news.telnetwork.it...

Non litigate :o))
In questo caso, ovvero il caso di esclusione, vanno bene entrambi i metodi.
Diverso � se il caso era di inclusione, allora ci vuole necessariamente l'
AND.
L'importante � che ci sia il doppio controllo.
Bye :o)


text:
>>> con or basta che sia soddisfatta una delle due perch� ti dica fuori
>>> periodo..quindi non va bene
>>> � corretto AND....devono essere soddisfatte entrambe
>>>
>>> ciao
>>> BFS
>>
>> No guarda che avendo usato il diverso � fuori periodo quando una delle
>> due condizioni � vera, cio� o � sbagliato il mese o � sbagliato l'anno.
>> Nel caso opposto la condizione fuori periodo sarebbe stata nell'else e
>> forse non le serviva.
>>
>> Ciao, Valerio.
>>
>>
>>
> Non litigate :o))
vengo in pace!
> In questo caso, ovvero il caso di esclusione, vanno bene entrambi i
> metodi.
> Diverso � se il caso era di inclusione, allora ci vuole necessariamente l'
> AND.
> L'importante � che ci sia il doppio controllo.
>
> Bye :o)
>
>
e vi confermo che con AND non funzionava la parte della verifica dell'anno.
Cio� se a oggi inserivo la data 31/07/08, il msg d'errore non appariva.
Funzionava solo la parte del mese, cio� se inserivo oggi la data 30/06/09.
Ciao!
--
Giorgia


text:
"Giorgia" <
gio...@vitaletrasporti.com
> ha scritto nel messaggio
news:h4uu1e$tlk$1...@aioe.org...

Hai ragione, stiamo facendo un casino per nulla.
In sostanza sono buone queste :
If Month(Tuadata) = Month(Date) And Year(Tuadata) = Year(Date)  Then
    Msgbox "Data Accettata"
End If
Oppure
If  Month(Tuadata) <>  Month(Date) Or Year(Tuadata) <> Year(Date)  Then
    Msgbox "Data NON Accettata"
End If
... a seconda del controllo che si vuole fare.
Bye :o)


text:
On 31 Lug, 16:48, "Enrico T.S." <
TOGLIgeppo...@libero.it
> wrote:
> "Giorgia" <
gior...@vitaletrasporti.com
> ha scritto nel messaggionews:h4uu1e$tlk$1...@aioe.org...
>
>
>
>
>
> >>>> con or basta che sia soddisfatta una delle due perchè ti dica fuori
> >>>> periodo..quindi non va bene
> >>>> è corretto AND....devono essere soddisfatte entrambe
>
> >>>> ciao
> >>>> BFS
>
> >>> No guarda che avendo usato il diverso è fuori periodo quando una delle
> >>> due condizioni è vera, cioè o è sbagliato il mese o è sbagliato l'anno.
> >>> Nel caso opposto la condizione fuori periodo sarebbe stata nell'else e
> >>> forse non le serviva.
>
> >>> Ciao, Valerio.
>
> >> Non litigate :o))
>
> > vengo in pace!
> >> In questo caso, ovvero il caso di esclusione, vanno bene entrambi i
> >> metodi.
> >> Diverso è se il caso era di inclusione, allora ci vuole necessariamente
> >> l' AND.
> >> L'importante è che ci sia il doppio controllo.
>
> >> Bye :o)
>
> > e vi confermo che con AND non funzionava la parte della verifica
> > dell'anno.
> > Cioè se a oggi inserivo la data 31/07/08, il msg d'errore non appariva.
>
> > Funzionava solo la parte del mese, cioè se inserivo oggi la data 30/06/09.
>
> > Ciao!
> > --
> > Giorgia
>
> Hai ragione, stiamo facendo un casino per nulla.
> In sostanza sono buone queste :
>
> If Month(Tuadata) = Month(Date) And Year(Tuadata) = Year(Date)  Then
>     Msgbox "Data Accettata"
> End If
>
> Oppure
>
> If  Month(Tuadata) <>  Month(Date) Or Year(Tuadata) <> Year(Date)  Then
>     Msgbox "Data NON Accettata"
> End If
>
> ... a seconda del controllo che si vuole fare.
>
> Bye :o)- Nascondi testo citato
>
> - Mostra testo citato -
RAgazzi scusatemi...volevo solo sapere se riuscite a leggermi.
Sono intervenuto nella discussione proponendo questo codice:
Nell'evento prima di aggiornare del tuo controllo
Private Sub CampoData_BeforeUpdate(Cancel As Integer)
If Month(CampoData) <> Month(Date) Or Year(CampoData) <> Year(Date)
Then
MsgBox "Data fuori periodo"
Cancel = True
End If
End Sub
ma non ho avuto riscontro.
Grazie e buona giornata a tutti


title: simbolo grafico in form

text:
ciao a tutti!
vorrei fare in modo che un determinato simbolo grafico venga inserito in una
casella di testo di una form, dopo la pressione di un tasto: il problema
risiede nel far apparire QUEL determinato simbolo che a me serve..
nel caso specifico mi riferisco ai simboli ottenibili normalmente con la
combinazione ALT+16, ALT+17, ed altri.
ho provato scrivendo questo:
Me!imgA1 = Chr(16)
    oppure
Me!imgA1 = Chr(17)
ma senza esito positivo, in quanto il risultato, nella casella di testo
della form è un quadrato vuoto.
(potrei adottare la soluzione di bmp esterne, ma incorrerei in diversi
problemi:
1. le ascisse e le ordinate, che rappresentano il grafico su cui sono
risposti i tasti su cui operare per far apparire i simboli, verrebbero
nascoste della bmp;
2. potrebbero verificarsi casi in cui due simboli si debbeno sovrapporre, e
trattandosi di bmp quella sopra nasconderebbe la sottostante).
avete qualche suggerimento?
ps: ho provato a cercare informazioni su codici ASCIIe ANSI, ma senza grande
successo..
grazie
em.an


title: simbolo grafico in form

author: PBsoft

text:
> vorrei fare in modo che un determinato simbolo grafico venga inserito
> in una
> casella di testo di una form, dopo la pressione di un tasto: il
> problema
> risiede nel far apparire QUEL determinato simbolo che a me serve..
> nel caso specifico mi riferisco ai simboli ottenibili normalmente con
> la combinazione ALT+16, ALT+17, ed altri.
> ho provato scrivendo questo:
> Me!imgA1 = Chr(16)
> oppure
> Me!imgA1 = Chr(17)
> ma senza esito positivo, in quanto il risultato, nella casella di
> testo della form è un quadrato vuoto.
Vorrei capire di quali simboli stai parlando.
Consultando la tabella ASCII puoi vedere tranquillamente che i caratteri
fino al 31 (decimale) sono codici di controllo.
E' normalissimo che Access, in una casella di testo, ti faccia vedere un
rettangolo vuoto al posto del relativo codice di controllo. Le caselle di
testo si chiamano così perché possono contenere testo, ed ai codici cui fai
riferimento non corriponde alcun testo visualizzabile.
> (potrei adottare la soluzione di bmp esterne, ma incorrerei in diversi
> problemi:
> 1. le ascisse e le ordinate, che rappresentano il grafico su cui sono
> risposti i tasti su cui operare per far apparire i simboli, verrebbero
> nascoste della bmp;
> 2. potrebbero verificarsi casi in cui due simboli si debbeno
> sovrapporre, e
> trattandosi di bmp quella sopra nasconderebbe la sottostante).
> avete qualche suggerimento?
> ps: ho provato a cercare informazioni su codici ASCIIe ANSI, ma senza
> grande successo..
Tutto questo mi sembra "fanta-programmazione".
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution


title: simbolo grafico in form

author: giorgio rancati

text:
"em.an" <
zzz....@libero.it
> ha scritto nel messaggio
news:4453c037$0$29098$5fc...@news.tiscali.it...
> ciao a tutti!
> vorrei fare in modo che un determinato simbolo grafico venga inserito in
una
> casella di testo di una form, dopo la pressione di un tasto: il problema
> risiede nel far apparire QUEL determinato simbolo che a me serve..
> nel caso specifico mi riferisco ai simboli ottenibili normalmente con la
> combinazione ALT+16, ALT+17, ed altri.
> ho provato scrivendo questo:
>
> Me!imgA1 = Chr(16)
>     oppure
> Me!imgA1 = Chr(17)
>
[CUT]
> avete qualche suggerimento?
> ps: ho provato a cercare informazioni su codici ASCIIe ANSI, ma senza
grande
> successo..
bisogna usare i caratteri unicode
----
'Freccia a destra
Me!imgA1 = ChrW(&H25BA)
'Freccia a sinistra
Me!imgA1 = ChrW(&H25C4)
----
Ciao
--
Giorgio Rancati
[Office Access MVP]


title: simbolo grafico in form

text:
[CUT]
>
> bisogna usare i caratteri unicode
> ----
> 'Freccia a destra
> Me!imgA1 = ChrW(&H25BA)
>
> 'Freccia a sinistra
> Me!imgA1 = ChrW(&H25C4)
> ----
>
> Ciao
> --
> Giorgio Rancati
> [Office Access MVP]
>
>
ciao giorgio, anzitutto grazie per l'aiuto provvidenziale.
mi chiedevo dove fosse possibile trovare una tabella completa dei simboli
utilizzabili, tabella che usi le notazioni da te indicate e che servono al
mio scopo: questo perchè al sito
unicode.org

(
http://www.unicode.org/charts/symbols.html#PhoneticSymbols
) esistono le
tabelle, ma usano una notazione diversa per definire i simboli.
grazie,
em.an


title: simbolo grafico in form

text:
"em.an" <
zzz....@libero.it
> ha scritto nel messaggio
news:4454a3b4$0$29111$5fc...@news.tiscali.it...
> ciao giorgio, anzitutto grazie per l'aiuto provvidenziale.
> mi chiedevo dove fosse possibile trovare una tabella completa dei simboli
> utilizzabili, tabella che usi le notazioni da te indicate e che servono al
> mio scopo: questo perchè al sito
unicode.org
> (
http://www.unicode.org/charts/symbols.html#PhoneticSymbols
) esistono le
> tabelle, ma usano una notazione diversa per definire i simboli.
Ciao em.an,
se vuoi un sistema semplice e veloce puoi fare così:
Apri Word, premi *Inserisci Simbolo*, si aprirà la mascherina dei simboli,
seleziona il carattere desiderato, nella casella *Codice Carattere* troverai
il suo valore esadecimale.



title: simbolo grafico in form

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
messaggio news:4454a63d$0$29106$5fc...@news.tiscali.it...
> troverai il suo valore esadecimale.
puoi anche inserire il simbolo nel doc di word, poi lo selezioni e fai il
copia/incolla nell'origine controllo o nel valore predifinito.
----
="?"
----



title: Dati recenti ....

author: Filippo

text:
Mi scuso per il Topic un po' scemo...
Allora, sto cercando di crearmi la seguente funzionalità: inserire in
un Form un combo (non associato) che mostri gli ultimi record
'visitati ', in modo da poterli richiamare rapidamente. Qualcosa del
tipo 'Dati recenti' di Windows o delle varie applicazioni Office.
Allora ho creato una Tabella dedicata, con l'ID del record e il 'Nome'
del record stesso, con Nome intendendosi il campo più significativo
del record che interessa (ad es. Cognome etc.), oltre naturalemente al
contatore IDRecenti (che non mi serve ma non si sa mai).
All'evento Form_Current aggiungo di volta in volta a questa nuova
tabella idati del record su cui la maschera è 'posizionata'.
Naturalmente la Query source del combo, è del tipo SELECT DISTINCT per
non vedere riportato lo stesso record più volte.
Fin qua funziona.
Vorrei però anche visualizzare i record recenti in ordine, dal più
recente al meno recente, e quindi dovrei aggiungere nella query un
SORT BY, che però mi pare incompatibile con il SELECT DISTINCT.
Se infatti uso come parametro di ordinamento per esempio l'IDRecenti,
quindi dall'ultimo record inserito al primo, che farebbe al caso mio,
me li prende tutti, anche i doppioni (e ciò è naturale perché
l'IDRecenti è diverso).
Quindi come fare?
Non trovo la soluzione, almeno non con la procedura descritta.
E' ovvio che volendo la soluzione si trova (Array, File esterni o
altro) ma vorrei prima scoprire se è possibile con il metodo che ho
detto.
Magari c'è qualche comando o dritta che ignoro.
Grazie.
Filippo


title: Dati recenti ....

author: Cinzia

text:
"Filippo" <
f....@panservice.it
> ha scritto nel messaggio
news:eu82u3ljanh25aklo...@4ax.com...

Ciao Filippo,
dovrebbe bastare togliere l'IDRecente dalla Select e lasciarlo solo
nella ORDER  BY
SELECT DISTINCT ID, NOME FROM TABLE RECENTI ORDER BY IDRecente
--
Cinzia [Office Access MVP]
_______________________

www.riolab.org
http://accessdaziacin.live.spaces.com
----------------------------------------


title: Dati recenti ....

text:
On Wed, 19 Mar 2008 18:46:50 +0100, "Cinzia"
<
cinziapagani-...@tiscali.it
> wrote:
>Ciao Filippo,
>dovrebbe bastare togliere l'IDRecente dalla Select e lasciarlo solo
>nella ORDER  BY
>
>SELECT DISTINCT ID, NOME FROM TABLE RECENTI ORDER BY IDRecente
No Cinzia, mi appare il seguente messaggio:
La proposizione ORDER BY (IdRecente) è in conflitto con DISTINCT
(ci avevo provato)
Ciao
Filippo


title: Dati recenti ....

text:
"Filippo" <
f....@panservice.it
> ha scritto nel messaggio
news:l4l2u3pjk67huc8if...@4ax.com...

Ciao Filippo
Allora proviamo a farlo con 2 query,
la prima che chiameremo  QPrimi100:
Select TOP 100 ID, NOME, IDRecente FROM TABLE RECENTI ORDER BY
IDRecente
(Parto dal presupposto che se vuoi i più recenti ti interesserà averne
un numero sufficientemente piccolo 100 o meno )
la seconda  RecentiDistinti sarà:
SELECT DISTINCT ID, Nome FROM QPrimi100 ORDER BY Nome
Non so se può andarti bene...



title: Dati recenti ....

text:
On Wed, 19 Mar 2008 22:18:41 +0100, "Cinzia"
<
cinziapagani-...@tiscali.it
> wrote:
>
>Allora proviamo a farlo con 2 query,
>la prima che chiameremo  QPrimi100:
>Select TOP 100 ID, NOME, IDRecente FROM TABLE RECENTI ORDER BY
>IDRecente
>(Parto dal presupposto che se vuoi i più recenti ti interesserà averne
>un numero sufficientemente piccolo 100 o meno )
>la seconda  RecentiDistinti sarà:
>SELECT DISTINCT ID, Nome FROM QPrimi100 ORDER BY Nome
Certo che va bene, e funziona.
In fondo non era neanche difficile, ma bisognava pensarci!
Il classico uovo di Colombo.
Grazie Cinzia.
Ciao
Filippo


title: Un virus può danneggiare i file MDB ?

author: Gabriele

text:
Siccome abbiamo avuto gravi infezioni virali recentemente , mi chiedevo se
per caso ci fosse una relazione con il fatto che ho molti file MDB (access
2000 ) che non si aprono più ( ottengo l'errore di microsoft JET che dice
che il file è già aperto in modo esclusivo da un utente ! ) . Non si
compattano nè si riparano tali file MDB !
saluti
--
Cordiali saluti


title: Un virus può danneggiare i file MDB ?

author: MA

text:

hai reinstallato?
Hai reinstallato anche gi aggiornamenti di jet 4.0?
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Sono aperte le iscrizioni  Info:
www.donkarl.com/it


title: Un virus può danneggiare i file MDB ?

text:
>
> hai reinstallato?
> Hai reinstallato anche gi aggiornamenti di jet 4.0?
sai mica dove trovo quella per XP pro in italiano?
ciao


title: Un virus può danneggiare i file MDB ?

text:

Ci dovrebbe essere un sito bianco e blu, che però non ricordo come si
chiama...
Sai è carino e molto luminoso, è pieno di finestre (secondo me vende infissi
e ironia il proprietario si chiama cancelli, ROTFL)
e deve essere anche buno almeno è sicuramente s-office.
Ma ti ripeto non ricordo come si chiama



title: Un virus può danneggiare i file MDB ?

text:
> Ci dovrebbe essere un sito bianco e blu, che però non ricordo come si
> chiama...
> Sai è carino e molto luminoso, è pieno di finestre (secondo me vende
> infissi
> e ironia il proprietario si chiama cancelli, ROTFL)
> e deve essere anche buno almeno è sicuramente s-office.
> Ma ti ripeto non ricordo come si chiama
L'ho poi scaricato dal sito windows ! era quello che consigliavi tu ? :-)
Comunque ho notato che i file MDB si danneggiano nel momento in cui  vengono
acceduti via rete e chiamati da un'applicazione gestionale scritta in VB che
li utilizza come archivi!
Infatti ripristinando le copie di backup dei file MDB  in un altro pc esse
funzionano bene , ma appena le copie vengono ripristinate sul server e
accedute  ecco che compare l'errore del modulo di DB JET che dice che il
file è in uso da un utente che sta facendo la stessa operazione.
Cosa li potrebbe danneggiare così sistematicamente  e irrimediabilmente ? Il
programma gestionale che li usa come archivi ? proverò a reinstallarlo !
Virus ? schede di rete non compatibili con access , vedi ad es le realtek ?
Eppure le schede son sempre quelle , mentre il problema con gli MDB è
recente!
Ciao e grazie


title: Un virus può danneggiare i file MDB ?

author: yronium

text:
[...CUT...]
> Cosa li potrebbe danneggiare così sistematicamente e irrimediabilmente ?
i file non sono danneggiati, e se io scrivessi un virus che attacca i file
mdb e volessi farti dei danni seri, li rinominerei semplicemente con
un'estensione sconosciuta così non li troveresti più, cioè non ti lascerei
la possibilità di aprirli almeno una volta o di ripristinarli, non credi?
Questo tipo di errore viene fuori di solito quando succede una cosa del
genere:
Dim rs As Recordset
Set rs = New Recordset
Set rs = OpenDatabase .... eccetera eccetera
.... codicecodicecodicecodice....
End (o Unload Me e tutte le altre form) e esco dal programma
(mi sono dimenticato di scrivere Set rs = Nothing da qualche parte del
codice.)
Allora, VB crea un recordset e ci lavora sopra, ma quando esce dal programma
non lo distrugge, così questo rimane vivo, e attivo, e occupa parte della
ram, ma soprattutto mantiene aperto il database da cui aveva caricato i
dati.
Questo è un errore tipico, e spesso ci sono anche dei file .ldb orfani che
rimangono in giro dopo l'esecuzione del programma.
Il mio consiglio è di ricontrollare il codice VB, per scoprire se tutti gli
oggetti Recordset e Connection vengono mai impostati a Nothing, e se
esistono e possono verificarsi delle situazioni in cui il programma viene
chiuso senza passare dall'istruzione Nothing.
Spero ti serva d'aiuto. Ciao.
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Un virus può danneggiare i file MDB ?

text:
>
> Il mio consiglio è di ricontrollare il codice VB, per scoprire se tutti
> gli
> oggetti Recordset e Connection vengono mai impostati a Nothing, e se
> esistono e possono verificarsi delle situazioni in cui il programma viene
> chiuso senza passare dall'istruzione Nothing.
 Purtroppo non ho il sorgente .....ma considerando che l'errore è comparso
da poco nell'installazione che ha molti mesi di  corretto funzionamento  ,
io rimuoverei DLL\OCX  del gestionale VB6  e le reinstallo ex novo , va bene
?
I file MDB usati  dal gestionale vengono "danneggiati"  , di modo chè anche
se poi vengono spostati su un altro pc non si aprono più.
Invece i file di backup ripristinati su di un'altra installazione del sw
funzionano bene  , ma se ripristinati nel server con il problema ,si
danneggiano al primo accesso .
Quindi si è sconfigurato qualche componente sw  sul server\clients , vero ?
Ciao e grazie dell'interessamento !


title: Un virus può danneggiare i file MDB ?

text:
> > Il mio consiglio č di ricontrollare il codice VB, per scoprire se tutti
> > gli
> > oggetti Recordset e Connection vengono mai impostati a Nothing, e se
> > esistono e possono verificarsi delle situazioni in cui il programma
viene
> > chiuso senza passare dall'istruzione Nothing.
> Purtroppo non ho il sorgente .....ma considerando che l'errore č comparso
> da poco nell'installazione che ha molti mesi di corretto funzionamento ,
> io rimuoverei DLL\OCX del gestionale VB6 e le reinstallo ex novo , va bene
> ?
> I file MDB usati dal gestionale vengono "danneggiati" , di modo chč anche
> se poi vengono spostati su un altro pc non si aprono piů.
> Invece i file di backup ripristinati su di un'altra installazione del sw
> funzionano bene , ma se ripristinati nel server con il problema ,si
> danneggiano al primo accesso .
> Quindi si č sconfigurato qualche componente sw sul server\clients , vero ?
si, č probabile, tanto piů che il software utilizza componenti esterni,
quali ocx e dll. Spesso le funzioni di accesso ai dati vengono demandate ad
un componente ocx. Ipotizziamo che questo sia il caso, e il file ocx si sia
danneggiato: le funzioni di scrittura sul file mdb non funzionano piů
correttamente, e scrivono il file mdb in formato errato. Inoltre quando apri
un mdb di backup anche questo viene sovrascritto in formato errato. Magari
anche le funzioni di chiusura del recordset non funzionano a modo, per cui
il recordset rimane caricato nella ram, e bloccato in qualche modo.
Per sapere se il file mdb č effettivamente danneggiato, bisognerebbe tentare
di aprirlo direttamente con Access, ma suppongo che sia protetto da una
password, vero? Quindi non si puň avere la conferma che sia funzionante o
no. E anche il mio scenario di prima č soltanto un'ipotesi plausibile, ma
non ne possiamo essere certi.
Prova a reinstallare l'applicativo: se i file ocx e dll si erano corrotti,
li ripristinerai e tutto dovrebbe tornare a funzionare. Io rimango sempre
dell'opinione che qui i virus non c'entrano nulla.



title: Un virus può danneggiare i file MDB ?

text:
Gabriele wrote:
>> Ci dovrebbe essere un sito bianco e blu, che però non ricordo come si
>> chiama...
>> Sai è carino e molto luminoso, è pieno di finestre (secondo me vende
>> infissi
>> e ironia il proprietario si chiama cancelli, ROTFL)
>> e deve essere anche buno almeno è sicuramente s-office.
>> Ma ti ripeto non ricordo come si chiama
> L'ho poi scaricato dal sito windows ! era quello che consigliavi tu ?
windows, ecco come si chiamava... una curiosità:
l'hai capito poi se vendono finestre ed infissi???
> :-) Comunque ho notato che i file MDB si danneggiano nel momento in
> cui  vengono acceduti via rete e chiamati da un'applicazione
> gestionale scritta in VB che li utilizza come archivi!
> Infatti ripristinando le copie di backup dei file MDB  in un altro pc
> esse funzionano bene , ma appena le copie vengono ripristinate sul
> server e accedute  ecco che compare l'errore del modulo di DB JET che
> dice che il file è in uso da un utente che sta facendo la stessa
> operazione.
> Cosa li potrebbe danneggiare così sistematicamente  e
> irrimediabilmente ? Il programma gestionale che li usa come archivi ?
> proverò a reinstallarlo ! Virus ? schede di rete non compatibili con
> access , vedi ad es le realtek ? Eppure le schede son sempre quelle ,
> mentre il problema con gli MDB è recente!
>
> Ciao e grazie
Non basta mettere il sp sul server, quanto piuttosto i client.
I file sharing lavorano sul client, sul server potresti anche no installare
Access



title: Un virus può danneggiare i file MDB ?

text:
yronium wrote:
> [...CUT...]
>> Cosa li potrebbe danneggiare così sistematicamente e
>> irrimediabilmente ?
>
> i file non sono danneggiati, e se io scrivessi un virus che attacca i
> file mdb e volessi farti dei danni seri, li rinominerei semplicemente
> con un'estensione sconosciuta così non li troveresti più, cioè non ti
> lascerei la possibilità di aprirli almeno una volta o di
> ripristinarli, non credi?
Ah sì. Prova a rinominare C:\Pippo.mdb in c:pippo.jpg
e poi accedici.



title: Un virus può danneggiare i file MDB ?

text:
[...CUT...]
> Ah sě. Prova a rinominare C:\Pippo.mdb in c:pippo.jpg
> e poi accedici.
Fatto. Mi dice "Anteprima non disponibile". Che vordě?



title: Un virus può danneggiare i file MDB ?

text:
yronium wrote:
> [...CUT...]
>> Ah sì. Prova a rinominare C:\Pippo.mdb in c:pippo.jpg
>> e poi accedici.
>
> Fatto. Mi dice "Anteprima non disponibile". Che vordì?
Se accedi alle tabelle dal FE lui lo gestisce cmq come mdb
>
> --------------------------------
> Inviato via
http://arianna.libero.it/usenet/
--



title: Un virus può danneggiare i file MDB ?

text:
[...CUT...]
> Se accedi alle tabelle dal FE lui lo gestisce cmq come mdb
si, č vero. Ma il mio virus non ti direbbe che la nuova estensione č .jpg.
Vabbč, comunque abbiamo capito il concetto...



title: aggregare Query accodamento

author: Luigi

text:
Saluto al Gruppo!
  Mi chiamo Luigi ed ho il seguente problema:
  Ho 4 query di accodamento in un database access, che ogni volta
attivo una     dopo l'altra.
  Come posso programmare un solo comado o modulo o altro, al fine di
  fare eseguire le 4 query in sequenza automatica, senza attivarle una
ad una?
  Oppure se è possibile fare questo direttamente in SQL.
  Certo della Vostra collaborazione!!!
  Ringrazio chi volesse aiutarmi


title: aggregare Query accodamento

author: Roberto da casa

text:
"Luigi" <
luigic...@libero.it
> ha scritto nel messaggio
news:565dede1.05020...@posting.google.com...

Creati una macro che richiami le quattro query in sequenza, quindi esegui la
macro.
Stsa cosa potresti fare con una routine VBA.
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: aggregare Query accodamento

text:
"Roberto da casa" <
r.masso...@libero.it
> wrote in message news:<K3sNd.19204$
QG6.3...@twister2.libero.it
>...
> "Luigi" <
luigic...@libero.it
> ha scritto nel messaggio
> news:565dede1.05020...@posting.google.com...
> > Saluto al Gruppo!
> >   Mi chiamo Luigi ed ho il seguente problema:
> >   Ho 4 query di accodamento in un database access, che ogni volta
> > attivo una     dopo l'altra.
> >   Come posso programmare un solo comado o modulo o altro, al fine di
> >   fare eseguire le 4 query in sequenza automatica, senza attivarle una
> > ad una?
> >   Oppure se è possibile fare questo direttamente in SQL.
> >   Certo della Vostra collaborazione!!!
> >   Ringrazio chi volesse aiutarmi
>
> Creati una macro che richiami le quattro query in sequenza, quindi esegui la
> macro.
> Stsa cosa potresti fare con una routine VBA.
Sono Luigi,
caro Roberto da casa
mi potresti dare il codice vba o il modulo macro per creare la routine
di cui sopra!!
Grazie te ne sono veramente grato!
Luigi


title: aggregare Query accodamento

text:
"Luigi" <
luigic...@libero.it
> ha scritto nel messaggio
news:565dede1.05021...@posting.google.com...

Rispondo io se ti va bene lo stesso
o usi currentdb.execute per tutte e quattro le query oppure
dim TuaQuery as string
Docmd.setwarning  false
TuaQuery = "IlNomeDella1Query"
Docmd.openquery Tuaquery
TuaQuery = "IlNomeDella2Query"
Docmd.openquery Tuaquery
TuaQuery = "IlNomeDella3Query"
Docmd.openquery Tuaquery
TuaQuery = "IlNomeDella4Query"
Docmd.openquery Tuaquery
MAssimiliano


title: Rimborso spese

author: pretore

text:
Ciao a tutti! Seguo sempre la vostra mailing list ed è la prima volta che
intervengo direttamente per chiedere un aiuto. Sto elaborando un programma
per la società sportiva dove collaboro. Ho la necessità di creare un report
con il rimborso spese mensile per singola persone e per mese. Come posso
fare?
Grazie
Ottavio


title: Rimborso spese

author: Sib

text:
"pretore" <
ottavio...@email.it
> ha scritto nel messaggio

Devi raggruppare per persona e poi per mese, guarda le opzioni di
raggruppamento
pulsante che somiglia a (=
poi te lo fa anche l'autocomposizione.
Sib
PS apprezzo lo sforzo per il subj, ma in questo caso sarebbe stato piu'
corretto qualcosa del tipo "formattazione report"


title: Rimborso spese

text:
Oh finalmente qualcuno ne parla... sono più di due anni che do risposte su
questo NG e finora nessuno aveva messo in mezzo l'argomento!!!

Mah, mah, mah, non era di questo che credevo si parlasse...
> Grazie
> Ottavio
Simpatico Ottavio, molto simpatico... ha fatto la battuta.... in realtà il
subject era solo un specchietto per le allodole e il post è uno scherzo.
Mica pretenderà che gli impostiamo il db senza aver discusso del concetto
palesato nell'oggetto...
MAssimiliano

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


title: Rimborso spese

text:
Vi ringrazio per la celerità delle risposte. Se non si è capito sono un
autodidatta e non volevo avere impostato il db, che tra l'altro è tutto
pronto e funzionante (almeno per le cose principali che interessano, tipo
anagrafica, classifiche, campionati vari, stampe varie). A me basta un
report in bianco con l'inserimento solo di nome e cognome.
Grazie di nuovo per le cortesi risposte.
Ottavio


title: Rimborso spese

author: Antonio Biso

text:
"pretore" <
ottavio...@email.it
> ha scritto nel messaggio
news:uafIa.205856$g92.4...@news2.tin.it...

Appunto.
Fai una domanda più circostanziata allora...
Antonio


title: Rimborso spese

text:
"MA" <
massimilia...@kksrl.com
> ha scritto nel messaggio
cut
Ma tu sempre di 2 / 3 minuti mi devi anticipare?
Sib


title: Rimborso spese

text:

E' finita allora con che sono la tastiera + veloce del West(Europe)...
Ho upgradato la testa è collegato il cervello con USB20.0



title: Rimborso spese

author: Sergio MAZZA

text:
"MA" <
massimilia...@kksrl.com
> ha scritto nel messaggio
news:62Z94Z199Z30Y1...@usenet.libero.it...
> Oh finalmente qualcuno ne parla... sono più di due anni che do risposte su
> questo NG e finora nessuno aveva messo in mezzo l'argomento!!!
>
> MAssimiliano
AH! AH! AH! AH! AH! AH! AH! AH! AH! AH! AH! AH! AH! AH! AH! AH! AH! AH!
Ciao.
--
Sergio MAZZA


title: Casella di riepilogo: problema selezione voce

author: Giulio Severini

text:
Ho una tabella in cui un campo è una casella di riepilogo che elenca i
titoli di studio.
Il problema è che quando seleziono un titolo di studio non mi aggiorna la
voce ma mi lascia sempre il primo valore che trova.
Come mai?
Grazie mille e scusate le mille domande!
--
FIRMA BAU BAU MICIO MICIO - Un tale disse a un tale 'Tu sei tale e quale a
un tale'. Il tale chiese al tale 'Tale e quale a quale tale?'. Non sapendo
a quale tale fosse tale e quale il tale, il tale se ne andò. Convinto che
quel tale a qualche tale fosse proprio tale e quale.
FIRMA TROPPO SERIA - Non lo capiscono, i grandi, che il mondo dei giovani
è un mondo fragile. E' come un paese in guerra permanente, in cui tutti
vogliono avere ragione. E nel quale veniamo spesso lasciati da soli.
FIRMA TRAGICA - E' inutile amare qualcuno. Prima o poi la morte te lo
porta via.
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
PROBLEMA: ho una tabella tblStatus con un campo 'In' che deve contenere il
titolo di studio dell'utente. Il campo deve prendere il proprio valore
dalla tabella tblElencoTitoloStudio contenente due campi: 1. Descrizione -
testo  2.Titolo - testo. Il campo 'Titolo' è quello che contiene il valore
che a me interessa.
Quando in visualizzazione Foglio Dati seleziono il campo in questione, mi
si apre una casella di riepilogo che mi mostra le voci.
PROBLEMA: quando clicco su una voce, però, il valore del campo NON mi
viene aggiornato, restando sempre la prima voce in elenco come valore del
campo.
SPIEGAZIONE: in Visualizzazione Struttura, il valore del campo 'In' della
tabella tblStatus deve essere modificato da - testo - a - Ricerca guidata.
Così facendo Access ti guida nella creazione della casella di riepilogo,
selezionando la tabella origine dei dati. In questo modo, quando si clicca
sulla voce interessata dall'elenco a discesa che appare, il campo viene
aggiornato con la voce selezionata.
Non ho idea del perchè questo accada. Spero serva a qualcuno, magari
mettete sta cosa nel sitocomune se qualcuno non l'ha già notato prima.
Versione Access: 2003
Ciao.



title: Come aggiornare delle tabelle collegate

author: Marco Ceccarelli

text:
Ciao,
          ho un database con delle trabelle collegate a un altro database
gestito da un altro gestionale.
Tramite odbc le ho collegate al mio db .
Vorrei sapere come faccio ad aggiornare le tabelle se nell'altro db sono
state modificate.
C...@libero.it
ciao da Marco


title: Come aggiornare delle tabelle collegate

author: Lorenzo Coronati

text:
Scrisse "Marco Ceccarelli" <
mcecc...@3bfitness.com
>:
>Vorrei sapere come faccio ad aggiornare le tabelle se nell'altro db sono
>state modificate.
Devi solo aspettare ;-)
Vedi timeout odbc sull'help: puoi stabilire ogni quanti
secondi fare refresh.
--
Lorenzo Coronati
--
<<Nessuno sa che questa affermazione e' vera>>
(John D. Barrow)
--


title: Commento alla soluzione di Davide La Mantia (Sib) per "Numerazione crescente per fatture ed altro. "

author: il mago galbusera

text:
Ho letto dal sito comune (sez. novità)  la soluzione proposta da Davide e
una domanda sorge spontanea..
ma se un documento di dicembre viene registrato a gennaio come può
funzionare questa soluzione che è basata sulla funzione date() ?
Grazie mille per l'attenzione
Galbusera


text:
Il 20 Feb 2003, 11:44, "il mago galbusera" <galb...@katamail.com.NOWAR> ha
scritto:

E' posto su defaultvalue, quindi in questi casi dovrai aggiustare a manina
santa.
ciao MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


text:
"il mago galbusera" <galb...@katamail.com.NOWAR> ha scritto nel messaggio
news:b32bbm$g3j$1...@grillo.cs.interbusiness.it...

Nessuno ti vieta, invece che a Date(), di far riferimento ad una variabile
di tipo Data/ora (globale o meno) in cui hai preventivamente memorizzato
quella che sarà la data della fattura.
--
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
> "il mago galbusera" <galb...@katamail.com.NOWAR> ha scritto nel
messaggio
> > Ho letto dal sito comune (sez. novità)  la soluzione proposta da Davide
e
> > una domanda sorge spontanea..
> >
> > ma se un documento di dicembre viene registrato a gennaio come può
> > funzionare questa soluzione che è basata sulla funzione date() ?
> >
> > Grazie mille per l'attenzione
> > Galbusera
>
> Nessuno ti vieta, invece che a Date(), di far riferimento ad una variabile
> di tipo Data/ora (globale o meno) in cui hai preventivamente memorizzato
> quella che sarà la data della fattura.
Vorrei aggiungere, sentendomi direttamente interessato, che la mia soluzione
era pensata per la creazione di documenti, diciamo cosi', "leggittimi".
Fatture e DdT si registrano quando vengono emesse, non mesi (o anche solo
giorni) dopo.
Inoltre la parola "registrare" e' sbagliata perche' il database non serve
per registrare dei documenti esistenti, ma per crearli e archiviarli, quindi
il numero di riferimento generato e' infallibile dato che il documento viene
emesso DOPO averlo creato sul db e NON PRIMA.
Sib


text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:MF75a.207341$0v.58...@news1.tin.it...

Si, ma non hai tenuto conto che in qualche modo si deve far quadrare il
bilancio...!!
Da te non me lo aspettavo...!   ;-)
Saluti.
@Alex.


text:
"@Alex" <
ik2...@libero.it
> ha scritto nel messaggio
> "Sib" <si...@SPAMiol.it> ha scritto nel messaggio

hehehe.
Questo lo capisco, pero' mi aspetto che LA (e non le) fattura fatta per
sistemare un po' le cose se uno se la numera a mano non ha forti disagi 8-)
Sib


text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:pLk5a.209914$0v.58...@news1.tin.it...
[CUT]
> >
> > Si, ma non hai tenuto conto che in qualche modo si deve far quadrare il
> > bilancio...!!
> > Da te non me lo aspettavo...!   ;-)
> >
> > Saluti.
> > @Alex.
>
> hehehe.
> Questo lo capisco, pero' mi aspetto che LA (e non le) fattura fatta per
> sistemare un po' le cose se uno se la numera a mano non ha forti disagi
8-)
>
> Sib
>
Certo che non ti si può insegnare nulla.....! Bandito mascherato da
programmatore.
Ciao.
@Alex.


text:
>
> Certo che non ti si può insegnare nulla.....! Bandito mascherato da
> programmatore.
grazie a tutti :)


title: distribuire applicazioni access ai clienti

author: soemi e stefi

text:
Carissimi del'NG
Dopo aver fatto buon uso del mitico Access abbiamo sviluppato
un'applicazione che vorremmo distribuire ai nostri clienti.
abbiamo cercato sul sito microsoft (abbastanza ostico) ed abbiamo appreso
che:
1) Si paga una royalty di vendita alla Microsoft
2) Si aquista office developer edition (oppure Visual studio tools per
office) per poter distribuire l'applicazione senza pagare la Microsoft.
ci stanno bene qualsiasi soluzione delle due, visto che siamo programmatori
professionisti, ma vorremmo una delucidazione da chi di voi č gia passato di
qua.
Pagando una royalty si suppone che il cliente abbia installato sul suo
computer una licenza di Access?
e se č cosě, con la versione Developer si puň creare un pacchetto EXE (come
si fa con Visual studio net) e quindi non costringere il cliente ad
installare Access od Office?
qualsiasi idea o pagina web o numero di telefono microsoft che conoscete che
mi possa chiarire il tutto, č ben'accetto.
Grazie a tutti


author: ALESSANDRO Baraldi

text:
"soemi e stefi" <
peperi...@libero.it
> ha scritto nel messaggio
news:yZBMb.251805$e6.99...@twister2.libero.it...
> Carissimi del'NG
>
> Dopo aver fatto buon uso del mitico Access abbiamo sviluppato
> un'applicazione che vorremmo distribuire ai nostri clienti.
> abbiamo cercato sul sito microsoft (abbastanza ostico) ed abbiamo appreso
> che:
>
> 1) Si paga una royalty di vendita alla Microsoft
> 2) Si aquista office developer edition (oppure Visual studio tools per
> office) per poter distribuire l'applicazione senza pagare la Microsoft.
>
> ci stanno bene qualsiasi soluzione delle due, visto che siamo
programmatori
> professionisti, ma vorremmo una delucidazione da chi di voi è gia passato
di
> qua.
>
> Pagando una royalty si suppone che il cliente abbia installato sul suo
> computer una licenza di Access?
NO.
> e se è così, con la versione Developer si può creare un pacchetto EXE
(come
> si fa con Visual studio net) e quindi non costringere il cliente ad
> installare Access od Office?
La versione Developer serve proprio per creare un pacchetto d'installazione
completo di tutte le Librerie necessarie chiamato RUNTIME per far funzionare
Access, in realtà non sempre tutto funziona, soprattutto se legato alle
Librerie di
Office.
> qualsiasi idea o pagina web o numero di telefono microsoft che conoscete
che
> mi possa chiarire il tutto, è ben'accetto.
>
> Grazie a tutti
@Alex.


text:
Scusami non ho capito una cosa.
Il no che mi hai dato come risposta alla prima domanda, significa che
pagando una royalty il cliente ha diritto ad installare anche una copia di
access senza licenza?
scusami e grazie.
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:btuqnf$jh4$1...@lacerta.tiscalinet.it...



text:
"soemi e stefi" <
peperi...@libero.it
> ha scritto nel messaggio
news:JACMb.251912$e6.99...@twister2.libero.it...
> Scusami non ho capito una cosa.
> Il no che mi hai dato come risposta alla prima domanda, significa che
> pagando una royalty il cliente ha diritto ad installare anche una copia di
> access senza licenza?
> scusami e grazie.
>
> "ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
> news:btuqnf$jh4$1...@lacerta.tiscalinet.it...
> >
La Royalty la paghi tu comprando la versione Developer.
Quindi se generi il Pacchetto d'installazione con la versione Developer
inserendovi
il RUNTIME.... il cliente non ha bisogno di licenze o concessioni, basta la
tua....!
Era implicito nella 2° parte della risposta.
@Alex.


text:
Grazie del chiarimento



author: ciroteo

text:
"soemi e stefi" <
peperi...@libero.it
> ha scritto nel messaggio
news:N6DMb.252012$e6.99...@twister2.libero.it...

saranno pure professionisti ... ma non sanno ancora come si quota ... posso
redarguirli?!?!?


author: Toni

text:
Perdonateci se abbiamo fatto qualcosa di errato ma è la prima volta che
usiamo un newsgroup
Com'è che si quota e cosa vuol dire?
Grazie
"ciroteo" <
cir...@libero.it
> ha scritto nel messaggio
news:bu64hi$h71$1...@news.flashnet.it...



title: [TEST] Un' opinione su www.risorseitaliane.it

author: TuriEmme 2001

text:
Un saluto a tutti, gradirei un vostro commento sul sito in oggetto.
Grazie ancora e buon lavoro a tutti!
TuriEmme 2002.
turi...@tim.it


author: MegaMax

text:
> Un saluto a tutti, gradirei un vostro commento sul sito in oggetto.
Rispettosamente: non me ne può fregare di meno (dei contenuti del sito).
Max


title: [OT] oh happy ponte!

text:
Scusate ma un bell'OT ogni tanto fa come si suol dire "gruppo" ....
Chi, non come il sottoscritto, avrà modo di riposarsi un po' durante
questo lungo week end ha tutta la mia invidia ma anche il mio augurio.
Quindi buna festa.
matteo


title: [OT] oh happy ponte!

author: MA

text:

;-)
Happy Bridge-day to you,
Happy Bridge-day to you,
Happy Bridge-day mr Cìroteo...
Happy Bridge-day to you...
e mi avessi sculettare...
ciao
M(A)M


title: [OT] oh happy ponte!

text:

Qualcuno il bastione lo dovrà difendere.
Tu blocca l'avanzata dei Barbari; io fermo i Borbonici...
Ciao.
--
Sergio MAZZA


title: [OT] oh happy ponte!

text:

si sì.. c'ha provato!!!
gli abbiamo rifilato 3 goal...
e come dice il vecchio detto
cumm' è bell nu rigore...
'u second è cchiu bell' ancora....
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: [OT] oh happy ponte!

text:
MA wrote:
> si sě.. c'ha provato!!!
> gli abbiamo rifilato 3 goal...
> e come dice il vecchio detto
> cumm' č bell nu rigore...
> 'u second č cchiu bell' ancora....
>
> --
> --
> MAssimiliano Amendola
>
www.accessgroup.it
> Cisa - Conferenza Italiana Sviluppatori Access
Hi! Hi! Eh! Eh!
Ciao.
--
Sergio MAZZA


title: Re: stampa query

author: Karl Donaubauer

text:
Salve,

Remigio:
> come mandare in stampa il risultato di una query premendo un pulsante su una form?

1. Non si stampa delle query ma dei report.
.
.
.
99. Non si stampa delle query ma dei report.
100. Se assolutamente è necessario (cioè quasi non mai), dipende

' se si tratta di una query salvata che non vuoi aprire
DoCmd.SelectObject acQuery, "NomeQuery", True

' se invece vuoi aprirla prima
'DoCmd.OpenQuery "NomeQuery"

DoCmd.PrintOut

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


title: Re: stampa query

author: marcopio

text:

Karl, come sempre chiarissimo ed esaustivo :-)


title: licenza database solo online è regolare?

author: mario rossi

text:
buongiorno a tutti,

forse qualcuno sa rispondermi, ho realizzato un db che all'avvio controlla un db online se la licenza è ancora valida e si avvia.

Questo implica l'obbligo di avere una connessione a internet attiva per utilizzare il programma.

E' accettabile\legale\discutibile il fatto che nei requisiti chieda di avere internet attivo su un pc che installa il mio db per il controllo della licenza?

Grazie,


author: BFS

text:

nel tuo software puoi richiedere tutti i requisiti che vuoi
se il cliente non può soddisfarli non lo acquista/installa

BFS


author: RobertoA

text:

Per il "se e' legale" bisognerebbe sentire un esperto di leggi/normative

E' sicuramente altamente discutibile

Se il cliente ne e' informato prima di fare l'acquisto (io mi farei
firmare qualcosa prima a scanso di ripensamenti), e poi lo acquista, e'
accettabile

Dal mio punto di vista e' un discreto impedimento alla vendita, tipo la
telemetria di Windows e' un qualcosa per la quale nutro un sano
sentimento di odio, potessi non acquistare Windows lo farei


text:

telemetria di Windows what is this??????
in merito all'informare il cliente, ho previsto la lettura dei termini e delle condizioni con requisiti specificando che serve connessione a internet


text:

Ah ottimo! grazie


title: Database access 97 in lire

author: Cippe [Ze®o Enne]

text:
Salve, ho questo database in lire, come faccio, anche con un access recente,
a convertire tutto in euro?
Grazie


title: Database access 97 in lire

author: Pablitomf

text:
Cippe [Ze®o Enne] ha scritto:
> Salve, ho questo database in lire, come faccio, anche con un access recente,
> a convertire tutto in euro?
> Grazie
Se il campo in lire in tabella è gia formattato come "Precisione doppia" a
"due" cifre decimali, basta crearti una query che aggiorni il valore dello
stesso campo con la formula [Tuo_Importo]/1932.27
Cmq, vai su
www.sitocomune.com
 che troverai sicuramente degli esempi
--
Pablitomf (Maurizio Facciuti)
Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Database access 97 in lire

text:
Pablitomf ha scritto:
[CUT]
> [Tuo_Importo]/1932.27
Ops! 1936.27
Altrimenti il campo va formattato prima come ti ho detto e poi fatta la
conversione



title: Database access 97 in lire

text:
> Altrimenti il campo va formattato prima come ti ho detto e poi fatta
> la conversione
mmm io non sono buono a niente con access, non l'ho fatto io il database:P
Non esiste un qualche tool?


title: Database access 97 in lire

author: Roberto dalla campagna

text:
"Cippe [Ze®o Enne]" <
cippe...@despammed.com
> ha scritto nel messaggio
news:cel46b$a82$1...@newsreader.mailgate.org...

Vai sul Sito Comune (link qui sotto) e nella Sezione Tables leggi la FAQ di
AntoGal intitolata "Programma per la conversione automatica in Euro di
archivi MDB".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Database access 97 in lire

text:
> Vai sul Sito Comune (link qui sotto) e nella Sezione Tables leggi la
> FAQ di AntoGal intitolata "Programma per la conversione automatica in
> Euro di archivi MDB".
Grazie, ma lo avevo giŕ provato un mesetto fa ma mi da errore :(


title: Per sergiomazza e oliones

text:
Vi ringrazio entrambi per la gentile ed esaustiva risposta che mi avete dato prmettendomi rapidamente di impostare le tabelle in cui inserire i dati. Ho seguito tutte le vostre indicazioni, ma ho un piccolo problema.
Dopo aver inserito i dati anagrafici nella maschera collegata alla tabella "anagrafica" inserendo i dati nella sottomaschera "visite" collegata all'altra tabella succede un fatto per me ancora non noto: la prima visita viene regolarmente inserita e collegata con quel determinato paziente ma le successive (visto che anche la tabella visita possiede il campo IDPaziente impostato come contatore") vengono inserite nella sottomaschera riferita al IDPaziente successivo, vistro che per ogni record "visita" inserito il campo ID aumenta automaticamente di una unità e non resta fisso per quel paziente. Spero di aver spiegato bene il problema. Inoltre vorrei saper se è possibile azzerare un campo definito come contatore e farlo ripartire di nuovo da 1.
Ciao.


title: Per sergiomazza e oliones

author: Sergio MAZZA

text:
<
CFin...@excite.it
> ha scritto nel messaggio
news:9mf7s1$mpa$1...@gossip.excite.it...

Se non ho capito male hai inserito un campo IDPaziente (tipo contatore)
nella tabella visite; se è così devi modificare il tipo in numerico intero
lungo.
Il campo che deve essere legato alla tabella Anagrafica non deve "ragionare"
per conto suo (tipo contatore) ma deve "ricevere" il valore dell'idPaziente
(questo sì contatore e anche impostato a "nessun duplicato") dalla tabella
anagrafica. Devi legare le tabelle tramite le relazioni impostando la
relazione uno a molti...
Per azzerare un campo di tipo contatore devi eliminare tutti i record e
compattare l'mdb; ma io non mi preoccuperei di questo ora...
Ciao.


title: Dividere una tabella

author: VincenzoF

text:
Ciao, un consiglio sulla progettazione di un database, perfavore:
Prevedendo che una tabella avra' molti ma molti record e un campo della
stessa e' un valore boleano,
e' meglio dividerla in due o e' la stessa cosa?
Spero che non sia una domanda tediosa o tanto piu' stupida
ciao
VincenzoF


title: Dividere una tabella

text:
"VincenzoF" <
N...@inviare.grazie.it
> ha scritto nel messaggio
news:YXYRb.293887$e6.11...@twister2.libero.it...

Una tabella con due campi per molti ma molti records? Inizia ad inserire i
record e poi (forse) ti preoccuperai del fatto che potrebbe non contenere
tutti i records...
Ciao.
--
Sergio MAZZA


title: Dividere una tabella

author: Antonio Biso

text:
"VincenzoF" <
N...@inviare.grazie.it
> ha scritto nel messaggio
news:YXYRb.293887$e6.11...@twister2.libero.it...

E' meglio avere un'unica tabella di dati omogenei ma con discriminante
booleano che distingue i record!
Antonio


title: Dividere una tabella

text:
Grazie mille per il vostro consiglio
ciao Vincenzo F


title: Carattere che non c'è

author: Lucky

text:
Dovrei inserire in una casella di testo un nome che contiene un carattere
speciale (una S con la coda sotto).
In word lo trovo tranquillamente ma se lo copio e incollo nella mia casella
di testo lo perdo.
Da un po' di ricerche ho visto che con ALT+ numero posso inserire un simbolo
mettendo il corrispondente ASCII (e funziona).
Ma come faccio se questo mio carattere nella tabella ASCII non c'č?
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Carattere che non c'è

author: NSantini

text:
"Lucky" <
xf...@sdf.it
> ha scritto nel messaggio
news:195Z62Z170Z18Y...@usenet.libero.it...
> Dovrei inserire in una casella di testo un nome che contiene un carattere
> speciale (una S con la coda sotto).
> In word lo trovo tranquillamente ma se lo copio e incollo nella mia
> casella
> di testo lo perdo.
> Da un po' di ricerche ho visto che con ALT+ numero posso inserire un
> simbolo
> mettendo il corrispondente ASCII (e funziona).
> Ma come faccio se questo mio carattere nella tabella ASCII non c'č?
Cosě, di botto, posso risponderti che se c'č in Word lo trovi anche in
Access. Di solito una lettera fa parte di uno specifico set di caratteri
detto Font. Prova a cambiare font per quel controllo  perché magari quel
carattere non č compreso nel set di caratteri del font in cui č impostato il
controllo. Spero di essere stato chiaro
NSAntini


title: Carattere che non c'è

text:
> Così, di botto, posso risponderti che se c'è in Word lo trovi anche in
> Access. Di solito una lettera fa parte di uno specifico set di caratteri
> detto Font. Prova a cambiare font per quel controllo perché magari quel
> carattere non è compreso nel set di caratteri del font in cui è impostato
il
> controllo. Spero di essere stato chiaro
> NSAntini
>
Il carattere è un semplice arial ... e il carattere che voglio inserire
chiaramente non c'è.
In word basta andare su Inserisci simbolo e riesco a mettere questa S con il
codino sotto mentre in access non trovo questa possibilità. E se faccio un
copia incolla lo vedo fino a quando non faccio invio.
Come posso fare?



title: Carattere che non c'è

author: Geppo

text:
Ciao Lucky <
sd...@sdfsd.it
>, hai scritto:
--cut--
> Il carattere è un semplice arial ... e il carattere che voglio
> inserire chiaramente non c'è.
> In word basta andare su Inserisci simbolo e riesco a mettere questa S
> con il codino sotto mentre in access non trovo questa possibilità. E
> se faccio un copia incolla lo vedo fino a quando non faccio invio.
???
io ho inserito il carattere in una textbox  e li rimane.
> Come posso fare?
dai un occhiata a questi piccolo esempio:
http://cid-963e2b34dfcce4e6.skydrive.live.com/browse.aspx/Pubblica
--
Ciao
Geppo


title: DBM HELP HELP HELP

author: LT

text:
Ho enormi problemi a importare dei dati da un database di un cliente.
Questo e' composto da file *.dbf (e fin qui e' normale) e file *.DBM,
che se ho capito bene, sono la parte grande dei campi di tipo NOTE che
non vengono memorizzati nei DBF.
Come faccio a portare questa robaccia in access o in SQL server?
Ogni aiuto e' MOLTO apprezzato, sono alla diperazione
Grazie Lorenzo
Ciao Lorenzo


title: DBM HELP HELP HELP

text:
> Ho enormi problemi a importare dei dati da un database di un cliente.
> Questo e' composto da file *.dbf (e fin qui e' normale) e file *.DBM,
> che se ho capito bene, sono la parte grande dei campi di tipo NOTE che
> non vengono memorizzati nei DBF.
Il file dei DBM contiene, infatti, i dati dei campi definiti come memo nel
file DBF al cui interno è memorizzato solo il puntatore.
Se non ricordo male Access quando importa il DBF importa automaticamente
anche i campi memo valorizzati nel DBM.
Fai una veloce verifica.
Ale


title: DBM HELP HELP HELP

text:
Purtroppo non lo fa automaticamente, e anzi, il nome stesso dei file
dbm non l'ho trovato all'interno dei file dbf (ricerca fatta
all'interno del file dbf tramite un text editor).
Credo che all'apertura dei file dbf l'utente doveva mettere come
parametro il nome del file dei memo, questa mi sembra una spiegazione
plausibile, ma che mi porta ulteriori complicazioni nell'importazione.
In particolare: che diavolo di programma devo usare per mettere questi
file in un formato contemporaneo, qualunque?
Forse con paradox?
O cos'altro?
Lorenzo
>> Ho enormi problemi a importare dei dati da un database di un cliente.
>> Questo e' composto da file *.dbf (e fin qui e' normale) e file *.DBM,
>> che se ho capito bene, sono la parte grande dei campi di tipo NOTE che
>> non vengono memorizzati nei DBF.
>Il file dei DBM contiene, infatti, i dati dei campi definiti come memo nel
>file DBF al cui interno č memorizzato solo il puntatore.
>Se non ricordo male Access quando importa il DBF importa automaticamente
>anche i campi memo valorizzati nel DBM.
>Fai una veloce verifica.
>Ale
>
>
>
Ciao Lorenzo


title: DBM HELP HELP HELP

text:
> Purtroppo non lo fa automaticamente, e anzi, il nome stesso dei file
> dbm non l'ho trovato all'interno dei file dbf (ricerca fatta
> all'interno del file dbf tramite un text editor).
OOOooppsss!
Ho scritto e letto DBM e paensavo a DBT!
Tutto il pistolotto precedente allora non vale.
> Forse con paradox?
Allora db3, db4 e Fox-Pro non sono prova a cercare qualcosa con Paradox
Ale


title: Ritorna a capo da codice

author: Sthepan

text:
Qualcuno sa come si fa a fare fare il ritona a capo tramite codice.
MI spiego se devo lasciare una spazio vuoto " "   e devo inserire un
trattino "-" e se devo andare a capo cosa inserisco tra le doppie
virgolette?
Grazie Ciao Sthepan


title: Ritorna a capo da codice

author: Visir

text:
"Sthepan" <
sth...@supereva.it
> ha scritto nel messaggio
news:2bzon9ddfnc0$.1gk16v8e3vxym$.dlg@40tude.net...

Trattino basso _
esempio:
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
    (ByVal hwnd As Long, _
    ByVal nIndex As Long, _
    ByVal dwNewLong As Long) As Long


title: Ritorna a capo da codice

author: MA

text:
"Sthepan" <
sth...@supereva.it
> ha scritto nel messaggio
news:2bzon9ddfnc0$.1gk16v8e3vxym$.dlg@40tude.net...
>
>

Nome & chr(13) & chr(10) & Cognome
MAssimiliano


title: Ritorna a capo da codice

text:
"Sthepan" <
sth...@supereva.it
> ha scritto nel messaggio
news:2bzon9ddfnc0$.1gk16v8e3vxym$.dlg@40tude.net...
>
>

Scusa non ho centrato il senso della tua domanda!


title: Ritorna a capo da codice

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:HkXWd.3766$tY2....@news.edisontel.com...

E vbcrlf ?
Eh?
EH?
Antonio


title: Ritorna a capo da codice

author: Roberto da casa

text:
"Sthepan" <
sth...@supereva.it
> ha scritto nel messaggio
news:2bzon9ddfnc0$.1gk16v8e3vxym$.dlg@40tude.net...
>
>

"prima parte della frase" & " -" &_
Chr$(13) 6 Chr$(10)
o se preferisci:
"prima parte della frase" & " -" & vbCrLf
>
> Grazie Ciao Sthepan
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Dubbio: Immagini come sfondo maschera

author: Moebius Moebius

text:
Ieri ho dato uno sguardo all'Access Diary di cui si parlava in un thread.
Molto ben fatto anche a livello grafico.
Ho notato che, perň, nonostante l'abusa di file immagine nel file zippato
c'era solo un unico file access.

Ho provato a inserire una immagine di sfondo maschera ad un mio progetto, poi
ho cancellato l'immagine sorgente e.... miracolo: in access l'immagine č
ancora li. Vado a controllare il file che ovviamente ora č diventato molto piů
grande. L'immagine č stata salvata nel file di access!!! (oh no?)

Problema:

Se levo l'immagine il file rimane della stessa grandezza di quando l'immagine
c'era. Perché?
--
Inviato da
Newsgate.Localinfo.IT
 Web Service
http://newsgate.localinfo.it


title: Dubbio: Immagini come sfondo maschera

text:
Moebius Moebius wrote:
> Ieri ho dato uno sguardo all'Access Diary di cui si parlava in un
> thread. Molto ben fatto anche a livello grafico.
> Ho notato che, perň, nonostante l'abusa di file immagine nel file
> zippato c'era solo un unico file access.
>
> Ho provato a inserire una immagine di sfondo maschera ad un mio
> progetto, poi ho cancellato l'immagine sorgente e.... miracolo: in
> access l'immagine č ancora li. Vado a controllare il file che
> ovviamente ora č diventato molto piů grande. L'immagine č stata
> salvata nel file di access!!! (oh no?)
Sě
>
> Problema:
>
> Se levo l'immagine il file rimane della stessa grandezza di quando
> l'immagine c'era. Perché?
compatta il db
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Dubbio: Immagini come sfondo maschera

text:
Grazie! :)



title: Visibilità esternafunzioni personalizzate

author: Amico

text:
Ho scritto una funzione in VBA in un modulo di un database access.
Uso questa funziona (scrive un numero in lettere passando come parametro il
relativo numero in cifre) in una query.
Questa query dovrebbe costituire l'origine dati di un documento principale
di unione stampa di word .
A causa di questa funzione che word non riconosce non riesco a colegare la
query di access al documento principale di word.
Qualcuno sa dirmi come faccio a rendere visibile a word questa funzione ?
Grazie


author: Carlo Costarella

text:
"Amico" <
roberto.n...@alice.it
> ha scritto nel messaggio
news:454a5497$0$13769$4faf...@reader3.news.tin.it...

A parte l'automazione credo, se ho ben capito, che devi usare la funzione di
Access in Word.
Se č cosě devi impostare in VBA di Word il riferimento al db.
Ciao, Carlo


text:
Come si fa ?
Grazie


text:
Amico wrote:
> Come si fa ?
> Grazie
Esterna come?
Dalla Finestra?
Spiega meglio
--
--
Massimiliano Amendola
www.accessgroup.it
Il sito italiano di svilupatori Access
www.donkarl.com/it/cisa


text:
"Amico" <
roberto.n...@alice.it
> ha scritto nel messaggio
news:454b77ec$0$19233$4faf...@reader4.news.tin.it...
> Come si fa ?
> Grazie
Spiega meglio dove vuoi farlo: in word o in access?
Ciao, Carlo


text:
La funzione é scritta in un modulo di VBA in Access, ma la devo richiamare
in un documento word.
Grazie


text:
"Amico" <
roberto.n...@alice.it
> ha scritto nel messaggio
news:454b8c93$0$13753$4faf...@reader3.news.tin.it...
> La funzione é scritta in un modulo di VBA in Access, ma la devo richiamare
> in un documento word.
> Grazie
>
>
Se po' fà...
Tra i riferimenti di Word metti anche il tuo mdb o mde. Accertati che la
funzione Access sia pubblica e in un modulo pubblico.
Immagino che la funzione appia una variabile che deve essere passata da
word.
E' così?
Ciao, Carlo


text:
Si é così.
Mi dici come si fa ad aggiungere in word il riferimento al mio database ?
Grazie


text:
"Amico" <
roberto.n...@alice.it
> ha scritto nel messaggio
news:454c7a1f$0$7633$4faf...@reader1.news.tin.it...
> Si é cosě.
> Mi dici come si fa ad aggiungere in word il riferimento al mio database ?
> Grazie
>
>
Comincia da qui:
http://www.microsoft.com/italy/technet/itsolutions/scriptcenter/resources/officetips/nov05/tips1103.mspx
http://groups.google.com/groups?q=Automazione+Access+da+Word&hl=it&lr=&sa=X&oi=groups&ct=title
Contrariamente a quanto detto temo che da word non si possa impostare un
riferimento diretto a un mdb, mde o mda ma bisogna usare l'automazione e il
DDE.
Forse si potrebbe tramite vbscript.
Ciao, Carlo


title: Creare codice con piu' record di testa e di coda (tracciato lemco)

author: Dino

text:
Ciao a tutti;ho un problema da porvi:
mi e' stato chiesto da un cliente il trasferimento delle proprie
fatture al commercialista,il quale come programma ha
"Zucchetti".Questo "FAVOLOSO" applicativo vuole il tracciato file
LEMCO per l'importazione dei dati da altri software.
In realta' bisogna creare un tracciato che presenti prima l'elenco di
tutti i clienti ai quali e' stata emessa fattura e poi in sequenza
tutte le fatture.Io (come vedrete dal codice che vi posto) ho risolto
l' 80 % della richiesta.Cioe elenco prima tutti i clienti con il tot.
record clienti finale e poi elenco le fatture con il tot record
fatture finale.
Ho inizialmente due problemi:

1) Nel tracciato viene chiesto il totale record (clienti + fatture )
nel record di testa.L'ho impostato ma non mi svolge il calcolo.
2) Abbiamo anche un totale alla fine dei due elenchi:Elenco clienti e
elenco fatture.Facendo un esempio: ho tre clienti e tre fatture,il tot
clienti alla fine del mio elenco e' 3 mentre il totale fatture invece
di essere 3 e' 6 cioe' mi fa un totale complessivo come fosse un
record di coda.

Bisogna in pratica a mio parere inserire piu' record di testa e di
coda per suddividere i due flussi.Ma qui' io mi fermo.
Di seguito vi posto il codice da implementare:
Dim NomeFile As String  'Nome del file in scrittura
    Dim risp As String      'Risposta da msgbox
    Dim Riga As String      'Stringa da scrivere di volta in volta
    Dim i    As Integer   'Contatore Cicli
    Dim Tempo1 As Date      'Cronometro di Inizio
    Dim Tempo2 As Date      'Cronometro di Fine
    Dim Tempo  As Date      'Tempo impiegato
    Dim CodDit As String    'Codice CC
    Dim NumFile As String    'indica il tipo di trasf
    Dim Numfatt     As Integer   'numero fatture
    Dim MioDB  As Database
    Dim MioRS  As DAO.Recordset

    CodDit = "ORTODO"   'Codice CC azienda
    NumFile = "003"     'Codice div trasf

    Set MioDB = CurrentDb
    Set MioRS = MioDB.OpenRecordset("Trasmfattragg", dbOpenDynaset,
dbReadOnly)

    If MioRS.RecordCount = 0 Then
        MsgBox "Non ci sono fatture", vbOKOnly, "ATTENZIONE!"
        MioRS.Close
        DoCmd.Close
        Exit Sub
    End If

    Tempo1 = Now()
    MioRS.MoveFirst
    Numfatt = MioRS.RecordCount
    'TOTRIB = 0
    'Divisa = "E"

    NomeFile = "C:\IMORTODO.D"
    'Trasmissione dati
    risp = MsgBox("Procedura di trasmissione fatture di vendita",
vbOKCancel)

    'crea file => cancellazione, per partire da zero
    Open NomeFile For Output As #1
        Print #1, " "
    Close #1
    Kill NomeFile
    'RECORD DI TESTA
    Riga = " "                             '  1-  1 Filler blank
    Riga = Riga + "I"                      '  1-  1 "I"
    Riga = Riga + NumFile                  '  2-  4 CODICE trasf
    Riga = Riga + Format(i, "0000000000000") '  5- 17 Progressivo tot
record
    Riga = Riga + Format(CodDit, "000000")   '  19- 24 codice azienda
    Riga = Riga + "27"                  ' 25- 26
    Riga = Riga + Format(Now(), "yyyymmdd")   ' 27- 34 data spedizione
file
    Riga = Riga + "V"                  ' 35-35 Tipo sped.
    Riga = Riga + "1"                  ' 36-36 Tipo sped.
    Riga = Riga + "2"                  ' 36-36 Tipo sped.
    Riga = Riga + String$(164, " ")          ' 37-200 Filler blank

    Open NomeFile For Output As #1
         Print #1, Riga
    Close #1

    'CICLO DI SCRITTURA PER OGNI UTENTE

        '--------------------
        ' SCRIVE IL RECORD F
        '--------------------
        Riga = " "                              '  1-  1 BLANK
        Riga = Riga + "F"                      '  2-  2 CODICE FISSO
        Riga = Riga + "CLIEFORN"      '  3- 10 Progressivo
        Riga = Riga + String$(191, " ")          ' 11-200 Filler blank
        Open NomeFile For Append As #1
             Print #1, Riga
        Close #1

        Do
        If Nz(MioRS![ID Num  Fattura]) > 0 Then
        i = i + 1

        '--------------------
        ' SCRIVE IL RECORD D10
        '--------------------

        Riga = " "                                      '  1-  1 BLANK
        Riga = Riga + "D"                              '  2-  2 CODICE
FISSO
        Riga = Riga + "10"                                '3-4 fisso
        Riga = Riga + "C"                                '5-5 fisso
        Riga = Riga + "000000"                           '6-11 fisso
        Riga = Riga + String$(8, " ")                    ' 12- 19 f
        Riga = Riga + Format(MioRS![Cliente], "!" & String$(50, "@"))
' 20- 67 o Rag.Sociale Utente
        Riga = Riga + String$(25, " ")                 ' 68-92 Cognome
        Riga = Riga + String$(25, " ")                 ' 93-117 nome
        Riga = Riga + Left$(Format(MioRS![PartitaIVA], "@@@@@@@@@@@")
& String$(11, " "), 11) ' 118-129 P.IVA cliente
        Riga = Riga + String$(5, " ")                  '130-134 spazi
per codice fisc
        Riga = Riga + String$(1, " ")                  '134-134 codice
fisc errato
        Riga = Riga + String$(1, " ")                  '135-135 Sog.
intracom
        Riga = Riga + "S"                              '136 - 136
fisso
        Riga = Riga + String$(63, " ")                  '137-249
filler
        Open NomeFile For Append As #1
            Print #1, Riga
        Close #1

        '--------------------
        ' SCRIVE IL RECORD D11
        '--------------------
        Riga = " "                                      '  1-  1 BLANK
        Riga = Riga + "D"                              '  2-  2 CODICE
FISSO
        Riga = Riga + "11"                                '3-4 fisso
        Riga = Riga + Format(MioRS![Indirizzo5], "!" & String$(32,
"@"))   ' 5- 36  Indirizzo e num civ.
        Riga = Riga + String$(5, " ")                  '37-41 spazi
per num civ
        Riga = Riga + String$(4, " ")                  '42-45 Codice
comune
        Riga = Riga + Format(MioRS![CAP5], "00000")    ' 46- 50 CAP
        Riga = Riga + Format(MioRS![Città5], "!" & String$(21, "@"))
' 51- 73 Città
        Riga = Riga + Format(MioRS![Provincia5], "00")    ' 74- 75
Prov
        Riga = Riga + "S"                               '87-87 fisso
        Riga = Riga + "N"
        Riga = Riga + "N"                               'Bolla dog.
89-89 errata
        Riga = Riga + "1"                               '90-90 fisso
codice 1 = lav.autonomo
        Riga = Riga + "N"
        Riga = Riga + "N"                 'Clente fittizio. 92-92
errata
        Riga = Riga + String$(122, " ")                   'Blank.
92-200

        Open NomeFile For Append As #1
            Print #1, Riga
        Close #1

    End If
        MioRS.MoveNext
    Loop Until MioRS.EOF
    MioRS.MoveFirst

        '--------------------
        ' SCRIVE IL RECORD E
        '--------------------
        Riga = " "                                      '  1-  1 BLANK
        Riga = Riga + "E"                              '  2-  2 CODICE
FISSO
        Riga = Riga + "CLIEFORN"                     '  3-  10 CODICE
FISSO
        Riga = Riga + Format(i, "00000000")          '  11- 18
Progressivo tot record
        Riga = Riga + String$(183, " ")                  '19-201
filler
        Open NomeFile For Append As #1
            Print #1, Riga
        Close #1

        '--------------------
        ' SCRIVE IL RECORD F
        '--------------------
        Riga = " "                              '  1-  1 BLANK
        Riga = Riga + "F"                      '  2-  2 CODICE FISSO
        Riga = Riga + "FATTVEND"      '  3- 10 Progressivo
        Riga = Riga + String$(191, " ")                  ' Filler

        Open NomeFile For Append As #1
            Print #1, Riga
        Close #1

         Do
        If Nz(MioRS![ID Num  Fattura]) > 0 Then
        i = i + 1

        '--------------------
        'SCRIVE IL RECORD D30
        '--------------------
        Riga = " "                                      '  1-  1 BLANK
        Riga = " "                                      '  1-  1 BLANK
        Riga = Riga + "D"
        Riga = Riga + "30"                              '  2-  3
CODICE FISSO 70
        Riga = Riga + "00"                              '  3-  4
CODICE FISSO ATTIVITà IVA
        Riga = Riga + Format([Datadoc], "yyyy")         ' 5- 8 Anno
competenza
        Riga = Riga + Format(Now(), "mm")             ' 6- 7 Mese
competenza
        Riga = Riga + Format([Datadoc], "yyyy")         ' 5- 8 Anno
competenza
        Riga = Riga + Format(Now(), "mm")           ' 6- 7 Mese
competenza
        Riga = Riga + "00"                              ' 3-  4 CODICE
Sezione reg.IVA
        Riga = Riga + "1"                              ' 3-  4 Tipo
doc:Fattura
        Riga = Riga + String$(2, " ")                  ' Cod. tipo
fatt "" fattura di vendita
        Riga = Riga + Format(MioRS![Num doc], "!" & String$(10, "@"))
' Num fatt
        Riga = Riga + String$(1, " ")                       ' Num bis
        Riga = Riga + Format(MioRS![Num doc], "!" & String$(10, "@"))
' Num fatt
        Riga = Riga + Format(Now(), "yyyymmdd")         ' 5- 8 Data
registr. fatt
        Riga = Riga + Format([Datadoc], "yyyymmdd")         ' Data
emissione fatt
        Riga = Riga + "000000000000000000000000000"     ' Campi
facoltativi: da Data scad.  COD. PAG
        Riga = Riga + String$(1, " ")                  ' Tipo
pag:facoltativo
        Riga = Riga + "0000000000"     ' Campi facoltativi: da Centro
di costo a  Cod. cli
        Riga = Riga + "P"                              'indica il
codice usato:Partita IVA
        Riga = Riga + Left$(Format(MioRS![PartitaIVA], "@@@@@@@@@@@")
& String$(11, " "), 11) '  P.IVA cliente
        Riga = Riga + String$(5, " ")                  ' spazi per
codice fisc
        Riga = Riga + "0000000000000"     ' Campi facoltativi
        Riga = Riga + String$(1, " ")                  ' Filler
        Riga = Riga + "00000000000"     ' Campi facoltativi
        Riga = Riga + String$(61, " ")                  ' Filler
        Open NomeFile For Append As #1
            Print #1, Riga
        Close #1

         '--------------------
        'SCRIVE IL RECORD D31
        '--------------------
        Riga = " "                                      '  1-  1 BLANK
        Riga = " "                                      '  1-  1 BLANK
        Riga = Riga + "D"
        Riga = Riga + "31"                              '  2-  3
CODICE FISSO 70
        Riga = Riga + "81"                              '  3-  4
CODICE FISSO ATTIVITà IVA
        Riga = Riga + Format(MioRS![Totale di Totale],
"00000000000")    ' Imponibile
        Riga = Riga + "+"                              '   CODICE
FISSO
        Riga = Riga + "00000000000"                    '   Valore
FISSO: Importo imposta
        Riga = Riga + "+"                              '   CODICE
FISSO
        Riga = Riga + "52"                              '   CODICE
FISSO:Codice norma esente IVA
        Riga = Riga + "0000"                            '   Valore
FISSO: Centro di costo
        Riga = Riga + "051922"                           '   Valore
FISSO: Codice contropartita
        Riga = Riga + Format(MioRS![Totale di Totale],
"00000000000")    ' Imponibile
        Riga = Riga + "+"
        Riga = Riga + "00000000000"                    '   Valore
FISSO: Importo in valuta
        Riga = Riga + String$(136, " ")                  ' Filler
       Open NomeFile For Append As #1
            Print #1, Riga
        Close #1

    End If
    MioRS.MoveNext
    Loop Until MioRS.EOF
    MioRS.MoveFirst

        '--------------------
        ' SCRIVE IL RECORD E
        '--------------------
        Riga = " "                                      '  1-  1 BLANK
        Riga = Riga + "E"                              '  2-  2 CODICE
FISSO
        Riga = Riga + "FATTVEND"                     '  3-  10 CODICE
FISSO
        Riga = Riga + Format(i, "00000000") '  11- 18 Progressivo tot
record
        Riga = Riga + String$(183, " ")                  '19-201
filler
        Open NomeFile For Append As #1
            Print #1, Riga
        Close #1

'RECORD DI CODA
    Riga = " "                             '  1-  1 Filler blank
    Riga = Riga + "C"                      '  2-  3 "I"
    Riga = Riga + NumFile                  '  3-  5 CODICE trasf
    Riga = Riga + Format(i, "0000000000000")  '  6- 18 Progressivo tot
record
    Riga = Riga + Format(CodDit, "000000")   '  19- 24 codice azienda
    Riga = Riga + "27"                  ' 25- 26
    Riga = Riga + Format(Now(), "yyyymmdd")   ' 27- 34 data spedizione
file
    Riga = Riga + "V"                  ' 35-35 Tipo sped.
    Riga = Riga + "1"                  ' 36-36 Tipo sped.
    Riga = Riga + String$(164, " ")          ' 37-200 Filler blank
    Open NomeFile For Append As #1
            Print #1, Riga
    Close #1
    Tempo2 = Now()
    MioRS.Close
    Tempo = Tempo2 - Tempo1
    MsgBox "Terminato, " & Tempo & "s"

Grazie in anticipo
Dino