MaStEr KiNdY

توضيح هام للمشكلة الاخت العزيزة ارادة عند فتح ملف من نوع *.pps يفتح للتعديل بواسطة البوربوينت وليس كعرض للشرائح توضيح 2 يمكنك عمل هذا من داخل البوربوينت كالتالي قائمة ملف >>> فتح او File >>> Open ثم تختار الملف من نوع *.pps وليس *.ppt

المشكلة مازالت موجودة

مش هرفض طلبك يا دكتور انتظروا الامثلة لأهم الكنترولز

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

Dim x As Double Randomize x = Int((10000 * Rnd) + 1) هذا الكود ينتج ارقام عشوائية من 1 الي 10000 اذا اردت الزيادة فزيد 10000 صفر اضافي حيث يتم توليد ارقام من 1 الي 100000 ويمكنك فعل العكس ارجو تحميل المثال اخوكم ابراهيم Kindy_Randomaiz.rar

ايه ياجماعة مفيش اضافات جديدة نقفل الاحداث ونبدأ موضوع جديد

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

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

If Combo1.Text = "شهر" Then Text2.Text = DTPicker1.Value + 30 End If If Combo1.Text = "3شهور" Then Text2.Text = DTPicker1.Value + 90 End If If Combo1.Text = "6شهور" Then Text2.Text = DTPicker1.Value + 180 End If

المثال المرفق يختلف عن مثال الاخ A7med_prof

الاجابة بالمرفقات ex.rar

اولا ممكن اوضح نقطة هامة ومش عارف انه صح ولا ؟؟؟؟ Your Application mustn't be a Client only or Server only but you must use the the tow part in sam application and use Data Base to save your variable such as ip ,user name,port we can use to make connection ,..…

بصراحة اول مرة اعرف ليه الادارة كرمت بنت اليمن شوفوا الهدية بتاعتها لاقتها في احد المواضيع بصراحة ليها فائق الاحترام والتقدير علي هذا الشرح الرائع الشرح موجود بالبوربوينت جاري فك الدرس وتحضيرة لكم ليكون شرح عادي داخل المنتدي File_Processing.zip

هذاكود بمكتبة الداو بالداتا كنترول

Data1.Recordset.FindLast

مع اني محاولتش عمل هذا من قبل بس جربتي Dim PwrPnt As PowerPoint.Application Set PwrPnt = New PowerPoint.Application PwrPnt.Activate PwrPnt.Presentations.Open (App.Path & "\pre\" & p_name & ".pps")

في حالة case فهي مساوية بـ IF يعني بيقولة في حالة 1 الي 2 نفذ الكود التالي datinvoice.UpdateRecord datinvoice.Recordset.Bookmark = datinvoice.Recordset.LastModified DBGrid1.Columns("InvoiceNo") = txtinvoiceno.Text DBGrid1.Columns("Price").Text = DBGrid1.Column…

تم المسح ولم يظهر رسالة رفض Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim strmsg As String strmsg = "Are you Sure, You want's to Close Sales Invoice System" If MsgBox(strmsg, vbQuestion + vbYesNo + vbDefaultButton2) = vbYes Then…

شكراً للأخ محمد سيد

داخل الموضوع الكثير من الحيل الجديدة يمكن انت نفسك اول مرة تسمع عنها فهو ليس مبتدئ جداً كما قلت فالكثير من المحترفين لا يعرفون استخدام الميدي فورم