(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..
dedikleriniz hepsini denedim,hiçbiri olmuyor kod hata veriyor
listede güncelleme yapmıyor
sağolun ama bunları zaten yapıyor listede göstermiş olduğumuz tabloda yenileme yapmıyor
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 Sub