Uygula = MsgBox("Yüzde tümüne uygulansın mı?", vbQuestion + vbYesNo + vbDefaultButton2, "Uyarı")
If Uygula = vbYes Then
SQLtxt = "update Tablo1 set aryzd=" & Replace(Me.aryzd, ",", ".")
CurrentDb.Execute SQLtxt
End If
çalışmanıza bir buton ekleyerek tıklama olayına aşağıdaki kodu yazar mısınız?