+- 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ığı: Stok miktarını Artırma-Parametreli sorgu?? (/konu-stok-miktarini-artirma-parametreli-sorgu.html)
Cvp: Stok miktarını Artırma-Parametreli sorgu?? - ercansahin - 02/05/2010
(02/05/2010, 02:01)ycancan yazdı: 2.Access ilerde benim hiçbir işime yaramayacak daha accessi ogretmeden hoca zaten Sql e geçtik şimdilik işime yarayan bilgileri alsam yeterlidir
sağolun kolay gelsin
Durum çok vahim..Ah ah ah....Ben bu mesajı okumamış sayıyorum kendimi..
Cvp: Stok miktarını Artırma-Parametreli sorgu?? - ycancan - 02/05/2010
dedikleriniz hepsini denedim,hiçbiri olmuyor kod hata veriyor
listede güncelleme yapmıyor
Cvp: Stok miktarını Artırma-Parametreli sorgu?? - ozanakkaya - 02/05/2010
incele
Cvp: Stok miktarını Artırma-Parametreli sorgu?? - ycancan - 02/05/2010
sağolun ama bunları zaten yapıyor listede göstermiş olduğumuz tabloda yenileme yapmıyor
Cvp: Stok miktarını Artırma-Parametreli sorgu?? - ozanakkaya - 02/05/2010
Kodu aşağıdaki ile değiştir.
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
Me.Liste43.Requery
End SubCvp: Stok miktarını Artırma-Parametreli sorgu?? - ycancan - 02/05/2010
tamam bu sefer oldu
sağolun kolay gelsin.