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