Update tuşu hakkında

Sayın hocalarım

Ekte eklemiş olduğum dosyada. Yeni Hakedis Kayıt formunda bulunan run query butonu çalışıyor fakat. Sorguda update sorgusu olarak tanımladığım YeniHakedislerUpdate tuşu her bir alan için ayrı ayrı update istemektedir. Yani 5 farklı kolonda tabloya bilgi göndermekteyim. Ama formda update tuşuna bastığımda tekbir kolonu update ediyor SONRA tekrar update tusuna basınca ikinci kolonu update ediyor. tek tuşla bilgilerimi update etme şansımız varmıdır.

Saygılarımla

Dosyanız hatalı.

Formlar açılmıyor.Veritabanı sıkıştır ve onar yaptıktan sonra tekrar yükleyiniz.

tekrar eklendi

Sn. orhantanriverdi.

Formun kayıt kaynağı zaten "YeniHakedisler" Tablosu. Formda yapacağınız değişiklikler sorgu gerekmeksizin tabloya kaydedilecek.

tamam kayıt kaynağı doğru sorguda YeniHakedislerUpdate diye birşey var. Orda 6 kolona toplam-çıkarma veya çarpma yaptırılıyor. BUNLARIN hesaplanabilmesi için UPDATE tuşuna 6 kere basılması gerekiyorku istedimiz hesaplar yapılsın. BENİM istedim UPDATE TUŞUNA baslınca YeniHakedislerUpdate tuşu tek seferde bilgileri yenilesin. Anlata bildim sanırım.

saygılar

Mevzu anlaşıldı. Buton kodunu aşağıdaki ile değiştiriniz.

Private Sub Command43_Click()

On Error GoTo Err_Command43_Click



    Dim stDocName As String



    stDocName = "YeniHakedislerUpdate"

		For X = 0 To 6

			DoCmd.SetWarnings False

			DoCmd.OpenQuery stDocName, acNormal, acEdit

			DoCmd.SetWarnings True

		Next X

DoCmd.RunCommand acCmdRefresh



Exit_Command43_Click:

    Exit Sub



Err_Command43_Click:

    MsgBox Err.Description

    Resume Exit_Command43_Click

    

End Sub