Word'e yazdırmada VB kod problemi

[kel_morrison]

Selamlar;

Arkadaşlar forumda daha önce yayınlanmış örneklere bakarak bir form hazırladım. Access formumdaki değerleri word şablonuna yapıştırıyorum.

Kullandığım kod ise;

.Goto what:=wdGoToBookmark, Name:="İSİM"
.TypeText [İsim Soyad]

Fakat burada şöyle bir şey yapmak istiyorum.

Access tablomdaki [İsim Soyad] hücresi değeri eğer "None" ise word'e "none" olarak yazmasın boş bırakıp geçsin.

Bunun için denediğim formül;

.Goto what:=wdGoToBookmark, Name:="İSİM"
If [İsim Soyad] <> Value = "None" Then
.TypeText [İsim Soyad]
Else
.TypeText ("")
End If

Fakat bu kod çalışmıyor.

Kodun neresinde hata yapmış olabilirim yardımcı olursanız sevinirim

 

[modalı]

Sayın kel_morisson,

If [İsim Soyad] <> Value = "None" Then

satırını

If [İsim Soyad].Value = "None" Then

olarak değiştirip deneyin.

İyi çalışmalar