Bütün hepsini kontrol ettim hocam ama hatayı bulamadım. Şimdi kodları kısa işlemler yptırarak alanı daraltıp hata bulmayı deneyeceğim.
Birde şöyle bir durum var, Bu kodu aldığım yerde Referanslar için Microsoft Word Object 6.0 gibi bir referans istiyordu. Bende Word Object 11 var . Acaba bu referans numaraları farklı olunca hata verebilir mi? Teşekkürler
Formdan Worde Veri Aktarmada Sorun
sayın Akifff,
bir uygulamayı çalıştırdığınızda eğer referans dosyası gerekli olursa,bunu ilgili kod sayfasında bir uyarı ile belirtmektedir.kod sayfasındaki referans tablosunun sol tarafında MISSING ibaresi yazılıysa,bu sizin kullandığınız sürüme uygun olmadığı ve kendi sürümünüze uygun olanını işaretleyip eklemeniz gerektiğini gösterir.
dolayısı ile de,referans farkından dolayı oluşan bir hatanın yanı sıra;bu hata,yanlış yazımdan kaynaklı olduğu görülmektedir.
Bu nedenle,tekrarlamak üzere hatırlatmak adına,
son olarak,farklı kaydet işlemini tekrar denemeye çalışabilirsiniz.
Bilginize…iyi çalışmalar,saygılar.
bir uygulamayı çalıştırdığınızda eğer referans dosyası gerekli olursa,bunu ilgili kod sayfasında bir uyarı ile belirtmektedir.kod sayfasındaki referans tablosunun sol tarafında MISSING ibaresi yazılıysa,bu sizin kullandığınız sürüme uygun olmadığı ve kendi sürümünüze uygun olanını işaretleyip eklemeniz gerektiğini gösterir.
dolayısı ile de,referans farkından dolayı oluşan bir hatanın yanı sıra;bu hata,yanlış yazımdan kaynaklı olduğu görülmektedir.
Bu nedenle,tekrarlamak üzere hatırlatmak adına,
Alıntı:ya form üzerindeki ilgili TCNo metin denetim kutusunun adını değiştirmiş olabilirsiniz de,kodlara eski halini yazmışsınızdır,ya da,tam tersi;bir değişim olmadı da,siz kod sayfasına farklı yazmışsınızdır.
son olarak,farklı kaydet işlemini tekrar denemeye çalışabilirsiniz.
Bilginize…iyi çalışmalar,saygılar.
Hocam siz haklı çıktınız, bir kaç alan adında hata var gibi görünüyor. Kodu aşağıdaki şekilde bölüm bölüm aktif ederek çalıştırdım. Mesela aşağıdaki kodda üç alanı güzel bir şekilde word e aktarıyor. TCNo yu aktifleyince hata veriyor, veya aynı şekilde DogumYeri alanını aktif edince hata veriyor. Sonuna kadar yaparak bir sonuca ulaşmayı hedefliyorum. Saygılar. 
Kod:
Private Sub Komut350_Click()
If IsNull(Ad) Then
MsgBox "Lütfen Ad Giriniz"
Me.Ad.SetFocus
Exit Sub
End If
If IsNull(Soyad) Then
MsgBox "Lütfen Soyad Giriniz"
Me.Soyad.SetFocus
Exit Sub
End If
'If IsNull(TCNo) Then
' MsgBox "Lütfen Tc Numarasını Giriniz"
' Me.[TC No].SetFocus
' Exit Sub
'End If
'If IsNull(DogumYeri) Then
' MsgBox "Lütfen Doğum Yerini Giriniz"
' Me.DogumYeri.SetFocus
' Exit Sub
'End If
If IsNull(DogumTarihi) Then
MsgBox "Lütfen Doğum Tarihini Giriniz"
Me.DogumTarihi.SetFocus
Exit Sub
End If
'If IsNull(GirisTarihi) Then
' MsgBox "Lütfen İşe Giriş Tarihini Giriniz"
' Me.GirisTarihi.SetFocus
' Exit Sub
'End If
'If IsNull(ADRES) Then
' MsgBox "Lütfen Adres Giriniz"
' Me.ADRES.SetFocus
' Exit Sub
'End If
'If IsNull(CEPTELEFON) Then
' MsgBox "Lütfen Cep Telefonunu Giriniz"
' Me.CEPTELEFON.SetFocus
' Exit Sub
'End If
'If IsNull(SABITTELEFON) Then
' MsgBox "Lütfen Sabit Numara Giriniz"
' Me.SABITTELEFON.SetFocus
' Exit Sub
'End If
If MsgBox("D İ K K A T" & Chr(13) & _
"Bilgiler Şablona Yazdırılacak. Onaylıyor musunuz?", vbInformation + vbOKCancel) = vbOK Then
Else
Exit Sub
End If
Dim WordApp As Word.Application
Dim strTemplateLocation As String
strTemplateLocation = CurrentProject.Path & "/MakinistBelirsizSozlesme3.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
' Word belgemizdeki Yer İmleri ile formdaki alanları eşitleyip yer imlerini uygun kayıtlarla değiştireceğimiz kodlar başlıyor.
With WordApp.Selection
If IsNull(Adı) Then
.GoTo what:=wdGoToBookmark, Name:="Ad"
.TypeText ""
Else
.GoTo what:=wdGoToBookmark, Name:="Ad"
.TypeText [Ad]
End If
If IsNull(Soyad) Then
.GoTo what:=wdGoToBookmark, Name:="Soyad"
.TypeText ""
Else
.GoTo what:=wdGoToBookmark, Name:="Soyad"
.TypeText [Soyad]
End If
'If IsNull(ADRES) Then
'.GoTo what:=wdGoToBookmark, Name:="Adres"
'.TypeText ""
'Else
' .GoTo what:=wdGoToBookmark, Name:="Adres"
'.TypeText [ADRES]
'End If
' If IsNull(CEPTELEFON) Then
'.GoTo what:=wdGoToBookmark, Name:="CepTel"
'.TypeText ""
'Else
' .GoTo what:=wdGoToBookmark, Name:="CepTel"
'.TypeText [CEPTELEFON]
'End If
If IsNull(DogumTarihi) Then
.GoTo what:=wdGoToBookmark, Name:="DoğumTarihi"
.TypeText ""
Else
.GoTo what:=wdGoToBookmark, Name:="DoğumTarihi"
.TypeText [DogumTarihi]
End If
'If IsNull(DogumYeri) Then
'.GoTo what:=wdGoToBookmark, Name:="DoğumYeri"
'.TypeText ""
'Else
' .GoTo what:=wdGoToBookmark, Name:="DoğumYeri"
'.TypeText [DogumYeri]
' End If
' If IsNull(GirisTarihi) Then
'.GoTo what:=wdGoToBookmark, Name:="GirisTarihi"
'.TypeText ""
'Else
' .GoTo what:=wdGoToBookmark, Name:="GirisTarihi"
'.TypeText [GirisTarihi]
'End If
' If IsNull(SABITTELEFON) Then
' .GoTo what:=wdGoToBookmark, Name:="SabitTel"
' .TypeText ""
' Else
' .GoTo what:=wdGoToBookmark, Name:="SabitTel"
' .TypeText [SABITTELEFON]
' End If
' If IsNull(TCNo) Then
'.GoTo what:=wdGoToBookmark, Name:="TcNo"
'.TypeText ""
'Else
' .GoTo what:=wdGoToBookmark, Name:="TcNo"
'.TypeText [TC No]
'End If
End With
DoEvents
WordApp.Activate
Set WordApp = Nothing
Exit Sub
ErrHandler:
Set WordApp = Nothing
End Sub
sayın Akifff,
öncelikle,sorunun çözümüne ulaşmanız sizin adınıza iyi bir gelişme.gerekli kontrolleri yapıp düzenlemelerde bulunduktan sonra,uygulamanızın sorunsuz bir halini konunuzda ekleyecek olursanız (elbette ki,takdir ve tercih sizindir),bu konuda benzer araştırmalarda bulunacak olan üyelere de alternatif bir konu ve uygulama örneği imkanı sağlamış olursunuz.
Son olarak,ilgili kodlarınız incelendiğinde fark edilen bir hususu belirterek bir tavsiyede bulunmak isterim.Uygulamalarınızda tablo oluştururken alan adlarını büyük harf olarak tanımlamayınız.benzer hususta başka tavsiye gereksinimi olup olmadığını,uygulamanızı inceleme imkanı olmadığı için belirtemem fakat ancak kodlardan yola çıkarak ilk etapta edindiğim bir izlenimi paylaşmak istedim sadece.bilginize.
İyi çalışmalar,saygılar.
öncelikle,sorunun çözümüne ulaşmanız sizin adınıza iyi bir gelişme.gerekli kontrolleri yapıp düzenlemelerde bulunduktan sonra,uygulamanızın sorunsuz bir halini konunuzda ekleyecek olursanız (elbette ki,takdir ve tercih sizindir),bu konuda benzer araştırmalarda bulunacak olan üyelere de alternatif bir konu ve uygulama örneği imkanı sağlamış olursunuz.
Son olarak,ilgili kodlarınız incelendiğinde fark edilen bir hususu belirterek bir tavsiyede bulunmak isterim.Uygulamalarınızda tablo oluştururken alan adlarını büyük harf olarak tanımlamayınız.benzer hususta başka tavsiye gereksinimi olup olmadığını,uygulamanızı inceleme imkanı olmadığı için belirtemem fakat ancak kodlardan yola çıkarak ilk etapta edindiğim bir izlenimi paylaşmak istedim sadece.bilginize.
İyi çalışmalar,saygılar.
Hocam tavsiyeleriniz için teşekkür ederim. Bu şekilde sizlerin formdaki arkadaşların yardımlarıyla ilerleyebiliyoruz yoksa zor olurdu her şey.
Alan adları ile ilgili hata verdiğini biliyordum, fakat alan adları formdakilerle birebir aynı. Birden fark ettim ki bu kodlama formdaki metin kutusunun denetim kaynağı adlarını içeriyor. Halbuki metin kutusunun Ad değerini baz alması gerekli. CEPTELEFON denetim kaynağı Metin kutusunun adı Metin_544 gibi olunca hata veriyor. Şimdi isimleri tek tek düzelterek diğer arkadaşlarında kullanabilmesi için forma eklerim tabi kide. Saygılarımla.
Düzenlenmiş Hali Ektedir Arkadaşlar.
Alan adları ile ilgili hata verdiğini biliyordum, fakat alan adları formdakilerle birebir aynı. Birden fark ettim ki bu kodlama formdaki metin kutusunun denetim kaynağı adlarını içeriyor. Halbuki metin kutusunun Ad değerini baz alması gerekli. CEPTELEFON denetim kaynağı Metin kutusunun adı Metin_544 gibi olunca hata veriyor. Şimdi isimleri tek tek düzelterek diğer arkadaşlarında kullanabilmesi için forma eklerim tabi kide. Saygılarımla.
Düzenlenmiş Hali Ektedir Arkadaşlar.
RVS 29.07.2015.rar
(Dosya Boyutu: 460,8 KB | İndirme Sayısı: 3)
Konuyu Okuyanlar: 3 Ziyaretçi
