السلام عليكم
لاحظ هذا الكود
Private Sub sanfe_Click()
If Me.sanfe = 1 Then
Me!numistidlali = 200
Else
If Me.sanfe = 2 Then
Me!numistidlali = 219
Else
If Me.sanfe = 3 Then
Me!numistidlali = 240
Else
If Me.sanfe = 4 Then
Me!numistidlali = 263
end if
end if
end if
end if
end sub
إخواني هل توجد طريقة أخرى لكتابة هذا الكود مختصر ....و شكرا لكم
وعليكم السلام ورحمة الله وبركاته...
هذا بالضبط أخي هو الغرض من وجود عبارات شرطية خاصة في معظم لغات البرمجة تدعى عبارة SELECT CASE (في VBA) أو SWITCH في لغات أخرى. حاول البحث عن هذه العبارة في المراجع، لكن هذا هو شكلها في مثالك، مما يوضح بنية العبارة:
Select Case Me.Sanfe Case 1: Me!numistidlali = 200 Case 2: Me!numistidlali = 219 Case 3: Me!numistidlali = 240 Case 4: Me!numistidlali = 263 End Select
مع ملاحظة أنك تستطيع استخدام المقطع Case Else في نهاية الحالات كخيار افتراضي ينفذ عند عدم تحقق كل الحالات السابقة (مرة أخرى: لا تنس أن تراجع ملف التعليمات أو أي مرجع يناسبك).
ملحوظة: لست أدري ما الذي حل بالمحرر!
تم تعديل هذه المشاركة بواسطة أحمد مبارك الحيقي في 25 مارس 2010 في 05:33
يمكنك استخدام الكود بهذه الطريقة
Select Case Me.sanfe
Case 1:
Me!numistidlali = 200
Case 2:
Me!numistidlali = 219
Case 3:
Me!numistidlali = 240
Case 4:
Me!numistidlali = 263
Case Else:
MsgBox " No More "
End Selectتحياتي
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------
الأخ أحمد و عماني شكرا لكم على التوضيح
سوف اجربه
بالتوفيق لكم
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…