AHMED HAMED

موضوع رائع متميز كالعاده أخى FemTo جزاك الله كل خير

السلام عليكم بالنسبه للطباعه من تكست بوكس Printer.Print text1.text وهناك عده أختيارات تندرج تحت printer. يمكنك منها تحديد الأحداثيات ولكنى لم أتعامل مها من قبل

السلام عليكم ممكن ترفق الكود وبأذن الله أقدر أساعدك

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

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

تاكد أخى الكريم من أسم القاعده والجدول وطبعا السيرفر

السلام عليكم ورحمه الله وبركاته لقد رأيت فى الفتره الأخيره كثره الأسئله حول كيفيه أخذ نسخه أحتياطيه من قاعده البيانات وأسترجاعها عند الحاجه إليها قمت بتصميم هذا المثال البسيط واضفت عليه كود ضغط وأصلاح قاعده البيانات أرجو انا تعم الأفاده على الجميع Back.rar

بالنيسبه للبحث بين تاريخين يمكنك أستخدام جمل اللأستعلام الأتيه select * form data where date between # " +date1+ " # and # " +date2+ " # وإذا اردت أستخدام dtpicker select * form data where date between # " +dtpicker1+ " # and # " +dtpicker2+ " #

السلام عليكم أخى الكريم هذه هى طريق فتح القاعده والجدول cn.Open "provider=sqloledb;server=server;database=works;uid=sa;pwd=genius" rs.Open "itm", cn, adOpenDynamic, adLockOptimistic حيث sever هو اسم ال server الى عليه الاقاعده وdata baseهو اسم قاعده البيانات u…

أيه يجماعه هو الموضوع محدش جربه ولا ايه ولا كل الناس كانت عرفاه

السلام عليكم هل تريد نسخ المشروع كله ام قاعده البيانات

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

أخى الكريم البحث بالid مثل البحث بالأسم ليس هناك أختلاف ولكن كل الأختلاف فى اسم الحقل المراد البحث عنه rs.findfirst "f_id= ' " + txtid.text+ " ' "

تفضل يأحى هذا الكود Private Sub Form_Load() Dim db As Database Dim rs As Recordset Set db = opendatabase("data.mdb") Set rs = db.OpenRecordset("FATHER", 2) End Sub Private Sub List1_Click() rs.FindFirst "fname = '" + List1.Text + "'" text1.text= list1.text End…

لقد وجدت أحد الأمثله بس بصراحه انا مش فاهم منه اى حاجه وكمان هو بيحمل البيانات فى list box علشان لو فى اكتر من هارد راكب على الجهاز على العموم البرنامج موجود فى المرفقات الى يقدر يشرحه او على الأقل يبسطه يتفضل HDD.zip

السلام عليكم مشكور يأخى على تعبك معى وبأذن الله سوف نجده فى القريب العاجل

السلام عليكم يمكنك هذا يأخى عن طريق هذا الكود Dim DB As Database Set DB = OpenDatabase("data base name") Dim Rec As Recordset Set Rec = DB.OpenRecordset("select f_name from sons where father =' " + combo1.text + " ' ") While Not Rec.EOF Combo2.AddItem Rec(0) R…

أحمد محمد حامد خطاب بكارليوس نظم معلومات أداريه مبرمج VISUAL BASIC 6.0 ACCESS.ORACLE DBENGENIE , SQL SERVER ,MY SQL CLIPPER DBASE 5 GENIUS-IT@HOTMAIL.COM

السلام عليكم موضوع رائع أخى الكريم Max bayne ووفققك الله دائما لما فيه الخير جعله الله لك فى ميزان حسناتك لى إضافه صغيره على الكود الخاص بالأداه SHOCK WAVE FLASH Flash.Loop = False Flash.Menu = False وهو لأغلاق القائمه المنسدله عند الضغط بالمفتاح الأيمن للماوس…

السلام عليكم أخى الكريم أكتب الكود المطلوب تنفيذه ثم أكتب كلمه end للخروج من البرنامج