Private Sub GARANTİ_NO_AfterUpdate()
If DCount("*", "TAMİR TABLO", "[GARANTİ_NO]='" & Me.GARANTİ_NO & "'") > 0 Then
Me.ADI = Dlookup ("[ADI]", "TAMİR TABLO", "[GARANTİ NO]='" & Me.GARANTİ_NO & "'")
Me.SOYADI = Dlookup ("[SOYADI]", "TAMİR TABLO", "[GARANTİ NO]='" & Me.GARANTİ_NO & "'")
Me.G_S_M = Dlookup ("[G_S_M]", "TAMİR TABLO", "[GARANTİ NO]='" & Me.GARANTİ_NO & "'")
Me.TARİFE = Dlookup ("[TARİFE]", "TAMİR TABLO", "[GARANTİ NO]='" & Me.GARANTİ_NO & "'")
Me.MARKA = Dlookup ("[MARKA]", "TAMİR TABLO", "[GARANTİ NO]='" & Me.GARANTİ_NO & "'")
Me.MODEL = Dlookup ("[MODEL]", "TAMİR TABLO", "[GARANTİ NO]='" & Me.GARANTİ_NO & "'")
Me.YAPILDI = Dlookup ("[YAPILDI]", "TAMİR TABLO", "[GARANTİ NO]='" & Me.GARANTİ_NO & "'")
Me.SATIŞ_TARİHİ = Dlookup ("[SATIŞ TARİHİ]", "TAMİR TABLO", "[GARANTİ NO]='" & Me.GARANTİ_NO & "'")
Me.TELEFON = Dlookup ("[TELEFON]", "TAMİR TABLO", "[GARANTİ NO]='" & Me.GARANTİ_NO & "'")
Me.DAHİLİ = Dlookup ("[DAHİLİ]", "TAMİR TABLO", "[GARANTİ NO]='" & Me.GARANTİ_NO & "'")
Me.Açilan_Kutu89 = Dlookup ("[TESLİM EDEN]", "TAMİR TABLO", "[GARANTİ NO]='" & Me.GARANTİ_NO & "'")
A1 = DMax("s_k_g", "TAMİR TABLO", "GARANTİ_NO ='" & Me.GARANTİ_NO & "'")
Me.S_K_G = A1 + 1
Aşağıdaki gibi yazın...
Please return your positive or negative ...