M18581M

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

وضحت الصورة الان بارك الله فيكم يا طيبين :)

بوركت يا طيب لكن ممكن تضع مثال: وماذا يعني المثال التالي: If Trim(Text2.Text) = "" Then MsgBox "Cannot contain a Null Value .", vbCritical, "Message" Text2.SetFocus Exit Sub End If اللي فهمته بهذا المثال بانه يفحص text2 اذا كان فارغ ام لا ولماذا لا نستخدم بدلا…

السلام عليكم كيف الشباب ؟ ان شاء الله الكل تمام التمام؟؟ سؤالي هو ما وظيفة الدالة Trim مثل: If Trim(Text2.Text) = "" Then وشكرا للجميع

thxxxxxxxxxxxxxxxxxxxxxxxx :)

أخي الكريم بامكانك أن تطبع التقرير بالعرض وذلك بوضع الجملة التالية قبل Show. Orientation = rptOrientLandscape. ولكن يجب أن تثبت VB6 Service pack6 ابحث عنها في موقع مايكروسوفت (مجانية)

ما شاء الله عليك :) أخي الكريم بامكانك أن تطبع التقرير بالعرض وذلك بوضع الجملة التالية قبل Show. Orientation = rptOrientLandscape. ولكن يجب أن تثبت VB6 Service pack6 ابحث عنها في موقع مايكروسوفت (مجانية)

جاري التحميل جزاك الله كل خير عني وعن الامة المسلمة وشكرا

الروابط غير شغالة يرجى تحميلها هنا وشكرا اخي الكريم

أرفق مثال

بوركت يا طيب

أرفق مثال

عند الاضافة يوجد Update. ؟ لو ترفق مثال...

المشكلة تكون بشرح الأخ الطيب السندباد يعني.. خلي المشروع دائما في مجلد واحد وليكن اسمه (My project) وليكن على القرص (\:D) وعند نسخه على اي جهاز ننسخ المجلد (My project) على القرص \:D وسلامتكم :)

ليه معصب؟؟!! :blink:

السلام... كل زر وله رقم برمجي (ASCII) وانا مو حافظهم للأسف لكن هذا مثال على زر (Enter): Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End Sub

ما فهمت كتير لكن بامكانك في العبارة الاولى أن تكتب وبما أنه ما في جمع If (Text1 * Text2) < 0 Then Text3 = 0 Else Text3 = Text1 * Text2 وتكمل الباقي بنفس الطريقة أما اذا قصدت شيء اخر فيرجى التوضيح

لازم تكون تعرف Visual Basic

السلام.... والله نزلت البرنامج لكن ما فهمت شي و ما اشتغل لكن بامكانك أن ترفق مثال بسيط وبفورم واحد وقاعدة بيانات بسيطة واحده عشان نفهم شو المطلوب وشكرا...

بعدني ما شفتهم لكن الله يشفيه ويعافيه ويرجع سالم يااااااااارب وجميع الامة المسلمه إن شاء الله