mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: memorizzare nome utente alla modifica di un record

Ho una maschera collegata ad una tabella, dove se creo un nuovo record mi
viene memorizzato il nome utente e l'ora di modifica, mentre se modifica un
record già esistente questo non avviene in quanto non saprei come fare....
Qualche suggerimento?
il nome utente lo recupero con "application.currentuser"
Grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 il nome utente lo recupero con "application.currentuser"
Nel primo caso avrai utilizzato l'evento Form_AfterInsert.
Nel secondo caso devi utilizzare l'evento Form_AfterUpdate.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution

 il nome utente lo recupero con "application.currentuser"
Tener traccia delle modifiche ai dati
www.donkarl.com/it/?FAQ2.23
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it


Grazie molte ad entrambi!


Newsgroup: it.comp.appl.access
Titolo: Stampa

Salve al gruppo,
devo stampare circa 3000 ricevute, però con la possibilità di indicare un
numero iniziale
ed uno finale, oppure tutte. Sono alle prime armi. Chi mi aiuta, magari
scrivendo il codice. Grazie in anticipo.
                         Alessandro

 ha scritto nel messaggio
news:2eYR7.1648$o9.7...@news1.tin.it...

Basta che riporti nella tabella su cui si appoggi il record sia presente un
contatore. Poi riporti tale campo nel report.
Saluti
Sergio Della Giora

Newsgroup: it.comp.appl.access
Titolo: DCount():Errore di sintassi nell'espressione

Ciao
Mi spiace stressarvo con le mie domande stupide ma la dcount qua sotto non
va.
Nell'help c'è scritto: "l'argomento criteri equivale spesso alla
proposizione WHERE di un'espressione SQL"
=DCount("*";"tTelefonate";" ((tTelefonate.Nome) Like "?<Anonimous>") AND
(tTelefonate.Stato)="R")")
Cosa c'è di sbagliato!!!!!!
Grazie
TT


i doppi apici chidono la stringa.senza fare cose difficili prova cosi':
=DCount("*";"tTelefonate";" ((tTelefonate.Nome) Like '?<Anonimous>') AND
 > (tTelefonate.Stato)='R')")
--
a.cara

 ha scritto nel messaggio
news:c4uv9g$2mltou$1...@ID-163946.news.uni-berlin.de...

Grazie per la cortesia e la celerità. Conta pure correttamente.   :-)
Ciao alla prox..
TT
Newsgroup: it.comp.appl.access
Titolo: Focus Maschera

Salve amici,
Sperando che l'oggetto sia corretto, pongo il seguente quesito.
Ho due form sul desk FormA e FormB, quando passo da una forma all'altra, senza che nessuna venga chiusa, lo stato della form che lascio è "Lost Focus" o no? Se si (e se no qual'è allora lo stato) perchè non mi esegue l'evento su "Lost Focus"?
 
Grazie
 
Alfio


L'evento per una maschera solo succede se la maschera non ha
nessun controllo visibile (vedi <F1>).
Forse ti aiuta l'evento "Deactivate" della maschera.
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 
 

 Karl
 
Ma che piacere risentirti Karl, il tuo italiano è sempre migliore, superi QUASI il mio :)
Ascolta, in effetti hai ragione, come sempre, l'evento è "Deactivate" ma, nonostante questo, non riesco a risolvere il problema, dunque, proverò a spiegarlo.
Come dicevo ho due maschere FormA e FormB, in ognuna di queste due maschere ho un gruppo di opzioni FormA OpzA - FormB OpzB. Supponiamo che nella FormA io abbia cliccato sull'interruttore nr 1 ed abbia ottenuto valore 1, adesso clicco sull'interruttore 2 della FormB OpzB, ottengo valore 2, fin qui tutto ok, il problema nasce se io riclicco sull'interruttore 1 della FormA OpzA, non riesco ad ottenere il valore 1 finchè non clicco su un qualsiasi altro interruttore dello stesso gruppo di opzioni.
Come devo fare per far si che al passaggio dalla FormA alla FormB (e viceversa) l'interruttore che aveva il focus restituisca di nuovo il suo valore?
Spero di essere stato chiaro... :)
 
Ciao Karl
 
Alfio
 
 

 Spero di essere stato chiaro... :)
 
No. ;-)
Se non si trova qualcuno che ti capisce meglio, prova con mostrare
il codice che usi e/o descrivere cosa vuoi fare con il valore in
quel momento.
 
-- 
Ciao
Karl
*********
Access FAQ: 
www.donkarl.com/it
 
 
 

 quel momento.
 
E io che pensavo di essere stato più che chiaro...limpido :)
 
Ciao Karl, grazie
 
Alfio

Newsgroup: it.comp.appl.access
Titolo: insieme AllReports....

Salve gente.
Avrei la necessità di poter disporre in una casella combinata, o di
riepilogo, l'elenco dei reports presenti nel database corrente, ma non
riesco nell'intento....
Un aiutino?
Alfio

 ha scritto nel messaggio
news:rC64a.127599$ZE.36...@twister2.libero.it...

Come origine riga della casella combinata o della casella di riepilogo
scrivi il seguente codice SQL:
SELECT MsysObjects.Name
FROM MsysObjects
WHERE (((MsysObjects.Type)=-32764))
ORDER BY MsysObjects.Name;
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


Very good,
Grazie
Alfio
Newsgroup: it.comp.appl.access
Titolo: Semplice !?!? - Dimensionare un campi in report.

Salve !
E' possibile dimensionare automaticamente i campi nei report ?
Mi spiego meglio.
Ho creato una tabella con un campo di tipo memo (o stringa lunga 255).
Nel report che creo a fronte di tale tabella, voglio che il campo memo sia
largo es. 3 cm e alto ??? (dovrebbe dimensionarsi automaticamente in base al
contenuto che potrą essere un solo carattere o 1000 ch).
Come si risolve questo prb. ?
Grazie anticipatamente.


______-
imposta la proprietà Espandibile a Si.
ciao Riccardo

Newsgroup: it.comp.appl.access
Titolo: aiuto con tranfertext!!

Ciao a tutti,
ho il seguente problema: devo esportare una tabella in un file di testo.
Allora, compongo le varie righe con i delimitatori e con queste popolo una
tabella di appoggio con un solo campo che poi esporto con il metodo in
oggetto. Il problema è che l'esportazione mi piazza, SU OGNI RIGA ESPORTATA,
le virgolette all'inizio e alla fine, del tipo -->
"1235|prova|prova2|434353||||prova3|". Il delimitatore è ovviamente la
"pipe". Non riesco in nessun modo a togliere quelle maledette virgolette!
Come fare????
Vi prego aiuto!!
Ciao
Marco

Già risolto, grazie!!

 ha scritto nel messaggio
news:afehk0$161$1...@fe1.cs.interbusiness.it...

Forse non ho ben capito. Ho provato ad esportare una tabella in un file di
testo e come delimitatore di campo ho usato il punto e virgola, come
qualificatore di testo ho usato il carattere pipe. Tutto bene, nessuna
virgoletta alla letture con notepad del file.
Forse mi sfugge qualcosa.
Ciao, Carlo

 Ciao, Carlo
Grazie della risposta, comunque ho risolto facendo una esportazione manuale
e salvando le specifiche. il problema era quello che il wizard chiama
"qualificatore testo", che con il wizard imposto a "nessuno". Poi uso il
file delle specifiche come modello di esportazione.
Ciao
Marco

Newsgroup: it.comp.appl.access
Titolo: eseguire file .mdb senza acces

Salve a tutti, qualcuno sa come fare ad aprire  un db  creato con access
senza installare Access. Per essere più chiaro devo eseguire un file di
acces dal computer dell'ufficio dove non c'è acces installato. Qualcuno mi
ha detto che esisteva qualcosa con access97.
Grazie a tutti
Roberto

 ha scritto nel messaggio
news:lku6b.297857$Ny5.9...@twister2.libero.it...

Vedi risposta al TH precedente.
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: Da valore 0 a null

Salve a tutti,
Ho un problema di questo tipo che non riesco a risolvere e chiedo
aiuto a voi.
Ringrazio tutti in anticipo dell'aiuto che riuscirete a darmi.
Estraggo dei dati di vendita dal mio gestionale AS400 con delle
tabelle collegate,
da queste tabelle creo delle query con campi incrociati.
e fin qui tutto ok.
In alcune celle della query i dati risultanti sono 0 al posto di null
(la cella vuota).
Questo valore "0" mi crea dei problemi e quindi devo ottenere il
valore null.
Saluti a tutti

 ha scritto nel messaggio 
news:1175856564.1...@l77g2000hsb.googlegroups.com...

Vuoi sostituire il valore 0 con Null?
Crea un campo calcolato:
daZeroANull: iif(nomeCampo=0;Null;nomeCampo)
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio
news:1175856564.1...@l77g2000hsb.googlegroups.com...

iif(campo=0;Null;campo)
Antonio

 Antonio
Scusate, ma sono un po' ignorante in materia e quindi non ho capito.
Ho inserito questa funzione nella riga criteri e sotto il campo in
questione e mi restituisce errore:
impossibile specificare per lo stesso campo per cui la riga campi
incrociati e' impostata a valore.
Potreste essere un po' piu' dettagliati, grazie tantissimo.

 Ho inserito questa funzione nella riga criteri e sotto il campo in
Non nella riga criteri, ma nei campi come campo calcolato
Antonio

 - Mostra testo tra virgolette -
E' gia' un campo calcolato ed e' cosi:
"Somma di SIMPOR: SIMPOR"
Come dovrei scrivere questo campo?
io ho provato a scrivere cosi ma mi da errore, dove sbaglio?
iif(Somma di SIMPOR: SIMPOR=0;null;Somma di SIMPOR: SIMPOR)

 iif(Somma di SIMPOR: SIMPOR=0;null;Somma di SIMPOR: SIMPOR)
Il campo calcolato lo devi fare prima della query a campi incrociati...
Ciao.
-- 
Sergio MAZZA

 iif(Somma di SIMPOR: SIMPOR=0;null;Somma di SIMPOR: SIMPOR)
1 - Dovrai crearti un nuovo campo calcolato  B:IIf(Not ([A]),Null,[A])
     ( A è il campo sotto test )
2 - Ovvero fare un UPDATE di A con
     Update To: Null
     Criteria:         0
     In questa circostanza però viene aggiornata la tabella
     sottostante, se aggiornabile.
     Se non aggiornabile può rilevarsi un errore.
Bruno
Newsgroup: it.comp.appl.access
Titolo: Adattare una listbox al testo

ciao
sto cercando di adattare la listbox al testo in modo che si allarghi (lo so
che è inusuale ma è proprio quello che mi serve) in funzione della stringa
più lunga in essa contenuta, in modo di risparmiare lo spazio a video il più
possibile
(non posso usare barre di scorrimento)
Determinare il numero dei caratteri della stringa più lunga è facile: (con
dmax e len) il problema è stabilire il rapporto caratteri/twips !
Inizialmente ho usato un carattere a spaziatura fissa.. ma è brutto e molto
costoso in termini di spazio coperto (non si più rimpicciolire oltre gli 8
punti!)
conoscete qualche altro metodo?
saluti
Galbusera

"il mago galbusera" <galb...@katamail.com.INDOVINACOSADEVITOGLIERE> ha
scritto nel messaggio news:ajlt3t$3e0$1...@fe1.cs.interbusiness.it...

Prova a dare un'occhiata quì:
http://www.lebans.com/toc.htm
Lebans mostro sacro delle API ha realizzato qualcosa di simile
su una TextBox, si può adattare anche ad una LIST.....!!!
@Alessandro.


davvero interessante!
perň io al momento non sono molto smaliziato nell'uso delle api e non riesco
ad adattare questo codice per l'uso che ne devo fare io .. ti ricordo che a
me serve per una listbox!
mi potresti gentilmente dare qualche altra dritta?
grazie mille!
Galbusera

"il mago galbusera" <galb...@katamail.com.INDOVINACOSADEVITOGLIERE> ha
scritto nel messaggio news:ajr71q$4v2$1...@fe2.cs.interbusiness.it...

Piů che qualche dritta serve mettersi li e provare, e sono sicuro tu sappia
bene quanto tempo si perde per provare a perfezionare i "giochini".
In ogni caso in effetti guardando il codice credo che non sia proprio
alla portata di tutti i principianti.....!!!
Scusa la franchezza, ma non ho molto tempo per esperimenti........!
@Alex

Newsgroup: it.comp.appl.access
Titolo: impostare valore con vba

come faccio sull'evento clic di una checkbox di una maschera ad impostare il 
valore di una casella di testo della maschera?
ho povato con l'istruzione "set" ma non ci riesco.
in pratica sul click della checkbox vorrei impostare un testo nella casella 
di testo.
grazie
 

 ha scritto:

il segno " = " non ti piace? :D
 
tuaCasellaTesto = "tuoTesto" ;)
 
 
-- 
------------
Pablitomf
Napoli sempre nel "Q"uore!
"mammasantissima" si nasce, non si diventa.
 

ci si complica la vita da soli!
Grazie!
 
 
"Pablitomf"  ha scritto nel messaggio 
news:201209180...@mynewsgate.net...

Newsgroup: it.comp.appl.access
Titolo: Troppi campi nella tabella

Devo sottoporre a degli utenti un questionario abbastanza complesso.
I campi sono una sessantina 
 
15 di questi campi (se flaggati) richiedono una  ulteriore specifica di altre 30 voci (uguali per tutti i 15 casi).
 
Ho preparato con una struttura a schede una form relativa al questionario con tutte le varie voci ma non so come fare l'approfondimento dei 15 casi.
 
Non posso inserire tutto nella stessa tabella perchè al massimo i campi possono essere 255.
 
Ho creato allora un'altra tabella con relativa form per inserire le specifiche ... ma ne devo fare 15? e su cosa le relaziono? Su Id_Questionario?
 
C'è un altro modo di gestire il tutto?
 
 
 
 
 
 
 


QUESTIONARIO -> DOMANDE -> SOTTODOMANDE
 

zut explained :

Due tabelle
- Tabella1:
  ID_Utente Long
  ID_C15 Long, con Validation Rule Between 1 And 15, PK su ambedue
  C15 Text
 
- Tabella2:
  ID_Utente Long
  ID_C15 Long
  ID_C30 Long, con Validation Rule Between 1 And 30, PK su tutti i tre
  C30 Text
 
Relazioni
ID_Utente e ID_C15 di Tabella1 in relazione combinata
coi corrispondenti campi di Tabella2.
 
Non ho creato le form per l'inserimento e il controllo,
ma operando a mano sulle due tabelle mi pare funzioni
tutto a dovere.
 
Bruno

 coi corrispondenti campi di Tabella2.
 
Ho omesso un'importante precisazione, devono essere attivate:
- integrità referenziale
- aggiornamento in cascata
- cancellazione in cascata
 
Bruno

Basta 1 tabella con un campo aggiuntivo IdParent da usare in Self-Reference.
 
La dove il campo IdParent è Nullo Si tratta di domanda... dove viene valorizzato si tratta di SottoDomanda.
 
Saluti
@Alex

Per chi non conosce la self-reference basta andare nel diagramma Entity Relational di Access èd inserire 2 volte la stessa tabella in oggetto e collegare IdPk della prima istanza che definiremo Master, lato 1, con IdParent della seconda istanza che definiremo Detail lato M.
Questa struttura corrisponde ad una gestione gerarchica che potrebbe anche essere multilivello se servisse...
Nel caso specifico é ad un livello.
 
@Alex
Newsgroup: it.comp.appl.access
Titolo: formattare differenze di date

Ciao ragazzi ho un problema di questo tipo:
ho effettuato la differenza fra due date per sapere il numero di giorni, 
vorrei fare in modo che il risultato venga espresso, per i numeri 
inferiori alla decina, con uno "0" davanti.
Come imposto la proprietà format?
Dim giorni as Currecy
giorni= FormatCurrency (((Nz(!al) - Nz(!dal)), , "1")
Dove sbaglio?

 wrote in message
news:WLT6e.1222949$
35.44...@news4.tin.it

Non usare un formato Currency per questo tipo
di calcolo è uno spreco di risorse spaventoso.
Con un Integer fai differenze tra date comprese in 179 anni.
Se proprio vuoi i decimali usa un Long.
Per quel tipo di formattazione devi usare una Stringa
pergiunta:
Dim Giorni as String
Giorni= Format(DateDiff("d", Nz(!al), Nz(!dal)),"00")
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Maurizio ha scritto:

non ha senso che un intero abbia uno 0 davanti occorre usare una stringa
dim diff as string
if giorni < 10 then
	diff = "0" & giorni
else
	diff = giorni
endif

Newsgroup: it.comp.appl.access
Titolo: tool riparazione database

Qualcuno conosce qualche tool *freeware* per riparare un database (32MB)
danneggiato in seguito ad un ripristino da cancellamento?
[il messaggio che viene fornito da Access è:
Il modulo di gestione di database Microsoft Jet non è riuscito a trovare
l'oggetto 'MSysDb'. Assicurarsi che l'oggetto esista e che il nome e il
percorso siano digitati correttamente.
Anche i tentativi di importazione falliscono, e nemmeno l'applicazione MS
JETCOMP ha dato esiti positivi.
Ciao
Gianluca

 danneggiato in seguito ad un ripristino da cancellamento?
prova a crearne uno vuoto ed importa gli oggetti da quello vecchio....
a me a funzionato!
Newsgroup: it.comp.appl.access
Titolo: File per connessione VPN - Access

Ciao a tutti!
Ho un programmino che mi va a sincronizzare i dati di due ditte tramite
connessione vpn.
La mia domanda č: esiste un file o del codice per verificare, o
eventualmente lanciare nel caso in cui non sia connessa, la connessione vpn
per essere sicuri che i files vengano copiati?
Grazie!
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Grazie!
Ciao,
dipende da cosa usi per  la VPN. Io per esempio con una vpn cysco la 
lanciavo da riga di comando. facevo una bat che lanciava prima la vpn e poi 
l'applicazione....
Prego



ho una connessione vpn normalissima creata dalle connessioni di rete. come
facevi a lanciarla con un file batch? che comando usi?


 facevi a lanciarla con un file batch? che comando usi?
Non usavo la connessione VPN di windows, ma un software della cysco che era 
eseguibile via riga di comando... quella di microsoft non so se può lanciare 
via dos,ma  credo che si possa. Prova a cercare.
Ciao.


 facevi a lanciarla con un file batch? che comando usi?
Sotto Windows 2000/XP esiste il comando rasdial.exe (si trova anche
per w95/98).
Apri il prompt dei comandi e digita:
rasdial /?
così vedi la sintassi da usare. Se hai la connessione che si chiama
"vpn1" dovrebbe bastare fare un batch col comando:
rasdial "vpn1" nomeutente password
per disconnettere la vpn metti in un altro batch il comando:
rasdial vpn1 /disconnect
Volendo puoi usarli anche da operazioni pianificate, etc.
ciao,
Panathos

Newsgroup: it.comp.appl.access
Titolo: aiuto su query cancellazione

ragazzi ho la necessità di svuotare l'intero db.... e tutto in una stringa
sql. Se creo la query DELETE FROM pippo, DELETE FROM pippo2 mi dice che non
può eseguire la query.... devo per forza eseguirne una alla volta????

 non può eseguire la query.... devo per forza eseguirne una alla volta????
Sì.
Con JET non sono possibile degli script di SQL.
Puoi usare VBA. p.e.
Dim db as dao.database
set db = currentdb
db.execute "DELETE FROM pippo"
db.execute "DELETE FROM pippo2"
db.execute...
-- 
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com
Newsgroup: it.comp.appl.access
Titolo: [?] Dimensioni controlli memo

Qualcuno ha da darmi indicazioni sul mio problema, relativo al fatto che non
riesco a scrivere 64 KCaratteri all'interno di un controllo memo?????
Grazie anticipatamente.
Roberto

 riesco a scrivere 64 KCaratteri all'interno di un controllo memo?????
A quanti caratteri ti si ferma?
Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente

 Sib
Ho tre memo; sul primo riesco a scrivere circa 2000 caratteri, sugli altri
due molti di meno e comunque la capienza varia anche tra questi due, è
questo il motivo per cui ho la sensazione che dipenda dalla dimensione dei
controlli delle maschere associati ai memo.
Roberto

Roberto disse:

Ho fatto delle prove giusto per sicurezza, non ho avuto alcun problema a
inserire 60K caratteri in una tabella con vari campi memo, sia direttamente
in tabella sia da una maschera.
Controlla se direttamente in tabella riesci a inserire i dati che ti
servono, se ci riesci il problema e' nella maschera.
Ciao, Sib


 > due molti di meno e comunque la capienza varia anche tra questi due, č



Faccio delle prove e poi faccio sapere. Certo ho qualcosa che non va.
Grazie
Roberto


Quello che non va č la mia stupiditą.
Il fatto non sussiste.
E' sufficiente, quando nella maschera non mi accetta altri caratteri,
cliccare sulla freccia verso il basso della barra di scorrimento verticale
per avere alro spazio.
Chiedo scusa per il tempo che ho fatto perdere, specie a Sib.
Scusate.
Roberto

 Roberto
Figurati, l'importante e' trovare la soluzione (per semplice che sia)

Newsgroup: it.comp.appl.access
Titolo: eliminare da una tabella i record contenuti in un'altra tabella

Ho due tabelle:
tabella 1     e     tabella_campi_da_eliminare
Vorrei eliminare dalla tabella1 i record contenuti in
tabella_campi_da_eliminare
Ho cercato di fare una query di eliminazione ma il risultato è il
messaggio di errore "could not delete from specified field"
la query è
DELETE tabella_1.*
from tabella_record_da_eliminare INNER JOIN tabella_1 ON
tabella_record_da_eliminare.[Finish code] = tabella_1.[Component
Code];
le due tabelle hanno un join su due campi numerici
grazie.

> tabella_1

L'eliminazione è bloccata dalla presenza della relazione con integrità referenziale.
La relazione tra le due tabelle è 1-1 o 1-M? Da quanto hai premesso pare 
che la relazione sia 1-1, ma se è così, allora ti consiglio di toglierla 
se non hai esigenze particolari.
Una volta tolta la relazione 1-1, puoi eseguire la seguente query:
DELETE FROM tabella1
WHERE campochiave IN (SELECT campochiave2 FROM tabella_record_da_eliminare)
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution

grazie per la risposta

> grazie per la risposta
Prego, ma piacerebbe anche avere un riscontro dai suggerimenti che si danno.
Non hai nemmeno risposto alle domande che ti ho posto.
E, poi, comunque, la soluzione ha funzionato?
Facci sapere.


 Facci sapere.
Scusa ma sono dovuto uscire di corsa
le tabelle hanno relazione 1-1.
Ho provato il tuo suggerimento ma non sono riuscito a farlo
funzionare. Avrò sbagliato qualcosa.
ho provato invece con questo lasciando la relazione 1-1
DELETE DISTINCTROW Prodotti_finishing.*
FROM Prodotti_finishing INNER JOIN prodotto_finito_componente ON
Prodotti_finishing.[Finish code] = prodotto_finito_componente.[Finish
code];
In questo caso ha funzionato.
Grazie

> le tabelle hanno relazione 1-1.
Se non hai un validissimo motivo (e non me ne vengono in mente nessuni) ti 
consiglio di unificare le due tabelle e togliere la relazione 1-1.


Newsgroup: it.comp.appl.access
Titolo: Come Creare routine di evento ed azioni............

Come Creare routine di evento ed azioni senza conoscere il linguaggio di
visual basic???? se è possibile???? oppure dove posso trovare tutorial
per visualbasic?????
Grazie Ciao a tutti!!!!
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Molte cose relativamente complesse le puoi fare usando le macro, per andare
oltre devi necessariamente scrivere codice.
Per cominciare puoi guardarti bene Northwind (db di esempio fornito con
Access) e la marea di applicazioni, consigli, recensioni ecc che trovi su
www.sitocomune.com
Ciao Paolo


Fai così: prova a creare una macro, salvala e poi scegli
Strumenti/Macro/Converti macro in visual basic.
Può essere un eccellente aiuto.
Ciao.
--
Alberto
Newsgroup: it.comp.appl.access
Titolo: differenze tra record

Salve ragazzi, qualcuno di voi conosce il modo per fare la differenza tra
record in una query?
Mi spiego meglio:
per semplicità dico che la tabella è composta da due campi, "data" e
"quantità" questi campi vengono popolati ogni giorno con una quantità
diversa; è possibile fargli fare la differenza tra la quantità inserita ieri
e quella inserita oggi?
ES:
data            Quantità
06/05/02    99
07/05/02    102
08/05/02    150
ecc...
--
Massimo Coluzzi
colu...@tin.it
il sito comune di it.comp.appl.access:
www.sitocomune.com

ecc...
se non ricordo male dovresti mettere in un campo calcolato il valore
del record - dsum(il valore del record con data antecedente)
Saluti.
Emanuele.

>ecc...
c'è un thread della
settimana scorsa in proposito, funziona molto bene. cercalo
ciao
MAssimiliano
--------------------------------
Inviato via 
http://usenet.iol.it

Newsgroup: it.comp.appl.access
Titolo: selezionare la stampante

è possibile selezionare da codice la stampante da utilizzare
senza dover caricare tutti i codici e altro?
mi spiego meglio:
so che è possibile gestire da codice le stampanti
solo che bisogna inserire un bel po' di codice per caricare i dirveer e
altre dll necessarie.
è possibile fare ad esempio così:
apri report "stampa" su stampante n. 3
grazie

 ha scritto nel messaggio
news:e0SKa.126047$lK4.3...@twister1.libero.it...

Se il report si chiama "stampa", una soluzione potrebbe essere usare questo
codice VBA:
DoCmd.SelectObject acReport, "stampa", True
DoCmd.RunCommand acCmdPrint
Così facendo si aprirà la finestra di dialogo di stampa nella quale
sceglierai la stampante da usare e poi, pigiando il pulsante OK, verrà
stampato il report "stampa".
Spero che sopravviverai ad un codice VBA di 2 righe. ;-)
Se questa soluzione non ti va bene penso (anche se non ti piace) che devi
proprio scrivere un po' di codice VBA per usare le API di Windows; qualcosa
la trovi anche nella Sezione General del Sito Comune (link qui sotto).
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Invio E-Mail da Access...

Salve a tutti, come ho anticipato nell'oggetto vorrei provare a mandare
e-mail da access 2000 con file allegato, ho controllato sul sito comune ed
ho trovato due procedure una usa mapi è mi da (errore -
2147467259
) quando
provo ad inviare, l'altra, quella che usa il winsock, al momento di
convertire il database mi dà errore di conversione. Sicuramente sono io che
sbaglio in qualcosa, potete aiutarmi??? Devo mandare delle e-mail con degli
allegati. Grazie

 ha scritto nel messaggio
news:bfjs2u$dl7$1...@grillo.cs.interbusiness.it...

Se hai win2000/Xp con IIS attivato puoi utilizzare l'activex CDonts;
Es.
    Set objMail = CreateObject("CDONTS.NewMail")
    objMail.From = "Em...@Mittente.Boh"
    objMail.To = "Destinatario@uno, Destinatario@due, etc. etc."
    objMail.Subject = "Oggetto del messaggio"
    objMail.Body = "Inserisci il testo del messaggio"
    objMail.Importance = 2    '<-- giusto per non rompere il mittente
    objMail.Send
    Set objMail = Nothing
Inserisci prima i riferimenti alla libreria "Microsoft CDO for NTS..."...
(doppi stavolta!)
Ciao.
--
Sergio MAZZA


Su Windows 2000 Professional non c'e' CDOnts
devi risolvere con il servizio add-on smtp (che pero' nn installa
cdonts)
'na vera sòla!

 >
...scusate dimenticavo, il sistema operativo installato è W98 :-(
Rimane invariato quanto detto sopra???


 
hai installato un client mapi (outlook, ad esempio)?
semnza, la procedura MAPI non può funzionare.
per la soluzione winsock, devi trovare mswinsck.ocx e registrarlo sul 
sistema, a meno che tu non abbia programmi che l'hanno già messo sul tuo 
pc.
-- 
+-------
| Paolo opg
|
| janickg ( at ) hotmail ( dot ) com
+-------

 'na vera sòla!
Ciao.
--
Sergio MAZZA

 Rimane invariato quanto detto sopra???
No, avevo indicato win2000/xp non a caso...
Ciao.
--
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: AITUOOOOOOOO URGENTE

Aiutatemi... Ho installato la patch sr2 di Office e da allora, anche avendo
reinstallato tutto office, Access continua a drimi che non è stata concessa
la licenza d'uso... eppuro ho reinstallato tutto con il cd key giusto....
Forse registra qualche chiave che non rimuove...
Aitutatemi......
E' molto urgente, grazie!!!!
--
Eurema s.c.r.l.
Via Cardinal Latino, 11 Firenze
Tel. 055-680690 Fax. 055-688687
Web: 
www.eurema.it
E-Mail: 
eur...@eurema.it

 Eurema s.c.r.l.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Somma di record

Con Access 2000 se ho una tabella con 3 campi e voglio conoscere il totale
di un campo come faccio ?
Mi spiego:
Campo 1  Campo 2 Campo 3
A              1991            2
A              1992            5
B              1994            6
C              1192            5
D              1991             8
E               1990            2
F               1990            3
F               1991            2
F               1992            5
Voglio eseguire una query su questa tabella e conoscere la somma totale del
Campo 3
Grazie
--
Marco
marco....@technik.it

 Campo 3
SELECT Sum([Campo 3]) AS [Somma Di Campo 3]
FROM MiaTabella;
Ciao. Claudio

Newsgroup: it.comp.appl.access
Titolo: Quadrato al posto del simbolo euro

Salve a tutti.
Ho istallato Office 2000 su Windows XP e ho notato che nei controlli
collegati a campi che contengono
un dato di tipo valuta, al posto dell'euro è visualizzato un quadrato!!!
Da cosa può dipendere?
Grazie in anticipo.


Dal font???
Ciao
MAssimiliano
--------------------------------
Inviato via 
http://usenet.libero.it

 ha scritto nel messaggio
news:Zxo0a.88493$ZE.24...@twister2.libero.it...

Sei sicuro che nell'office xp che ai non siano stati cancellati dei file?
questo era un problema di w95 che si risolveva scaricando un file per il
carattere euro dal sito della microsoft.
Stefano
Newsgroup: it.comp.appl.access
Titolo: Visualizzare una finestra alla fine del suo caricamento

Ho un piccolo problema di visualizzazione iniziale di una finestra.
Quando lancio il mio applicativo, c'č qualche frazione di secondo
durante il caricamento in cui viene visualizzata la finestra con
alcuni controlli posizionati male. Dopo il caricamento invece la
finestra e tutti i controlli sono nella giusta posizione.
E' un effetto esteticamente brutto.
C'č un modo di far apparire la finestra solo alla fine di tutta
l'operazione di caricamento?
Grazie

 Grazie
sull'evento che apre la mschera scrivi il seguente codice:
Private Sub Comando0_Click()
    DoCmd.OpenForm "tuamaschera", acNormal, "", "", , acHidden
End Sub
sull'evento timer (a X000 millisecondi) della "tuamaschera" scrivi il
seguente codice:
Private Sub Form_Timer()
Me.Visible = True
End Sub

 Grazie
Questo a mio avviso può dipendere dalla lentezza del caricamento
dell'Origine dati
della stessa e di eventuali Combo/List o altro ...!
Normalmente per rendere l'apertura di una Form istantanea si sceglie di
effettuare
l'associazione dell'origine Dati su evento Open.
Questo accorgimento è tanto scomodo quanto essenziale rispettarlo....
@Alex

BR1 ha scritto:

Pur non concordando con la soluzione(è quanto meno anomalo ricorrere a
queste soluzioni), manca un pezzo se il Timer è finalizzato
a questo scopo al fine di evitare il ripetersi inutile dell'Evento:
Private Sub Form_Timer()
   Me.Visible = True
   me.TimerInterval=0
End Sub
Ciao
@Alex

 Grazie
Prova a seguire quello che dice l'help alla voce: Evento Activate
'---
Quando si apre una maschera per la prima volta, si verificano gli eventi 
elencati di seguito (nell'ordine indicato):
Apertura -> Caricamento -> Ridimensionamento -> Attivazione -> Corrente
Quando si chiude una maschera, gli eventi riportati di seguito si verificano 
nell'ordine indicato:
Scaricamento -> Disattivazione -> Chiusura
Probabilmente gestendo l'evento "su corrente" della form sai quando la form 
è "piena" e pronta per visualizzarla; solo che quell'evento si scatena ogni 
volta che cambi record quindi dovresti in qualche modo non far rieseguire lo 
stesso codice...
Ciao.
-- 
Sergio MAZZA 

@Alex
Perfetto! Ho messo tutto nell'evento Open e adesso l'apertura della
maschera è istantanea.
Grazie comunque anche a BR1 per l'interessamento.
Luigi

Ciao.
Grazie anche per i tuoi consigli, Sergio.
Luigi
Newsgroup: it.comp.appl.access
Titolo: Doppio click per copiare campo

Buongiorno a tutti.
 
Per velocizzare l'inserimento di alcuni dati, mi piacerebbe con un 
doppio click poter copiare i dati del campo interessato ed incollarli in 
quello successivo... Non sono riuscito a trovare e/o capire come si può 
fare in VBA l'equivalente del Ctrl+C . Mi date un suggerimento per 
favore? Grazie.
 
-- 
RoBort


se vuoi copiare su testoB quello che hai su testoA
su doppio click di testoA
 
Me.TestoB.SetFocus
Me.TestoB = Me.TestoA
 
BFS

 Me.TestoB = Me.TestoA
 
 
 
Grazie BFS per il supporto e soprattutto grazie ancora a te ed Alex per 
la questione degli allegati, ora si ragiona!
 
Per quanto riguarda il copia incolla, dopo 10 minuti di smanettamenti 
non riuscendo a farlo funzionare, ho invertito la seconda riga di 
comando in:
 
Me.TestoA = Me.TestoB
 
Ora funziona a dovere.
 
-- 
RoBort


Ovvero:
[TestoB]=[TestoA]
 
Bruno
Newsgroup: it.comp.appl.access
Titolo: Problema su funzionamento DMax

Buon giorno a tutto il NG e BUONE FESTE ...
Premetto di avere un DB strutturato su due tabelle
collegate in relazione uno-a-molti, ovvero:
1) tabella: tblSpecialita
    IdAnno (chiave)
    Anno
2) tabella: tblCoord
    IdCoord (chiave)
    NumProt
    Coord
    Ufficio
    IdAnno
    ..........
Nell'evento DblClick del campo "Anno" apro la tabella collegata
filtrandola mediante:
DoCmd.OpenForm "Pratica", , , "IdAnno=" & Me!IdAnno
ed ottenengo quindi solo le pratiche connesse all'anno di
riferimento.
In una casella di testo non associata ho inserito come origine
controllo:
=DMax("NumCoord";"tblCoord";"idAnno=" & Me!IdAnno)
per ottenere e visualizzare il valore massimo dei record (NumCoord)
inseriti, ovviamente in relazione all'anno di riferimento.
Però in fase di esecuzione la casella di testo evidenzia:
#Nome?
Come risolvere ... Grazie per la solita pazienza e cortesia ...

 ha scritto nel messaggio 
news:9cb1eef7-7e70-4d78...@r15g2000prd.googlegroups.com...
---cut---
In una casella di testo non associata ho inserito come origine
controllo:
prova a sostituire "ME" con:
=DMax("NumCoord";"tblCoord";"idAnno=" & Forms!NomeTuaForms!IdAnno)
per ottenere e visualizzare il valore massimo dei record (NumCoord)
inseriti, ovviamente in relazione all'anno di riferimento.
Però in fase di esecuzione la casella di testo evidenzia:
#Nome?
Come risolvere ... Grazie per la solita pazienza e cortesia ...
-- 
Ciao
Geppo

 ha scritto nel messaggionews:9cb1eef7-7e70-4d78...@r15g2000prd.googlegroups.com...

Perfetto funziona ... ti ringrazio molto ... però ... manca la
ciliegina ... il campo non si aggiorna immediatamente ... mi spiego il
valore massimo me lo fa vedere solo dopo che ho salvato il nuovo
record ovvero quando entro in consultazione ... mentre sarebbe utile
che lo facesse vedere nel momento in cui "chiedo" di inserire il nuovo
record ... lo devo associare all'evento ?

 ha scritto nel messaggio
news:81aa590f-43e5-42f3...@k36g2000pri.googlegroups.com...


Se a te serve vedere il valore massimo contenuto nel campo "NumCoord" cosi
dovrebbe andar già bene.
Se invece a te serve vedere il numero massimo presente in "NumCoord" + uno
prova cosi:
 =DMax("NumCoord";"tblCoord";"idAnno=" & Forms!NomeTuaForms!IdAnno)+1
Altrimenti spiegati meglio.
-- 
Ciao
Geppo

Newsgroup: it.comp.appl.access
Titolo: Attributi di un generico File...

E' possibile ottenere i principali attributi di un File (dimensioni, data
creazione) con VBA?
Ciao a tutti, Max

 creazione) con VBA?
<F1> FileLen
<F1> FileDateTime
in genere
<F1> File...
--
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

 <F1> File...
Grazie!!  ;-))
Newsgroup: it.comp.appl.access
Titolo: Prima di aggiornare

Ho impostato questo codice nel controllo NumIntervento, ma nel caso in cui
decida di cancellare il numero
sul controllo e poi cliccare sul tasto No del Msg e quindi non salvare le
modifiche:
non visualizza il numero precedentemente cancellato sul controllo
esempio il numero è 2345
1)faccio una modifica , il nuovo numero è 2389 faccio click SI sul Msg :
tutto OK
2)cancello il numero 2345 faccio click NO sul Msg : non salvo la modifica
*dovrei rivedere il numero
    precedentemente cancellato  ma il controllo resta vuoto non visualizza
il numero 2345*
Private Sub NumIntervento_BeforeUpdate(cancel As Integer)
Dim strMsg As String, strTitolo As String
Dim intStile As Integer, Reply As Integer
If Nz(DLookup("NumIntervento", "tblSala", "NumIntervento =
Forms!frmSala!NumIntervento"), 0) <> 0 Then
strMsg = "Per digitare il nuovo numero corretto, premi OK." & vbCrLf _
        & "Annullamento delle operazioni."
intStile = vbYesNo+ vbInformation
strTitolo = "Intervento n° " & Me!NumIntervento & " è già presente in
archivio"
Reply = MsgBox(strMsg, intStile, strTitolo)
   Select Case Reply
       Case vbYes
           'non fare nulla
       Case vbNo
           DoCmd.RunCommand acCmdUndo
       End Select
End If
End Sub
grazie ciao a tutti spriz

 ha scritto nel messaggio
news:rrRH9.34638$fa.11...@news1.tin.it...

Invece di:
     DoCmd.RunCommand acCmdUndo
prova a scrivere:
    Cancel = True
    Me!NumIntervento.Undo
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:lt3I9.36751$fa.11...@news1.tin.it...

Mha, oltre a cancellare l'evento (Cancel = True) e dare il comando Undo al
controllo non saprei cosa dirti.
Riguardando bene hai scritto in modo errato la funzione DLookup; se il campo
NumIntervento è di tipo numerico dovresti scrivere:
If Nz(DLookup("NumIntervento", "tblSala", "NumIntervento =" &
Forms!frmSala!NumIntervento), 0) <> 0 Then
e se invece NumIntervento è un campo di tipo testo dovresti scrivere:
If Nz(DLookup("NumIntervento", "tblSala", "NumIntervento ='" &
Forms!frmSala!NumIntervento & "'"), 0) <> 0 Then

Newsgroup: it.comp.appl.access
Titolo: Exit Sub

Un saluto a tutti...
Come faccio a fare continuare il codice dalla riga successiva a Exit Sub di
maschera 1
cliccanto sul pulsante di maschera 2 ?
Private Sub salva_Click()
If Me.TipoDocumento = "Fattura" then
Docmd.OpenForm "MovimentiMagazzino"
Exit Sub
DoCmd.GoToRecord , , acNewRec
Else
DoCmd.GoToRecord , , acNewRec
End If
End Sub
Inserisco una fattura di acquisto merci, tramite maschera 1, eseguo il
codice sopra elencato, che si blocca su Exit Sub, apro la maschera 2 per
l'inserimento dei materiali, e fin qui tutto ok.......
Adesso come faccio a fare continuare l'esecuzione del suddetto codice dalla
maschera 2?
Grazie

 wrote in
news:bnl6u7$ulj$
1...@lacerta.tiscalinet.it
: 

non puoi.
dopo un'istruzione Exit, la procedura o subroutine viene terminata.
devi cercare un'altro modo.
-- 
+-------
| Paolo opg
|
| janickg ( at ) hotmail ( dot ) com
| (fake address in reply-to field!)
+-------

non puoi.
dopo un'istruzione Exit, la procedura o subroutine viene terminata.
devi cercare un'altro modo.
Mi mandi un esempio?

 End Sub
DoCmd.GoToRecord , , acNewRec
Va nel Sub Form Load della seconda maschera.
-- 
   \  /_ _ : _ _           
    \/(_|/_|| | |          
  mail me  :  
vazim_at_libero.it
 
  view me  :  
http://www.vazim.net


Ciao
Gippe.

 maschera 2?
Potresti mettere, al posto di "Exit sub", l'apertura di Maschera 2
come pop up, in modo che non si possa tornare alla maschera 1 senza
aver inserito i materiali; quando maschera 2 verrà chiusa, i dati
necessari ci saranno tutti.
Oppure, ma mi pare un po' bruttino, potresti usare una variabile
globale di tipo boolean, chiamiamola "Aspetta" da impostare a False
alla pressione del bottone Salva di Maschera 1, ed al posto dell'exit
sub inserire un loop dal quale esci solo se Aspetta = True.
Aspetta viene impostata a true solo alla chiusura di maschera 2.
Se ho detto qualche bischerata, correggetemi. (lo SO che lo farete,
eheheh)
Alessio

 ha scritto nel messaggio
news:bnl6u7$ulj$1...@lacerta.tiscalinet.it...

Se usi
DoCmd.OpenForm(NomeMaschera, , , Condizioni, , , [OpenArgs] as String)
e setti [OpenArgs] a tuo piacere puoi maltrattare la maschera 2 come vuoi.
Saluti,
Giacomo
Newsgroup: it.comp.appl.access
Titolo: Problema di lunghezza testo in un messaggio Email

Ciao ragazzi,
ho due piccoli problemini che non riesco a risolvere:
1) Ho questo codice su evento click che mi invia una email ad un collega
indicando nell'oggetto il nome preso da un controllo
    della maschera:
    Private Sub Etichetta56_Click()
    Call Shell("start mailto:" & "
fabrizi...@libero.it
" & "?subject=" &
Me![Azienda], vbHide)
    End Sub
    Il problema è che se nel controllo azienda    ci sono degli spazi vuoti,
esempio: Badalotti Associati, oppure F.lli Beretta, nel campo oggetto
dell'Email
    si inserisce solo Badalotti....o F.lli...........e basta!!!
    Perche' non mi prende il valore del controllo  per intero??? Non riesco
a capire proprio..
2)Su un'altro evento click invece(che funziona perfettamente) il problema
esiste nel caso (dopo che si è aperta la finestra messaggio)
   io decida di annullare l'operazione. In questo caso mi compare una msgBox
che dice:
   errore di runtime "2501" / l'azione SendObject è stata annullata/
Debug.......cosa non ho messo???
   Il codice è questo:
   Private Sub InviaPreventivoEmail_Click()
   Dim str As String
   str = Me![Email]
   DoCmd.SendObject acReport, "Preventivo Pk", "RichTextFormat(*.rtf)", str,
"", "", "Preventivo PubliKompass New Media", "", True, ""
   End Sub
   Grazie a tutte le anime buone del ng
Ciao
Eddie

 ha scritto nel messaggio
news:Odwn6.42060$Y93.1...@news.infostrada.it...

Per il punto 1) non so' risponderti perché (sembra) che esegui un programma
chiamato "start" a cui tu passi dei parametri, non posseggo il predetto e
neache so' cosa faccia (inteso come codice non come funzionalità).
Per il punto 2) il problema è che devi inserire la gestione dell'errore (on
error goto); quindi la risolvi con:
'------------------------
On Error GoTo Errori
Dim str As String
str = Me![Email]
DoCmd.SendObject acReport, "Prova", "RichTextFormat(*.rtf)", str, "", "",
"Preventivo PubliKompass New Media", "", True, ""
Exit Sub
Errori:
    If Err.Number = 2501 Then
        Resume Next
    Else
        MsgBox Err.Description & ", " & Err.Number
    End If
'------------------------
Ciao.
Newsgroup: it.comp.appl.access
Titolo: maschera / mdb che esplodono

in un db da 1MB ho una maschera in cui vengono visualizzati i risultati 
da circa 20 query.
Quando apro questa maschera, l'mdb "esplode" arrivando a pesare anche 
oltre 100 MB.
C'è qualche soluzione? 

 C'č qualche soluzione?
Sě toglici le immagini
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

[CUT]
Ciao Massimiliano,
come va? tutto bene? :-)


ciao Gaspare, tutto benisssimo (anche perchè mi sono convinto che il Napoli
non è in C e quindi l'unico neo è superato)


[CUT]
;-) 


Azz...
e come si fa a convincersene? Io sto ancora colorando di AZZURRO le Form dei 
miei gestionali e creando il DB del fantacalcio di B !!! 
:-((((((((((((((((((((
Sarà uno stato mentale? bhò. ( X Roberto... ok per il derby del Sud : 
Napoli - Roma in B ;-P ) 

 Sì toglici le immagini
non ci sono immagini :(

[CUT]
Ciao Maurizio,
essere "convinti" nella vita è "fondamentale" sopratutto se la convinzione è 
associata alla "positività" e cmq con la tua/e convinzioni non vai a 
danneggiare gli altri ma solo a sperare che qualcosa cambi...che una 
situazione migliori...
Cosa ti saresti aspettato da Massimiliano che è "ottimista e napoletano fino 
al midollo spinale" ? ;-)
Buona giornata :-)
Gaspare


Non ci conosciamo ancora, vero? Haaaaa, ecco!
Massimo????
Dai, rispondi tu!
;-)
 (visto che non ci conosciamo sappi, a scanso di equivoci,  che io "DA BUON 
NAPOLETANO FINO AL 6° CROMOSOMA", scherzo e anche spesso) 


Beh almeno questo l'ho capito..sai c'è caldo ma non fino a questo punto! ;-)
Si scherza...tanto se non lo fai le cose cmq non vanno di certo 
meglio...invece in questo modo "tutto diventa più bello" :-)
Ora la smetto altrimenti mi "fomattano a basso livello" ;-)
Alla prossima
Gaspare
P.S. ci sarà occasione per conoscerci ;-) 

 non ci sono immagini :(
E' strano. E' difficile credere che quelle query gonfino cosě tanto (mica
sono cocacola)


Newsgroup: it.comp.appl.access
Titolo: Stampa report da maschera

Ho necessita di impostare il valore di alcuni controlli
di un report al momento della sua stampa.
Alla richiesta di stampa del report apro una maschera
faccio introdurre il dato, apro il report, aggiorno il controllo
........ e dovrei stampare!
Come posso fare?
Ho provato varie soluzioni ma niente da fare!
Grazie
--
Leo_duca

 ha scritto nel messaggio news:3b433...@news.dada.it...

Trovato. Molto probabilmente avevo sbagliato
qualcosa quando ho usato DoCmd.PrintOut
Grazie cmq :)
--
Leo_duca
Newsgroup: it.comp.appl.access
Titolo: Generazione automatica di un codice

Ciao a tutti.
Sono nuovissimo del newsgroup e a dir la verità sono abbastanza nuovo 
anche di access.
Comunque sia, il mio problema è il seguente:
ho una tabella in cui il campo chiave primaria deve essere un codice 
che si deve generare automaticamente secondo una logica semplicissima.
Il codice deve essere questo A-XXX-YY
Dove la "A" e i "-" sono valori statici, mentre XXX è un numero 
progressivo e YY è l'anno abbreviato con 2 cifre. Ad esempio il codice 
può essere: A-008-04 che significa documento n°8 dell'anno 2004.
Credo che sia una stupidata, ma non ci sono riuscito. La 
documentazione che ho leto, stranamente, non riportava qualcosa di 
simile e non sono riuscito a ricondurmi a niente del genere. 
Comunque ho provato a pacioccare con le maschere di input e con le 
espressioni, ma con le prime riesco solo a dare il formato che voglio 
al codice (è già qualcosa) con le seconde non so proprio come fare, 
perché credo che debba leggere il valore del record precedente per 
poter emettere un numero successivo.
Spero di essere stato chiaro, altrimenti chiedetemi pure.
Grazie in anticipo!
Pierpaolo 
--
Pierpaolo
Inviato da 
www.mynewsgate.net

 ha scritto nel messaggio
news:200409061...@mynewsgate.net...

Metti come valore predefinito:
="A" & Format(IIf(IsNull(DMax("[]";"[]";"[] like 'A???-" &
Format(Date();"aa") & "'"));1;Mid(DMax("[]";"[]";"[] like 'A???-" &
Format(Date();"aa") & "'"); 2;3)+1);"000") & "-" & Format(Date();"aa")
...e fammi sapere se è ciò che vuoi!
-- 
strano...mavero

 
Non conosce la funzione DMax!
Quindi si pianta!
C'è un'alternativa?


 Pierpaolo
Hai controllanto nei riferimenti se c'è la parola MANCA a fianco di qualche libreria?
A volte si presenta un bug, non viene registrata una libreria delle funzioni base; cerca anche nei vecchi messaggi e nel sito comune
(
www.sitocomune.com
)...
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Selezionare la stampante

Ciao a tutto il NG. Ho un problema e spero voi possiate aiutarmi a
risolverlo: Ho un'applicazione access nella quale vengono creati diversi
report. Ho l'esigenza che quando devo effettuare la stampa devo avere la
possibilità di selezionare la stampante come accade ad es. in word
cliccando File > Stampa.
Nei mei menu a tendina ho inserito la voce stampa ma questa richiama una
macro che avvia direttamente la stampa senza aprirmi la finestra di
impostazione stampante. 
Vi ringrazio anticipatamente. A presto.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Se il report si chiama MioReport, per eseguirlo, invece di usare il metodo
OpenReport, fai così:
DoCmd.SelectObject acReport, "MioReport", True
DoCmd.RunCommand acCmdPrint
Così facendo, prima di avviare la stampa del report Access apre una finestra
di dialogo dalla quale puoi, fra l'altro, scegliere quale stampante usare:
premendo il pulsante OK chiuderai la finistra di dialogo e verrà avviata la
stampa del report sulla stampante selezionata.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


Ciao Roberto
Ho utilizzato la tua risposta a Enzo per risolvere in maniera piů
elegante una situazione simile ,
Un pulsante mi apre in anteprima stampa un determinato report
poi nella barra dei menů ho inserito l'icona  della stampante associata
ad una macro che esegue il codice che tu hai scritto l'unico problema
che sorge č che se scelgo di non stampare mi viene dato errore
"Errore di run-time 2501 l'azione RunCommand č stata annullata."
Questa č la Function per l'azione
Function StampaEtichette1()
DoCmd.SelectObject acReport, "StampaEtichette", True
DoCmd.RunCommand acCmdPrint
End Function
Cosa devo fare per  poter annullare la decisione di stampare senza
che mi venga dato errore?
Grazie Anticipato
Giuseppe

 Giuseppe
Il codice così come l'ho consigliato a Enzo seleziona l'oggetto da stampare
dalla finestra del database e presuppone che loggetto non sia aperto.
Il tuo report è invece già aperto: prova a vedere se funziona così:
DoCmd.SelectObject acReport, "StampaEtichette", False
DoCmd.RunCommand acCmdPrint
Comunque, visto che hai già aperto il tuo report in anteprima di stampa,
l'apertura della finestra di dialogo la puoi ottenere anche selezionando dal
menu File il comando Stampa... , oppure pigiando i tasti Ctrl+P.



La situazione non cambia  , praticamente risulta arrestata la macro
che comanda l'apertura della finestra di stampa ,quindi escono
tutti i messaggi del caso, Ctrl+P č ciň che uso attualmente , mi
sembrava piů consono il pulsante nella barra menů
Grazie comunque
Ciao Giuseppe