Word'a gönderme - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Word'a gönderme (/konu-word-a-gonderme.html) |
Word'a gönderme - ensar236 - 03/11/2009 Merhaba arkadaşlar, Word' da şablon oluşturdum, şablon ekte form üzerinden yararlandığım bilgiler ile aşağıdaki kodları girdim, bütonu tıkladığım zaman word açılıyor ancak bilgiler gelmiyor, word sayfası siyah açılıyor. nerede hata yaptığımı bulamadım yardımı oluranız sevinirim. Private Sub Komut207_Click() If IsNull(ADI) Then MsgBox "ADI Boş Olamaz!" Me.ADI.SetFocus Exit Sub End If If IsNull(NÜF_KÖY_MAH) Then MsgBox "NÜF_KÖY_MAH boş olamaz!" Me.NÜF_KÖY_MAH.SetFocus Exit Sub End If If IsNull(BABA_ADI) Then MsgBox "BABA_ADI boş olamaz!" Me.BABA_ADI.SetFocus Exit Sub End If If IsNull(ANNE_ADI) Then MsgBox "ANNE_ADI boş olamaz!" Me.ANNE_ADI.SetFocus Exit Sub End If If IsNull(CİNSİYETİ) Then MsgBox "CİNSİYETİ boş olamaz!" Me.CİNSİYETİ.SetFocus Exit Sub End If If IsNull(DOĞUM_YERİ) Then MsgBox "DOĞUM_YERİ boş olamaz!" Me.DOĞUM_YERİ.SetFocus Exit Sub End If If IsNull(DOĞ_TARİHİ) Then MsgBox "DOĞ_TARİHİ boş olamaz!" Me.DOĞ_TARİHİ.SetFocus Exit Sub End If If MsgBox("BİLGİLER. " & Chr(13) & _ "WORD'A GÖNDERİLİYOR..", vbInformation + vbOKCancel) = vbOK Then Else Exit Sub End If ' Word Şablonundan yeni belge oluşturma. Dim WordApp As Word.Application Dim strTemplateLocation As String ' Şablonun bulunduğu yer strTemplateLocation = CurrentProject.Path & "\AÇIK KİMLİK.dot" On Error Resume Next Set WordApp = GetObject(, "Word.Application") If Err.Number <> 0 Then Set WordApp = CreateObject("Word.Application") End If On Error GoTo ErrHandler WordApp.Visible = True WordApp.WindowState = wdWindowStateMaximize WordApp.Documents.Add Template:=strTemplateLocation, NewTemplate:=False ' Her satırı uygun olan kayıt ile değiştirmek. With WordApp.Selection If IsNull(ADI) Then .Goto what:=wdGoToBookmark, Name:="ADI" .TypeText [ADI] Else .Goto what:=wdGoToBookmark, Name:="ADI" .TypeText [ADI] End If If IsNull(SOYADI) Then .Goto what:=wdGoToBookmark, Name:="SOYADI" .TypeText [SOYADI] Else .Goto what:=wdGoToBookmark, Name:="SOYADI" .TypeText [SOYADI] End If If IsNull(İL) Then .Goto what:=wdGoToBookmark, Name:="İL" .TypeText [İL] Else .Goto what:=wdGoToBookmark, Name:="İL" .TypeText [İL] End If If IsNull(İLÇE) Then .Goto what:=wdGoToBookmark, Name:="İLÇE" .TypeText [İLÇE] Else .Goto what:=wdGoToBookmark, Name:="İLÇE" .TypeText [İLÇE] End If If IsNull(NÜF_KÖY_MAH) Then .Goto what:=wdGoToBookmark, Name:="NÜF_KÖY_MAH" .TypeText [NÜF_KÖY_MAH] Else .Goto what:=wdGoToBookmark, Name:="NÜF_KÖY_MAH" .TypeText [NÜF_KÖY_MAH] End If If IsNull(BABA_ADI) Then .Goto what:=wdGoToBookmark, Name:="BABA_ADI" .TypeText [BABA_ADI] Else .Goto what:=wdGoToBookmark, Name:="BABA_ADI" .TypeText [BABA_ADI] End If If IsNull(ANNE_ADI) Then .Goto what:=wdGoToBookmark, Name:="ANNE_ADI" .TypeText [ANNE_ADI] Else .Goto what:=wdGoToBookmark, Name:="ANNE_ADI" .TypeText [ANNE_ADI] End If If IsNull(CİNSİYETİ) Then .Goto what:=wdGoToBookmark, Name:="CİNSİYETİ" .TypeText [CİNSİYETİ] Else .Goto what:=wdGoToBookmark, Name:="CİNSİYETİ" .TypeText [CİNSİYETİ] End If If IsNull(DOĞUM_YERİ) Then .Goto what:=wdGoToBookmark, Name:="DOĞUM_YERİ" .TypeText [DOĞUM_YERİ] Else .Goto what:=wdGoToBookmark, Name:="DOĞUM_YERİ" .TypeText [DOĞUM_YERİ] End If If IsNull(DOĞ_TARİHİ) Then .Goto what:=wdGoToBookmark, Name:="DOĞ_TARİHİ" .TypeText [DOĞ_TARİHİ] Else .Goto what:=wdGoToBookmark, Name:="DOĞ_TARİHİ" .TypeText [DOĞ_TARİHİ] End If If IsNull(BÖLÜM) Then .Goto what:=wdGoToBookmark, Name:="BÖLÜM" .TypeText [BÖLÜM] Else .Goto what:=wdGoToBookmark, Name:="BÖLÜM" .TypeText [BÖLÜM] End If If IsNull(SINIF) Then .Goto what:=wdGoToBookmark, Name:="SINIF" .TypeText [SINIF] Else .Goto what:=wdGoToBookmark, Name:="SINIF" .TypeText [SINIF] End If If IsNull(ÇORUM_ADRESLERİ) Then .Goto what:=wdGoToBookmark, Name:="ÇORUM_ADRESLERİ" .TypeText [ÇORUM_ADRESLERİ] Else .Goto what:=wdGoToBookmark, Name:="ÇORUM_ADRESLERİ" .TypeText [ÇORUM_ADRESLERİ] End If End With DoEvents WordApp.Activate Set WordApp = Nothing Exit Sub ErrHandler: Set WordApp = Nothing End Sub Cvp: Word'a gönderme - cuneyt - 04/11/2009 Access örnek uygulamayı ekleyebilirmisin. Belki tam olarak görmek soruna daha çabuk ulaşmamızı sağlar. Cvp: Word'a gönderme - Nurullah_Serdar - 04/11/2009 If IsNull(ADI) Then 'Eğer Adı Alanı Boşsa .Goto what:=wdGoToBookmark, Name:="ADI" 'Şablondaki Adı Yerine .TypeText [ADI] 'Formdaki Adı Alanını Yaz Demişsin. Burası "" olacak. Else .Goto what:=wdGoToBookmark, Name:="ADI" .TypeText [ADI] End If yazdığın kodda ilk göze çarpan hata burada. Cvp: Word'a gönderme - Seruz - 09/11/2009 Güncel Cvp: Word'a gönderme - Nurullah_Serdar - 13/11/2009 sayın ensar236 sorununuzla ilgili bilgi verirmisiniz. |