AccessTr.neT

Tam Versiyon: Word'a gönderme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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
Access örnek uygulamayı ekleyebilirmisin.
Belki tam olarak görmek soruna daha çabuk ulaşmamızı sağlar.
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.
Güncel
sayın ensar236 sorununuzla ilgili bilgi verirmisiniz.