Makale numaras�: 124862 - Son G�zden Ge�irme: 11 Ekim 2006 �ar�amba - G�zden ge�irme: 1.2

ACC: ge�erli kay�t i�in Word OLE Otomasyonu ile g�nderme.

�ngilizce ve T�rk�e'yi yan yana g�r�nt�leme

Buraya t�klayarak �ngilizce ve T�rk�e'yi yan yana g�r�nt�leyebilirsiniz.

Otomatik terc�me makalelerin ne oldu�unu a��klayan yaz�y� okumak i�in buraya t�klay�n

Kullan�m D�� Bilgi Bankas� ��eri�i Yasal Uyar�

Bu makalenin ge�erli oldu�u �r�nleri g�r�n.

Sistem �pucuBu makale, kulland��n�zdan farkl� bir i�letim sistemine y�neliktir. Sizinle ilgili olmayabilecek makale i�eri�i devre d�� b�rak�ld�.

Geli�mi�: Uzman kodlama, birlikte �al��abilirlik ve �ok kullan�c�l� becerileri gerektirir.

Hepsini a� | Hepsini kapa

�zet

Bu makalede, nas�l, bir belgeye Microsoft Word s�r�m 7.0 veya daha �nceki bir <a0>Microsoft Access</a0> nesnesindeki ge�erli kayd� birle�tirmek ve bask� �nizlemede a��n a��klan�r.

Ge�erli kayd� bir Microsoft Word 97 belgesini ile birle�tirme hakk�nda daha fazla bilgi i�in l�tfen Microsoft Knowledge Base'de a�a��daki makaleye bak�n:

131583� (http://support.microsoft.com/kb/131583/EN-US/ ) ACC: ge�erli kayd�n Otomasyon ile Word 97'ye g�nderme.

Bu makalede, Visual Basic for Applications ve programlama Microsoft Access ile sa�lanan ara�lar� kullanarak Microsoft Access uygulamalar� olu�turma bildi�inizi varsayar. Hakk�nda daha fazla bilgi i�in Visual Basic for Applications "Building uygulamalar� ile Microsoft Access for Windows 95" el kitab�na ba�vurun.

Not: Visual Basic for Applications (Microsoft Access'te, Windows 95 (s�r�m 7.0) i�in kullan�l�r) Access Basic s�r�m 2.0 adland�r�l�r. Access Basic hakk�nda daha fazla bilgi i�in "Uygulamalar?n?n Kurulmas?" el kitab�na ba�vurun.

Daha fazla bilgi

A�a��daki ad�mlarda, daha sonra Microsoft Word'e Microsoft Access ge�erli kayd� birle�tirmek i�in kullan�lan bir Microsoft Word belgesi ve bir Microsoft Access formu nas�l olu�turulaca�� g�sterilmektedir:

Microsoft Word'� ba�lat�n ve a�a��daki yeni belge olu�tur:

      First Last
      Address
      City, Region, PostalCode

      Dear Greeting,

      Northwind Traders would like to thank you for
      your employment during the past year. Below
      you will find your photo. If this is not your
      most current picture, please let us know.

      Photo

      Sincerely,

      Northwind Traders

"Ilk.", s�zc�k i�in bir yer i�areti olu�turma Bunu yapmak i�in <a0></a0>, s�zc�� se�in... "�nce" D�zen men�s�nden yer i�areti'ni t�klat�n, "�lk" (t�rnak i�aretleri olmadan) yer i�areti ad� kutusuna yaz�n ve sonra Ekle'yi t�klat�n d��mesi.
2. Ad�m, Soyad�, adres, �ehir, b�lge, PostaKodu, tebrik ve foto�raf alanlar� i�in yineleyin.
Olemerge.doc, C s�r�c�s�n�n k�k klas�r�nde (dizin) olarak belgeyi kaydedin.
Microsoft Access'i ba�lat�n ve �rnek veritaban�n� Northwind.mdb (veya s�r�m 2.0 NWIND.MDB) a��n.
�al��anlar formu Tasar�m g�r�n�m�nde a��n.
Form mod�l� Genel b�l�m�nde, a�a��daki genel de�i�keni bildirin:
Dim Word As Object

Forma bir komut d��mesi ekleyin ve a�a��daki olay yordam�na d��menin OnClick �zelli�ini ayarlay�n.

S�r�m 7. 0'da:

       Sub Command40_Click()
       On Error GoTo CatchBlanks
       Dim Word As Object ' Declare in the module to view the print
                          ' preview after the Sub ends

          DoCmd.GoToControl "Photo"
          DoCmd.DoMenuItem acFormBar, acEditMenu, acCopy, , acMenuVer70
          Set Word = CreateObject("Word.Basic")
          Word.FileOpen ("C:\OLEMERGE.DOC")
          Word.EditGoto "Last"
          Word.INSERT CStr(Forms![Employees]![LastName])
          Word.EditGoto "First"
          Word.INSERT CStr(Forms![Employees]![FirstName])
          Word.EditGoto "Address"
          Word.INSERT CStr(Forms![Employees]![Address])
          Word.EditGoto "City"
          Word.INSERT CStr(Forms![Employees]![City])
          Word.EditGoto "Region"
          Word.INSERT CStr(Forms![Employees]![Region])
          Word.EditGoto "PostalCode"
          Word.INSERT CStr(Forms![Employees]![PostalCode])
          Word.EditGoto "Greeting"
          Word.INSERT CStr(Forms![Employees]![FirstName])
          Word.EditGoto "Photo"
          Word.EditPaste
          'Word.FilePrint 0
          ' To send the record directly to the printer, unremark the line
          ' above, and remark the next two lines below.
          Word.appmaximize "",1
          Word.FilePrintPreview
          Word.AppActivate "Microsoft Word"
          Exit Sub

       CatchBlanks:
           If MsgBox("Error sending one field, it may be blank. Would _
              you like to continue?", 52) = 6 Then
              Resume Next
           Else
              Exit Sub
           End If

      End Sub

S�r�m 2.0:

Not: A�a��daki �rnek kodda, bir sat�r devam karakteri olarak bir sat�r sonunda alt �izgi (_) kullan�l�r. Bu kodu, Access Basic yeniden a�t��n�zda, alt �izgi sat�r sonundan kald�r�n.

       Sub Button182_Click ()
          On Error GoTo CatchBlanks
          Dim Word As Object ' Declare in the module to view the print
                             ' preview after the Sub ends

          DoCmd GoToControl "Photo"
          DoCmd DoMenuItem A_FORMBAR, A_EDIT, A_COPY
          Set Word = CreateObject("Word.Basic")
          Word.FileOpen ("C:\OLEMERGE.DOC")
          Word.EditGoto "Last"
          Word.Insert CStr(Forms![Employees]![Last Name])
          Word.EditGoto "First"
          Word.Insert CStr(Forms![Employees]![First Name])
          Word.EditGoto "Address"
          Word.Insert CStr(Forms![Employees]![Address])
          Word.EditGoto "City"
          Word.Insert CStr(Forms![Employees]![City])
          Word.EditGoto "Region"
          Word.Insert CStr(Forms![Employees]![Region])
          Word.EditGoto "PostalCode"
          Word.Insert CStr(Forms![Employees]![Postal Code])
          Word.EditGoto "Greeting"
          Word.Insert CStr(Forms![Employees]![Last Name])
          Word.EditGoto "Photo"
          Word.EditPaste
          ' Word.FilePrint 0, 0, "0", "", "", "", 0, "1", "", 0, 0, 1, ""

          ' NOTE: When sending the current record from Microsoft Access 2.0
          ' to Microsoft Word 95, replace the above line with the
          ' following line:

          ' Word.FilePrint 0

          ' To send the record directly to the printer, unremark one of the
          ' lines above, and remark the next two lines below.

          Word.appmaximize "",1
          Word.FilePrintPreview
          Word.AppActivate "Microsoft Word"
       Exit Sub

          CatchBlanks:
             If MsgBox("Error sending one field, it may be blank. Would _
             you like to continue?", 52) = 6 Then
                Resume Next
             Else
                Exit Sub
             End If

       End Sub

Formu kaydedin ve sonra da formu Form g�r�n�m�nde g�r�nt�leyin. Yeni komut d��mesini t�klat�n.

Ge�erli kay�t i�in Microsoft Word'� g�nderilen, OLEMERGE belgeyle birle�tirilir ve daha sonra bask� �nizlemede a��l�r unutmay�n.

��kt� bi�imi Not: bir Access veri t�r�nden �ok ��k�� bi�imlendirilmemi� olan. (di�er bir deyi�le, para birimi MS Word'e genel say� olarak g�nderilir) Bu durumda el ile verileri bi�imlendirmek i�in gereklidir. A�a��daki �rnek, para birimi olarak ��k�� [Fiyat] adl� bir alan olarak bi�imlendirir:
Word.Insert Cstr (Format(Forms![FormName]![Price], "Currency"))

Bu makaledeki bilginin uyguland�� durum:

Microsoft Access 2.0 Standard Edition
Microsoft Access 95 Standard Edition

�ste

kbmt kbhowto kbprogramming KB124862 KbMttr

Otomatik Terc�me

�NEML�: Bu makale, bir ki�i taraf�ndan �evrilmek yerine, Microsoft makine-�evirisi yaz�l�m� ile �evrilmi�tir. Microsoft size hem ki�iler taraf�ndan �evrilmi�, hem de makine-�evrisi ile �evrilmi� makaleler sunar. B�ylelikle, bilgi bankam�zdaki t�m makalelere, kendi dilinizde ula�m�� olursunuz. Bununla birlikte, makine taraf�ndan �evrilmi� makaleler m�kemmel de�ildir. Bir yabanc�n�n sizin dilinizde konu�urken yapabilece�i hatalar gibi, makale; kelime da�arc��, s�z dizim kurallar� veya dil bilgisi a��s�ndan yanl��lar i�erebilir. Microsoft, i�eri�in yanl�� evrimi veya onun m��teri taraf�ndan kullan�m�ndan do�an; kusur, hata veya zarardan sorumlu de�ildir. Microsoft ayr�ca makine �evirisi yaz�l�m�n� s�k�a g�ncellemektedir.

Makalenin �ngilizcesi a�a��daki gibidir:124862� (http://support.microsoft.com/kb/124862/en-us/ )

�ste

Kullan�m D�� Bilgi Bankas� ��eri�i Yasal Uyar�

Bu makale, Microsoft'un art�k destek sa�lamad�� r�nler ile ilgili olarak yaz�lm��t�r. Bu nedenle, bu makale "oldu�u gibi" sa�lanm��t�r ve bundan sonra g�ncelle�tirilmeyecektir.

�ste

This site in other countries/regions:

ACC: ge�erli kay�t i�in Word OLE Otomasyonu ile g�nderme.

�zet

Daha fazla bilgi

Bu makaledeki bilginin uyguland�� durum:

Anahtar Kelimeler:�

Di�er Destek Siteleri

Topluluk

Hemen Yard�m Al

Makale �evirileri

�lgili Destek Merkezleri

This site in other countries/regions:

ACC: ge�erli kay�t i�in Word OLE Otomasyonu ile g�nderme.

�zet

Daha fazla bilgi

Bu makaledeki bilginin uyguland��� durum:

Anahtar Kelimeler:�

Di�er Destek Siteleri

Topluluk

Hemen Yard�m Al

Makale �evirileri

�lgili Destek Merkezleri

Bu makaledeki bilginin uyguland�� durum: