title: Casella di testo

author: Casella Domenico

text:
Ho creato una casella di testo che esegue un rapporto tra due campi. Come
faccio a dire che il risultato lo voglio con una sola cifra decimale?
N.B. NELLE PROPRIETA' DELLA CASELLA DI TESTO HO INDICATO A POSIZIONI
DECIMALI IL NUMERO 2!!!!
Saluti a tutti e...
Comunque vada sara' un successo
Domenico
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at
http://www.hotmail.com
.
Share information about yourself, create your own public profile at
http://profiles.msn.com
.
--
Posted from [193.204.185.24] by way of
f90.law7.hotmail.com
 [216.33.237.90]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Casella di testo

author: Silvio Berruti

text:
""Casella Domenico"" <
domenico...@hotmail.com
> ha scritto nel messaggio
news:F90LhUGBOSfmC...@hotmail.com...
> Ho creato una casella di testo che esegue un rapporto tra due campi. Come
> faccio a dire che il risultato lo voglio con una sola cifra decimale?
>
> N.B. NELLE PROPRIETA' DELLA CASELLA DI TESTO HO INDICATO A POSIZIONI
> DECIMALI IL NUMERO 2!!!!
Non ho capito...
se vuoi un solo decimale, perché nella proprietà Posizioni Decimali hai
messo 2?
Diciamo che mi sarei aspettato 1 (x logica, o no???)
??????????????????
--
Silvio
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access


title: problema con query

author: Enzo

text:
mi spiego,
ho una query che estrae certi dati da una tabella, Costi_2006, la
stessa query la vorrei utilizzare anche per le altre tabelle,
Costi_2005, Costi_2004, ecc.
vorrei visualizzare i dati, questo è già risolto, della query a
seconda di cosa è stato selezionato in un altra maschera, tramite
casella combinata, con questi valori 2006, 2005, 2004.
in poche parole, se seleziono 2005, nell'altra maschera dovrei
visualizzare i risultati della query che utilizza la tabella
Costi_2005, se selezionato 2004, tabella Costi_2004 e cosi via.
come faccio


title: problema con query

author: Roberto da casa

text:
"Enzo" <
benin...@libero.it
> ha scritto nel messaggio
news:1143227171.1...@e56g2000cwe.googlegroups.com...

Devi modificare da VBA il codice SQL della query; se, come penso, la query è
registrata, trovi un esempio di come modificare il codice SQL di una query
registrata sul Sito Comune (link qui sotto), nella Sezione Queries, nella
mia FAQ intitolata "2.10 Come si può creare in maniera dinamica una query
con la tecnica QBF?".
Comunque forse la soluzione più semplice è quella di crearti tre query ed
eseguire quella giusta in base alla scelta fatta con la casella combinata.
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: OT Scusate

author: Fabrizio

text:
Scusate non fate caso se dovessero comparire dei copioni di un mio
messaggio : è freeAgent che fa le bizze ( e io con lui )
Ciao. Fabrizio


title: report: più record alla stessa altezza (stampa etichette)

author: il mago galbusera

text:
ciao a tutti
mi chiedevo se è possibile fare delle stampe multi colonna direttamente da
access o devo costruire una stampa unione con il word
mi spiego meglio:
supponiamo che debba stampare un centinaio di etichette di indirizzi, se il
foglio delle etichette ha un formato di 3x7 etichette su un foglio A4, come
faccio a stampare "sulla stessa riga di un report" tre indirizzi ?
grazie mille


author: Massimiliano Amendola  kksrl

text:
"il mago galbusera" <galb...@katamail.com.REMOVEME> ha scritto nel
messaggio news:ag15mp$r1k$1...@fe1.cs.interbusiness.it...

nelle impostazione pagina setta le 3 colonne e dai la disposizione
orizzontale
ciao
MAssimiliano


title: Come spostarsi da un campo qls al primo campo dello stesso record

author: Loredana Marano

text:
Ciao a tutti
sapete come ci si può spostare da un qualsiasi campo di un record al primo del
medesimo con una combinazione di tasti o con un pulsante o macro.
Grazie per l'aiuto.
Loredana
--
Posted from
ppp-62-10-35-71.dialup.tiscali.it
 [62.10.35.71]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: Roberto dal portatile

text:
"Loredana Marano" <
rab...@supereva.it
> ha scritto nel messaggio
news:c80f109efcd509f0cb...@mygate.mailgate.org...
> Ciao a tutti
> sapete come ci si può spostare da un qualsiasi campo di un record al primo
del
> medesimo con una combinazione di tasti o con un pulsante o macro.
> Grazie per l'aiuto.
> Loredana
>
Vai sul Sito Comune (link qui sotto), Sezione General, e a seconda delle tue
necessità usa quanto indicato in una di queste FAQ:
1) "Disabilitare/abilitare l'effetto del tasto shift" di Davide Pigoni
2) "Disabilitare/abilitare l'effetto del tasto shift all'avvio (solo
amministratori)." di Federico Luciani
3) "Disabilitare/abilitare l'effetto del tasto shift all'avvio." di Federico
Luciani.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
"Loredana Marano" <
rab...@supereva.it
> ha scritto nel messaggio
news:c80f109efcd509f0cb...@mygate.mailgate.org...
> Ciao a tutti
> sapete come ci si può spostare da un qualsiasi campo di un record al primo
del
> medesimo con una combinazione di tasti o con un pulsante o macro.
> Grazie per l'aiuto.
> Loredana
>
>
Scusami Loredana, ma la risposta era per mamosso per il quesito che ha posto
nel thread successivo al tuo. :(



author: Sergio MAZZA

text:
"Loredana Marano" <
rab...@supereva.it
> ha scritto nel messaggio
news:c80f109efcd509f0cb...@mygate.mailgate.org...
> Ciao a tutti
> sapete come ci si può spostare da un qualsiasi campo di un record al primo
del
> medesimo con una combinazione di tasti o con un pulsante o macro.
> Grazie per l'aiuto.
> Loredana
>
Con un pulsante, prova con:
'--------------
DoCmd.GoToRecord acActiveDataObject, , acFirst
'--------------
questo per andare sul primo record della maschera; controlla nell'help il
metodo GoToRecord per le altre possibilità. Se vuoi muoverti con una
combinazione di tasti devi crearti una macro AutoKeys dove definisci i tasti
(o combinazione) e le funzioni (non subroutine!!!) che eseguiranno le
istruzioni necessarie; ma qui ti si complica la vita perché il GoToRecord
potrebbe non riconoscere la "base dati" su cui si deve muovere...
Ciao.


title: Problemi con grafico

author: Ottarrio

text:
Buongiorno a tutti.
Sto cercando di creare un grafico che mi faccia vedere la somma di
determinati periodi espressi in ore in cui sia stata svolta un tipo ti
attività. I dati nella query sono visualizzati in modo corretto e
cioè in
hh.mm
.   Quando invece creo il grafico prendendo i dati da
questa query me li trasforma in numeri tipo 4,86 E-02. Se vado a
modificare il formato del numero sul foglio dati collegato al grafico
in
hh.mm
 il tutto si aggiusta. Se però chiudo e salvo e riapro il
grafico tutti i numeri ritornano ad essere nel formato strano
precedente (4,86 E-02)..
Qualcuno saprebbe darmi un consiglio?
Grazie. Dario


title: Problemi con grafico

text:
"Ottarrio" <
vand...@gmail.com
> ha scritto nel messaggio
news:1156409470.1...@p79g2000cwp.googlegroups.com...

Grazie. Dario
[risposta]
E' probabile che devi formattare i valori nella query in formato Date/Time;
prova ad utilizzare la funzione CDate (vedi help alla voce: Funzioni di
conversione del tipo, attivabile con ALT-F11 poi F1):
es.(campo calcolato in query)
oraMinuti: Cdate([nomeCampoConOre])
Ciao.
--
Sergio MAZZA


title: Problemi con grafico

author: MA

text:
Ottarrio wrote:
> Buongiorno a tutti.
Succedono spesso anche a me: io sviluppatore lui grafico, bisticciamo spesso
per l'aspetto delle nostre form!!!
> Grazie. Dario
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Trasformazione Dati

author: Alex

text:
Salve,
sono nuovo del forum, quindi scusate se la domanda vi sembrerą banale o
stupida, ma avrei bisogno di sapere se č possibile trasformre lista dati di
una casella combinata o di riepilogo, in un gruppo di dati in un campo
normale di testo.
EX:
casella combinata   vvvvv
                             aaaaa
                             bbbbb
casella di testo  vvvvv, aaaaa, bbbbb.
Grazie in anticipo,
Ciao
Alessio


title: Trasformazione Dati

author: ALESSANDRO Baraldi

text:
"Alex" <
nus...@virgilio.it
> ha scritto nel messaggio
news:sbKAb.62223$AX1.2...@news1.tin.it...

Supponiamo la tua ListBox si chiami lstElenco che la colonna
da leggere sia la 1 e che la tua TxtBox si chami txtCriteria:
Private Sub ListToTextConvert()
      Dim x as As Integer
      Dim stWhat As String
      stWhat = ""
      For x=0 to Me.lstElenco.ListCount-1
          stWhat = stWhat & Me.lstElenco.Column(1, x) & ";"
      Next
      Me!txtCriteria = CStr(Left$(stWhat, Len(stWhat) - 1))
End sub
Ciao.
@Alex.


title: Controllo sì, controllo no!

author: aleatwork

text:
Qualcuno ha mai manifestato questo problema?
Su una LAN ho un database su di una cartella condivisa.
Se lo prendo via rete da un PC tutti i controlli di una form funzionano
perfettamente, se lo pesco da un altro PC uguale come HW/SW alcuni
controlli mi restitusicono #nome.
E dire che il controllo ha solo questa semplice funzioncina:
=IIf([DataRichiesta]<>"" And
[DataSopralluogo]<>"";Contalavorativi([DataRichiesta];[DataSopralluogo];Vero)-2;0)
Cordiali saluti
Ale
PS Per altro, uno mi apre la form a tutto schermo e l'altro no!
Boh
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Controllo sì, controllo no!

author: Laura

text:
E' uno dei tanti giochi di prestigio che fa Access!!!
Comunque, le installazioni di Access da PC a PC è identica?



title: Controllo sì, controllo no!

author: Enrico T.S.

text:
"aleatwork" <
aless...@softhome.net
> ha scritto nel messaggio
news:6b53113c42937464eac...@mygate.mailgate.org...
> Qualcuno ha mai manifestato questo problema?
> Su una LAN ho un database su di una cartella condivisa.
> Se lo prendo via rete da un PC tutti i controlli di una form funzionano
> perfettamente, se lo pesco da un altro PC uguale come HW/SW alcuni
> controlli mi restitusicono #nome.
> E dire che il controllo ha solo questa semplice funzioncina:
> =IIf([DataRichiesta]<>"" And
>
[DataSopralluogo]<>"";Contalavorativi([DataRichiesta];[DataSopralluogo];Vero
)-2;0)
> Cordiali saluti
> Ale
>
Tieni sempre presente (se già nn lo sai=) che quello che il programma legge
su
un computer non e' detto che sia lo stesso di quello che
legge da un altro.
Per capirci se quel programma cerca dei dati che sul PC1 li trova
in C:\DATI non e' detto che eseguendo il programma da PC2
il PC2 abbia la cartella C:\DATI di conseguenza nn torvera' mai cio' che
cerca.
Ed il discorso e' anche + ampio.
Bye :o)


title: Controllo sì, controllo no!

author: Luciano (DOC)

text:
aleatwork ha scritto nel messaggio
<
6b53113c42937464eac...@mygate.mailgate.org
>...
>Qualcuno ha mai manifestato questo problema?
>Su una LAN ho un database su di una cartella condivisa.
>Se lo prendo via rete da un PC tutti i controlli di una form funzionano
>perfettamente, se lo pesco da un altro PC uguale come HW/SW alcuni
>controlli mi restitusicono #nome.
Evidentemente i computer della lan non usano la stessa lettera per mappare
la cartella condivisa dove c'e' il DB.
Saluti.
Luciano


title: Controllo sì, controllo no!

author: MarcoS

text:
"aleatwork" <
aless...@softhome.net
> ha scritto nel messaggio
news:6b53113c42937464eac...@mygate.mailgate.org...
> Qualcuno ha mai manifestato questo problema?
> Su una LAN ho un database su di una cartella condivisa.
> Se lo prendo via rete da un PC tutti i controlli di una form funzionano
Quando restituiscono #nome è perchè non ha trovato la base dati, quindi è
probabile che su quel PC hai mappato l'unità condivisa con una lettere
diversa oppure non riesce per qualche motivo leggere quel PC.
Cmq per sicurezza io non uso mai un lettera per mappare il db dei dati ma la
path completa.
Es. collego le tabelle non con la lettera "F" ma con \\tnt\database, così
sei sicuro di non sbagliare.
--
Ciao Marco S.
www.marcosanti.it


title: Controllo sì, controllo no!

text:
> Quando restituiscono #nome è perchè non ha trovato la base dati, quindi è
> probabile che su quel PC hai mappato l'unità condivisa con una lettere
> diversa oppure non riesce per qualche motivo leggere quel PC.
> Cmq per sicurezza io non uso mai un lettera per mappare il db dei dati ma la
> path completa.
> Es. collego le tabelle non con la lettera "F" ma con \\tnt\database, così
> sei sicuro di non sbagliare.
Rispondo a Marco ed estendo il ringraziamento anche agli altri che mi
hanno aiutato.
Il punto è che il Database, che è in una cartella condivisa, non ha
tabelle collegate e non viene aperto da drive mappati.
Ciao!
Ale



title: Sql con query ritardata...

author: bcesare

text:
Sottopongo alla Vs attenzione, con la speranza che qualcuno mi dia una mano,
la seguente routine attivata da un evento Change di una textbox.
In parte l'ho già posta per un inconveniente risolto con l'aiuto di Sib.
Nella Form Anagrafica (come quasi al solito) ci sono i campi Cognome, Nome,
Sesso, Luogo di Nascita e Data di Nascita. Al di sopra ci sono 5 txtbox  non
collegate per immettere le informazioni analoghe.
La mia idea era questa: mentre si digita il cognome l'esecuzione di StrSql
mostra mano a mano il risultato nella maschera sottostante anche per input
parziali, e stessa cosa per il nome.
La cosa strana che riferendosi p.es.alla TxtBox RicCognomeTxt il risultato
viene mostrato DOPO il seguente evento Change. Cioè se digito S il valore
RicCognomeTxt risulterà nullo, mentre al secondo change sarà uguale ad S
Sub FiltraPerAssonanza()
    Dim StrSQL As String
        'On Error GoTo fuori
    StrSQL = "SELECT * FROM TblAnagrafica " _
          & "WHERE (((TblAnagrafica.cognome) like """ & RicCognomeTxt &
"*"" ))" _
          & "and((TblAnagrafica.nome) like """ & RicNomeTxt & "*"" );"
    Me.RecordSource = StrSQL
    Me.RicCognomeTxt.SetFocus
'fuori:
Beep
'Exit Sub
End Sub
Ho provato a riferirmi ai campi non collegati come Me.RicCognomeTxt.Text ma
pur funzionando, pretende ( a ragione ) che il campo di riferimento sia
sempre il corrente, e stranamente qundo la stringa immessa non esiste nella
tbl, genera un errore e dice che la stessa è nulla (boh)


title: BUONE FESTE A TUTTI......

author: Dino

text:
Volevo augurarvi delle ottime feste da passare serenamente magari
anche in compagnia del nostro amico quotidiano... "ACCESS".
Un augurio particolare a Karl, Carlo ,Alex,Antonio,Geppo,Fair
87,Pabliform e a tutti quelli che con la loro conoscienza ci aiutano
quotidianamente per la risoluzione delle problematiche.
Auguri
Dino


title: Aprire un DB da una form di un'altro DB

author: JeanLoup

text:
Salve a tutti.
Ho la necessità di aprire un database con un pulsante posto in una form di
un'altro DB.
Si può fare? Come?
Grazie x l'eventuale risposta.
Ciao, JeanLoup


title: Aprire un DB da una form di un'altro DB

author: sv

text:
JeanLoup ha scritto:

Controlla se per te va bene:
http://www.donkarl.com/it/
FAQ 1.13 Apertura di un altro DB
FAQ 1.14 Usare oggetti da altri database
--
rgrds
SC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: inserimento dati

author: backman

text:
Salve a tutti
Ho un semplice problema che non riesco a risolvere.
Ho due tabelle la prima con le generalita delle persone; la seconda con i
dati relativi ai comuni italiani.
Creo una maschera con i dati della tabella uno, selezionando i dati dalla
tabella due devo inserire in tabella uno esempio
Cognome:  tabella uno
luogo di nascita: tabella uno (localia da selezionare tabella due)
Provincia (tabella uno) deve dare prelevare il dato dalla tabella due.
Typo tabella Uno (provincia comune) dati provvenienti dalla tabella due.
In pratica selezionando un dato dalla tabella due devono essere inserite
automaticamte gli altri dati.....
aiutami grazie


title: inserimento dati

author: Carlo Costarella

text:
"backman" <bac...@asa.asawom> ha scritto nel messaggio
news:pan.2005.06.28....@asa.asawom...

Permettemi di dire che sei stato poco chiaro ed hai usato un oggetto poco
significativo.
Intuisco che vorresti inserire il comune nel campo nascita della tabella uno
prelevandolo dalla tabella due, o la residenza allo stesso modo. Se è così
ci sono almeno due modi. In struttura della tabella uno ti posizioni sul
campo per esempio LuogoNascita e dal riquadro in basso selezioni Ricerca,
visualizza controllo casella combinata, origine riga TabellaDue, colonna
associata 1 (se il nome del comune è la prima colonna), numero colonne 1,
solo in elenco No. A questo punto salvi e chiudi e apri la maschera per le
generalità. Se avevi inserito il controllo LuogoNascita lo elimini e lo
reinserisci altrimenti lo inserisci e basta. Ora il controllo è una casella
combinata e ti basterà premere la prima lettera del comune per avere
l'elenco di quei comuni....
Il secondo metodo è simile al primo ma agisci solo nella maschera inserendo
una combobox (casella combinata) alimentata dalla tabella comuni. Qui dovrai
scrivere una riga di codice sull'evento click:
Me.LuogoNascita = Me.MiaCasellaCombinata : me.LuogoNascita set focus
Ciao, Carlo


title: Usare i valori delle caselle di testo

author: Salvio

text:
Salve,
vorrei usare i valori delle caselle di testo di una
maschera all'interno di un report.
Se nella maschera ho una casella di testo txtNome
e nel report una etichetta Valore
come posso correttamente fare
Valore.Caption=txtNome
Grazie


title: Usare i valori delle caselle di testo

author: VT @ home

text:
Il 11 Jan 2007 07:38:48 -0800, "Salvio" <
nico...@hotmail.it
> ha scritto:
>(.....)

Valore.Caption=Forms!NomeMaschera!txtNome
Attenzione, perchè quando esegui il report la maschera deve essere aperta.
>
>Grazie
Vincenzo Turturro
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com/
---------------------------------------------
E quello di it.comp.as400
http://www.faq400.com/
---------------------------------------------


title: Virus, state in campana

author: Giovanni Albertone

text:
Se non vi e' gia' arrivato vi arrivera'...
Sta girando un virus in un messaggio intitolato ILOVEYOU.
Non e' il Biso che si fa vivo dall'oltretomba, ma un vero virus di
quelli noiosi che caricano la vostra rubrica e iniziano a sparare mail
in giro per il mondo.
Contiene un attachment che si chiama LOVE-LETTER-FOR-YOU.TXT.vbs
Non lo aprite, cancellate il messaggio e tornate a lavorare.
Per inciso, stavolta non sembra essere un hoax, da queste parti oggi
so per certo di almeno due uffici (per un totale di circa 3000
impiegati) che hanno chiuso il loro sistema, io stesso ne ho ricevute
4 o 5 copie nell'ultima mezz'ora.
Buona fortuna.
--
Ciao,
Giovanni


title: Virus, state in campana

author: Lorenzo Coronati

text:
Scrisse Giovanni Albertone
<g_albertone@NOSPAM_MA_SENZA_NOSPAMhotmail.com>:
>so per certo di almeno due uffici (per un totale di circa 3000
>impiegati)
1500 l'uno?
altro che favelas...
--
Lorenzo Coronati
--
<<Nessuno sa che questa affermazione e' vera>>
(John D. Barrow)
--


title: Virus, state in campana

text:
ROTFL!!!
Micio
Lorenzo Coronati ha scritto nel messaggio
<
3912f10c...@news.libero.it
>...



title: Virus, state in campana

text:
On Fri, 05 May 2000 21:03:47 GMT,
lore...@tin.ton.tan.it
 (Lorenzo
Coronati) wrote:
>
>1500 l'uno?
>altro che favelas...
I dipendenti della comunita' europea sono notoriamente dei poveracci
:-)
--
Ciao,
Giovanni


title: evitare la chiusura della form a condizione che....

author: Franco dellavalle

text:
ciao a tutti

su scaricamento di una form ho inserito....

If Not IsNull(Me!nNCFo) And IsNull(Me!DataNCFo) Then
  MsgBox "Devi inserire la data!", vbInformation, "Informazione!"
  Cancel = True
  Me!DataNCFo.SetFocus

End If

ma a causa di una function che ho sul pulsante di chiusura della form in questione, questa si chiude ugualmente, anche in mancanza della data........

sul pulsante chiusura form ho: =fTrovaFatturaFo()
Function fTrovaFatturaFo()
On Error Resume Next

Dim strCtl As String

strCtl = Nz(Forms("M_FatturaFornitore")!nFatturaFo_nNCFo, 0)
DoCmd.Close acForm, "M_FatturaFornitore"
Forms("M_FatturedeiFornitori").SetFocus
Forms("M_FatturedeiFornitori")!SM_RiepFattureFornitori.SetFocus  Forms("M_FatturedeiFornitori")!SM_RiepFattureFornitori.Form!nFatturaFo_nNCFo.SetFocus
DoCmd.FindRecord strCtl

End Function

Come posso risolvere?
Grazie


author: Ammammata

text:
Il giorno Sat 18 Feb 2017 05:41:14p, *Franco dellavalle* ha inviato su
it.comp.appl.access il messaggio news:24e11ef5-3cf2-41f5-912a-
759156...@googlegroups.com
. Vediamo cosa ha scritto:

> Come posso risolvere?
>

metti il codice di controllo data nella function, restituendo un valore che
segnali l'errore, e lo gestisci come meglio credi

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
>>>>>
http://www.bb2002.it
 :)  <<<<<
........... [ al lavoro ] ...........


text:

ciao Ammammata e grazie per la risposta.

ho fatto in questo modo.... e sembra funzionare....
su scaricamento della form......
Dim ctl As String
Dim Vartxt As String

If IsNull(Me!nNCFo) And _
  Not IsNull(Me!DataNCFo) Then ctl = "nNCFo"
If Not IsNull(Me!nNCFo) _
  And IsNull(Me!DataNCFo) Then ctl = "dataNCFo"

If ctl <> "" Then
  Vartxt = IIf(ctl = "nNCFo", "il numero", "la data")
  If MsgBox("Vuoi inserire " & Vartxt & " Nota Credito?", _
    vbYesNo, "Mancano i dati!") = vbYes Then
      Cancel = True
      Me(ctl).SetFocus
  Else
      ctl = IIf(ctl = "nNCFo", "DataNCFo", "nNCFo")
      Me(ctl) = Null
      Exit Sub

  End If

End If

poi su click di un pulsante di chiusura form: =fTrovaFatturaFo()

questa è la Function relativa...
Function fTrovaFatturaFo()
On Error GoTo Fine:

Dim strCtl As String

strCtl = Nz(Forms("M_FatturaFornitore")!nFatturaFo, 0)
DoCmd.Close acForm, "M_FatturaFornitore"

Forms("M_FatturedeiFornitori").SetFocus
Forms("M_FatturedeiFornitori")!SM_RiepFattureFornitori.SetFocus
Forms("M_FatturedeiFornitori")!SM_RiepFattureFornitori.Form!nFatturaFo.SetFocus
DoCmd.FindRecord strCtl

Fine:
Exit Function

End Function


title: [Word] Stampa unione

author: massimo

text:
Da una maschera, cliccando su un pulsante, voglio lanciare un file di
word che ha come origine dati una query presente in un database di
Access. Come base di partenza ho approfittato della general047
pubblicata su
www.sitocomune.com
 di Federico Luciani. Avevo pensato a
una soluzione di questo tipo sostituendo la parte compresa in With
WordApp con
Naturalmente non funziona dato che ho letteralmente tirato a
indovinare. Avete qualche suggerimento?
Private Sub cmdWord_Click()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim MailMerge as Object
    Dim blOpen As Boolean
    On Error Resume Next
    blOpen = True
    Set wordApp = GetObject(, "Word.Application")
    If Err.Number = 429 Then
        Set wordApp = CreateObject("Word.Application")
        blOpen = False
        Err.Number = 0
    End If
    On Error GoTo gestErrori
    Set wordDoc = wordApp.Documents.Open(c:\path\wordfile.doc)
    With wordApp
      With ActiveDocument.MailMerge
    	    	.Destination = wdSendToPrinter
    	    	.Execute
    	End With
    End With
    If Not blOpen Then
        wordDoc.Close savechanges:=False
        wordApp.Application.Quit
    End If
esci:
    Set wordDoc = Nothing
    Set wordApp = Nothing
    Exit Sub
gestErrori:
    MsgBox Err.Number & " - " & Err.Description
    GoTo esci
End Sub


title: [Word] Stampa unione

text:
Da una maschera, cliccando su un pulsante, voglio lanciare e
stampare automagicamente un file di word, avente come origine dati
una query presente in un database di Access. Come base di partenza ho
approfittato della general047 pubblicata su
www.sitocomune.com
 di
Federico Luciani. Avevo pensato a una soluzione di questo tipo
sostituendo la parte compresa in With WordApp con
With ActiveDocument.MailMerge
.Destination = wdSendToPrinter
.Execute
End With
Naturalmente non funziona (ho letteralmente tirato a indovinare).



title: [Word] Stampa unione

author: Roberto da casa

text:
"massimo" <n...@send.invalid> ha scritto nel messaggio
news:Xns933CED27...@news.inwind.it...

Da un messaggio di Sergio Mazza, questo è un esempio di codice per aprire un
documento word e stamparne il contenuto:
Sub ApriWordperStampare()
Dim oApp As Word.Application
Set oApp = CreateObject("Word.Application")
'apro il documento
oApp.Application.Documents.Open "d:\documenti\NomedelDocumento.doc"
'se voglio vedere word
oApp.Visible = True
'la prossima riga stampa tutte le pagine
oApp.ActiveDocument.PrintOut
'chiudo word
oApp.Quit
Set oApp = Nothing
End Sub
Perché il tutto ti funzioni devi aggiungere al tuo database i riferimenti
alla libreria Microsoft Word.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: [Word] Stampa unione

text:
On 13 mar 2003, "Roberto da casa" <
r.ma...@libero.it
> wrote in
news:uuYba.8224$
7y3.2...@twister1.libero.it

> Sub ApriWordperStampare()
> Dim oApp As Word.Application
> Set oApp = CreateObject("Word.Application")
> 'apro il documento
> oApp.Application.Documents.Open(
> "d:\documenti\NomedelDocumento.doc") 'se voglio vedere word
> oApp.Visible = True
> 'la prossima riga stampa tutte le pagine
> oApp.ActiveDocument.PrintOut
> 'chiudo word
> oApp.Quit
> Set oApp = Nothing
> End Sub
>
> Perché il tutto ti funzioni devi aggiungere al tuo database i
> riferimenti alla libreria Microsoft Word.
Grazie.
Dimenticavo, come a mio solito, di inserire i riferimenti alla
libreria utilizzata. BTW, avevo trovato diversi esempi su google
http://groups.google.it/groups?hl=it&lr=&ie=UTF-8&oe=UTF-
8&q=with+mailmerge+open+wdsendtoprinter+access
Sono riuscito a raggiungere una soluzione che funziona solo una
volta. Se clicco piů volte sul pulsante ottengo l'errore
  462 - il computer server remoto non esiste o non č disponibile
Temo dipenda dal fatto che strada facendo word perde il filo... il
focus volevo dire.
Sub Comando2_Click()
Dim wordApp As Object
    Dim wordDoc As Object
    Dim blOpen As Boolean
    On Error Resume Next
    blOpen = True
    Set wordApp = GetObject(, "Word.Application")
    If Err.Number = 429 Then
        Set wordApp = CreateObject("Word.Application")
        blOpen = False
        Err.Number = 0
    End If
    On Error GoTo gestErrori
    Set wordDoc = wordApp.Documents.Open("C:\1.doc")
    With wordApp
      .Visible = True
      .Activate



title: [Word] Stampa unione

text:
"massimo" <n...@send.invalid> ha scritto nel messaggio
news:Xns933DB63D...@news.inwind.it...
> On 13 mar 2003, "Roberto da casa" <
r.ma...@libero.it
> wrote in
> news:uuYba.8224$
7y3.2...@twister1.libero.it
>
> > Sub ApriWordperStampare()
> > Dim oApp As Word.Application
> > Set oApp = CreateObject("Word.Application")
> > 'apro il documento
> > oApp.Application.Documents.Open(
> > "d:\documenti\NomedelDocumento.doc") 'se voglio vedere word
> > oApp.Visible = True
> > 'la prossima riga stampa tutte le pagine
> > oApp.ActiveDocument.PrintOut
> > 'chiudo word
> > oApp.Quit
> > Set oApp = Nothing
> > End Sub
> >
> > Perché il tutto ti funzioni devi aggiungere al tuo database i
> > riferimenti alla libreria Microsoft Word.
>
> Grazie.
>
> Dimenticavo, come a mio solito, di inserire i riferimenti alla
> libreria utilizzata. BTW, avevo trovato diversi esempi su google
>
>
http://groups.google.it/groups?hl=it&lr=&ie=UTF-8&oe=UTF-
> 8&q=with+mailmerge+open+wdsendtoprinter+access
>
> Sono riuscito a raggiungere una soluzione che funziona solo una
> volta. Se clicco più volte sul pulsante ottengo l'errore
>   462 - il computer server remoto non esiste o non è disponibile

Ho imparato per esperienza a diffidare delle  routine che usano:
On Error Resume Next
In caso di errore vanno avanti nell'esecuzione del codice e si è fortunati
se non creano guai seri.
Altre volte mi è capitato di sentire che in versioni diverse di Access il
numero errore è diverso, con tutte le conseguenze del caso.



title: Codice fiscale

author: Info Censimento

text:
Ho una tabella con i campi
Nome, Cognome, Sesso, Data di nascita, Luogo di nascita
ho esigenza far calcolare per ogni riga il codice fiscale.
Ho scaricato dal sito comune l' applicazione del codice fiscale, siccome non
sono molto bravo, non riesco ad adattare il codice presente in quella
applicazione per farmi scrivere il codice fiscale automaticamente in un
campo in corrispondenza di ogni riga.
Qualcuno mi può aiutare ?


title: Codice fiscale

author: Antonio Biso

text:
"Info Censimento" <
infocens...@libero.it
> ha scritto nel messaggio
news:eefM9.31291$Ou4.9...@twister2.libero.it...

Se guardi le righe di codice nella maschera vedi che c'è la chiamata alla
funzione che calcola effettivamente il codice
CalcoloCodFis(Me.txtCognome, Me.txtNome, CVDate(Me.txtDataNascita),
Me.cboSesso, Trim(Me.txtCodiceComune)
Questa funzione prende i parametri classici per il calcolo del codice
fiscale dalla maschera, mentre tu li hai tutti in una tabella no?
Puoi fare allora una query che ti aggiorni il campo codice fiscale della
tabella (se non c'è crealo) utilizzando la funzione
Query di aggiornamento di questo campo con sotto
CalcoloCodFis([Cognome];[Nome];[DataNascita];[Sesso];[CodiceComune])
I nomi tra le parentesi quadre sono i nomi dei campi della tabella.
L'unico problema è il CodiceComune. Tu infatti hai il comune, non il codice,
nella tabella.
Ma nel dB che hai scaricato c'è la tabella dei comuni con comune e codice.
Dovrai allora mettere in join la tua tabella con quella dei comuni sul campo
Comu_Descr ed utilizzare il campo Comu_Cod da passare alla funzione che
diventerà
CalcoloCodFis([Cognome];[Nome];[DataNascita];[Sesso];[Comu_COD])
L'ultimo problema potrebbe essere che il comune è scritto diverso nella tua
tabella da quella dei comuni.
In questo caso dovrai intervenire a mano. Tieni presente che in quei casi il
join fa sì che quei record siano scartati e quindi il campo codicefiscale
non verrà aggiornato e alla fine lo troverai bianco come all'inizio.
Su quei record dovrai prima scrivere correttamente il nome del comune come
nella tabella dei comuni.
Quindi potrai rieseguire la query
Antonio


title: Codice fiscale

author: desio

text:
> nella tabella dei comuni.
> Quindi potrai rieseguire la query
>
> Antonio
>
Caro Antonio quando ti ci metti sei proprio very good
bravo
ciao
desio


title: Codice fiscale

text:
Ho creato la query di aggiornamento sul campo codice (campo in cui la
funzione dovrebbe andare a scrivere il codice fiscale) inserendo in
corrispondenza della voce "aggiorna a:"
CalcoloCodFis([Cognome];[Nome];[Data];[Sesso];[Comu_COD])
ho creato il join tra il campo luogo (campo contenente il luogo di nascita)
ed il campo comu_descr del dB che ho scaricato
Quando lancio la query, però, mi dà un msg d' errore, mi dice:
"Funzione 'CalcoloCodFis' non definita nell' espressione"
Aggiungo che non sapendo dove andare a scrivere il codice, non ho eliminato
la maschera presente nel dB scaricato, mi sono limitato a creare la query.
Puoi aiutarmi ?
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:OQfM9.30692$TC5.9...@twister1.libero.it...



title: Codice fiscale

text:
"Info Censimento" <
infocens...@libero.it
> ha scritto nel messaggio
news:9ZkM9.31509$TC5.9...@twister1.libero.it...

Penso sia melio tu scriva dopo il quoting (lo scritto già esistente) se
qualcuno potrebbe arrabbiarsi
desio


title: Codice fiscale

text:
scusate
non sono molto pratico mi sono avvicinato a questo mondo da poco
"desio" <
giscar...@dada.it
> ha scritto nel messaggio
news:3e01d...@news.dada.it...



title: Codice fiscale

author: Luigi

text:
Carissimo Antonio,
in base alla stringa
CalcoloCodFis([Cognome];[Nome];[DataNascita];[Sesso];[Comu_COD])
Come faccio a fare in modo che tra i vari campi ci sia uno spazio?
Mi spiego. Ad oggi il CodFis fiene scritto AAABBB55V66B018Z - quindi tutto
attaccato. io avrei bisogno di vederlo:
AAA BBB 55v66 B018Z
Grazie e Buone feste.
Luigi


title: Codice fiscale

author: Emyr

text:
On Fri, 20 Dec 2002 12:43:53 GMT, "Luigi" <
maur...@porta-spa.com
>
wrote:

fiscale=CalcoloCodFis([Cognome];[Nome];[DataNascita];[Sesso];[Comu_COD])
fiscale=left(fiscale,3) & " " & mid(fiscale,4,3) & " " &
mid(fiscale,7,5) & " " & mid(fiscale,12)
Saluti.
Emanuele.


title: Codice fiscale

text:
"Luigi" <
maur...@porta-spa.com
> ha scritto nel messaggio
news:dgEM9.34657$TC5.1...@twister1.libero.it...

Visto che Antonio ha iniziato le sue vacanze natalizie, ti rispondo io.
Nella proprietą Formato del controllo in cui visualizzi il codice fiscale
scrivi:
@@@ @@@ @@@@@ @@@@@
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Codice fiscale

text:
Wowwww :-) era talmente semplice.
Grazie mille e auguroni sia a Roberto che Emyr...
Luigi


title: Codice fiscale

text:
"Luigi" <
maur...@porta-spa.com
> ha scritto nel messaggio
news:wWEM9.34815$TC5.1...@twister1.libero.it...
> Wowwww :-) era talmente semplice.
> Grazie mille e auguroni sia a Roberto che Emyr...
>
> Luigi
Auguri a te ed alla tua famiglia.
