مساعدة في استعلام تحديث

[ازهر عبد العزيز]

السلام عليكم 

في النموذج  ffr  يوجد حقل rx  والحقل ry احتاج ان يتم تحديث هذة الحقول بحيث تكون قيمة جميع البيانات تحت الحقل rx تساوي  ratex * raten       والحقل      ry تساوي   ratey * raten   ايضا لجميع البيانات تحت هذا الحقل 

raten.accdb

[Foksh]

وعليكم السلام ورحمة الله وبركاته ..

استخدم في الزر هذا الكود :-

Private Sub upx_Click()
    Dim raten As Double
    raten = Nz(Me.rxy, 0)
    If raten = 0 Then
        MsgBox "Raten يرجى إدخال قيمة صحيحة في مربع النص", vbExclamation, "تنبيه"
        Me.rxy.SetFocus
        Exit Sub
    End If
    CurrentDb.Execute "UPDATE tbfr SET rx = ratex * " & raten & ", ry = ratey * " & raten, dbFailOnError
    Me.Requery
End Sub

استعلام تحديث داخل الزر يقوم بالمطلوب ,,