مطلوب تطبيق دالة if على نموذج بسيط

الأخ الكريم،

لديك على الأقل طريقتان، كما في الكود التالي:

Private Sub Command6_Click()
    With Me.RecordsetClone
        .MoveFirst
        While Not .EOF
            .Edit
            .Fields("number1") = IIf(UCase(.Fields("name1")) = "W", 1, 2)
            .Update
            .MoveNext
        Wend
    End With

'    أو هذا الكود
'    DoCmd.SetWarnings False
'    DoCmd.RunSQL "UPDATE Table1 SET number1 = IIf(UCase(name1) = 'W', 1, 2)"
'    Me.Requery
'    DoCmd.SetWarnings True
End Sub

والملف المرفق يحوي التعديل...

الطريقة الأولى تستخدم نسخة من مجموعة سجلات النموذج نفسه: تنتقل إلى السجل الأول، ثم تدور على كل سجل، وتفحص قيمة الاسم (مع تحويله إلى حروف كبيرة ومقارنته بحرف كبير حتى نتجنب مشكلة وجود حروف كبيرة في بعض السجلات، وحروف صغيرة في أخرى. مع كل فحص، يتم تعيين قيمة الرقم إما إلى 1 أو 2، وهذا كل شيء. استخدمنا التالي في العمليات المختلفة:

نسخة مجموعة السجلات تمثلها الخاصية RecordsetClone للنموذج.

الانتقال إلى السجل الأول عبر الطريقة MoveFirst لمجموعة السجلات.

الدوران على كل السجلات عبر العبارة While.

الانتقال إلى السجل التالي في بعد كل دورة عبر الطريقة MoveNext لمجموعة السجلات.

فحص الشرط عبر الدالة IIf.

من أجل تحديث حقل في مجموعة السجلات، نحتاج إلى استخدام الطريقتين Edit وUpdate قبل وبعد تعيين القيمة على التوالي.

الطريقة الثانية عبارة عن مجرد استعلام تحديث مباشر إلى الجدول، باستخدام نفس الشرط ونفس الدالة، ثم تحديث النموذج من أجل عكس هذه التغييرات في النموذج أمام المستخدم.

والله أعلم.

q.rar

لك كل التحية والتقدير على المسانده اخي