boxer68

اخي العزيز اولا اريد ان اقول لك ان هناك قاعدة برمجية بعدم التعديل في المفتاح الاساسي لاي جدول وانما يتم حذفه وادراجه مرة اخري والذي تطلبه عمليا لن يحدث لان الترتيب يكون تلقائيا على رقم الفاتورة ولا يمكن الاحتفاظ بالترتيب اذا عدلت في رقم الفاتورة هذا رأي والمجا…

اخي الفاضل ارجو ان تجرب وضع الكود التالي في sub الذي يظهر فيه الخطأ private xxxxx_Sub() on error goto mysol exit sub mysol: if err.number = ضع رقم الخطأ الذي يظهر لك then resume next end if end sub

حمد لله اخي العزيز وفقك الله

سؤالك غير واضح ارجو تحديد استخدام هذه الارقام

يكمن ذلك بأكثر من طريقة اولا يمكن عمل * في text بحيث تقوم بعمل نسخ من هذا text على حسب الشكل المطلوب ثانياً ان تقوم بالكتابة داخل الtext ولكن اولا يجب ان تغيير خاصية Multiline الخاصة بال text الى True لكي تتمكن من الكتابة على اكثر من سطر

ابحثي في مواضيع الاخ HnHn ففي توقيعه ستجدي ما تريديه

السؤال غير واضح ولكن حسب ما فهمت انك تريد ادخال تاريخ عن طريق text ولا يوجد مشكلة عدل في الكود كالتالي Private Sub Command1_Click() Dim xtime As Integer Dim Str As String dim xdate ad date xdate = text1.text xtime = DateDiff("d", Date, xdate ) Str = " select *…

تابع اخي العزيز اول محاضرة وخصوصا الجزء الخاص بال referance لاضافة ملفات التعامل مع الكريستال ريبورت

اخي الفاضل رغم ايضاحك لم افهم جيدا ولكن هل تريد ان يكون الادخال في نموذج واحد ويتم تخزين البيانات في الجدولين في نفس الوقت ؟؟؟؟

لا يوجد كود صريح اخي العزيز ولكن يمكن ان تجعل بعض الوظائف disenable وفي كل مرة يعمل فيها البرنامج تسأل عن كود التفعيل اذا كان صحيح تغير خاصية disenable الى enable ولكن في هذه الحالة يجب ان يكون لديك جدول في قاعدة بياناتك يحتوي على حقل لتخزين رقم التفعيل عند إض…

اكتب الكود بهذه الطريقة Private Sub Command1_Click() Dim xtime As Integer Dim Str As String xtime = DateDiff("d", Date, date_e) Str = " select * from employee" Where xtime < 30 End Sub وسيعمل معك إن شاء الله

الله يفتح عليك يا مهندس اسامة مثال وشرح رائع يا اخي

اخي العزيز اليك شرح الدالة بالتفصيل عرف متغير بأي اسم كما يلي dim xtime as integer قم بكتابة الكود التالي لحساب الفرق xtime = DateDiff("m", date(), date_e) الان لدينا في المتغير xtime الفرق بين تاريخ إنتهاء العقد وتاريخ اليوم والسؤال هنا xtime يحتوي على الفرق …

لا يوجد اي ازعاج يا اخي فالكل هنا لا يبخل بمعلومة ولا ينزعج من سؤال وهذا طبع منتدانا العزيز اعتقد ان هناك مشكلة في الربط بين اداة adodc وقاعدة البيانات ولذلك ارجو ان تراجع الربط كما ارجو ان تراجع خاصية data field لكل مربع نص عندك حتي تتأكد من ربطه بالحقل المطل…

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

يبدو اخي ان حدث شئ خطأ اثناء تحميل للمثال لانه لا يوجد مرفقات عموماً احنا وصلنا ان الاستعلام ظهر عندك وتم الربط واليك طريقة ربط ال text بحقول الاستعلام ادرج text بالنموذج وقم بالنقر عليه وابحث بالخصائص عن خاصية يأسم data source ثم قم بالنقر عليها سيظهر لك اسم …

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

up

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

يوجد عدة طرق لذلك اخي الكريم ولكن السؤال كود التفعيل متي ستعطيه للعميل وكيف وهل ستجعل لكل نسخة كود تفعيل خاص بها ، سانتظر ردك ويمكن بدء التنفيذ معاً خطوة بخطوة إن شاء الله