Stok miktarını Artırma-Parametreli sorgu??

1 2 3 4
01/05/2010, 21:29

ycancan

Ana form üzerinden örneğin şu an textlerde gösterilen ilaç aspirin ise stok adeti 10 ise stok miktarını artır butonuna basınca parametreli sorgu açılıp oraya istediğim bir rakam girmeyi sağlayabilirmiyiz tabi harf girilmesini de engelliyecek
sitede araştırdığım bir eczane programında bu özellik var fakat ondan
alıntı yapamadım
01/05/2010, 22:43

ercansahin

Ana formunuza eklenen Stok Artır düğmesine tıklayın ve olanları izleyin.. Umarım bunu istemişsinizdir.
01/05/2010, 22:50

ycancan

hocam iyi doğru sağolasın fakat aşağıda eklediğimiz listeden güncellemiyor ve örneğin 2.kayıtın stoğunu artırınca artırıyor ve 1.kayıta geçiyor nedense
02/05/2010, 00:48

ozanakkaya

komut47'deki kodları aşağıdaki ile değiştiriniz.

Kod:
Private Sub Komut47_Click()
On Error Resume Next
Dim kayit As Integer
kayit = InputBox("Eklenecek Miktarı Yazınız.")
strSQL = "SELECT * FROM ilac "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[ILACKODU]=" & Me.ILACKODU
.Update
.Fields("MIKTARI") = Me.MIKTARI + kayit
.Update
End With
Me.MIKTARI.Requery
End Sub
02/05/2010, 01:00

ercansahin

Sn üstadım sledgeab hocam, kodlar için teşekkürler..

Not: sn ycancan, kodları monte ettikten sonra Miktar alanının varsayılanını "0" olarak ayarlamayı unutmayınız.
02/05/2010, 01:47

ycancan

varsayılan 0 derken hocam kod bölümündemi nerede değiştiricez
bu arada dediğim gibi aşağıda listede tabloyu gosteriyorduk ya orada güncelleme yapmıyor bunları değiştirince eski değeler yazıyor orada
1 2 3 4