KHALED SLEEM

Private Sub Form_Open(Cancel As Integer)
Me.FF.Visible = False
Dim RR As Date                        'تسجيل بداية تشغيل البرنامج في رجستري الجهاز
RR = GetSetting(" ", " ", "form", WW)
If IsNull(RR) Then
MsgBox "مرحبا بك  للبرنامج  "
Me.WW = Date
Else
Me.WW = RR
End If
Dim Exp As Date                     ' VVVVVVVVVVVVVVVVVVVVVVVV'صلاحية البرنامج
Exp = DateAdd("d", 5, RR)
If Date < RR Then                'التاكد من عدم تغيير تاريخ الجهاز
Me.TimerInterval = 400
Me.FF.Visible = True
Me.FF.Caption = ("تم التلاعب في تاريخ الجهاز يجب اعادته الى تاريخ " & vbCrLf & RR & vbCrLf & " كي يعمل البرنامج ") & vbCrLf & "ZAHOF"
Me.FF.SetFocus
ElseIf Date >= Exp Then
Me.TimerInterval = 700
Me.FF.Visible = True
Me.FF.Caption = "انتهت المدة التجريبية للبرنامج اتصل بالمبرمج اذا اردت النسخة الكاملة " & vbCrLf & "ZAHOF"
Me.FF.SetFocus
Else
MsgBox ("اخي الفاضل  عدد الايام المتبقية لصلاحية البرنامج هي  " & Exp - Date & " يوم ")
End If
End Sub

من فضل حضرتك ..  وضح لنا  صلاحية الفتح كام يوم ..  هل تقصيد   me.timerinterval=400   هل هذا هو الوقت المحدد  والقصد من هذا 400 ساعة مثلا 

بارك الله فى حضرتك .. وجعله فى ميزان حسناتك 

AccessDeveloperExtensions  مطلوب للحاجة الضرورية ـ الاصدار 10  و  16  بارك الله فيكم  

اشكر حضرتك .. على الاهتمام  وعلى التعب معي  .

وأسأل الله ان يرزقك التوفيق والسداد .

ويرزقك من باب الوهب

استميحكم عذرا ..   

هل يمكن بعد الانتهاء من عمل قاعدة البيانات وتحويلها الى ملف exe   ..
هل يمكن استخدامها  اندروويد  على التليفون..

اتمنى لو اجد طريقة فى بحر علومكم 
جزاكم الله خير الجزاء

السلام عليكم ورحمة الله وبركاته .  الاستاذ / محمد صالح ..  طبقت القاعدة بتاعة حضرتك تمام وتسلم ايدك . وتمكنت بسهولة من اضافة بعض الاحرف بقيمها واعطت النتيجة الجميلة التى كنت اتمناها 
بارك الله فى حضرتك .. 
الان طريقة حساب الجمل لها طريقتين  من حيث القيم ..
فقمت بعمل موديل جديد بإسم جديد HOORF-BAST  وكتبت فيه القيم الجديدة .
وكذلك نموذج HOROOF-BAST وقمت ايضا بتحديد الجدول الجديد الذى يحدث فيه
وهو HOROOF-BAST-STOR 

وحاولت التطبيق لم ينجح فى القاعدتين ولم استطع المعالجة.

ياريت حضرتك تساعدنى فى ضبط الجملة البرمجية.
 

القاعدة التى تفضلت علينا بها  حضرتك تم تغيير اسماء الكائنات الى

جدول HOROOF-STOR 

  النموذج HOROOF-FORM 

الوحدة النمطية الىHOROOF  

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

MAS_CHARVALمطلوب التعديل.accdb

الشكر الجزيل للأستاذ محمد صالح .. المعادلة صغيرة وخفيفة وسهل فهمها مش عارف اشكرك ازاي  ـ  وحقيقي الله يزيدكم جميعا من علمه وعطائه  ولا حرمكم من الجزاء 

الشكر الجزيل للأستاذ ابو خليل .. فكرة  جدول القيم رائعة يمكننا التغيير والتعديل عليها .. بارك الله فيكم وزادكم من فضله 

الشكر الجزيل للأستاذ / محمد ابو عبد الله.. على الاهتمام الكبير والصبر فى التعاون معي وفكرة التحديث على البرنامج  واضافة الكلمات الى القاعدة رائعة بارك الله فى حضرتك .

زادكم الله جميعاً من فضله وجمعكم فى الجنة بإذنه تعالى . وجزاكم عنا خير الجزاء

هذه النسخة بعد اضافة  ة  أإآ ى ئ ؤ  بقيمها فى الجدول
محتاج  اوضح لحضرتك  التشابه فى القيم 
أإآا  اى حرف منها = 1   -  ي  ى  ئ = اى حرف منها = 10  -    ة  هـ  =  تتشابه وتساوى 5 

kan_1238.mdb

السلام عليكم ورحة الله وبركاته ..  حضرتك التعديل الذي وضعته رائع  وحقق معى نتائج جميلة واصبح البرنامج خفيف للغاية.  
حضرتك انا احتجت الى ان اضيف بعض الحروف ..  استجاب البرنامج  مثلا (ى مثل ي -ؤ مثل و  -ئ مثل ي -آ-إ-أ- مثل  ا  ) وذلك فى جدول القيم.
الحرف الوحيد الذى اعطى نتيجة مختلفة هو حرف (ة) اعطى نتيجة مثل (ت)=400
مع ان قيمة  ة =5  مثل هـ  وهذه القيم مدرجة فى الجدول ولكن النتيجة بتكون 400

والله انا شاكر جدا لتعاونكم وسامحونا على الاطالة عليكم .
وجعله الله فيى ميزان حسناتكم 

kan_1238.mdb

متشكر جدا  الله يبارك فيكم .. تمام  تسلم يد  حضرتك 

حقيقي ان هذا البرنامج مأخوذ من موقع حضراتكم وتم اضافته فى برنامجى للحاجة اليه وللآن لم افهم كيف وبعد ان اضفت القرآن الكريم كاملا الى تلك القاعدة  والنص موجود كامل فى الجدول لماذ لم يظهر معى كاملا فى النموذج 
والمشكلة فى الملف الاصلى  ان  وظيفة الخلية (نص)  وانه  255 حرف فقط 
فلهذا لم يتحمل  اكثر من هذا العدد 
فقمت حضرتك بتغييره الى (مذكرة) وبالتالى قمت بإضافة القرآن اليه مرة أخرة  وتم نسخه كاملا الى القاعدة  ولكن النموذج لم يستجيب ولم يعرض مافى الجدول كاملا
واعتذر على الاطالة .. وشاكر لحضرتك 

حضرتك واضحة جدا فى الاية  25  و  26 من سورة البقرة  كما هو مبين بالصورة  ..   مع اننى مجهز  الخلية على انها مذكرة يعنى تقبل عدد كبير من الحروف 

النموذج لا يعرض الاية كاملة خاصة فى الآيات الكبيرة  .  ظننت ان السبب فى نوع الخلية (نص )  ـ  غيرتها الى (مذكرة) وقمت بأضافة البيانات من جديد ـ   البيانات فى الجدول سليمة  ولكن فى البحث  الايات الكبيرة  يتم قص جزء منها .. 
واشكر تعاون حضراتكم.  الله يجعله فى ميزان حسناتكم 

الباحث فى القرآن الكريم للتعديل.rar

بارك الله فى حضرتك 

جازاكم الله خيرا .. اين الملف  لم استطع الحصول عليه

والله انا عاجز عن الشكر. ربنا يبارك فيكم ويعطيكم افضل مما يعطى السائلين من فضله 

السلام عليكم ورحمة الله وبركاته .. الاستاذ محمد ابو عبد الله .. لك الشكر الجزير والله انا استفدت كثيرا من ملف حضرتك وجعلته الملف الرئيسي . فى برنامجى . واستأذن حضرتك لو ان هذه البيانات التى اكتبها  ويتم حسابها فkan_1238.mdbى النموذج  . اريدها ان تحفظ فى جدول  بارك الله فى حضرتك 

الاستاذ ابو خليل .. الله يجازيكم خير الجزاء .. كنت محتاج النص يقوم بالتحديث. حضرتك اخترت اجراء الحدث عند الخروج لو ينفع يكون التحديث مباشر بارك الله فى عمرك على ان يقوم بالحفظ داخل القاعدة 

ايضا الأستاذ محمد ابو عبد الله بارك الله فى عمر حضرتك .. ممكن البيانات المدخلة يتم حفظها على القاعدة .. اكون شاكر لحضرتك

شكرا جزيلا  الاستاذ ابو خليل . عمل جليل ربنا يبارك فى حضرتك 

شكرا جزيلا للإستاذ محمد ابو عبد الله  استفدت كثيرا من عمل حضرتك 

جزاكم الله واغناكم واعطاكم من فضله حروف.rar

kan_1238.mdb

هذا برنامج  يقوم بالتعويض عن الحروف بقيمها ارقام  -قاعدة iif -وهو موجود  عند حضراتكم  بإسم ابجد هوز  وقد تم بنجاح  لكنه قائم على كتابة 1 حرف فى كل خلية واقوم بجمع القيم فى خلية اخرى اريد لو اكتب فى الخلية جملة كاملة ويقوم البرنامج بحسابها وجمع القيم

حروف.accdb