Private Sub Komut73_Click()
Dim a, b, c, d, e, g, h, i, j, k, m, n As String
Dim f As Date
Dim l As Double
On Error GoTo Err_Komut73_Click
a = Me.İşletmeNo
b = Me.İşletmeSahAdı
c = Me.İşletmeSahAdıSoyadıg
d = Me.İşletmeSahİlçesi
e = Me.İşletmeSahİli
f = Me.KüpelemeTarihi
g = DIrkı
h = Cinsiyeti
i = DŞekli
j = DTipi
k = İşletmeSahAdresi
l = İşletmeSahTC
m = DSYBlimi
n = AnaIrkı
o = BabaIrkı
 
    DoCmd.Close
 
 
    stDocName = "Teşvik Buldan"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.GoToRecord , , acNewRec
Me.İşletmeNo = a
Me.İşletmeSahAdı = b
Me.İşletmeSahAdıSoyadıg = c
Me.İşletmeSahİlçesi = d
Me.İşletmeSahİli = e
Me.KüpelemeTarihi = f
DIrkı = g
Cinsiyeti = h
DŞekli = i
DTipi = j
İşletmeSahAdresi = k
İşletmeSahTC = l
DSYBlimi = m
AnaIrkı = n
BabaIrkı = o
Exit_Komut73_Click:
    Exit Sub
 
Err_Komut73_Click:
    MsgBox Err.Description
    Resume Exit_Komut73_Click
 
End Sub