Newsgroup: it.comp.appl.access
Titolo: compilazione di word da access

ciao a tutti.
sto utilizzando il modulo di "Namor" per la compilazione di Word da
access
ho modificato le voci che mi interessavano e tolto quelle in più
però ora quando lo lacio mi da errore "Tipo definito dall'utente non
definito" su
Wrd As Word.Application
ecco la parte di codice dove si blocca.
Private Sub PrintAsk_Click()
Dim Wrd As Word.Application, Doc As Word.Document
Dim Rst As DAO.Recordset
Dim Modello As String, NomeFile As String, i As Integer
Dim Record As String, SQL As String
Dim Tbl As String * 1
Dim TotRiga As Currency, Totale As Currency
Dim ReplSel As Boolean
    'Trova il nome, completo di percorso, del modello word
    '("Domanda.dot" nella stessa cartella del database)
    Modello = CurrentDb.Name
    Modello = Left(Modello, Len(Modello) - Len(Dir(Modello))) &
"Domanda.dot"
uso access 2003 - word 2003
grazie per l'aiuto
BCla

 BCla
Vai su Strumenti->Riferimenti e seleziona le librerie Microsoft Word e
Microsoft DAO
Ciao.
-Marco-
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 - Mostra testo citato -
Grazie
scusa se ti disturbo ma ora mi apre word e mi da un'erroe di run-time
"94" Utilizzo no valido di null
fermandosi sulla prima istruzione
----------
    'Apri un nuovo documento basato sul modello:
    Set Doc = Wrd.Documents.Add(Modello)
    'attivalo e portalo in primo piano:
    Doc.Activate
pausa
    'seleziona il bookmark del primo campo = Tipo:
    Doc.Bookmarks("tipo").Select
pausa
    'e sovrascrivilo con il contenuto del campo tipo:
********    Wrd.Selection.TypeText Me.Tipo   ************ qui si
blocca dandomi quell'errore. ma la sintassi a me sembra giusta.
ciao e grazie
BCla
pausa

 blocca dandomi quell'errore. ma la sintassi a me sembra giusta.
E' perch� la casella Tipo sulla maschera � vuota e TypeText non lo accetta.
Per tutte le caselle che al momento dell'esportazione potrebbero essere
vuote devi usare la funzione Nz() per convertire i Null in una stringa
vuota, che pu� essere gestita da TypeText:
  Wrd.Selection.TypeText Nz(Me.Tipo,"")
Ciao.
-Marco-
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


 - Mostra testo citato -
ti ringrazio effettivamente ero tratto in inganno perche si bloccava
in quel punto che era regolarmente compilato ma c'erano altri campi
non compilati.
Quando ho compilato tutti i campi tutto è andato a posto.
ti faccio un'altra domanda  sempre nello stesso progetto ho una
casella data formattata 01/12/2009 ora sarebbe possibile che in fase
di importazione in word la data divenisse 01 dicembre 2009 ?
Ciao e grazie
BCla

 BCla
Si, facilmente. Leggi l'help della funzione Format()
Ciao.
-Marco-
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


 - Mostra testo citato -
Io avevo letto l'help, ma non ho capito un gran che
avevo provato in questo modo
pausa
    'seleziona ora il bookmark del  campo =Decorrenza1:
    Doc.Bookmarks("Decorrenza1").Select
pausa
    'e sovrascrivilo con il contenuto del campo tipo:
    Wrd.Selection.TypeText Me.DataInizio.Format = "Long Date"
ma mi risultava "Falso"
grazie
Ciao
BCla

 pausa

Wrd.Selection.TypeText Me.DataInizio ti d� la data nel formato che gi�
sai, se lo vuoi cambiare devi usare
  format(Me.DataInizio, formato)
I vari tipi di formato li trovi sull'help. Dovrebbe accettare "Long Date",
senn� prova "dd mmmm yyyy"
Ciao.
-Marco-
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


 - Mostra testo citato -
Perfetto grazie
l'opzione Long Date mi mette anche il giorno della settimana
mentre dd mmmm yyyy è perfetta.
grazie mille
BCla