Newsgroup: it.comp.appl.access
Titolo: ancora sul mailmerge.... abbiate pazienza

Ciao a tutti,
ho una domanda semplice.
Ho una maschera per visualizzare il telefono ed indirizzo di una
persona (dati presi da una tabella Nominativi).
Vorrei mettere nella maschera un pulsante che mi apra Word ed unisca ad
un documento unione alcuni campi di SOLO quel particolare record che
sto vedendo.
Avete idea di come fare?
Grazie infinite per un aiuto.
Buona serata a tutti
Andrea W. GUAGLIO
Sent via Deja.com 
http://www.deja.com/
Before you buy.

...


 univoco del record che stai visualizzando in quel momento
Ciao Fabio,
grazie per la risposta.
Quello che scrivi mi fa capire che per una volta sono riuscito a
spiegarmi.
E' come dici, ma come implementare tutto ciò in una routine in codice
associata al pulsante della maschera?
Io ho guardato nei vecchi msg del NG ma non ho trovato nulla di utile.
Se hai qualche idea o suggerimento te ne sarei grato.
Grazie e buona giornata.
Andrea


 ciao sono Renato, quando chiedo consigli su NG ho sempre risposte strane
ed eludenti, siccome sono un principiante ti dico chiaramente come  sto
provando a risolvere il problema, cosi come preferirei che lo facessero con
me.
ho trovato questa routin, quasi per come la vedi, su sito comune.
la chiamo dalla maschera che mi interessa con un tasto
che sull'evento clik dice: =cmdlg_file ()
Option Compare Database
Option Explicit
'Dichiarazioni
Private Declare Function GetOpenFileName Lib "comdlg32.dll" _
            Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Type OPENFILENAME
   lStructSize As Long
   hwndOwner As Long
   hInstance As Long
   lpstrFilter As String
   lpstrCustomFilter As String
   nMaxCustFilter As Long
   nFilterIndex As Long
   lpstrFile As String
   nMaxFile As Long
   lpstrFileTitle As String
   nMaxFileTitle As Long
   lpstrInitialDir As String
   lpstrTitle As String
   flags As Long
   nFileOffset As Integer
   nFileExtension As Integer
   lpstrDefExt As String
   lCustData As Long
   lpfnHook As Long
   lpTemplateName As String
End Type
   Dim OpenFile As OPENFILENAME
   Dim lReturn As Long
   Dim sFilter As String
   OpenFile.lStructSize = Len(OpenFile)
   sFilter = "modelli disponibili:(*.doc)" & Chr(0) & "*.doc" & Chr(0)
   OpenFile.lpstrFilter = sFilter
   OpenFile.nFilterIndex = 1
   OpenFile.lpstrFile = String(257, 0)
   OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
   OpenFile.lpstrFileTitle = OpenFile.lpstrFile
   OpenFile.nMaxFileTitle = OpenFile.nMaxFile
   OpenFile.lpstrInitialDir = "C:\documenti"
   OpenFile.lpstrTitle = "Seleziona  tipo documento" "
   OpenFile.flags = 0
   lReturn = GetOpenFileName(OpenFile)
   If lReturn = 0 Then
      cmdlg_file = ""
   Else
      cmdlg_file = left(OpenFile.lpstrFile, InStr(OpenFile.lpstrFile,
Chr$(0)) - 1)
   Dim wrd As New Word.Application
    wrd.Visible = True                  ' Non indispensabile
    wrd.Documents.Open FileName:=cmdlg_file
   End If
End Function
copiati questi comandi in un modulo e
nei criteri della query al campo id inserisci: =[forms]![tua maschera]![tuo
id]
so che non è perfetta, ma
dimmi se a te funziona

chiaramente aspetto un commento da Micio su una cosa scritta!!!!
bprrrr!!!
o quant'altro

    OpenFile.lpstrTitle = "Seleziona  tipo documento" "
perchč a quanto pare il sistema non vuole l'ultima delle due " che hai
messo dopo la parola documento.
Io ne ho levata una e non mi segnala piů l'errore.
Senti, so che sono una mezza sega (non ne faccio mistero), ma se fossi
cosě gentile da risolvere qusto mio ultimo quesito penso che mi
renderai le nottate un po' meno inquiete.
Grazie in anticipo e buona giornata.
