mostyam

يا أخوان عايز البرنامج بضروره قصوى لو سمحتم

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

سلاموا عليكم أنا عندي برنامج معمول بكريستال ريبورت 8 . dao . access بس كد ما أسطبه بيطلع لي رساله بتقول دا إلي موجود في الرساله Could not register CRYSTL32.OCX وعملتله تسجيل برضه الرساله راحت . بس الكريستال مبيتعرضشي . فأنا أعتقادي أنه عايز برنامج كريستال 8 إل…

أنا عندي كريستال ريبورت 10 + access برقم سري عايز أفتحه من خلال الكود علماً بأن ملف الكريستال يتم تشغيله من الخارج بستدعائه من خلال الكود Set Report = rpt.OpenReport(reportfile) Report.Database.Tables(1).Location = App.Path & ("\data\source.mdb")

شكرا " جزيلا" نجحت ولله الحمد

السلام عليكم عندي جدول أسمه customer فيه العملاء بتوعي وجدول إسمه dealing فيه التعامل الشهري بتاعهم من حيث دفع القسط عايز أجيب إليي مدفعش القسط علماُ بأن يوجد علاقه بين الأسم في customer والإسم في dealing حل في دماغي مجاش صح وهو أني قلت ( أجيب الأسماء المتشابه…

يا سيدي الفاضل أنا عايز أعمل بحث كما في الموبايل يعني أضغط على الميم يجلي كل الأسماء التي تبدأ بحرف الميم وتتحط في list وأنا موضح كده في كود الداو

يا سيدي الفاضل الكود ده شغاااااااااااال بالداو أما أنا شغال دلوقتي بمكتبة الأدو rs فعايز أعمل نفس الطريقه بمكتبة الأدو

السلاموا عليكم ورحمة الله وبركاته أنا عايز لما أبحث في الأدو عن حرف تظهر جميع الكلمات التي تبتدئ بنفس الحرف في listbox أنا كنت بعمل ده كده بالداو وده الكود Data1.RecordSource = "select distinct(name) from customer where name like '" + txtname + "*" + "'" Data1…

ملاهش حل ولا أيه يا شباب

بسم الله الرحمن الرحيم مشكلتي : هو أنا عايز أختار من جدول إسمه buy ( أسم العميل و النوع و الكميه من النوع وعدد الأنواع ) في مده معينه المحاوله : أنا قلت أعمل إستعلام هكذا select name,kind,sum(quantity),count(quantity) from buy group by name,kind,date في الفتره…

يا شباب أرجوا الرد

السلاموا عليكم ورحمة الله أنا بستخدم dao مع database .. access وفيجول بيسك 6 قمت بإدخال بيانات ل microsoft flex gride عايز أدخل البيانات في الداتابيز ومش عارف أحفظها في الأكسيس أرجوا من سيادتكم طريقة الحفظ ولسيادتكم جزيل الشكر

بسم الله بص يا سيدي :- انت طبعاً عارف الكود ده on error go to 10 - - - - 10: run time error طبعاً مش مستوعب شويه . الفكره كلها يا سيدي إن أزبل رسايل خطأ في لغات البرمجه هي لغة فيجوال بيسك . لأنها لا تدل على الخطأ ولا مكان الخطأ . فهو مكتوب لما تشوف خطأ طلع الر…

بسم الله بص يا نجم : أنت ليه مخلي data grid فيها allow delet في حلين الأول :- هو إنك متستخدمش ال data grid من الأصل وفي أداه أحسن منها حبتين موجوده في component إسمها Microsoft flex gride ودي إلا حد ما كويسه : الثاني :- إن أنت متغيرش خصائص data gride وتسيب all…

بسم الله بص ياسيدي علشان نكون فاهمين : - أنا عايز أحذف السجل ليه لو علشان ميظهر في الفاتوره : فموجود بالفاتوره أمر عدم إظهار الأرقام لو كانت صفر طبعاً بالسجل بتاعها - لو علشان ميجيش في البحث يبقى خد الجمله دي select name,count,date where count<>0 معايا : يعني …

بسم الله ممكن تعمل كده لو أنت شغال data1 Control data1.recordsource="select max(number) from Table data1.refresh x=data1.recordset("a")1 text1=x+1 لو أنت شغال dao rs.findlast "number" <> null x=rs("number")1 text1=x+1 شرح الأولى :- هات أكبر عدد وزود عليه واخد …

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

بالنسبه لكتابة أرقام بس if not isnumeric (text1.text) then sendkeys"{backspace beep end if بالنسبه لجمع التكستات فأنا أرى إن 21 تكست كتير جداً لدرجة لا تتخيلها المهم لو جمعت فإن الجمع يكون Text21=val(text1)+val(text2)+................v

يا شباب حد يرد