Access İle Worda Bağ Yapıştır

[altuntas78]

Accessteki adı soyadı alanlarındaki bilgileri word dosyası içerisine atmam gerekiyor.

'ACCESSNOTLARI'nda şöyle bir açıklama var.

ADO KULL EXCELDE İKEN ACCESSDEN VERİ ALMA
 Dim conn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim Nsql As String
   'Dim NewBook As Workbook
   Dim i As Integer
   Set conn = New ADODB.Connection
   With conn
       .Provider = "Microsoft.JET.OLEDB.4.0"
       .Open Application.ActiveWorkbook.Path & "\veritabani1.mdb"
    End With
    Nsql = "SELECT*from uye"
    Set rst = New ADODB.Recordset
    With rst
        .ActiveConnection = conn
        .Open Nsql, conn, adOpenDynamic, adLockBatchOptimistic
    End With
    'Set NewBook = Workbooks.Add
    For i = 0 To rst.Fields.Count - 1
        Sheets("alınanveri").Range("a1").Offset(0, i).Value = rst.Fields(i).Name
    Next i
    Sheets("alınanveri").Range("a2").CopyFromRecordset rst
    Set rst = Nothing
    conn.Close

Acaba buna benzer bir şekilde word dosyasına adı ve soyadı bilgilerini alabilirmiyim?

 

[gulsum1]

cevap

bu kod tablodaki bütün bilgileri word olarak kaydetme

Private Sub Command1_Click()
DoCmd.OutputTo acOutputTable, "Tablo1", _
acFormatRTF, "Tablo1.rtf", True


End Sub


buda word ole nesnesine veri ekleme

forma bir adet OLE1 diye ilişkisiz bir word ole nesnesi ekleyin


Private Sub CompanyName_Enter()
Dim objWord As Object
Dim strCustomer As String, strAddress As String
Dim strCity As String, strRegion As String

' Assign object property of control to variable.
Set objWord = Me!OLE1.Object.Application.Wordbasic
' Assign customer address to variables.
strCustomer = Me!CompanyName
strAddress = Me!Address
strCity = Me!City & ", "
If Not IsNull(Me!Region) Then
strRegion = Me!Region
Else
strRegion = Me!Country
End If
' Activate ActiveX control.
Me!OLE1.Action = acOLEActivate
With objWord
.StartOfDocument
' Go to first placeholder.
.LineDown 2
' Highlight placeholder text.
.EndOfLine 1
' Insert customer name.
.Insert strCustomer
' Go to next placeholder.
.LineDown
.StartOfLine
' Highlight placeholder text.
.EndOfLine 1
' Insert address.
.Insert strAddress
' Go to last placeholder.
.LineDown
.StartOfLine
' Highlight placeholder text.
.EndOfLine 1
' Insert City and Region.
.Insert strCity & strRegion
.FilePrint
.FileClose
End With
Set objWord = Nothing

End Sub

 

[modalı]

Sayın altuntas78,

Size bir örnek gönderiyorum. Burada word belgesi access içine gömülü değil ve belge şablonu olarak bulunuyor. Bu şekilde birçok belge şablonu ekleyerek form üzerinede bir açılan kutuyla istediğiniz belgeyi oluşturabilirsiniz.

İyi çalışmalar

 

[altuntas78]

Sayın Gulsum1 ve Modalı;

İlginiz için çok teşekkür ederim.

Yazdıracağım bilgiler sayfa alt ve üst bilgisi olduğu için gönderdiğiniz kod ve örneklerden yararlanarak ve Exceldeki makro yardımıyla problemi çözdüm.

İyi çalışmalar.