Code Master

أخي الكريم أسواني أولا جزاك الله كل خير علي هذا المجهود الأكثر من رائع ولكن أريد أن أطلب منك إعادة رفع السورس كود علي موقع آخر لإن هذا الرابط لا يعمل معي وجزاك الله كل خير

Private Sub Text1_Change() If Not IsNumeric(Text1.Text) Then SendKeys "{BackSpace}" End Sub

أخي الكريم مايسترو اليك مثال في المرفقات أتمني من الله عز وجل أن يكون مثل ما تريد أنا آسف المرفق الذي أرفقته خاص بمكتبة الأدو اليك في المرفقات المثال بعد التعديل باستخدام مكتبة الداو test.rar Dao_Save.rar

أخي الكريم محمد حسن حاول رفع مشروعك او مثال يوجد به نفس المشكلة لكي نجد لها حل باذن الله

بالنسبة للبرمج الموجودة تبع النظام مثل الآلة الحاسبة والنوتباد ولكن بالنسبة للبرامج الأخري يجب كتابة مسار البرامج قصدي بالنسبة لبرامج اللي بتنزل مع الويندوز يكفي أن تكتب اسم البرنامج أما البرامج الأخري تكتب مسار البرنامج/ الملف التنفيذي

ممكن عن طريق الدالة SHELL أن تقوم بفتح برامج ملفات مجلدات واليك المثال هنا فتح درايف Shell "explorer.exe c:\", vbNormalFocus هنا فتح مجلد Shell "explorer.exe d:\photos", vbNormalFocus هنا فتح ملف بواسطة برنامج النوت باد Shell "notepad.exe c:\testlog.txt", vbNo…

السلام عليكم ورحمة الله وبركاته جرب المثال الموضح بالمرفقات DateDiff.rar

أخي الكريم سالم اليك البرنامج بعد التعديل new.rar

يمكنك استخدام الكود التالي "SELECT * FROM Table WHERE Field LIKE '" & TxtBox.Text) & "%'" Table تضع اسم الجدول المراد البحث فيه Field تضع اسم الحقل المراد البحث بداخله txtbox تضع مكانها اسم الأداة التي ستقوم بالبحث في البيانات المدخلة فيها ويستحسن لو انت عامل …

أخي الكريم مصطفي عند الضغط علي لا او الغاء لا يحفظ لان الكود الموضوع تحت الخيارين ( او الغاء ) هو ان يرجع يعمل لود للفورم من تاني ازاي حايحفظ دلوقتي انت لما بتدخل بيان جديد هو بيشيك هل الرقم موجود من قبل ام لا لو موجود بيطلع الرسالة لو نعم بيشيك هلو هو تعديل ا…

بالنسبة للأدوية التي انتهت صلاحيتها جرب الكود التالي RS.Open "Select * From tabel1 Where Expiration >='" & CDate(Date) & "'" آسف غير الاشارة من أكبر الي أصغر RS.Open "Select * From tabel1 Where month(Expiration) <='" & CDate(Date) & "'"

DataGrid1 لا توجد بها ميزة الألوان اللي تقصدها التحكم في الالوان للداتاجريد عن طريق BackColor و ForeColor للأداة ككل وليس لصفوف أو أعمدة معينة

السلام عليكــم ورحمـة الله وبركاتــه ،، انا اسف علي الكود السابق كنت اقوم بكتابة الكود وقمت باضافة الرد قبل أن اكمل اليك مثالك وقد قمت بالتعديل فيه وانا معاك باذن الله لو المرفق ليس هو ماتريد ارجو ان توضحلي اكثر وباذن الله محلولة وياريت تقولي المثال هل هو ما ت…

السلام عليكــم ورحمـة الله وبركاتــه ،، أخي الكريم حاسهلهالك خالص كل اللي حاتعمله انك حاتعمل دالة Function بتختبر بيها الحقل والقيمة اللي حاتدخل فيه هلي هي موجودة من قبل ام لا Function: Code_Isnot_SavedBefore وهي من نوع BOOLEAN 'Code_Isnot_SavedBefore: '======…

ممكن تستخدم النوع dbBinary فهذا يمكنك ايضا ان تقوم بتخزين ملفات الصوت ولقطات الفيديو والصور

السلام عليكم ورحمة الله وبركاته اليك مثال مصغر اتمني ان يكون ماتريد سبحان الله وبحمده .... سبحان الله العظيم سبحان الله والحمد لله ولا اله الا الله والله أكبر NoDublicate.rar

السلام عليكــم ورحمـة الله وبركاتــه ،، كنت بعمل تقرير بواسطة الكريستال وعند عرضه ظهر لي الخطأ الموضح في الصورة كود زر عرض التقرير If RS_Reports.RecordCount = 0 Then MsgBox "No Records For Print" Exit Sub End If Crpt.WindowTitle = ":::: Show Report ::::" Crpt.…

كيف أقوم باستخدام البرامتر ممكن توضيح

السلام عليكــم ورحمـة الله وبركاتــه ،، أولا كل رمضان وأنت طيبين لو سمحتم عندي سؤال بلي هي مشكلة تعاندني كثيرا في التقارير وهي اني اقوم باستخدام الكريستال ريبوتر4.6 في عمل التقارير وعندما اقوم بعرض التقرير مثلا بيانات عملاء وخصوص العنوان عندما أبدأ برقم ياتي ا…

للرفع ضروووووووووووووووووووووووووووووووري