AccessTr.neT

Sayın POWER Hocam verdiğiniz kodu örneğe uyarladım çalışıyor Fakat kendi proramıma uyarlayamadım.Sıralı numara veriyor kendi programımı gönderiyorum.size zahmet olacak

Ek Dosyalar

Servis2.rar(2.54 MB)

Aşağıdaki gibi yazın...

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

POWER Hocam sizede zahmet veriyorum çok özür dilerim ama nerede hata yapıyorum bulamadın

Ek Dosyalar

Servis2.rar(2.53 MB)

Me.S_K_G = A1 + 1

satırını yazmamışsınız...

en altta End if üzerinde yazılı

8 nolu mesajımda nereye yazdıysam oraya yazın...