aynı garanti no'sunun 2 ve 3 gelişi

1 2 3
28/02/2012, 16:49

soss

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

28/02/2012, 17:06

POWER

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
28/02/2012, 17:51

soss

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

Ek Dosyalar

28/02/2012, 17:55

POWER

Me.S_K_G = A1 + 1

satırını yazmamışsınız...
28/02/2012, 17:58

soss

en altta End if üzerinde yazılı
28/02/2012, 18:03

POWER

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