LionIraq

اخي العزيز السلام عليكم الدالة DESCENDING :_ تفيد ما اذا كان هنالك حقل مفهرس تم استخدام الامر DESCENDING عن طريق SET INDEX او SET ORDER وارجاع القيمة المنطقية .T. في حالة الاستخدام .F. في حالة عدم الاستخدام اي في توضيح اخر تفيد باظهار الحقول المفهرسة تنازليا و…

السلام عليكم اخي العزيز في البداية هنالك اخطاء تحصل لديك عند عمل الحفظ بسبب ان القيمة سوف تتكرر مرتين لانه من المفيد جعل سورس رقم الفاتورة الجدول invtb وعند استخدام اياعز الادخال insert يعترض ويقول لك الحقل مربوط بعلاقة والسبب يرجع ان الحقل مفهرس بنوع برايمري …

شكرا لك للدعاء واهلا وسهلا بك معنا وشكرا على المرور

أهلا وسهلا وادام الله الصحة والعافية والتوفيق لجميع الاعضاء تحياتي للجميع

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

طريقة جميلة جدا ااخي عبد الله بارك الله فيك واتمنى وصول الافكرة للاخت موون ووجدت الفائدة واريد ان اسبق الاخت موون بجواب قبل سوالها عن استخدام الاخ عبدالله الايعاز WEXIST WEXIST :يفيد في تحديد اذا كانت نافذة معرفة موجودة ام لا وشكرا مرة اخرى للجميع بما يقدمون ل…

نعم اخي عبدالله نقصد بة ms dos لان الاخ عبدالرحمن في سواله شجرة ولاتوجد انشاء شجرة الا في ms dos تحياتي للجميع

السلام عليكم والحمد لله على السلامة اخي عبد الله اختي العزيزة نور الكود شغال عندي 100% اما اذا اردتي الاندثار مساوي واقل لسنة الحقل اكتب علامة > قبل علامة = في فلتر كما هو موضح اما عن العمل لاحظي نموذجك وهو نفس الكود الموجود وفي النهاية يظهر لك جدول التخزين وي…

اتمنى انك وجدت شي ينفعك ان شاء الله تحياتي للجميع

جربي هذا الكود SET TALK OFF yy1=thisform.text1.Value SELECT mast_fil SET FILTER TO SET FILTER TO ALLTRIM(DAL)=ALLTRIM(t2) AND year=yy1 GO TOP thisform.Refresh DO WHILE !EOF() IF mst_pr=mst_mtr mst_end=0 MESSAGE("work caluc") ELSE STORE 0 TO mt3 IF mst_bal#0 RE…

اهلا موون يتكرر الكود بين do case و endcase على الحاله الاتية CASE THISFORM.COmbo1.Value='قسم القانونية' MESSAGEBOX("الانتقال الى "+"قسم القانونية ") تحياتي للجميع

ماهي رسائل الخطا اللي تظهر اعمل صورة لها او اكتبها لان عندي انك مسوي رسائل + اقفال للقوائم المنسدلة والحقول تحياتي لك

اخي العزيز اليك المخطط التوضيحي

اهلا موون يمكنك عمل الفكرة باستخدام طريقة سهلة وسريعة هي DO CASE مثلاً DO CASE CASE THISFORM.COmbo1.Value='قسم القانونية' MESSAGEBOX("الانتقال الى "+"قسم القانونية ") ENDCASE قومي باستبدال الرسالة بـــ DO FORM FORM1 READ EVENTS تحياتي للجميع ss.zip

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

اخي العزيز هل تقصد شجرة كما هو في الامس دوس شجرة من الفولدرات ويكون في الفيجوال شجرة من النماذج (التنقل بين النماذج من الرئيسية الى الفرعية وبالعكس) ارجو التوضيح اكثر لغرض ان يكون الجواب محدد او قم بعمل تخطيط او ارفاق مثال او رابط يوضح الفكرة

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

اخي العزيز هنالك خطا برمجي تعريفي وهو انة هنالك حقلي لايعرف الفيجوال فوكس برو نوعهما للقيمة هل رقمية او نصية وهي الخصم والمبلغ الاجمالي اما ان تجعل القيمة الافتراضي = صفر من لخصائص ويكون نفس الكود او التعديل على الكود وكتابة val قبل قيم الحقول خاصتهم ولاتنسى ك…

اذا امكن ارفاق البرنامج لغرض الوقوف على المشكلة

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