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

COme si possono formattare i numeri all'interno delle query? il
problema è che la tabella di origine della query ha i numeri
formattati "Valuta euro", ma nella query risultano formattati in
"Valuta Lire" e poerdo i decimali.
grazie

 grazie
Non riesco a capire perchè, se non hai impostato niente di strano nelle
proprietà, il numero ti appare con valuta Lire; dovrebbe rimanere uguale a
quello della tabella. Comunque, prova a cliccare col tasto destro del
mouse sopra il nome del campo nella struttura della query e a selezionare
la voce "Proprietà" nel menù che ti appare; lì puoi selezionare il formato
(tra cui valuta) che sarà Euro, a meno che tu non abbia Lire nel formato
valuta di Windows.
TANNHAUSER
-- 
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: Simulare una query INSERT con ADO

Un aiuto...
Esiste in ADO un workaround efficiente per simulare questo risultato?
INSERT INTO tblLocale SELECT * FROM qryPassThrough 


Preciso che la tablella locale e la qryPassThrough hanno la stessa struttura
Con ADODB in Acc2003 vorrei in pratica ottenere questo risultato
1) aprire il recordset con lo statement qryPassThrough in modo 
"adAsyncFetchNonBlocking" in modo che l'utente non inizi a pestare la 
tastiera
2) riempire la tabella locale in modo da generare report abbastanza 
complessi in modo da liberare il server e lasciare che il client faccia il 
resto del make up
3) oppure riempire la tabella locale "a poco a poco" intercettando l'evento 
FetchComplete (cosa che faccio impostando il recordset della maschera con il 
recordet aperto asincrono)
Non so se mi sono spiegato.
Ma l'obiettivo č quello di non congelare Access e secondo evitare, se 
possibile, di ciclare il recordset fino a eof per popolare la tabella 
locale.
Grazie a tutti voi
Daniele

Newsgroup: it.comp.appl.access
Titolo: Visualizzazione campo di una query in maschera

Salve,
ho un database con le seguenti tabelle:
Pagamento: IdPagamento, Data, IdCliente, Importo
DettaglioPagamento: IdDettaglioPagamento, IdFattura, Totale, ImportoEvaso, 
IdPagamento
Cliente: IdCliente, Ragione Sociale, Partita IVA, Ecc.
Fattura: IdFattura, Data, Numero, IdCliente, ecc..
DettaglioFattura: IdDettaglioFattura, Quantità, Articolo, PrezzoUnitario, 
IdFattura
Ho inoltre una query che mi calcola il totale dell'imponibile di una fattura 
dal nome Calcolo totale fatture.
Mi sono creato una maschera con sottomaschera la quale contiente Data, 
IdCliente ed Importo della tabella pagamento e i campi IdFattura, Totale, 
ImportoEvaso del DettaglioPagamento
Per spiegarvi meglio devo aggiungere che la tabella dettagliopagamento è 
stata creata per specificare a quali fatture fa riferimento quel determinato 
pagamento e se sono state pagate totalmente o meno, nel caso in cui siano 
state totalmente pagate metterò la casella di spunta sul campo Sì/No Totale 
di DettaglioPagamento, in caso contrario (ovvero che di quella fattura sia 
stato dato solo un acconto) non metterò su questa casella nessun segno di 
spunta e l'importo dell'acconto verrà messo nel capo ImportoEvaso sempre 
della tabella DettaglioPagamento.
Siamo alla domanda: io vorrei mettere nella sottomaschera DettaglioPagamento 
un campo che mi indichi il totale di quella fattura prelevandolo dalla query 
Calcolo totale fatture... solo che appena lo provo a mettere non mi da la 
possibilità di aggiungere nessun dato nè nella maschera Pagamento nè nella 
sottomaschera DettaglioPagamento... posso risolvere il mio problema? E se si 
come?
Saluti, ringraziamenti e auguroni a tutti di un Felicissimo Natale SimoneB 

 SimoneB


Ho provato con la formula
=DLookUp([Espr1];[Calcolo totale fatture])
ma non mi funziona
Espr1 sarebbe il nome del campo dove è presente il totale fatture mentre 
Calcolo totale fatture è il nome della query dalla quale prelevare il 
dato... nella casella di testo mi da l'errore
#Nome?
Dove sbaglio?
Grazie di nuovo SimoneB

 SimoneB

Newsgroup: it.comp.appl.access
Titolo: Far scrivere da codice due caratteri in casella testo non associata

Salve,
se, in una casella di testo non associata, scrivo una qualsiasi parola,
come posso fare utilizzando un pulsante di comando a far scrivere due
asterischi a inizio e fine parola?
Vorrei ottenere questo risultato:
se scrivo "casa", vorrei che al click del pulsante il contenuto della
casella di testo diventasse "*casa*".
Se scrivo, nell'evento click del pulsante, il seguente codice:
Me!CasellaTesto = "*" & Me!CasellaTesto & "*"
ottengo solo i due asterischi nella casella, senza la parola che avevo
scritto.
Il problema, credo, sussiste proprio in quanto la casella di testo non
è associata, e quindi, anche se scrivo una parola, da codice la
casella viene vista comunque come vuota.
Come posso risolvere?
Grazie.


Me.casellatesto = "*" & me.casellatesto.text & "*"
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

Grazie.
Prego
-- 
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------

 Info:  
www.donkarl.com/it
-- 


 -----------------------------------------------
Ciao Roberto,
la riga di codice consigliatami da MA funziona perfettamente. Mi ha
risolto il problema.
robb


robb
-- 
Roberto
-----------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: Caselle di controllo

Salve, ho una maschera "Automezzi" dove ho messo nella Tabella di
provenienza, con IDAutomezzo e una ventina di Caselle di controllo per
assegnare il tipo di manutenzione da fare al singolo mezzo;
poi ho creato una Maschera "Manutenzione", da Tabella Manutenzione,
con IDManutenzione e IDAutomezzo collegata alla prima tabella, e poi
le "stesse" Caselle di Controllo che selezionerò a lavoro eseguito.
Vorrei che nella maschera "Manutenzione" fossero Disabilitate le
Caselle che non sono state assegnate a quell'Automezzo.
Come posso fare, Grazie.

 Come posso fare, Grazie.
Ciao, vediamo se ho capito bene con un esempio:
se la macchina è diesel avrà "controllo iniettori" se è a benzina avrà
"controllo carburatore" ?
Se è così io farei:
sull'evento corrente della maschera Manutenzione vai a verificare ogni
singola casella nella tabella automezzi. Se la casella è prevista
rendi visibile (o abilitata) la casella nella maschera, altrimenti la
rendi invisibile (o disabilitata).
Il test lo puoi fare con la funzione  tipo
DlookUp("Chck1","Automezzi","Intermezzo=" & me!Intermezzo)
Un'altra alternativa potrebbe essere quella di dare un codice alla
tipologia di automezzo (se possibile),
mi spiego: le vetture tipo 1 sono diesel ed hanno i check 1,3,4,7,9
                      tipo 2 sono a benzina ed hanno i check 1, 2,3,
5, 8
                      e così via.
E' ovvio che questo ha senso se i tipi sono pochi. Anche in questa
ipotesi, sull'evento corrente vai dire quali sono i check attivi e
quali no.
Spero di essermi fatto capire.
Ciao
Alberto

 Come posso fare, Grazie.
Avendo cura di chiamare i ckeck in modo progressivo id (ck01, 
ck02,....cknn) sia sul form princbale che sul subform
Portare sulla form principale i check di controllo del tipo automezzo 
(anche non visibili)
sull' current (corrente) le seguenti istruzioni (il subform lo ho 
identificato come subManutenzioni).
Private Sub Form_Current()
Dim i As Long
For i = 1 To numerodeicheckdimanutenzione
     handleCk Right("0" & i, 2)
Next
End Sub
Sub handleCk(pi As String)
subManutenzioni.Form("ck" & pi).Enabled = Me("ck" & pi)
End Sub
--
ac


wrote:

Ottimo, molto più elegante...
Alberto

Grazie 1000, sono idee brillanti tutte e due ;-)
ho optato per la prima soluzione e funziona bene... :-)
Vi ringrazio per avermi insegnato qual’cosa di nuovo :-D
Marco

Ciao, volevo provare anche la tua soluzione ma credevo fosse più
chiara, perdona la mia inesperienza, tento di spigarmi meglio con un
esempio:
Tabella AUTOMEZZI:
IDautomezzo, Targa, CKgomme, CKelettronica, CKmotore, CKtubi
Tabella MANUTENZIONE:
IDmanutenzione, IDautomezzo, Data, Targa, CKgomme, CKelettronica,
CKmotore, CKtubi
Se un automezzo non ha i “tubi”, vorrei defleggare il controllo CKtubi
dalla maschera Automezzi di quel mezzo cosicché quando andrò ad aprire
la maschera Manutenzione e aggiungerò un nuovo record troverò
disabilitato quel controllo di quel mezzo.
Grazie ancora
Newsgroup: it.comp.appl.access
Titolo: Re: Quale Allenatore per il rilancio?

 bene
A tal proposito mi chiedo sempre come non si siano stancati *i tifosi* di 
Fergusson

 Fergusson
Per il rilancio propongo Zio Billy!    ;-)

 Per il rilancio propongo Zio Billy!    ;-)
in casi come questi io di solito mi affido ad un sano
me.requery... ;-)
F.
Newsgroup: it.comp.appl.access
Titolo: Evento su tasto invio

Ho una maschera in foglio dati, quando si preme "invio" voglio aprire 
un'altra maschera. Ho messo tutto nell'evento su tasto giů controllando che 
il tasto sia chr(13).
Va tutto bene, l'unico piccolo problema č che il fuoco passa al campo 
successivo della sottomaschera. C'č modo di evitarlo?
Grazie.


Peccato che non vuoi rivelare il tuo codice.
Di solito basta aggiungere
KeyCode = 0
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 KeyCode = 0
Funziona, però così disabilita completamente i tasti freccia della maschera 
chiamante.
Grazie. 

 maschera chiamante.
Non ti capisco. Intendevo questo:
If KeyCode = vbKeyReturn Then
    KeyCode = 0
    DoCmd.OpenForm "miaform"
End If


 End If
E' quello che ho fatto, seguendo il tuo consiglio. E funziona. Perň dopo mi 
blocca i tasti freccia, non funzionano piů.

 Però dopo mi blocca i tasti freccia, non funzionano più.
Come già scritto: Non ti capisco. ;-)
Il codice di soppra non ha niente da fare con i tasti freccia.
Forse nella tua maschera o applicazione c'e altro codice che
è in gioco.
-- 
cu


 è in gioco.
Ho tolto tutto. Ho fatto una prova lasciando solo questo su ogni campo della
maschera in foglio dati:
Private Sub miocontrollo_KeyDown(KeyCode As Integer, Shift As Integer)
    Call apri_suinvio(KeyCode)
     KeyCode = 0
End Sub
Function apri_suinvio(tasto_premuto)
   If premuto= 13 Then
        MsgBox "ok"
    End If
End Function
Se metto KeyCode = 0, subito dopo la prima chiamata alla funzione i tasti
freccia non funzionano più. Se non lo metto, quando premo invio il focus si
sposta al campo successivo.
Ciao e grazie per la pazienza.

 End If
Dove KeyCode = 0 dipende del If KeyCode = vbKeyReturn.
-- 
HTH


 Dove KeyCode = 0 dipende del If KeyCode = vbKeyReturn.
Grazie sei veramente gentilissimo.
Newsgroup: it.comp.appl.access
Titolo: Collegamento a immagine

Salve a tutti,
espongo il mio problema:
devo fare una tabella dove vengono descritti tanti articoli.
ad ogni articolo devo far associare un'immagine in formato gif (forse opto
per jpeg)
ho pensato di creare un campo olè dove manualmente l'operatore va ad
inserire l'immagine manualmente e la inserisce con l'opzione collegamento.
Il tutto funzionerebbe
Problema
1° - si ingrandisce in maniera spropositata il DB es. la foto in formato gif
da 90 Kb mi fa crescere il DB di 300 Kb, immagina te se ne metto 1000....
2° - l'opertatore è talmente imbranato che poi mi fa confusione.....
Ho pensato: faccio salvare le immagini sempre con una tipo di nome che
corrisponde al numero di codice dell'articolo es. 1220.gif nella cartella
C:\Documenti\Immagini
poi vorrei creare un controllo (Nome controllo es: Image) nella maschera
(maschera singola) che possa andare a confrontare il campo codice articolo
(Nome controllo es: CodArt)  dove troverà scritto 1220 e vada a visualizzare
il file grafico 1220.gif nella cartella C:\Documenti\Immagini
è possibile?
p.s. me disperato... non conosco un' H di codice
se gentilmente sapreste farmi eventualemte un piccolo esempio...
grazie infinite
Vittò

 ha scritto nel messaggio
news:ah6379$57j$1...@fe2.cs.interbusiness.it...

che c'era di sbagliato con la precedente risposta?
MAssimiliano

 ha scritto nel messaggio
news:ah6379$57j$1...@fe2.cs.interbusiness.it...

Se non vuoi che il Db venga troppo grosso, ti conviene memorizzare il
percorso della foto, e poi andare a visualizzarla in un campo con
l'istruzione
Me![Immagine].Picture = Me![Path]
In questa maniera viene memorizzato solo il percorso della foto che poi
andrai a riaprire in una casella (nell esempio chiamata "immagine").
Enrico Pietrobon

 andrai a riaprire in una casella (nell esempio chiamata "immagine").
aggiungo.. scegli l'opzione che l'immagine debba essere collegata e non
incorporata

esempi su 
sitocomune.com
come implementare un archivio immagini
Saluti.
Emanuele.
Newsgroup: it.comp.appl.access
Titolo: Report e totali

Salve,
ho realizzato un programma per farmi le fatture.
Tramite l'istruzione page=pages ho fatto in modo che, in caso di fatture 
piï¿œ lunghe di una pagina, mi riporti il totale solo nell'ultima pagina 
del report, mentre metta nelle altre la parola "segue". E fin qui tutto ok.
Poi, tramite una casella di riepilogo agganciata ad una query di 
selezione, mi posso stampare, mese per mese, tutte le fatture, una di 
seguito all'altra, ma non riesco a trovare un modo per stampare il 
totale a fine di ogni fattura e il "segue" in tutte le altre.
Chi mi da un suggerimento?
Grazie a tutti
 
Il Giova

 a fine di ogni fattura e il "segue" in tutte le altre.
 
cio� la stampa ti funziona quando stampi una singola fattura,ma non ti
funziona quando stampi pi� fatture insieme?
 
 
 
 
 


Si, esatto.
Avevo pensato di fare una routine sull'evento di apertura report che 
scorresse tutte le pagine del report e scrivesse su una tabella 
temporanea il numero della fattura e la pagina. Poi con una query 
trovavo per ogni fattura la pagina piï¿œ alta e facevo comparire il totale 
solo in corrispondenza di questi, ma mi sembra troppo macchinoso!
Grazie!
 

 Grazie!
 
 
Immagino che il tuo report sia raggruppato per numero fattura, quindi invece
di stampare il totale nel pi� di pagina report stampalo nel pi� di pagina 
del
gruppo che nel tuo caso � il numero fattura.
Quanto al numero di pagine, reimpostalo a 1 per ogni intestazione fattura. 
 
 


 
Ok per il totale. Volevo perï¿œ mettere la parola "segue" al posto del 
totale e non sapevo come fare.
Grazie al tuo suggerimento ho trovato poi questo :
 
http://support.microsoft.com/kb/131937/it
 
 
e ho risolto!
Grazie ancora!

Newsgroup: it.comp.appl.access
Titolo: La grande Guida di Access 7.0 in italiano

Salve a tutti.
Ho trovato un asta su eBay molto interessante... eh eh eh:
http://cgi.ebay.it/ws/eBayISAPI.dll?ViewItem&item=3634062108&category=182&rd
=1
Ciao
vuLCan

 ha scritto nel messaggio
news:17ymb.351680$R32.11...@news2.tin.it...

Visto che si riferisce ad Access 95 (versione non molto usata), penso che
abbia solo un valore per un collezionista. ;-)
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Select Case!!

Ciao a tutti,
ho questa Routine sull'apertura di una maschera per autenticare
l'accesso:
Private Sub Form_Open(Cancel As Integer)
Dim nome
nome = InputBox("Inserisci la tua password per l'autenticazione
Utente:")
Select Case nome
Case "mario"
MsgBox ("Ciao, " & nome & " sei autorizzato ad accedere alla
maschera")
Case "giovanni"
MsgBox ("Ciao, " & nome & " sei autorizzato ad accedere alla
maschera")
End Select
End Sub
Cosi però ho 2 problemi che dovrei risolvere:
1-Non so con la Case come specificare che gli altri nomi non possono
accedere (ovvero come si scrive la parte "else")
2-Con la inputbox ho i pulsanti OK e Annulla e quando apro la maschera
se l'utente preme "annulla" la maschera si apre ugualmente
"bypassando" i controlli specificati nella routine!
Potete aiutarmi?
Via ringrazio

 ha scritto nel messaggio news:1181904676....@u2g2000hsc.googlegroups.com...


Potete aiutarmi?
Via ringrazio
___
case else
cancel = true

 ha scritto nel messaggionews:1181904676....@u2g2000hsc.googlegroups.com...

grazie perfetto buona giornata a tutti

Newsgroup: it.comp.appl.access
Titolo: per togliere i pulsanti di access in alto a destra "Riduci a icona" Rirpistina e Chiudi "X"

nel modulo ho dichiarato le seguanti
----------------------------------------------------
Private Const GWL_STYLE = -16
Private Const WS_SYSMENU = &H80000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As
Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Public Sub LockAppWindow(fForm As Form)
    ModifyAppWind fForm.hwnd
End Sub
Private Sub ModifyAppWind(wChildWnd)
End Sub
----------------------------------------------------------------------------
--
nel codice utilizzo
LockAppWindow Screen.ActiveForm
ma di da il seguente errore
la finestra deve essere la finestra attiva
mi sapreste aiutare? grazie.


Un esempio per togliere i pulsanti della maschera di access con
l'utilizzo delle API lo puoi trovare sul sito Comune
(
http://www.sitocomune.com
) , nella Sezione General "Eliminare i
Pulsanti di Controllo di MSAccess, utilizzando le API."
Ciao BB

 ha scritto nel messaggio
news:3d2a9d4b...@powernews.infostrada.it...

infatti proprio quello utilizzo, booo! ora lo riscarico e riprovo, si vede
che ho fatto qualche errore. grazie.
Newsgroup: it.comp.appl.access
Titolo: Ottenere lo USER NAME COMPLETO

Salve a tutti ragazzi/e
ho visto l'aggiornamento del SITO COMUNE, ed ho trovato interessante le
informazioni del cap. 6.171 WMI - SystemInfo (Informazioni sul Sistema
Operativo).
Qualcuno di voi sa aiutarmi nel rintracciare le informazione dello User
(in particolare lo User Name completo [FullName]), sempre utilizzando
WIN32, o tramite altre strade?!
Grazie e complimenti per gli ultimi aggiornamenti del SITO COMUNE,
puntuali e precisi!!
Ciao,
Carlo
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 utilizzando WIN32, o tramite altre strade?!
http://www.mvps.org/access/api/api0066.htm
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 + CISA1, Arezzo, 4+5/6/2005
la prima Conferenza Italiana per Sviluppatori di Access 

 
http://www.mvps.org/access/api/api0066.htm
Interessante Karl, ma nelle note dice che funziona solo per NT/2000:
Function fGetFullNameOfLoggedUser(Optional strUserName As String) As String
'
' Returns the full name for a given UserID
'   NT/2000 only
' Omitting the strUserName argument will try and
' retrieve the full name for the currently logged on user
Infatti non mi funziona perchè ho WIN XP. 
Ci sono altre soluzioni?!
Grazie 1000


"Carlo." <N...@Spam.com> ha scritto nel messaggio 
news:d2h7uu$jmn$1...@news.newsland.it...

Ciao Carlo,
vedi che funziona il codice di Karl...le librerie sono presenti anche in 
windows xp...basta che copi ed incolli tutto quanto all'interno del frm e 
poi per verificae puoi aggiungere un pulsante e quindi all'interno del click
ret = fGetFullNameOfLoggedUser
MsgBox ret
Gaspare 

 Gaspare
Provato, 
funziona egregiamente!
Grazie Karl!
Grazie Gaspare!
Carlo


 Gaspare
Provato, 
funziona egregiamente!
Grazie Karl!
Grazie Gaspare!
Carlo


 in windows xp...
Sě, l'articolo č piů vecchio che WinXP. Ho scritto a Dev e Arvin
di aggiornare il commento.
-- 
cu


 di aggiornare il commento.
...e Arvin l'ha fatto.


 Carlo
In un modulo di classe:
-------------------------------------------
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" 
(ByVal lpBuffer As String, nSize As Long) As Long
-------------------------------------------
In OnClick di un Button:
---------------------------------
Dim nomeutente As String
Dim strBuffer As String
Dim lSize As Long
Dim lRetVal As Long
     strBuffer = String$(255, 0)
    lSize = Len(strBuffer)
    lRetVal = GetUserName(strBuffer, lSize)
    nomeutente = Left$(strBuffer, lSize - 1)
MsgBox nomeutente
----------------------------------
Non è farina del mio sacco e non ne ricordo l'autore.
Bruno 

 di aggiornare il commento.
Ok Karl, Grazie !
Carlo.


 Bruno
Grazie per la segnalazione Bruno, ma con GetUserNameA restituisce solo il
nome dello user (che di solito è abbreviato) e non il nome completo
(nome+cognome)

Newsgroup: it.comp.appl.access
Titolo: Funzione Format

Ho un mdb versione 2000, dove provo a fare l'autocmposizione di quna query a campi incrociati, ma quando la chiudo e 
mando in esecuzione mi errore: Funzione Format non definita nell'espressione. Da cosa può dipendere?
 
Questo è il risultato che ha scritto nell'sql:
PIVOT "Trim " & Format([Data],"q");
 
-- 
Greg

Il 06/05/18 10:35:44 Greg ha scritto:

Aggiungo che non dipende da una cattiva installazione di Access in quanto su altri files mdb la Format fa il suo lavoro 
correttamente. Ho già compattato e ripristinato ma il poblema persiste. Cos'altro potrei controllare? Grazie
 
-- 
Greg

 PIVOT "Trim " & Format([Data],"q");
 
Provato a mettere punto-e-virgola al posto di virgola? 
 

Salve,
 
Greg:

http://www.donkarl.com/it?FAQ7.1
 
 
-- 
Ciao
Karl
*********
http://www.AccessDevCon.com
 
Access FAQ: 
http://www.donkarl.com/it
 

 
http://www.donkarl.com/it?FAQ7.1
 
 
Come sempre, grazie :)
 
-- 
Greg

Newsgroup: it.comp.appl.access
Titolo: Evitare il messaggio "L'azione Open Report è stata annullata"

Come da oggetto quando si intercetta l'evento Report_Nodata e si imposta
cancel=true.
Grazie

 Grazie
Hai provato con: DoCmd.SetWarnings False
@Alex
-- 
Posted from  [62.98.108.1] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Grazie
Prima del comando docmd.openreport scriverai
on error goto next per far sě che su errore vada semplicemente avanti
e dopo il comando openreport
on error goto 0 per ristabilire la gestione degli errori
Antonio

 @Alex
Occhio Alex- Disabilitare i warnings equivale a premere ok automaticamente
ogni qual volta c'è una msgbox di sistema che chiede conferma.
Nel caso in esame invece si parla di gestione degli errori!!!
Antonio

 Antonio
YES....!!
Hai ragione, ma nel caso in questione mi pareva che il semplice NoData potesse
essere considerato piů che unavera gestione errori un'intercettazione
all'apertura
che anche senza Warning poteva andare....!
Ho dimenticato qualche considerazione.....???
Grazie ciao Antonio.
@Alex
-- 
Posted from  [146.133.1.30] 


 Ho dimenticato qualche considerazione.....???
Sě. Che l'evento no_data di per sč non genera errori, lo genera quando tu
hai aperto il report non premendo il pulsante anteprima, ma quando lo fai da
codice, con il docmd.openreport.
In quel caso, fare il cancel per no_data genera un errore che puoi gestire
in maniera trasparente come avevo scritto.
Antonio

 Antonio
Si, hai ragione, non mi era mai capitato, e quindi davo per scontato
la cosa....
Ti ringrazio per la chiarissima spiegazione.


 > in maniera trasparente come avevo scritto.
Giustissimo. Se invece vuoi evitare di impostare i warnings a false, con i
rischi che Antonio ti indica, gestisci l'errore con "on error goto" ed
intercetta l'errore annullamento.
Newsgroup: it.comp.appl.access
Titolo: A me il Requery non convince...

ma scusate un attimo perchè il Requery su una Form non funzica un
tubo????
ho la mia bella form di riepilogo record e ha un pulsantone con su
AGGIUNGI 
lo schiaccio mi si apre la Form di inserimento nuovo record
poi chiudo e dico alla form di riepilogo Su Attivazione esegui
Me.Requery
e la form non si smuove di una virgola....
ma se la chiudo e la riapro allora gh'è tus cos (c'è tutto)
cazzolina ma perchè mi sono studiato e ristudiato tutto il SitoComune
ma un tubazzzz
chnnedite?
ciao
a 
tutti
e grazie
david

 ha scritto nel messaggio
news:3ba8d3a5...@News.CIS.DFN.DE...

è vero anche io ho avuto un problema analogo, ho fatto in modo non troppo
elegante per il vero: chiudi la maschera corrente e apri la maschera di
inserimento. Chiudi la maschera di inserimento e apri la maschera di prima.
by
stwe

 ma se la chiudo e la riapro allora gh'è tus cos (c'è tutto)
Prova a fare la requery sull'evento chiusura della maschera di inserimento,
chiaramente usando la sintassi
forms("maschera riepilogo").requery
e dopo aver effettivamente salvato il nuovo record
Antonio

 e la form non si smuove di una virgola....
CUT
Come sottointende Antonio, puo' capitare che l'evento Attivazione della
maschera si verifiche prima che la maschera di inserimento abbia il tempo si
salvare il record inserito. Prova anche a forzare il salvataggio del record
inserito prima di chiudere la maschera di inserimento.
Sib



si questo l'ho fatto già, in effetti ho notato una differenza notevole
a fare come dice antonio...sembra che funzichi...devo sistemare un
paio di elementi ancora e confermo....
grazie a tutti
david

 wrote in message
3bac297...@News.CIS.DFN.DE...


Apò, "sembra che funzichi..."
E certo che funziona!!!!
Anvedi....
Antonio

Newsgroup: it.comp.appl.access
Titolo: Access - Numero max di record

Scusate se pongo una domanda alla quale forse qualcun altro ha già risposto,
ma è la prima volta che mi affaccio su questo ng.
C'è una limitazione max di records per Access97 o è solo un problema di
spazio disco?
grazie

spazio disco?
la limitazione e' sulla dimensione del file mdb.  un singolo file mdb
non puo' essere piu' grande di 1 giga per access 97 e 2 giga per
access 2000.  se questo limite viene superato si genera un errore.
all'interno di questo limite puoi avere quanti record vuoi.
ovviamente, come gia' osservato altrove, siccome un record almeno un
byte lo dovra' pur occupare, i limiti numerici sono un miliardo circa
e due miliardi circa di record.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
Newsgroup: it.comp.appl.access
Titolo: diverse prestazioni docmd.runsql e recordset

Buongiorno a tutti, 
 
qualcuno sa spiegarmi perché docmd.runsql è molto meno prestante dell'utilizzo di un recorset?
 
Grazie.


Magari se metti due esempi che ti danno le notevoli differenze di 
prestazioni, qualche analisi si potra' fare
Ma senza nessuna indicazione, l'e' fadiga


in pratica leggo un file di testo con 17000 righe
 
nel ciclo while che scorre le righe
se c'è docmd.runsql (INSERT INTO ..... ci mette anche un minuto
se c'è l'utilizzo del recorset con rs.assnew è praticamente istantaneo
 
 
 
 
 
 
 
 
 
 
 
 
 


https://www.access-programmers.co.uk/forums/threads/fast-code-sample.327019/
 
 
Discussione che potrebbe aiutare, anche a migliorare il ciclo col recordset
 
Magari per i test usa quelle funzioni tipo MicroTimer cosi' hai delle 
misure precise sui tempi, perche' "praticamente istantaneo" vuol dire niente
 

 se c'è docmd.runsql (INSERT INTO ..... ci mette anche un minuto 
 
Che di così affascinante RunSQL da essere usato spesso e volentieri al posto del metodo Execute di un oggetto Database?
Non lo capirò mai. Execute è "perfetto", non ci sono warnings da disattivare-riattivare, lo si inserisce in una transaction e con il parametro dbFailOnError in caso di errore è tranquillamente reversibile.
 
Come ha detto RobertoA "l'è fàdiga" darti qualche suggerimento. Per prima cosa servirebbe il codice "completo" per vedere un po' tutto.

Il 31/07/2023 18:19, mario rossi ha scritto:

Ai fini miglioramento prestazioni, un tentativo anche inserendo Il 
BeginTransaction/CommitTransaction lo farei, giusto per curiosita


Certo! se solo sapessi di cosa si tratta? O_O
Indagherò


ah metodo execute, cercherò qualche esempio, grazie.
ma quanti metodi ci sono per scrivere in un database? tanti a quanto vedo?

 ma quanti metodi ci sono per scrivere in un database? tanti a quanto vedo?
Beh... fondamentalmente 2: 
1) agire sul recordset in modifica o inserimento, un record alla volta; è quello che avviene ad esempio quando si compila una maschera in inserimento, modifica o cancellazione;
2) usare una action query, che sia di accodamento, creazione, aggiornamento o cancellazione. Poi ci sono più modo per eseguire la query (sia essa salvata come oggetto in quanto tale sia come stringa SQL in VBA). Quando si tratta di una action query però io trovo in tutti i modi diversi da Execute solo difetti e mancanze rispetto ad Execute: esempio tipico ma non solo è la gestione dei Warnings... perché doverlo fare quando c'è un modo che non li disturba? Restituisce anche il numero dei record interessati dalla query, che gli altri modi di eseguire una action query non hanno. Insomma... fa tutto, di più e meglio ed è perfetto per essere inserito in una Transaction. Execute tutta la vita.
 
Se vuoi dare un'occhiata ai vari sistemi qui trovi un breve confronto:
https://www.fmsinc.com/microsoftaccess/query/action-queries/SuppressWarningMessages.htm
 


Grazie per la risposta molto completa.
Newsgroup: it.comp.appl.access
Titolo: Affidabilità e dimensioni di un db

Ciao a tutti!
Volevo un'informazione riguardo l'affidabilità per un'azienda di avere un
database che gestisca sia i dati dell'ufficio commerciale che dell'ufficio
tecnico.
Access può supportare tutte le informazioni? La dimensione per singolo DB
è 4 GB?
Altrimenti come mi consigliate di muovermi?
Grazie mille!
Royan
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Royan
Un solo DB non gestisce 4Gb, ma cmq anche dividendolo per più db, ti
consiglio di considerare SQLServer (anche l'express 2005) come backend e
Access come frontEnd
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 Altrimenti come mi consigliate di muovermi?
Come già ti ha detto MA, Access (come anche SQL Server e quasi tutti i 
motori di database) non gestiscono singoli database di 4Gb (ma gestisci i 
movimenti annuali del gruppo auchan?)
la massima dimensione di un singolo database è di 2Gb.
Nulla toglie però di utilizzare, anche contemporaneamente, svariate basi di 
dati col risultato che le dimensioni complessive sono ben al di sopra dei 
4Gb.
In termini di prestazioni, sicurezza e affidabilità della base dati si può 
dare un 7,5 ad Access da solo e un 9 a SQL Server (10 per principio non lo 
dò mai)
La soluzione tramite SQL è più sicura perchè gli utenti non hanno accesso al 
file che contiene il db, ma solo ai dati contenuti e secondo gli specifici 
criteri di protezione, inoltre un problema di crash della rete può mettere 
in crisi un db access ma certamente non un db SQL il quale non condivide 
file in rete ma riceve istruzioni e restituisce risultati e quindi il file è 
sempre fermo sul server.
Qualunque base dati tu intenda adottare, Access è probabilmente (ma in 
realtà penso "sicuramente") il migliore front-end attualmente esistente sul 
mercato e mi sento di conscigliarlo in tutta coscienza.
Davide
-- 
www.gestionedati.com
Newsgroup: it.comp.appl.access
Titolo: espressione digitata non correttamente e oggetto non valido o non impostato

Ciao a tutti
 
ho una query dinamica, è in questo punto...
IIf(strCtrl = "Fornitore", " Or Id" & strCtrl & " Like " & strFiltro & strCtrl & "Fatt", "")
se sostituisco Like con "=" in questo modo...
IIf(strCtrl = "Fornitore", " Or Id" & strCtrl & " = Nz(" & strFiltro & strCtrl & "Fatt, 0)", "")
 
ho questi errori:
errore 3071:
espressione digitata non correttamente o troppo complessa per essere valutata ecc. ecc.
e l'errore 3420:
oggetto non valido o non impostato
 
Chissà perchè?
Grazie per la spiegazione


Gli SPAZZI... mancano...? [Domanda retorica... mancano]
 
@Alex


grazie Alex
per quanto ho cercato non ho trovato spazi.
 
questo è il codice in questione
se puoi prova a darci un'occhiata
ancora grazie
 
  Dim strSql As String
  Dim CmpEmail As String
  Dim strForm As String
  Dim Opzione As String
  Dim NomeTabella As String
  Dim strFiltro As String
  Dim strCod As String, strCod1 As String
  Dim strCod2 As String, strCod3 As String
 
'-----------------------------------
  CmpEmail = fctCampiEmail(frm)
  strForm = Split(CmpEmail, "|")(0)
  Opzione = Split(CmpEmail, "|")(1)
'-----------------------------------
  NomeTabella = "TbEmail" & Left(strCtrl, Len(strCtrl) - 1) & IIf(strCtrl = "Agenzia", "e", "i")
  strFiltro = "Forms!" & frm.Name & "!Id"
 
  strCod = ""
  strCod1 = ""
  strCod2 = ""
  strCod3 = ""
 
  If strCtrl = "Cliente" Or strCtrl = "Fornitore" Then
    strCod = "EmailAgenzia & "
    strCod1 = "RIGHT JOIN (TbEmailAgenzie RIGHT JOIN TbInvioEmail ON TbEmailAgenzie.IdEmailAgenzia = TbInvioEmail.IdEmailAgenzia)"
    strCod2 = IIf(strCtrl = "Fornitore", " Or Id" & strCtrl & " Like " & strFiltro & strCtrl & "Fatt", "")
    strCod3 = " Or IdAgenzia = " & strFiltro & "Agenzia And OpzCliente_Fornitore" & IIf(strCtrl = "Cliente", " <> 0", " = 0")
  Else
    strCod1 = "INNER JOIN TbInvioEmail"
 
  End If
 
  strSql = "SELECT Id" & strCtrl & ", " & strCod & "Email" & strCtrl & " As Email, " & strForm & " " & "As InvioDoc," _
    & " Inv" & Opzione & " " & "As InvA" _
    & " FROM " & NomeTabella _
    & " " & strCod1 & " ON " & NomeTabella & ".IdEmail" & strCtrl & " = TbInvioEmail.IdEmail" & strCtrl _
    & " WHERE " & NomeTabella & ".Id" & strCtrl & " = " & strFiltro & strCtrl & strCod2 & strCod3 _
    & " ORDER BY Email" & strCtrl & ";"
 
  DBEngine(0)(0).QueryDefs("Qry_Email").SQL = strSql

Fai un DEBUG.PRINT strSql prima dell'assegnazione alla Query, poi vai nella finestra immediata(CTRL+G da VBA-Editor) e leggi il predicato analizzandolo BENE...
 
Questi metodi di DEBUG sono indispensabili, mi chiedo se li usi... 
 
Eventualmente posta per intero quanto rilevi nella Finestra Immediata del Debug.
 
@Alex


grazie Alex
Newsgroup: it.comp.appl.access
Titolo: supporto esterno 1


Grazie Massimiliano.......
Purtroppo appena eseguo la routin senza il supporto estraibile mi ritorna un
errore......"nome onumero di file errato"
Come faccio?

Non aprire altri 3d
MAssimiliano

 errore......"nome onumero di file errato"
Perchè hai aperto un altro thread invece di continuare nell'altro
scusa?!!?!?!?!?
Antonio

Newsgroup: it.comp.appl.access
Titolo: mail outlook con firma

ho il seguente codice per inviare una mail con office 2007:
Public Function InvioMAilMSO_non_express(a As String, Oggetto As String,
Corpo As String, Optional array_elenco_file As Variant)
 On Error Resume Next
 Dim objOU As Object
 Set objOU = CreateObject("outlook.Application")
 Dim objNewMail As Object
 Dim i As Integer
 Dim conoscenza, nascosto
 Dim blnResolveSuccess As Boolean
 'Dim olMailItem As Object
 Set objNewMail = objOU.CreateItem(olMailItem)
 With objNewMail
    If Not IsMissing(array_elenco_file) Then
      .Attachments.Add CStr(array_elenco_file), , , "allegato"
      '.Attachments.Add CStr("C:Documents and
Settingszmbgcm68h03d150kDesktop16922_0002.doc"), , , "allegato"
    End If
 
    .To = a
    '.CC = conoscenza
    '.BCC = nascosto
    .Subject = Oggetto
    .Body = Corpo
    .Display 'Visualizza il messaggio
    '.Send 'ISTRUZIONE EVENTUALE PER SPEDIRE IL MESSAGGIO
 
 End With
 Set objNewMail = Nothing
End Function
funziona tutto bene ma non mi mette la firma preimpostata in outlook nel
messaggio che crea
è possibile fare in modo che invece lo inserisca?
magari senza doverlo mettere nella variabile corpo della funzione?
ciao a tutti e buona giornata
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

tasso ha scritto:








è un problema irrisolvibile oppure capita solo a me...
magari non sono stato chiaro?



Mi sa che non è possibile inserire da codice la firma di Microsoft Outlook.
Ma perchè non l'aggiungi alla variable corpo?
-- 
Ciao
Geppo 

geppo ha scritto:



perchè è una firma abbastanza complessa con una immagine ecc. che è
predefinita dalla azienda
è una cosa un pò strana però che outlook non capisca che è un messaggio
nuovo e che quindi debba inserire la firma... non mi pare un gran che
questa cosa
ciao grazie comunque della risposta

Newsgroup: it.comp.appl.access
Titolo: Numerazione fattura

Ciao a tutti,
 mi sono ritrovato con il seguente problema:
1) Devo realizzare un database con access 2000 di fatturazione, ho
inserito la seguente funzione:
 ="" & Format(IIf(IsNull(DMax("[N_Fattura]";"[Tab_Fatture]";"[N_Fattura]
like '???/" & Format(Date();"aa") &
 "'"));1;Mid(DMax("[N_Fattura]";"[Tab_Fatture]";"[N_Fattura] like
'???/" & Format(Date();"aa") & "'"); 1;3)+1);"000") & "/" &
Format(Date();"aa")
funziona perfettamente, il mio quesito è :
E' possibile inserire davanti al N° Fattura una Lettera "A" o "V"
scelta da una casella opzioni, utilizzando la funzione sopra
 descritta. Le lettere "A" e "V" devono apparire davanti
al numero della fattura, ma ognuno deve avere una numerazione
progressiva indipendente.
ES. A001/03 - A002/03 ---- V001/03 - V002/03
 Grazie a tutti
 Michele

 ha scritto nel messaggio
news:803dba50.03060...@posting.google.com...

Si è possibile, ma occorre riscrivere la Funzione di Calcolo, in quanto
dovrebbe distinguere il DMAX(......) in modo Dipendente dalla 1°Lettera.
La cosa si complica un pochetto, ma è fattibile.
Tieni conto di inserire nella condizione DMAX oltre che quella esistente il
vincolo
alla prima Lettera del dato Left$(........)="A" oppure "V".
@Alex.

...

E qualcuno sapremme dirmi come impostare la formula che @Alex mi ha
proposto, o altra soluzione per il mio problema. Vi ringrazio
anticipamene.
Ciao Michele

 ha scritto nel messaggio
news:803dba50.03060...@posting.google.com...

Se il tuo Gruppo di opzioni si chiama TuaOpzione ed assume il valore 1 se
vuoi usare la lettera A ed il valore 2 se vuoi usare la lettera B, nel
valore predefinito del controllo N_Fatture prova a scrivere:
=IIf([TuaOpzione]=1; "A"; "B") & Format(IIf(IsNull( DMax("[N_Fattura]";
"[Tab_Fatture]"; "[N_Fattura] like '" & IIf([TuaOpzione]=1; "A"; "B") &
"???/" & Format(Date(); "aa") & "'")); 1; Mid(DMax("[N_Fattura]";
"[Tab_Fatture]"; "[N_Fattura] like '" & IIf([TuaOpzione]=1; "A"; "B") &
"???/" & Format(Date(); "aa") & "'"); 2; 3) + 1);"000") & "/" &
Format(Date(); "aa")
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

...

Tante grazie Roberto, e a tutto il NG per la risoluzione del mio
probblema spero di contracambiare in futuro.
Ciao Michele

Newsgroup: it.comp.appl.access
Titolo: Menu a tendina completamento istruzione

Salve, come da oggetto, quando scrivo del codice ad esempio: DOCMD.
(all'inserimento del punto appare il menu a tendina con i vari comandi) non
capisco come, ma da un paio di giorni nella mia macchina questo menu appare
un secondo dopodichč scompare. Sapete come risolvere il problema???
Grazie


Risolto, ho fatto un po di pulizia, Grazie.
Newsgroup: it.comp.appl.access
Titolo: Hanno aperto un NG pubblico access

ragazzi, stamattina...
microsoft.public.it.office.access
Ciao


scusa della domanda ma che differenza c'è
tra questo NG e quello pubblico?
grazie!
ringo

 tra questo NG e quello pubblico?
Questa discussione l'abbiamo già fatto qualche mese fa.
Leggi p.e. il thread che inizia con
http://groups.google.com/groups?&selm=iAof9.6233%24Oz2.120291%40twister2.libero.it
Ha scoprito l'acqua calda e postato un "primo" messaggio nel
altro NG che contiene un mille di post per la gente che usano
un altro server.
-- 
cu
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

...la gente che usano un altro server.
Brutto sbaglio, forse: ...che usa un server diverso

 microsoft.public.it.office.access
MECOJONS
Antonio

 Brutto sbaglio, forse: ...che usa un server diverso
Fosse solo questo lo sbaglio....!!!
"Ha scoprito l'acqua calda e postato un ......" (dal POST incriminato...)
SCOPERTO non scoprito........!!!  ;-)
Va beh, sapessi io il Tedesco come tu sai l'Italiano.......!!!!
Vedo però che migliori sempre, ora anche la cognugazione dei Verbi è
quasi perfetta......!!!
Ciao buona giornata....!
@Alex.

 Ciao
Ti sei accorto un po' tardino dell'apertura di questo NG; è stato aperto
qualche mese fa.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:ij%ha.521$nD4....@twister1.libero.it...

Quindi niente rinfresco...
Ciao.
--
Sergio MAZZA

 Sergio MAZZA
Per questa volta niente rinfresco per l'inaugurazione. :-)

Newsgroup: it.comp.appl.access
Titolo: Invio email da form

Per inviare una email da un form avente un campo [EmailDestinatario]
uso questo codice associato ad un pulsante.
Vorrei impostare però l'argomento e il testo predefinito, con una
frase standard, come posso fare?
Grazie
Private Sub Comando30_Click()
Dim strInput As String
On Error GoTo Error_GetUserAddress
strInput = "mailto:" + Me![EmailDestinatario]
Application.FollowHyperlink strInput, , True
GetUserAddress = True
Exit_GetUserAddress:
Exit Sub
Error_GetUserAddress:
MsgBox Err & ": " & Err.Description
GetUserAddress = False
Resume Exit_GetUserAddress
End Sub

 
[cut]
e' un url e accetta parametri.
cerca su google 'mailto syntax'
-- 
Paolo opg
BE AWARE that this post uses a fake reply-to address
to contact me write to:
janickg ( at ) hotmail ( dot ) com
--

 - Mostra testo citato -
potrebbe essere questo codice, ma come lo inserisco nella routine?
<a href="mailto:
ast...@unl.edu
?subject=Comments from MailTo Syntax
Page">
Grazie

 - Mostra testo citato -
Qualcuno sa aiutarmi?
Grazie


Ho risolto così, ma come faccio ad mandare a capo la Dim Chiusura (che
contiene le istruzioni che voglio dare per la risposta ed eventuali
forme di chiusura?
strInput = "mailto:" + Me![EmailDestinatario] + "?cc=" + _ "miaemail"
+ _ "&subject=" + Oggetto + "&body=" + Messaggio + Chiusura


Ho seguito il consiglio di Paolo, ed ho scelto il secondo link che
Google mi ha proposto (
http://www.addressmunger.com/
mailto_syntax_tutorial/) dove ho trovato questo.
====================================
Email link with a message started in the body:
This option is somewhat new to html, meaning that some email programs
haven't started supporting multiple paragraphs in email links. You
should definitely consider this before you use multiple paragraphs.
The alternative option is just using one paragraph, which is what we
suggest.
<a href="mailto:
yo...@email.address
?body=One paragraph.">Contact Us</
a>
Working example: Contact Us
<a href="mailto:
yo...@email.address
?body=First Paragraph. %0A%0A Second
paragraph. %0A%0A Third Paragraph etc.">Contact Us</a>
Working example: Contact Us
To create this link, type ?body=One paragraph. or ?body=First
Paragraph. %0A%0A Second paragraph. %0A%0A Third Paragraph etc. inside
the quotation marks, immediately after your email address
====================================
Da cui risulta che "%0A%0A" (BTW "0A" e' esadecimale, corrisponde al
chr(10), cioe' ad un LF) serve per inserire 2 righe vuote.
E se, invece, ti fossi fermato al primo link (
http://www.ianr.unl.edu/
internet/mailto.html)?
Popi

 - Mostra testo citato -
Perfetto. Grazie
Newsgroup: it.comp.appl.access
Titolo: Baco di VBA o il mio PC alle cozze?????

Ho notato una cosa strana....... dichiarando una serie di variabili come
integer, l'ultima variabile dichiarata non viene trattata come se fosse
vuota ma come uguale a 0
Mi spigo meglio
DIM Pippo, Pluto, Paerino as Integer
Pippo = vuoto
Pluto = vuoto
Paperino = 0 ??????????????????? :-o  :-o
E' il mio PC che ha troppo caldo e vuole andare al mare o sono io che moi
sono per qualche cosa?????????
Saluti a Tutti Paolo

 ha scritto nel messaggio
news:%1EY6.59656$Uo3.1...@news6.giganews.com...

E' la sintassi del VB, se vuoi dichiarare 3 integer devi fare:
DIM Pippo as Integer, Pluto as Integer, Paerino as Integer
altrimenti se fai
DIM Pippo, Pluto, Paerino as Integer
Pippo e Pluto sono variant (NON hai detto di che tipo sono), Paperino č
integer
Si, era piů comoda la sintassi del C e del Pascal.... :-)))))))))))
Max

 ha scritto nel messaggio
news:%1EY6.59656$Uo3.1...@news6.giganews.com...

Così come hai scritto la Dim, hai dichiarato le variabili Pippo e Paperino
di tipo Variant e la variabile Paerino di tipo intero.
Access inizializza le variabili Variant con il valore Null e le variabili
numeriche con il valore 0 (zero).
Visto che queste sono le regole, si desume che né il tuo PC né Access hanno
sofferto per un colpo di sole. ;-)
Se poi vuoi che tutte e tre le variabili siano di tipo intero, la Dim la
devi scrivere:
DIM Pippo As Integer, Pluto As Integer, Paerino As Integer
ed Access le inizializzerà tutte e tre a zero.
Se invece vuoi le variabili tutte di tipo Variant, la Dim la devi scrivere:
DIM Pippo, Pluto, Paerino
ed Access le inizializzerà tutte e tre con il valore Null.
Insomma, se in una Dim dopo il nome di una variabile non espliciti il tipo
questa sarà di tipo Variant; il tipo indicato per l'ultima variabile della
Dim è relativo solo a quella variabile e non a tutte le variabili di quella
Dim.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: ho problemi con la casella combinata in una maschera

ragazzi
non riesco capire quale codice devo utilizzare per fare in modo che
cliccando su uno dei campi contenuti nella casella combinata
automaticamente mi compaia sulle text della maschera i dati
corrispondenti a quel dato campo...
es
tabella
nome    cognome     telefono
fabio   pinii       338
gianni  rossi       339
carlo   verdi       335
se la casella combinata chiamata cognome contiene tutti i cognomi
automaticamente quando clicco su uno di essi mi devono comparire sulle
altre text i dati corrispondenti ad esso...
quindi se clicco su fabio sulle altre text dovrà esserci pinii e 338..
spero di essere stato chiaro!!
grazie mille
ciao   
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:6171d48ea4f09aeabd4...@mygate.mailgate.org...

Se la tabella che contiene i dati si chiama Tabella1 e contiene i campi
Nome, Cognome, Telefono.
Se la casella combinata si chiama Cognome.
Se le due caselle di testo si chiamano Nome e Telefono.
Fai in maniera che la casella combinata abbia tre colonne di cui visibile
solo la prima; fai anche in modo che la casella combinata abbia come origine
riga il seguente codice SQL:
SELECT Cognome, Nome, Telefono FROM Tabella1;
A fronte dell'evento "Dopo aggiornamento" della casella combinata genera il
seguente codice VBA:
Me!Nome = Me!Cognome.Column(1)
Me!Telefono = Me!Cognome.Column(2)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: collegamento ipertestuale

Ciao,
vorrei creare un sito utilizzando access e dreamweaver, funziona tutto 
tranne i collegamenti ipertestuali.
In pratica, il collegamento funziona bene da access, ma quando viene 
inserito in un recordset creato con dreamweaver viene visualizzato in 
formato testo e quindi non funzionante.
Grazie a chi mi puï¿œ aiutare
Giorgio

MA a ï¿œcrit :

Ciao e grazie per avermi risposto.
Intendi dire che ï¿œ un problema di configurazione del recordset creato 
con dreamweaver?
Giorgio

Newsgroup: it.comp.appl.access
Titolo: Esportare tutti i record di una Query in un record di una tabella

Ciao,
avrei la necessità di esportare tutti i record di un campo query in un solo 
record campo tabella. Esempio
Record presenti nella query:
Pippo
Pluto
Paperino
Unico record in una tabella
Pippo, Pluto, Paperino
chiaramente il campo tabella è di tipo memo
non ne vengo fuori
Grazie 

 ha scritto nel messaggio
news:aC47h.45613$uv5.3...@twister1.libero.it...

più o meno ..
insert into tabella.nomecampo values campo1 & campo2 & campo3 ...

 ha scritto nel messaggio 
news:455ce6b3$0$7624$4faf...@reader1.news.tin.it...

Grazie,
ma non mi è chiaro dove devo inserire questa istruzione, nei criteri della 
query?
 

 OK, ci sono quasi credo... aiutatemi con la sintassi :-(
ho creato la seguente istruzione SQL ma c'è qualcosa che non và:
INSERT INTO TabellaX ( CampoX )
VALUES Tabella1.Descrizione
FROM Tabella1;
Grazie