AccessTr.neT
dosyada o kodlu mal varsa üzerine yazsın - 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ığı: dosyada o kodlu mal varsa üzerine yazsın (/konu-dosyada-o-kodlu-mal-varsa-uzerine-yazsin.html)

Sayfalar: 1 2

dosyada o kodlu mal varsa üzerine yazsın - yenginoglu - 11/01/2012

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


Cvp: dosyada o kodlu mal varsa üzerine yazsın - alpeki99 - 11/01/2012

Örnek dosyanız lütfen.

Cvp: dosyada o kodlu mal varsa üzerine yazsın - yenginoglu - 11/01/2012

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)


Cvp: dosyada o kodlu mal varsa üzerine yazsın - yenginoglu - 11/01/2012

alpeki99 hocam dosyayı ekledim


Cvp: dosyada o kodlu mal varsa üzerine yazsın - alpeki99 - 12/01/2012

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


Cvp: dosyada o kodlu mal varsa üzerine yazsın - yenginoglu - 12/01/2012

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