compilazione di word da access
bcla
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
Marco Pizzamiglio
> 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
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
bcla
>
> Vai su Strumenti->Riferimenti e seleziona le librerie Microsoft Word e
> Microsoft DAO
> Ciao.
> -Marco-
>
> --
>
>
> - 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
Marco Pizzamiglio
> cut
> >
> > Vai su Strumenti->Riferimenti e seleziona le librerie Microsoft Word e
> > Microsoft DAO
> > Ciao.
> > -Marco-
> 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.
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
bcla
>
> 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
> Wrd.Selection.TypeText Nz(Me.Tipo,"")
> Ciao.
> -Marco-
>
> --
>
>
> - 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
Marco Pizzamiglio
> CUT
> > 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-
> 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
Si, facilmente. Leggi l'help della funzione Format()
Ciao.
-Marco-
--
questo articolo e` stato inviato via web dal servizio gratuito
bcla
wrote:
> bcla ha scritto:
>
>
>
>
>
> > CUT
> > > 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
> > > Wrd.Selection.TypeText Nz(Me.Tipo,"")
> > > Ciao.
> > > -Marco-
> > ti ringrazio effettivamente ero tratto in inganno perche si bloccava
> > in quel punto che era regolarmente compilato ma c'erano altri campi
> > non compilati.
> > 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
>
> Si, facilmente. Leggi l'help della funzione Format()
> Ciao.
> -Marco-
>
> --
>
>
> - 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
Marco Pizzamiglio
> > > CUT
> > > > 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-
> > > 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.
> 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
bcla
wrote:
> bcla ha scritto:
>
>
>
>
>
> > > > CUT
> > > > > 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
> > > > > Wrd.Selection.TypeText Nz(Me.Tipo,"")
> > > > > Ciao.
> > > > > -Marco-
> > > > ti ringrazio effettivamente ero tratto in inganno perche si bloccava
> > > > in quel punto che era regolarmente compilato ma c'erano altri campi
> > > > non compilati.
> > > > 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
>
> > > Si, facilmente. Leggi l'help della funzione Format()
> > > Ciao.
> > > -Marco-
>
> > > --
>
> > > questo articolo e` stato inviato via web dal servizio
>
> Nascondi testo citato
>
>
>
> > > - 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
>
> sai, se lo vuoi cambiare devi usare
> format(Me.DataInizio, formato)
> I vari tipi di formato li trovi sull'help. Dovrebbe accettare "Long Date",
> Ciao.
> -Marco-
>
> --
>
> questo articolo e` stato inviato via web dal servizio gratuitohttp://www.newsland.it/newssegnala gli abusi ad ab...@newsland.it- Nascondi testo citato
>
> - Mostra testo citato -
Perfetto grazie
l'opzione Long Date mi mette anche il giorno della settimana
mentre dd mmmm yyyy è perfetta.
grazie mille
BCla