+- 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ığı: Update tuşu hakkında (/konu-update-tusu-hakkinda.html)
Sayfalar:
1
2
Update tuşu hakkında - orhantanriverdi - 24/12/2010
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
Cvp: Update tuşu hakkında - POWER - 24/12/2010
Dosyanız hatalı.
Formlar açılmıyor.Veritabanı sıkıştır ve onar yaptıktan sonra tekrar yükleyiniz.
Cvp: Update tuşu hakkında - orhantanriverdi - 24/12/2010
tekrar eklendi
Cvp: Update tuşu hakkında - ozanakkaya - 25/12/2010
Sn. orhantanriverdi.
Formun kayıt kaynağı zaten "YeniHakedisler" Tablosu. Formda yapacağınız değişiklikler sorgu gerekmeksizin tabloya kaydedilecek.
Cvp: Update tuşu hakkında - orhantanriverdi - 25/12/2010
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
Cvp: Update tuşu hakkında - ozanakkaya - 25/12/2010
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