formdan tablodaki belli bir alana değer atamak

1 2
03/03/2010, 09:52

yasinunal

Arkadaşlar herkese merhaba

Ekteki örnekte tablo2 formunda tüm alanlara değer girip "komut6" butonuna basıldığında girilen ürün adı ve rengin tablo1'deki stok miktarını bulup formdaki adetle topluyor. Buraya kadar bir problem yok. Problem buradaki toplam sonucu olan Metin7'deki değeri Tablo1'deki ilgili ürün ve rengi belirtilen stok miktarı kısmına atmak.

Örneğin kırmızı balon stok miktarı 15 ve buna Tablo2 formunu kullanarak 20 adet giriş yaptık ve toplam stok 35 oldu. Metin7'deki bu 35 değerini Tablo1'deki kırmızı balon ürünün stok kısmına 35 olarak değiştirmek istiyorum.

İlgilenen ve yardımcı olacak tüm arkadaşlara şimdiden teşekkür ederim
03/03/2010, 11:07

Puletin

Buyrun sn. yasinunal sorgu1 de düzenleme yaptım işinizi görecek mi acaba?
03/03/2010, 11:12

Nurullah_Serdar

komut6 nın kodunu
If vbNo = MsgBox("Kaydetmek İstiyor musun?", vbInformation + vbYesNo, "Uyarı") Then
Exit Sub
End If

Dim rst As DAO.Recordset

Dim x As Integer
x = Dlookup ("[stok]", "Tablo1", "urun='" & Forms![Tablo2]!urun & "' AND renk='" & Forms![Tablo2]!renk & "'")
x = x + Me.adet
Me.Metin7 = x

Set rst = CurrentDb.OpenRecordset("select * from tablo1 where urun='" & Forms![Tablo2]!urun & "' AND renk='" & Forms![Tablo2]!renk & "'")

With rst
.Edit
!stok = x
.Update
End With

bununla değiştir
03/03/2010, 14:35

yasinunal

Sayın Pulletin ve Nurullah Bey

İkinizde süpersiniz tam istediğim gibi olmuş
04/03/2010, 03:29

AMD

merhaba bendede formda yazdıgım bilgileri butona tıklayınca doktorlar tablosuna kaydolsun istiyorum ama yapamıyorum yardımcı olursanız sevinirim!..
04/03/2010, 10:23

Nurullah_Serdar

sayın amd. ne doktorlar tablosu anlamadım.örnek yok.hiçbirşey yok.benim eklediğim örneği kendine uylarlayabilirsin.
1 2