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
Ana formunuza eklenen Stok Artır düğmesine tıklayın ve olanları izleyin.. Umarım bunu istemişsinizdir.
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
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
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.
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