Vba Access Ricerca Record

[dariofederici]

Ciao Ragzzi,

Sto utilizzando il codice che posto sotto per prelevare dei dati da access e pubblcarli nei campi di un file word ora; il problema è il seguente: come potete notare il codice preleva da dei campi dalla maschera aperta ma come faccio a fargli prelevare i dati di una query su un dato campo?

Private Sub Comando63_Click()

'Written by Helen Feddema 4-22-98

'Last modified 7-Aug-2007



On Error GoTo ErrorHandler



Dim appWord As Word.Application

Dim docs As Word.Documents

Dim strLetter As String

Dim prps As Object

Dim strDate As String

Dim fso As New Scripting.FileSystemObject

Dim fil As Scripting.File

Dim strTemplate As String

Dim strTemplatePath As String

Dim strTemplateNameAndPath As String

Dim doc As Word.Document

Dim strTitle As String

Dim strPrompt As String



strDate = CStr(Date)



'Check whether template is found in the folder

'Get User Templates path from Word Options dialog

'(or replace with hard-coded path for your computer)



Set appWord = GetObject(, "Word.Application")

strTemplatePath = "C:\Documents and Settings\FDRDRA77R21G856K\Desktop\MISSIONI"

Debug.Print "Template path: " & strTemplatePath

strTemplatePath = strTemplatePath & "\FORMS\"

strLetter = "fuoriOrario.dotx"

strTemplateNameAndPath = strTemplatePath & strLetter

Debug.Print "Template and path: " & strTemplateNameAndPath



On Error Resume Next



Set fil = fso.GetFile(strTemplateNameAndPath)

If fil Is Nothing Then

strPrompt = "Can't find " & strLetter & " in " _

& strTemplatePath & "; canceling"

MsgBox strPrompt, vbCritical + vbOKOnly

GoTo ErrorHandlerExit

End If



On Error GoTo ErrorHandler



Set docs = appWord.Documents

Set doc = docs.Add(strTemplateNameAndPath)



Set prps = doc.CustomDocumentProperties





With prps



.Item("TodayDate").Value = Nz(Me![DATA_ATTIVITA])

.Item("Name").Value = Nz(Me![NOME])

.Item("Address").Value = Nz(Me![COMUNE_SITO_ATTIVITA])

.Item("CompanyName").Value = Nz(Me![RAGIONE_SOCIALE_DITTA])

'.Item("StateProv").Value = Nz(Me![ORA_FINE])

.Item("PostalCode").Value = Nz(Me![ORA_INIZIO])

'.Item("Salutation").Value = Nz(Me![ORA_INIZIO_PAUSA])

'.Item("JobTitle").Value = Nz(Me![ORA_FINE_PAUSA])

End With



With appWord

.Visible = True

.Activate

.Selection.WholeStory

.Selection.Fields.Update

.Selection.MoveDown Unit:=wdLine, Count:=1

End With



ErrorHandlerExit:

Exit Sub



ErrorHandler:

If Err = 429 Then

'Word is not running; open Word with CreateObject

Set appWord = CreateObject("Word.Application")

Resume Next

Else

MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description

Resume ErrorHandlerExit

End If



End Sub

[ugk111]

in poche parole hai un database dal quale vuoi estrarre un record fornendo un determinato valore di input e poi pubblicarlo con un modello word ? se così dovresti crearti un tabella di appoggio che contenga i dati da stampare (ad esempio una tabella STAMPA),una query che ESTRAGGA i dati dal database e contemporaneamente AGGIORNI per l'appunto la predetta tabella di appoggio e poi unire ad essa un documento word. tale documento word deve essere preparato alla ricezione dei dati tramite il procedimento di stampa unione.

[dariofederici]

Ciao.

Ti ringrazion per la risposta, proprio ieri sono riuscito a risolvere il problema attraverso la funzione DLast() e una query tra i dati della tabella che mi interessa e il campo della maschera.
In realtà la stampa unione l'ho già usata con un discreto insuccesso.
Il problema della stampa unione è che funziona fino a che il creatore del programmino è l'utilizzatore perchè l'utente medio fa fatica a comprenderne la logica e spesso si inceppa, concludendo con la solita frase:" il tuo programma funziona".

il codice che ho postato prima invece usa le proprietà di un "file modello di word" è molto più efficiente e te lo consiglio vivamente.

Ciao e grazie comunque.