السلام عليكم ...
اخي طارق ... تستطيع بنفس الطريقة ... للخلية التالية فقط ... تحديد اللغة الانكليزية
وبذلك عندما تصل الى الخلية النوع ... تتحول الغة الى العربية ...
و عندما تصل الى الخلية التالية ... تعود الغة الى الانكليزية ...
و عليكم السلام ...
نعمل تقرير جديد ( نسخ - لصق ) وكذلك الاستعلامات التي يستند اليها
و نغير شرط انتهاء الاشتراك
من
expired: IIf([to_date]>=Date();"";"الاشتراك منتهي")
الى
expired: IIf([to_date]>=[Forms]![Form_Mob_Data]![qq1];"";"الاشتراك منتهي")
حيث qq1 هو حقل التاريخ المدخل ...
تفضل ...
Mobile-V2.rar
السلام عيكم و رحمة الله و بركاته ...
لدي الكود الذي كتبه الاستاذ jjafferr في الموضوع ادناه ...
و الاستاذ جعفر غير متواجد من فترة ... عسى المانع خير ...
و الان بعد بعض التعديلات الكود لا يعمل ... الرجاء تعديله ليناسب هذه التعديلات ...
مع التقدير ...
New .rar
صباح النور ...
بم ان المعادلة في aa1 و aa2 معقدة و لا يمكن وضعها في مربع نص واحد ... لذلك وضعتها في مربعي نص ...
و وضعت هذا الكود في الحالي للنموذج ...
Private Sub Form_Current()
If IsNumeric([Mob-15]) Then
addmo = aa2
Else
addmo = aa1
End If
End Sub
اذا الخلية 15 يوجد فيها رقم فعدد الارقام = aa2 و الا = aa1
* ملاحظة : يجب ادخال الارقام في الحقول بالتسلسل ...
مثلا اذا كان للموظف رقم واحد فلا يجوز وضعه في الخلية 2 او 3 و هكذا ...