selamlar arkadaşlar
yapmak istediğim tabloda mal_urun_kodu aynı olan ürün varsa üzerine yazsın yoksa eklesin istiyorum yazacağım kod şu

DoCmd.RunSQL "INSERT INTO TBL_MALIYET ( MAL_URUN_KODU, MAL_URUN_ADI, MAL_KOLI_ADET, MAL_URUN_BIRIMI, MAL_URUN_FIYATI, MAL_URUN_ACIKLAMA, MAL_ICMALIYET, MAL_AMB, MAL_ISCILIK, MAL_DIGER, MAL_KAR, MAL_ADET_MAL ) SELECT TOP 1 [Formlar]![FRM_HESAPLAMA]![URUN_KODU] AS URUN_KODU, [Formlar]![FRM_HESAPLAMA]![URUN_ADI] AS URUN_ADI, [Formlar]![FRM_HESAPLAMA]![URUN_KOLI_ADET] AS URUN_KOLI_ADET, [Formlar]![FRM_HESAPLAMA]![URUN_BIRIMI] AS URUN_BIRIMI, Formlar!FRM_HESAPLAMA!URUN_FIYATI AS URUN_FIYATI, Formlar!FRM_HESAPLAMA!URUN_ACIKLAMA AS URUN_ACIKLAMA, Formlar!FRM_HESAPLAMA!Metin95 AS ICMALIYET, Formlar!FRM_HESAPLAMA!Metin97 AS AMB, Formlar!FRM_HESAPLAMA!Metin101 AS ISCILIK, Formlar!FRM_HESAPLAMA!Metin99 AS DIGER, Formlar!FRM_HESAPLAMA!Metin106 AS KAR, Formlar!FRM_HESAPLAMA!Metin104 AS MAL_ADET_MAL FROM TBL_URUNLER;"

saygılarımla

Örnek dosyanız lütfen.

sayın alpeki99 frm_hesaplama formunda maliyet menüsüne kaydet tuşunu tıklayınca maliyetler tablosunda aynı ürünlerden 1 tek olması gerekiyor. onun için eğer aynı üründen varsa üzerine yazsın yoksa ilave etsin istiyorum.
ilgine teşekkür ederim.
saygılarımla,

Ek Dosyalar

ahmet_2.rar(126.15 KB)

alpeki99 hocam dosyayı ekledim

Eğer konunuzda soruyu çözmesi için birinin adını yazarsanız muhtemelen diğer bakanlar konuyla ilgilenmeyeceğinden konunuz geç çözülür.

Dim varmi As Byte



   varmi = Dcount("alan_adi","tablo_adi","alan_adi=şart")



   If varmi > 0 Then

      ' Kayıt vardır anlamına gelir UPDATE komutunu kullanın

   Else

      ' Kayıt yoktur anlamına gelir mevut INSERT komutunu kullanın

   End If

UPDATE kullanımı :

UPDATE tablo_adi SET alan_adi1=deger_1, alan_adi2=deger_2 WHERE alan_adi=kriter

kod bilmediğimden nasıl yapacağımı bilemedim rica etsem örnek üzerinde yapabilirmisiniz acaba. kriter ne olacak anlamadım hiç.