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

aynı garanti no'sunun 2 ve 3 gelişi - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: aynı garanti no'sunun 2 ve 3 gelişi (/konu-ayni-garanti-no-sunun-2-ve-3-gelisi.html)

Sayfalar: 1 2 3

Cvp: aynı garanti no'sunun 2 ve 3 gelişi - soss - 28/02/2012

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)

Cvp: aynı garanti no'sunun 2 ve 3 gelişi - POWER - 28/02/2012

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

Cvp: aynı garanti no'sunun 2 ve 3 gelişi - soss - 28/02/2012

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

Ek Dosyalar

Servis2.rar(2.53 MB)

Cvp: aynı garanti no'sunun 2 ve 3 gelişi - POWER - 28/02/2012

Me.S_K_G = A1 + 1

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

Cvp: aynı garanti no'sunun 2 ve 3 gelişi - soss - 28/02/2012

en altta End if üzerinde yazılı

Cvp: aynı garanti no'sunun 2 ve 3 gelişi - POWER - 28/02/2012

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