Super_Pro

تستخدم لحجز ثابت في الذاكرة

;)

جارية التحميل و التجربة ... و الى الامام ان شاء الله ومن ناحية انوو راح يعجبنا فهذا اكيد ;)

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

UP و شكر لك و الى الامام دوما :lol:

لكن تسلم ايديك عى المجهود الطيب الصراحه اخواني اتعجب ممن يطلب البسورد لبرنامج سورس كود يا اخي اعمله هاكنج :P و اكسر حمايته بقلب شرط الدخول فقط :o او ادخل على السورد كو و انظر ما هو الباسورد ;) ارجو ان تتقبل نصيحتي بصدر رحب لان تعليقاتي تكون من باب النصح من اخ …

السلام عليكم IF RS.State = adstateopen Then rs.close Rs.open "Select Distinct(Name) from(user) order by (name) ASC" ,db ,adopenstatic ,adlockreadonly do until rs.EOF Name_CMB.Additem rs("Name") rs.movenext loop هذا كود على السريع :D ونصيحة لو انك جربت خاصية ال…

انظر المشاركة رقم 16 فانا اخذت الاقتباس منها ;)

اخي العقدة و تصلح مع قواعد اكسس ايضا اخي هو يتحدث عن النتائج التي لابد ان تتكرر ضمن الجدول مثل نوع الدم لعدة مرض ستجد ان النوع A+ مكرر لمئة مريض مثلاً فالمطلوب عدم اضافة مئة سجل ضمن كمبو بوكس مثلا صمم لاختيار اصناف الدم المتوفرة وكما ذكر الجميع الحل هو Distinc…

ويمكن اخي استعمال خاصية البحث التي تعطيك فيضان من المعلومات عن هذا الموضوع ;)

السلام عليكم ورحمة الله وبركاته هناك اخي الكريم عدة طرق منها استعمال ملفات ini (براي افضل طريقة) استعمال خاصية Tag (اسهل طريقه) ملفات المصادر (لم استعملها مسبقا) بنسبة لطريقة الـ Tag مثال بسيط جدا اضف Label1 , check1,option1,command1 و اضف الكود التالي ' super…

اخي اذا امكن تقنية ربط الفيجوال بيسك مع الاكسس

شكرا لك اخي الكريم واثابك الله عنا كل خير

حقيقه اخي مشروع جدا رائع لكن كما ذكر الاخ 2004mimo ليس لدي خبرة في هذا المجال و انا ان شاء الله لن ابخل بالذي اقدر عليه ;)

و الله اخت عاشقة الخيال حيرتينا معاك انا شايف ان ما معك خبره باي برنامج :D و مش عارف باي برنامج انصحك ما دام ما بتعرفي و لا و احد منهم :P على كل حال نصيحتي الك و اجري على الله وهي استعمال و اجهات فيجوال بيسك وقواعد بيانات اكسس و الجزء الاهم من النصيحة ان تتشار…

على الرحب و السعه في اي وقت اخي الكريم وفي خدمتك باي معلومه اقدر عليها و ها هو المثال ' super_pro www.arabteam2000.com Private Sub Command1_Click() Call Filtertxt(" " & Text1.Text & " ") End Sub Private Function Filtertxt(txt As String) As String Dim ObjecTxt(…

شكر لكم اخواني الكرام على الشرح و المجهود الجميل اخي عبدالعزيز هناك خطأ بسيط حصل هناك خطأ لعله من السرعةفي الكتابه وهو قيمة الرقم 9 = 1001 وليس 0101 و السلام عليكم

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

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

اخي الكريم هذا كود كتبته على الماشي حاول فهمه و التعديل عليه ' super_pro , WWW.arabteam2000.com Private Sub Command1_Click() Dim OBjectString(1) As String Dim ModifiedString(1) As String OBjectString(0) = "Ã" OBjectString(1) = "í" ModifiedString(0) = "Ç" Modif…