mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Decimali infiniti

Salve a tutti.
C'è una cosa che non ho mai capito di access.
Perchè se in una maschera inserisco un campo che deve tenere 2 cifre 
decimali, dopo avere inserito il valore, se ci clicco sopra per modificarlo 
il valore ha un numero infinito di decimali.
Ad esempio se digito 100,01  in visualizzazione vedo 100,01 ma se clicco 
sopra per modificarlo mi ritrovo 100,01000213623.
Preciso che sia in tabella che in maschera il formato è impostato con 2 
decimali.
Qualcuno sa come ovviare?
Thanks
ziopilvio

"ziopilvio"

L'impostazione "numero decimali" influisce sul numero di cifre visualizzate
e non memorizzate.
Quando operi dei calcoli e memorizzi i risultati, devi arrotondare le cifre
con routines tipo questa:
www.sitocomune.com
Sezione general:     6.83 Arrotondare un numero alla cifra decimale
specificata (uso commerciale)

 ziopilvio
Prego,
Ciao,
Max

 ziopilvio
Prego,
Ciao,
Max
Avevo già provato con la funzione round ma non funziona. :-((
Nemmeno la funzione  "6.83 Arrotondare un numero alla cifra decimale" mi da 
il risultato sperato.
Quando vado ad editare il campo mi da sempre un numero lungo di decimali 
(sia che sia stato inserito direttamente da tastiera, si se è stato inserito 
da codice).
L'unica miglioria è stata di inserire il formato "? #.##0,00" anzichè 
"Euro". In questo caso i decimali visualizzati vanno da 2 a 4. Sempre meglio 
di prima.
Ziopilvio

 Ziopilvio
Max

Max
Per ora non mi serve sommarli.
Grazie
ziopilvio

Newsgroup: it.comp.appl.access
Titolo: Query con più parametri incompleti.

Ciao a tutti. Sto realizzando un database per una biblioteca e per le
ricerche ho utilizzato una maschera con due caselle di testo dove inserisco
i parametri (AUTORE e TITOLO) che poi passo alla query. Le espressioni dei
due criteri sono:
- Like "*" & [forms]![Maschera1]![testo0] & "*"
- Like "*" & [forms]![Maschera1]![testo3] & "*"
dove Maschera1 è la maschera di inserimento dei parametri e testo0 e testo3
le relative caselle di testo. In questo modo riesco a fare le ricerche anche
inserendo solo una parte dei dati richiesti. Però non c'è modo di trovare
quei libri dove uno dei due dati manca. Cioè se ho una scheda con solo il
titolo ma non l'autore, anche scrivendo nella query il titolo esatto (e
lasciando ovviamente in bianco l'autore), non riesco a recuperare il record
giusto ma viene proprio ignorato. E' possibile risolvere questo problema? Ho
provato variando le espressioni dei criteri in tanti modi ma senza arrivare
a nulla. Grazie.

 ha scritto nel messaggio
news:affp2j$187$1...@lacerta.tiscalinet.it...

E se aggiungi a tuti e due:   OR IS NULL
ciao.

 a nulla. Grazie.
I criteri mettili su un campo calcolato fatto cosě
Espr1: nz(AUTORE;"-")
poi sotto come criterio metti
Like iif(isnull([forms]![Maschera1]![testo0]);"*";"*" &
[forms]![Maschera1]![testo0] & "*")
Antonio
Newsgroup: it.comp.appl.access
Titolo: conversione dati in access

Ho convertito dei dati in access da un database in Db 3:
problemi riscontrati:
    i campi vuoti vengono convertiti come campi NULL,di conseguenza avendo
la necesssità
    di visualizzare i suddetti  in un text box di visual basic,non è
possibile passare un dato NULL ad un text, per ovviare al problema dovrei
controllare ogni volta il valore del campo.
Esiste un metodo più veloce per fare ciò?
<adriano>

    i campi vuoti vengono convertiti come campi NULL
update tabella set campo='' where campo is null
Bai
--
Lorenzo Coronati
--
<<Nessuno sa che questa affermazione e' vera>>
(John D. Barrow)
--
Newsgroup: it.comp.appl.access
Titolo: SQL (estrazione valori)

Salve a tutto il gruppo...
Ho un piccolo problema con SQL e precisamente ho realizzato un istruzione
per estrarre da una tabella, dove vengono inseriti i pesi di una serie di
persone, l'ultimo peso rilevato per ogni persona. I pesi non sono rilevati
ogni giorno.
Non riesco a capire come posso estrarre il penultimo peso rilevato per ogni
persona visto che lo vorrei poi confrontare con l'ultimo.
Qualcuno puo' darmi una mano??
Questa é l'istruzione:
SELECT cognome, nome, alimentazione  FROM tab_peso, tab_anagrafiche  WHERE
tab_peso.ID_anagrafica like tab_anagrafiche.ID_anagrafica AND
tab_peso.ID_peso LIKE   ( SELECT MAX(tab_peso.ID_peso)
FROM tab_peso
WHERE tab_peso.ID_anagrafica like tab_anagrafiche.ID_anagrafica AND
tab_anagrafiche.data_dimissione is null)
ORDER BY cognome
Grazie in anticipo
Michele

 ha scritto nel messaggio
news:3d23f...@news.bluewin.ch...

Facendo riferimento alla risposta che ti ho dato il 1°/7/2002 e relativa al
tuo messaggio del 28/6/2002 ore 15:48, prova con una query che abbia il
seguente codice SQL:
SELECT tab_anagrafiche.cognome, tab_anagrafiche.nome,
IIf(IsNull(DLookUp("ID_anagrafica","tab_peso","ID_anagrafica=" &
[ID_anagrafica])),Null,DLookUp("peso","tab_peso","ID_peso=" &
DMax("ID_peso","tab_peso","ID_anagrafica=" & [ID_anagrafica]))) AS
UltimoPeso, IIf(IsNull(DLookUp("ID_anagrafica","tab_peso","ID_anagrafica=" &
[ID_anagrafica])),Null,DLookUp("peso","tab_peso","ID_peso=" &
DMax("ID_peso","tab_peso","ID_anagrafica=" & [ID_anagrafica] & " AND ID_peso
<>" & IIf(IsNull(DLookUp("ID_anagrafica","tab_peso","ID_anagrafica=" &
[ID_anagrafica])),Null,DLookUp("ID_peso","tab_peso","ID_peso=" &
DMax("ID_peso","tab_peso","ID_anagrafica=" & [ID_anagrafica])))))) AS
PenultimoPeso
FROM tab_anagrafiche
WHERE (((tab_anagrafiche.data_dimissione) Is Null))
ORDER BY tab_anagrafiche.cognome, tab_anagrafiche.nome;
L'ultimo peso lo troverai nel campo calcolato UltimoPeso, il peso precedente
nel campo calcolato PenultimoPeso.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 wrote in message
news:3d23f...@news.bluewin.ch...

Io farei cosě:
Query Ultimopeso: seleziona l'ultimo id_peso di ogni soggetto
SELECT ID_anagrafica, Max(ID_peso) AS ultimo FROM tab_peso GROUP BY
ID_anagrafica;
Query Penultimopeso: seleziona il penultimo id_peso di ogni soggetto
SELECT id_anagrafica, Max(ID_peso) AS penultimo FROM tab_peso WHERE id_peso
NOT IN (select ultimo from ultimopeso;) group by id_anagrafica;
HTH.
Alessandro
Newsgroup: it.comp.appl.access
Titolo: Autokeys

Salve, vorrei abbinare dei tasti di scelta rapida ( {F2} - {F3} - {F5} ) a
dei pulsanti i quali eseguono delle sub....
&NomeEtichetta funziona solo con la combinazione del tasto ALT...e vorrei
evitare di utilizzare due tasti.
con le autokeys, devo necessariamente richiamarmi una funzione...
mi date un aiuto pls ?
grazie
Krandall

con le autokeys, devo necessariamente richiamarmi una funzione...
E che male c'e'?
Io faccio sempre cosi'.
--
Lorenzo Coronati
--
<<Nessuno sa che questa affermazione e' vera>>
(John D. Barrow)
--

Newsgroup: it.comp.appl.access
Titolo: Database Danneggiato?

Salve a tutti, ho un database, (A97), che nel momento in cui vado ad aprirlo
mi risponde con questo messaggio di errore:
'c:\x.mdb' non e' un indice di questa tabella. Esaminare l'insieme indexes
dell'oggetto TableDef per determinare i nomi di indice validi.
Ovviamente tutti i tentativi (Ripristino,  /decompile etc.) hanno dato esito
negativo (rispondendo con lo stesso messaggio di errore). Ho provato anche
ad accedervi tramite codice, ma appena provo ad aprirlo tramite
Opendatabase, mi restituisce l'errore di runtime 3015 e il solito messaggio
gia' citato.
Esiste la possibilita' di recuperarlo o comunque di recuperare i dati?
Grazie in anticipo, aspetto speranzoso.
Marco.

Marco Moretti ha scritto:

Scaricati il update di Jet e prova di riparare il db con Jetcomp:
ACC: Jet Database Engine 3.x Error Messages Due to Corruption
http://support.microsoft.com/default.aspx?scid=kb;EN-US;182867
-- 
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com
Newsgroup: it.comp.appl.access
Titolo: Importazione dati da file di testo senza interruzioni di riga

Ciao a tutti.
Sto provando a d importare dati da un programma per la registrazione delle
fatture. Il file prodotto con i dati ha una estensione .EBD che posso
cambiare in TXT e leggere con un editor di testo. Il programmatore mi ha
fornito anche il tracciato record che č di questo tipo (semplificato):
[denominazione] testo 50
[P_IVA] testo 16
[importo] testo 4
........
Il programma perň salva i dati nel file .EBD in modo 'continuo' nel senso
che tra un record e l'altro non va a capo (lo vedo nell'editor di testo che
i dati sono continui) e quindi scrive una roba del genere:
nome1.......(fino a 50 spazi)...P_IVA1....(fino a 16)....importo1nome2.....
e cosě via di seguito senza andare a capo quando inizia a scrivere 'nome2'.
Ho quindi dei problemi se voglio imp. il file di testo in Access, perchč non
č in grado di 'capire' (sono io che non glielo faccio capire...:-)) quando
finisce il record e comincia il successivo.
Ho provato creando una specifica di importazione che abbia solo i campi
'giusti' sperando che, quando ha completato l'importazione dell'ultimo campo
del record, passi automaticamente al successivo, ma non funzia.
Qualche suggerimento?
Scusate la lunghezza della domanda.
Grazie a tutti. Giancarlo.

 e cosě via di seguito senza andare a capo quando inizia a scrivere 'nome2'.
codice...
vediti un pň l'istruzione open.
mi sa che devi impostare access binary e poi gestirti ogni singolo byte.
sapendo quanto č lungo ogni campo, t crei una funzione che t scandisce 
il file e legge i vari campi.
buon lavoro!
:-)
-- 
+-----
| Paolo opg
|
| janickg ( at ) hotmail ( dot ) com
+-----

 Grazie a tutti. Giancarlo.
il file potrebbe essere stato prodotto su unix.
Su unix il fine record e' rappresentato solo dal NL (o chr(10) o H0A che
dir
si voglia). 
Cosa si puo' fare? 
si dovrebbe sostituire il chr(10) con la coppia chr(13) & chr(10)
Questo si puo fare con parecchi editor di testi 
ovviamente e' sempre corretta la via suggerita nell'altra risposta
--
a.cara 
Togli qualcosa dall'email

 +-----
Grazie.
Giancarlo.

 Togli qualcosa dall'email
Grazie. Giancarlo

 > č in grado di 'capire' (sono io che non glielo faccio capire...:-))


 
t dň la procedura per a97, dato che io uso quello...
in un qualsiasi modulo di access, scrivi la parola open, la selezioni e 
poi premi F1.
t esce la scelta tra open-VBA e open-ACCESS
clicchi su open-VBA e trovi la sintassi dell'istruzione con gli esempi.
ovviamente, devi fare qualche prova per vedere quale combinazione si 
adatta meglio al tuo caso.

Newsgroup: it.comp.appl.access
Titolo: Report orizzontale

Buongiorno a tutti,
Io ho un problema di questo tipo:
Matricola    data        Ordinarie        Straordinarie    Notturni
1111           01/01/03    8                        4                    0
1121          02/01/03     4                        4                    4
1122           03/01/03    8                        8                    8
Come faccio a fare un record così:
Giorno              1    2    3    4    5    6    7    8    9    10    N
Ordinarie          8   4    8
Straordinarie     4    4    8
 Totale notturni =12
Ho provato una query a campi incrociati ma potendo impostare solo un Valore
non potevo calcolare le straordinarie.
Come faccio vi prego aiutatemi ne ho bisogno tanto tanto tanto.
Questa notte non ho domito e non ci sono nemmeno riuscito ,sono frustrato.
Grazie e ciao,
Filippo Mazzella.

 ha scritto nel messaggio
news:5yNma.20072$T34.6...@news2.tin.it...

Se la tabella che contiene i dati si chiama Tabella1.
Creati una query unione chiamata Query1 che abbia il seguente codice SQL:
SELECT Tabella1.Matricola, Tabella1.Data, "Ordinarie" AS Tipo,
Tabella1.Ordinarie As Ore
FROM Tabella1
UNION SELECT Tabella1.Matricola, Tabella1.Data, "Straordinarie" AS Tipo,
Tabella1.Straordinarie As Ore
FROM Tabella1;
Creati quindi una prima query a campi incrociati chiamata
Query1_CampiIncrociati, basata su Query1 ed avente il seguente codice SQL:
TRANSFORM Sum(Query1.Ore) AS [Il valore]
SELECT Query1.Tipo, Null AS [Totale di Notturne]
FROM Query1
GROUP BY Query1.Tipo
PIVOT Format([Data],"Short Date");
Per il computo delle ore notturne creati ora una seconda query a campi
incrociati chiamata Tabella1_CampiIncrociati, basata su Tabella1 ed avente
il seguente codice SQL:
TRANSFORM Null AS [Il valore]
SELECT "Totali di Notturni=" AS Tipo, Sum(Tabella1.Notturne) AS [Totale di
Notturne]
FROM Tabella1
GROUP BY "Totali di Notturni="
PIVOT Format([Data],"Short Date");
Infine creati una query unione chiamata Query2 e che unisce i dati delle due
queries a campi incrociati; Query2 avrà il seguente codice SQL:
SELECT Query1_CampiIncrociati.*
FROM Query1_CampiIncrociati
UNION SELECT Tabella1_CampiIncrociati.*
FROM Tabella1_CampiIncrociati;
Per avere il risultato che ti serve è sufficiente aprire Query2.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Ricerca intervalli date.

Ciao a tutti!
vorrei sapere come fare una corretta ricerca in un intervallo di date.
Mi spiego meglio:
nome_tabella: tabella 1
Campi:
nome, arrivo,                partenza
anna    3/06/2000         08/06/2000
luca     6/06/2000         09/12/2000
io vorrei impostare una query che immettendo dei parametri [nome, arrivo,
partenza]
mi dia l'esatta ricerca con le date.
In pratica io vorrei che inserendo come parametro anna, 04/06/2000,
08/06/2000 access mi restituisse anna.
Spero di essermi spiegato.
Ps. non conosco il vba :-(((
Grazie
Alfosno

 Ps. non conosco il vba :-(((
Non credo ti serva, per fare delle semplici query di ricerca...
Ciao
David

 ha scritto nel messaggio
news:AnwNb.120462$_P.43...@news4.tin.it...

Non è molto chiaro quello che vuoi ottenere; cosa significa farsi restituire
il nome contenuto nel campo di un record quando tale nome lo imposti tu tra
i parametri di ricerca?
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:AnwNb.120462$_P.43...@news4.tin.it...



[CUT]

Newsgroup: it.comp.appl.access
Titolo: Le API e il miele

Scusate la mia batutaccia ma essendo nuovo dell'argomento cerco di 
sdramatizzare.
Ho un grossissimo problema che per molti sarà banale.
Ho la necessità di creare rettangoli di diversi colori e dimensioni su una 
form. Non so a priori quanti sono e come sono quindi devo crearli a 
run-time. Inoltre il risultato deve essere un MDE. Ho pensato che l'unica 
soluzione sia l'utilizzo delle API ma con le diverse funzioni 
(CreateRectRgn, SetWindowRgn, CombineRgn, FillRgn, FillRect)  non sono 
riuscito a creare nulla, solo a modellare la maschera.
Qualcuno ha un'idea? Basterebbe un qualunque spunto o inizio. Grazie.
Andrea 

[CUT]
Ciao,
fammi capire -> devi creare dei rettangoli su una maschera (form) e come 
unica strada hai scelto quella delle Api?
Hai già effettuato la tua scelta o si possono valutare altre alternative 
come l'assembler? ;-)
Se non trovi qualcosa sul sito di @Alex puoi sempre fare un salto qui 
http://www.giobe2000.it/
 ! ;-)
Notte :-) 

[CUT]
Ciao,
vedi che quella dell'assembler era una battutaccia: che ti serve? vediamo se 
ti possiamo aiutare con la geometria! ;-) 

eheheh, avevo preso paura andano a vedere sul sito che mi hai indicato. 
Semplicemente disegnare rettangoli su un form access di dimensioni e colori 
diversi che non conosco all'inizio. 

 diversi che non conosco all'inizio.
Se sei certo del numero dei rettangoli da disegnare puoi
inserirli come trasparenti e dimensionarli Runtime, è
fattibile anche con MDE senza problemi.
Altrimenti la vedo dura, in quanto per disegnare un 
rettangolo via API serve definire un'area di schermo grafica
nella quale disegnare, ma andrebbe inevitabilmente a coprire
lo sfondo, quindi servirebbe renderlo trasparente.
Insomma io non inseguirei questa strada.
@Alex 
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio 
news:4342f92d$0$6343$4faf...@reader2.news.tin.it...

Questo il sito che fa per te:
http://www.lebans.com/toc.htm
Ciao, Carlo 

 run-time.
In mezzo al codice VBA, scrivi la parola "Line", poi selezionala e premi F1:
serve per creare rettangoli, pieni o vuoti, delle dimensioni, del colore e
nella posizione che imposti tra gli argomenti.
Spero ti sia utile. Ciao.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Spero ti sia utile. Ciao.
Grandissimo, mi era proprio sfuggita.


Vi ringrazio per le risposte ma LINE funziona solo per i report.

 Vi ringrazio per le risposte ma LINE funziona solo per i report.
hai ragione, me ne sono accorto ora...
mi dispiace.
Purtroppo, anche se molti qui mi odiano per questo, torno a dire che con VB
si possono fare cose che con Access non si fanno (...beh, tanto ogni volta
che scrivo qui mi plonka qualcuno di nuovo...)
Prova a giocare con FillRect, su AllAPI.net dovrebbe esserci qualche
esempio. Ciao.


 che scrivo qui mi plonka qualcuno di nuovo...)
[CUT]
Non disperiamo la nuova versione di Access farà
anche i panini.
PLONK...!
;-)


> [CUT]
eheheLOLehehe


FANTASTICO!
Grazie per la segnalazione: RISOLTO
Ciao, Andrea
Newsgroup: it.comp.appl.access
Titolo: Database telefonico e privacy... [Help]

               Attenzione all'anti-spam XXX
  < Censurato >

               Attenzione all'anti-spam XXX
BUGS
	Non ce ne sono!  Be', forse uno o due.
		-- Tratto dal `man popclient', autore Carl Harris
		   (
ceha...@vt.edu
).

Newsgroup: it.comp.appl.access
Titolo: report con totale per pagin

Ciao a tutti, è possibile sto creando un report tipo elenco inventario, e

Newsgroup: it.comp.appl.access
Titolo: Query di UPDATE vba che lascia campi vuoti

Salve a tutti,
sono nuovamente a chiedere aiuto per tentare di risolvere un problema
che mi sta facendo impazzire.
Utilizzo il seguente codice VBA per importare dei dati da un file excel
in una tabella denominata Fondi di un database Access e quindi
integrarli con alcuni valori calcolati mancanti.
L'importazione funziona a meraviglia e anche i campi calcolati sembrano
non dare problema, passati uno ad uno i record i valori determinati
sono corretti, il problema, come sintetizzato nell'oggetto di questo
messaggio, è che inspiegabilmente la finale query di UPDATE in alcuni
casi non aggiorna i valori, o meglio non li inserisce durante il ciclo
nella tabella, ma inserisce NULL.
La tabella ha le seguente struttura
Country - Testo
Code - Numerico (chiave)
Date - Data/ora (chiave)
Name - Testo
Nav - Numerico
Var - Numerico
MQP - Numerico
MVP - Numerico
I campi di Country, Code, Date, Name, Nav di ogni record sono riempiti
attraverso i dati importati da file Excel, i rimanenti campi invece
vengono calcolati e attraverso la query di UPDATE inseriti, come dicevo
il problema è che non sempre... ma a volte sono lasciati dei "buchi"
Grazie mille a chiunque proverà a darmi una mano dedicandomi del tempo.
gallus
------- INIZIO CODICE --------------
Private Sub PreparaDati()
' Variabili per accedere al mio database
Dim db As DAO.Database
Dim rs As Recordset
Dim qry As String
Dim code As Long
Dim codePrecedente As Long
Dim data As Date
Dim nav As Single
Dim navPrecedente As Single
Dim var As Single
Dim mqp As Single
Dim mvp As Single
Dim nrecord As Long
Set db = CurrentDb
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "Fondi",
"E:\FondiDatiProva.xlsx", True
qry = "SELECT Code, Date, Nav " & _
      "FROM Fondi " & _
      "ORDER BY Code, Date"
 
Set rs = db.OpenRecordset(qry)
codePrecedente = 0
navPrecedente = 0
nrecord = 0
While Not rs.EOF
    DoCmd.SetWarnings False
 
    code = rs.Fields("Code") ' Codice identificativo del Fondo
    data = rs.Fields("Date") ' Data della quotazione
    nav = rs.Fields("Nav") ' Valore della quotazione
 
 
    If code = codePrecedente Then
        var = (nav / navPrecedente) - 1
        If nav > mqp Then
            mqp = nav
        End If
 
        mvp = (nav / mqp) - 1
    Else
        var = 0
        mqp = nav
        mvp = 0
    End If
 
    codePrecedente = code
    navPrecedente = nav
 
    qry = "UPDATE Fondi " & _
          "SET Fondi.Var = '" & var & "' , Fondi.MQP = '" & mqp & "',
Fondi.MVP = '" & mvp & "' " & _ "WHERE (((Fondi.Code) = " & code & ")
AND ((Fondi.Date) = #" & data & "#))" 
    DoCmd.RunSQL qry
    nrecord = nrecord + 1
 
    rs.MoveNext
Wend
DoCmd.SetWarnings True
MsgBox "Record totali: " & nrecord
End Sub
------- FINE CODICE --------------

 ...
Siccome il formato non è corretto, ci possono essere problemi
con il campo data. Normalmente ti dovrebbe dare un errore.
Vedi:
 Passare una data ad una stringa SQL
 
www.donkarl.com/it?FAQ6.8
BTW
"Date" è un nome pericoloso per un campo, perché si tratta
di una parola chiave in Access/VBA.
-- 
Ciao
Karl
*********
Access FAQ: 
http://www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: Impostare l'origine controllo di una casella di testo in un report

Ciao a tutti
Ho necessità di impostare l'origine controllo di una casella di testo in un
report all'apertura.
La stringa che devo impostare è la seguente:
"=iif(isnull([nomecampo]);0;[nomecampo])".
Ho usato questa istruzione sull'evento SU APERTURA del report:
Me![NOMEOGGETTO].ControlSource "=iif(isnull([nomecampo]);0;[nomecampo])"
ma non funziona.
Se uso questa istruzione invece funziona tutto:
Me![NOMEOGGETTO].ControlSource "[NOME CAMPO]"
Qualcuno mi sa dire come posso risolvere il problema.
Grazie anticipatamente.

 ha scritto nel messaggio
news:8gtv7d$b88$1...@lacerta.tiscalinet.it...

Prova a sostutire il punto e virgola con la virgola...
Ciao.


Potresti mettere iif(isnull([nomecampo]);0;[nomecampo]) direttamente in
origine controllo senza pasare per l'evento, oppure scrivere 1 riga di
codice tipo:
if isnull(me.nomecampo) then 0 else
me![nomeoggetto].controlSource="[nomecampo]"
nell'editor del codice in form_Open (o qualcosa di simile)


ci sei vicinissimo, dovresti solo rigirare la iif
ovvero metti nell'evento Su apertura la seguente istruzione:
if isnull([nomecampo]) then
     Me![NOMEOGGETTO].ControlSource="=0"
else
    Me![NOMEOGGETTO].ControlSource="=[nomecampo]"
end if
oppure direttamente nella casella  stessa
scrivi nell'origine di controllo :
=iif(isnull([nomecampo]);0;[nomecampo])
bye  :o)

 >

Newsgroup: it.comp.appl.access
Titolo: AIUTO: frazioni di secondo e Access

Ciao a tutti,
devop creare un DB che mi permetta di salvare un elenco di prestazioni
cronometriche come quelle di formula uno...
Qualcuno sa se e' possibile in Access creare un campo che possa contenere
valori come:
1:24,856
cioe' un minuto, 24 sec e 856 millesimi.
Grazie a tutti.
Ciao
Skippy
--------------------------------
Inviato via 
http://usenet.libero.it

 cioe' un minuto, 24 sec e 856 millesimi.
Puoi ovviare o creando 3 campi (ore minuti millesimi)
o uno solo, millesimi, di tipo intero lungo.
Poi dovrai due funzioni create da te per portare una prestazione in
millesimi e viceversa
1 minuto = 60.000 millesimi
e cosě via...
Infine potresti salvare in formato testo, controllando che l'inserimento sia
sempre con quei separatori e gestendo poi i tre "spezzoni"
Antonio

 sempre con quei separatori e gestendo poi i tre "spezzoni"
Altra domanda: quale funzione devo usare se voglio convertire un numero
intero in una stringa, pero' mantenendo il formato originale. Mi spiego
meglio:
io voglio che il numero 04 sia convertito in "04" e non in "4"... Mi serve
per poter passare dai tre campi al testo tipo "2:03,057"
Grazie.


 per poter passare dai tre campi al testo tipo "2:03,057"
Caso mai è il contrario, da testo a numero.
Il numero 04 non esiste, esiste 4 visualizzato con formato 00, oppure esiste
la stringa "04".
allora, se hai il numero 4 e lo vuoi salvare in stringa come "04" puoi fare
così
num = 4
right("00" & num,2)
i tre spezzoni li ottieni così
ore = left(tuocampo,instr(tuocampo,":")-1)
minuti =
mid(tuocampo,instr(tuocampo,":")+1,instr(tuocampo,",")-instr(tuocampo,":")-1
)
millesimi = mid(tuocampo,instr(tuocampo,",")+1)
Antonio
Newsgroup: it.comp.appl.access
Titolo: automatizzare l'esportazione di files in word

Ciao a tutti.
Ieri ho postato un quesito riguardante l'esportazione/stampa su acrobat di
un report composto da più pagine, ma nn credo che riuscirò cmq a venirne
fuori...:-), allora provo un'altra strategia:
Secondo voi è possibile esportare in Word le pagine di un report che si
'appoggia' su una query, in modo tale che non venga creato un solo file .doc
(o .rtf) di tot pagine, ma che vengano creati tanti files .doc quante sono
le pagine del report e che ogni file abbia per nome il contenuto del campo
di ogni record della query?
Es:
Query1
[nome]
paolo
marco
luca
......
il 'prodotto' finale dovrebbero essere tanti files .doc (o .rtf), quante
sono le pagine del report, con i seg. nomi: paolo.doc; marco.doc; luca.doc
Grazie a tutti!
Giancarlo



abbandona il report e tramite automazione office creati i documenti
Word che ti servono 
vedi esempi su 
sitocomune.com
Saluti.
Emanuele.

 ha scritto nel messaggio
news:g9ss1vor8d6bqg9vj...@4ax.com...

Ciao e grazie per la risposta
Ti riferisci ad 'esempio di automazione con MS Word'?
Sinceramente non c'ho capito molto........:-)
Mi chiedo:
è possibile che nn esista un modo per automatizzare l'esportazione di TUTTE
le pagine di un report in formato word (meglio ancora, in acrobat), non in
un unico file, ma in tanti files diversi costituiti ognuno da una pagina del
report?
Mi serve una cosa del genere, perchè fino ad oggi lavoro così:
visualizzo il report (ad es. 100 pagine, di 100 diveri prodotti); lo esporto
in acrobat (1 file di 100 pagg.); estraggo pagina X pagina, rinominandola
con il nome del prodotto.
Spesso devo apportare piccole modifiche alla struttura del report e quindi
ogni volta devo rifare la stessa trafila.
Dovrei trovare un modo per creare utomaticamente 100 files .pdf in una
cartella, ognuno formato da una pag. del report che prendano in nomi ad es.
da un campo della query sulla quale si appoggia il report. E' possibile?
Grazie ancora per l'interessamento.
Giancarlo.

adesso ho capito....è più semplice di quello che pensavo
gira il problema, crea un report per ogni prodotto e salvalo in
formato pdf 
fai un ciclo sui prodotti e lanci il salvataggio del report di quel
prodotto (filtro) in formato Word o PDF
per il pdf vedi su 
sitocomune.com
 devi stampare su una stampante
vistuale pdf il report vedi anche 3d precedenti
Saluti.
Emanuele.

 adesso ho capito....č piů semplice di quello che pensavo

Se faccio il cilclo sui prodotti (ammesso che sia in grado...:-)), ogni
volta che si apre la finestra di dialogo 'salva con nome' propone sempre
'report1', mentre vorrei esportare direttamente i files con il nome preso
dal campo della query1 di appoggio.
Credi si possa fare?
Grazie.
Giancarlo



penso di si bisognerebbe spulciare l'help in linea vedi le istruzioni
di outputto se non ricordo male
Saluti.
Emanuele.
Newsgroup: it.comp.appl.access
Titolo: Sql qury

Ciao a tutto il NG
Vorrei un vostro parere sul mio modo di creare le query parametrica con A97
in VBA.
Generalmente dimensiono una variabile querydef (es. qdf) ed una recodset
(es. rst).
definisco la query con
set qdf=currentdb.createqurydef("",stringa_sql)
qdf.parameters(quelli che sono)=quello che è
qdf.parameters(quelli che sono)=quello che è
.....
set rec=qdf.openrecordset()
Esiste un modo migliore?
c'è il modo di sfruttare una query parametrica già salvata invece di
passarla ogni volta e crearla (seppur temporaneamente)?
Ciao
--
Dr. Andrea Bianchi
e-mail - 
bian...@inwind.it

 ha scritto nel messaggio
news:YZyT8.87432$j65.2...@twister1.libero.it...

Ecco qua come devi fare:
set qdf=currentdb.QueryDefs("NomeDellaQueryDefSalvata")
... il resto rimane uguale
ciao.
Newsgroup: it.comp.appl.access
Titolo: OT Traduzione FAQ 8.9

*********************
8.9 Access e MySQL
Problem
You are looking for information about the use of Access as
frontend for a MySQL DB.
Solution
The connection Access - MySQL is possible via ODBC.
The ODBC driver and a lot of info about MySQL is available
at 
http://www.mysql.com
 (English). Use "Access" as search
term on the website to find a bunch of specific articles.
Jörg Ackermann's *script of his presentation "Access+MySQL"
at the 6th AEK* offers a practical indroduction. (German)
Phil Stiefel offers info about the cooperation with Access,
problems, bugs etc.
http://www.codekabinett.de/access_mysql
 (German)
***********************
Ho già omesso link in tedesco ma lasciato 2 perché
non conosco risorse in italiano su questo tema.
-- 
cu
Karl
*********
Access FAQ: 
www.donkarl.com/it
 + CISA1, Arezzo, 4+5/6/2005
la prima Conferenza Italiana per Sviluppatori di Access 

 non conosco risorse in italiano su questo tema.
--
rgrds
SC
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
Newsgroup: it.comp.appl.access
Titolo: report raggruppato per settimane

ciao a tutti
in un report che visualizza attività settimanali, ho necessità di
raggruppare i record (le attività) per settimana
es
settimana dal 19 al 25 maggio
settimana dal 26 al 30 maggio eccetera
il problema è dato dal fatto che questa indicazione non è associata ad
alcun campo di tabella, prescinde dalle date effettive delle attività
schedulate, le quali devono essere inserite nei raggruppamenti di cui
sopra
chiaro fui?
m.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 chiaro fui?
No, non lo fosti.
Da dove reperisti l'informazione sulla settimana?
Avesti forse una data di riferimento? in tabella?
O pensasti di inserire la settimana *a mano*?
:o)
Ciao.

 wrote in message
news:bb4knt$v9a$
1...@newsreader.mailgate.org

ehm.. ehm...
allora la tabella è grosso modo la seguente:
attività
risorsa
data_inizio
data_fine
alcune attività iniziano e terminano all'interno della stessa settimana,
altre durano diverse settimane, anche mesi.
il mio problema è raggrupparle per le settimane dell'anno 
nelle quali ricadono
se uso la funzione =Format([data_inizio];"ss") in una casella di testo
nella sezione Intestazione gruppo del reportino, ottengo un
raggruppamento
sulla base delle date presenti in tabella e non delle date assolute
a cui intendo riferirmi
vorrei un report del seguente tenore
settimana dal 5 al 9 maggio
     attività     data_inizio     data_fine
     divertimento 14/04/03        31/05/03
     eccetera eccetera
le date del raggruppamento per settimana prescindono dalle date
effettive
presenti intabella
mi spiegai stavolta?


 ha scritto nel messaggio
news:0afbeb3945bc95c7c9b...@mygate.mailgate.org...

Questo significa che la stessa attività compare in più settimane, tante
quante sono le settimane a cavallo delle due date.
Ho capito bene?

 Ho capito bene?
esattamente



Maurizio, per errore ti ho risposto anche in privato...
Buongiorno, ieri non ho più avuto tempo per rispondere.
Mi sembra un argomento interessante...
Allora, andiamo per ordine.
Direi che è difficile, avendo un solo record, poterlo stampare numerose
volte, tra le altre cose inserendolo in diversi gruppi.
Io farei così:
Mi creerei una tabella settimane con un unico campo numerico, chiamianolo
per semplicità settimana; la tabella conterrà 53 record e ogni record
rappresenterà la settimana.
A questo punto creerei una query che includa le tue attività e la tabella
settimana SENZA ALCUN JOIN: questo realizzerà una query come prodotto tra le
due tabelle. In parole povere la query restituirà 53 record per ogni
attività.
Nella query indicherei un filtro del tipo "where
DatePart('w';data_inizio1;1)<=settimane.settimana AND
DatePart('w';data_fine1;1)>=settimane.settimana"
A questo punto la query ti restituisce tanti record quante sono le settimane
in cui l'attività è presente e puoi fare un report raggruppandolo per
settimana.
Non so se mi sono spiegato bene...
Bye e buona giornata.
Newsgroup: it.comp.appl.access
Titolo: Report sottosopra

Ciao
ho la necessità di stampare un report "sottosopra" su delle buste in modo da
inserire queste con il lato chiuso verso l'interno della stampante, e di
poter leggere la busta con il lato aperto verso l'alto.
Qualcuno ha idea di come si possa fare?
Ho cercato nell'help dell'Access2000 ma senza successo.
Ciao
Dome

 ha scritto nel messaggio

Non e' piu' facile capovolgere la busta?
;-)
Sib
--
----------------------------------------------------
la mia home:
http://digilander.iol.it/syb
----------------------------------------------------
il sito comune di it.comp.database.access:
http://www.sitocomune.com
----------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente

 
Certamente, finora sta funzionando così, il problema è che già qualche busta
si è incastrata nella stampante perchè inserita dal lato aperto, cioè quel lato
che ha un lembo + lungo da poter poi ripiegare per chiudere la busta.
Ho dimenticato il saluto! Poi Antonio mi sgrida ;)!
Ciao
Dome
-- 
Posted from 
h213-32-67.rm1.albacom.net
 [213.213.32.67] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Ho dimenticato il saluto! Poi Antonio mi sgrida ;)!
... e si'! con Antonio non si scherza!

Newsgroup: it.comp.appl.access
Titolo: salvare un file microsoft document imaging senza richiesta di conferma

ciao a tutti,
attualmente produco dei report in access, e per poterli archiviare come
memoria storica faccio delle stampe viruali su file di formato MDI,
quindi utilizzando la stampante virtuale di office.
Dopo aver  settato la stampante uso il comando:
DoCmd.OpenReport "NomeReport", acViewNormal
l'unica cosa scomoda è che mi si apre una finestra in cui mi si chiede
la conferma di salvataggio del file.
E possibile eliminare questa richiesta di conferma?
P.S.
avevo provato anche ad utilizzare gli snapshot, ma purtroppo hanno il
problema che non posso unire più file diversi in un unico documento.
Qualcuno conosce un programma che può farlo?

 ha scritto nel messaggio 
news:1141052906.1...@e56g2000cwe.googlegroups.com...
ciao a tutti,


DoCmd.OpenReport "NomeReport", acViewNormal



[risposta]
Mah! Prova a cercare nei messaggi precedenti la parola PDF (se può 
interessarti)...
Ciao.
-- 
Sergio MAZZA 

 E possibile eliminare questa richiesta di conferma?
Quello che vuoi fare è realizzabile con un minimo di codice.
Se sul computer in cui è in esecuzione la tua procedura è installato anche 
"Office 2003 Document Image Writer", allora puoi utilizzare la sua 
interfaccia da VBA.
Da questo indirizzo
http://www.microsoft.com/downloads/details.aspx?familyid=7b6d9193-a1c8-4934-8007-47089fde37de&displaylang=en
puoi scaricare il file in formato HTML Help contenente la reference completa 
per gestire la stampante virtuale in questione.
-- 
PBsoft di Gabriele Bertolucci
www.pbsoft.it
Newsgroup: it.comp.appl.access
Titolo: PER NWRR [RE] Nascondere un pulsante


Ciao grazie per la risposta.
Se c'è un sistema per rendere l'archiviazione più flessibile e per più anni,
è perfetto.
Di seguito le operazioni che deve eseguire il pulsante dopo aver creato la
tabella:
DoCmd.OpenQuery "Anno_2002_Query", acViewNormal, acEdit
    DoCmd.OpenTable "Protocollo", acViewNormal, acEdit
    DoCmd.RunCommand acCmdSelectAllRecords
    DoCmd.RunCommand acCmdDeleteRecord
        DoCmd.Close acTable, "Protocollo"
       DoCmd.OpenTable "Ordinaria", acViewNormal, acEdit
       DoCmd.RunCommand acCmdSelectAllRecords
        DoCmd.RunCommand acCmdDeleteRecord
        DoCmd.Close acTable, "Ordinaria"
            DoCmd.OpenTable "Prioritaria", acViewNormal, acEdit
            DoCmd.RunCommand acCmdSelectAllRecords
            DoCmd.RunCommand acCmdDeleteRecord
            DoCmd.Close acTable, "Prioritaria"
                DoCmd.OpenTable "Raccomandate", acViewNormal, acEdit
                DoCmd.RunCommand acCmdSelectAllRecords
                DoCmd.RunCommand acCmdDeleteRecord
                DoCmd.Close acTable, "Raccomandate"
Questa e la query:
SELECT Protocollo.ID_Protocollo, Protocollo.Data_Spedizione,
Protocollo.Oggetto, Destinatario.Destinatario,
Destinatario.Destinazione_citta, Destinatario.Destinazione_via,
Destinatario.Note, Raccomandate.Numero_Raccomadate,
Raccomandate.Peso_Raccomandata, Raccomandate.Tassa_Raccomandata,
Raccomandate.Ricevuta_Ritorno_Raccomandata,
Ordinaria.Numero_Lettere_Ordinaria, Ordinaria.Peso_Ordinaria,
Ordinaria.Tassa_Ordinaria, Prioritaria.Numero_Lettere_Prioritaria,
Prioritaria.Peso_Prioritaria, Prioritaria.Tassa_Prioritaria INTO Anno_2002
FROM Destinatario INNER JOIN (((Protocollo LEFT JOIN Ordinaria ON
Protocollo.ID_Protocollo = Ordinaria.ID_Protocollo) LEFT JOIN Prioritaria ON
Protocollo.ID_Protocollo = Prioritaria.ID_Protocollo) LEFT JOIN Raccomandate
ON Protocollo.ID_Protocollo = Raccomandate.ID_Protocollo) ON
Destinatario.ID_Destinatario = Protocollo.ID_Destinatario;

ulteriori suggerimenti nel post precedente
Newsgroup: it.comp.appl.access
Titolo: ricerca record doppi

Prova con una Qry di ricerca Dupplicati, fa tutto quello che chiedi, il
risultato è un elenco che se nullo non ha trovato dupplicati, altrimenti
avrai i dati che ti servono relativi ai doppi.
La Qry si crea anche con l'autocomposizione e la puoi fare eseguire quando
richiedi il controllo (es. Pulsante ricerca dupplicati).
Ciao Alex.
-- 
Posted from 
smtp2.libero.it
 [193.70.192.52] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Ciao a tutti!
Avrei bisogno di sapere come si fa ad eseguire la seguente procedura:
Dopo l'inserimento di un numero in una casella di testo in una form vorrei
che automaticamente avvenisse un controllo su quel dato. Mi interesserebbe
sapere se questo unico o meno. Nel caso in cui esso non sia unico vorrei
visualizzare l'elenco dei records con quel campo uguale. Da notare che il
campo della tabella che contiene il numero è indicizzato e non duplicabile.
Come posso fare?
Grazie di tutto!
Matteo.

 ha scritto nel messaggio
news:Ki9s6.25404$6W.15...@news.infostrada.it...

Esegui una DLookup sul campo corrispondente in tabella. Vedi Help x maggiori
dettagli.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

 ha scritto nel messaggio
news:Ki9s6.25404$6W.15...@news.infostrada.it...

Ma scusa... se il campo e' indicizzato e non duplicabile, nella tabella
potrebbe esistere un solo altro record con quel valore nel campo. Quindi
visualizzare l'elenco dei records e' una pretesa infondata.
Newsgroup: it.comp.appl.access
Titolo: E' possibile (come dire ...) "sterilizzare" un evento ?

Supponiamo di avere una maschera M con dentro :
private sub current( )
  ...
end sub
Sappiamo che l' evento current( ) avviene *dopo* l' evento
open ( ) , quando la maschera si apre.
Allora la domanda e' :
e' possibile scrivere nell' evento open ( ) una piccola procedura
che *impedisca* il verificarsi dell' evento current( ) ?
Oppure, se cio' non fosse possibile, perlomeno impedire
che venga eseguita la procedura contenuta nell' evento
current( ).
Si lo so, si puo' fare banalmente settando una variabile
pubblica P a false e poi :
sub current ()
    if not P  exit sub
end sub
Ma fa schifo ... Abbiate pieta'.

 Ma fa schifo ... Abbiate pieta'.
Probabilmente quel codice non va su current?
Oppure e' il caso che ho citato (subform) che io risolvo "schifosamente" 
con una "on error resume next"
(*) Azz... non mi ricordo piu' se  il casino avviene sul form o sul 
subform. Ma tant'e' resume next e via.

Oppure e' il caso che ho citato (subform) che io >risolvo "schifosamente" con una "on error resume next"
No, non e' una subform, ma una form normale.
A propo', poi ti chiemo per stasera. Era stasera, no ?

 con una "on error resume next"
....cut
Probabilmente una delle schifezze più usate in ambito di programmazione.
Da me in primis.
:o))
Newsgroup: it.comp.appl.access
Titolo: Maschera e filtro report

Avrei un problema da risolvere con un database utilizzato in azienda.
Vi spiego il problema...
Ho la necessità di creare una maschera che pescando da una query mi evidenzi
in un campo il "codice articolo" e nell'altro campo una lista delle commesse
associate all'articolo selezionato.Una volta scelto l'articolo ed
evidenziate le commesse dovrei sceglierne una sola evidenziarla con una
spunta o selezione e tramite un invio esplodere il report del carico
macchine e avanzamento solo per la commessa prescelta.
Avrei bisogno del vostro aiuto,in particolarein due punti...come creare
l'elenco delle commesse associate all'articolo e come selezionare la
commessa di mio ineteresse ed associarla al report che poi vado a lanciare
con l'apposito tasto.
Grazie in anticipo per il vostro prezioso aiuto.

 ha scritto nel messaggio
news:gzC6c.77365$Kc3.2...@twister2.libero.it...

In parole mooolto povere in una maschera non assoociata devi inserire una
casella combinata che abbia come origine riga una query basata sulla tabella
Articoli: da tale casella combinata selezionerai il codice articolo.
Nella maschera devi inserire anche una casella di riepilogo non associata
che abbia come origine riga una query basata sulla tabella Commesse; tale
query deve essere parametrica e i suoi criteri debbono essere basati sul
valore della casella combinata.
A fronte dell'evento "Dopo aggiornamento" della casella combinata fai il
Requery della casella di riepilogo.
A fronte dell'evento "Su clic" della casella di riepilogo apri il report con
il metodo OpenReport e utilizzando l'argomento condizioneWHERE di tale
metodo (vedi help) filtra il report con la commessa che hai selezionato
nella casella di riepilogo.
E' molto più facile da fare che da raccontare.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:e%D6c.81283$FJ6.2...@twister1.libero.it...


Newsgroup: it.comp.appl.access
Titolo: A2010 cancellazione oggetti

Ciao a tutti,
 
ieri ho provato a creare il mio primo db con access 2010
 
Ne ho salvata una copia in formato mdb e una in accdb.
 
Ho creato una tabella ed una query semplicissime.
 
Ho notato che NON riesco ad eliminare, tagliare, copiare, incollare 
nessuno degli oggetti del db. In pratica le opzioni di menï¿œ sono 
disabilitate.
 
Ho w7 home edition 64bit e sono amministratrice del pc. Il db ï¿œ stato 
creato in una cartella temp dove ho tutti i diritti ed il full control
 
Cosa devo abilitare per poter agire su questi oggetti?
 
Grazie
Nicoletta


Scusate il disturbo, tutto risolto.
Ho aperto un altro db (uno qualsiasi in formato A2003), l'ho chiuso, ho 
riaperto il mio nuovo db e ora ho accesso alla cancellazione. Non so 
proprio perchï¿œ ma l'importante ï¿œ che funzioni al momento.
 
Nicoletta
Newsgroup: it.comp.appl.access
Titolo: Problema arrotondamento euro

Buongiorno a tutti, ho un problema: sul mio PC se arrotondo 0,125 euro mi
risulta 0,13 (come è giusto che sia) e su un altro PC con Win XP (e access
97) mi scrive 0,12.
Qualcuno sa dirmi qualcosa ?
--
Ciao e grazie, Fabio.

 Qualcuno sa dirmi qualcosa ?
FAQquozza gigante da 100 post/mese!!!!!!!!!!!!
Usa FormatNumber
Ciao
--
Timothy Redaelli

La funzione formatnumber c'č nel visual, ma per le query di Access come
faccio ?


Function arrotondaeuro(varNr As Double, Optional varPl = 2) As Double
' by Konrad Marfurt + ? + Karl Donaubauer + Fanton Emanuele
'varNr: numero da arrotondare
'varPI: numero di decimali (due predefinito)
varNr = Nz(varNr, 0)
   arrotondaeuro = Fix("" & varNr * (10 ^ varPl) + Sgn(varNr) * 0.5) /
(10 ^ varPl)
End Function
Saluti.
Emanuele.
Newsgroup: it.comp.appl.access
Titolo: ADODB.Commad - Access 97

Un buon giorno a tutto il N.G.
Da qualche tempo sono passata a studiare le librerie ADO
Ho una procedura che mi da qualche problema.
Devo passare dei parametri in input and una storedprocedure per ottenerne
uno in output.
Qui di seguito vi allego la procedura.
Function RitornaProg(Param1, Param2, Param3, Param4)
         On Error GoTo errore
         Dim AdoCmd As New ADODB.Command
         If Not VerCon Then          ' Verifico se sono connessa
            Exit Function
         End If
         Set AdoCmd.ActiveConnection = AdoCon
         AdoCmd.CommandType = adCmdStoredProc
         AdoCmd.CommandText = "ASSEGNA_PROGRESSIVO"
         AdoCmd.Parameters(0).Direction = adParamReturnValue
         AdoCmd.Parameters(1).Direction = adParamInput
         AdoCmd.Parameters(2).Direction = adParamInput
         AdoCmd.Parameters(3).Direction = adParamInput
         AdoCmd.Parameters(4).Direction = adParamInput
         AdoCmd.Parameters(5).Direction = adParamReturnValue
         AdoCmd.Parameters(1) = Param1
         AdoCmd.Parameters(2) = Param2
         AdoCmd.Parameters(3) = Param3
         AdoCmd.Parameters(4) = Param4
         AdoCmd.Execute
         RitornaProgProtocollo = AdoCmd.Parameters(5).Value
errore:
    Errori_RDO
    Resume Next
End Function
Riferimenti selezionati :
Vba for application;
Ms Access 8 Object Library;
Ms DAO 3.51 Object Library;
Ms Office 8.0 Object Library;
Ms Activev Data Objects 2.0 Library;
Ogni volta che la funzione viene eseguita viene visualizzato il seguente
errore:
Incompatibiltà tra tipi.
Dove sbaglio?
Un cordiale saluto.
Marika

 news:b200an$1gm$1...@grillo.cs.interbusiness.it...
[...]

    Dovresti anche dire su quale riga si ferma l'esecuzione... Esegui
passo-passo con F8 per saperlo.
    Cmq, ado a parte... la gestione degli errori della tua procedura va
corretta cosi':
        Function RitornaProg(Param1, Param2, Param3, Param4)
            On Error GoTo errore
            '
            ' Qui le istruzioni della funzione.
            '
            RitornaProg = ...
            Exit Function
        errore:
            '
            ' Qui le istruzioni da eseguire in caso di errore.
            '
            Resume Next
        End Function
(nota Exit Function e RitornaProg).
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

Il passaggio dei parametri non è automatico.
L'oggetto command non sa a priori quali siano i parametri che richieda la
SP.
Prima devi create per il tuo oggetto command i parametri e poi eseguire il
comando:
Dim prm As ADODB.Parameter
Set prm = AdoCmd.CreateParameter(<nome del parametro>, <tipo: vedi nella
giuda in linea>, adParamInput)
AdoCmd.Parameters.Append prm
prm.Value = <valore che vuoi dare al parametro>
(eccetera)
alla fine esegui il comando...
George

 ha scritto nel messaggio
news:b20ad7$17rl2u$1...@ID-52090.news.dfncis.de...
