omani

أخي الكريم الاصيل الملف بالمشاركه اللي قبل هذي هو نفس الملف factory تحياتي لك تم إرفاقه من جديد بعد أن تم تدمير الملفات السابقة

أختي الكريمه لا أدري إن كان البرنامج صمم بالفيجوال بيسك أم بلغة تطبيقات الفيجوال VBA ولكن لكتابته بالفيجوال يكون بالطريقة التالية Dim DB1 As Database Set DB1 = OpenDatabase(App.Path & "\MainActions.mdb") DB1.Execute "delete * from TempTap1" xGrid1.Refresh أما …

لإعادة إرسال برنامج مصنع الطابوق كامل بالكود بعد العطب الذي أصاب الملفات السابقه مصنع_الطابوق.zip

السلام عليكم نظرا لوصول بعض الرسائل الى بريدي يطلبون فيها المثال الخاص بعملية الترقية التلقائي للاصناف ومن ثم للمادة داخل الصنف وذلك لعدم وجود الملف بالمنتدى بعد العطل الذي أصاب المنتدى بالفترة الماضية فيسرني أن أعيد إرفاق الملف للفائدة updated2Q1.zip

تفضل أخي هذا الكود ضعه في حدث KeyPress وأن شاء الله راح يعمل عذا الكود لمنع كتابة الأرقام Dim MYFIELD As String MYFIELD = "0123456789" If KeyAscii = 13 Then SendKeys "{TAB}" KeyAscii = 0 End If If KeyAscii > 26 Then If InStr(MYFIELD, Chr(KeyAscii)) = 0 Then Ke…

جزيت خيرا وعوضت أجرا تشكر على المعلومات القيمه

عجبي منتدى تأنيب وتأديب لا منتدى تعليم وتبادل للخبرات !!!

هذا الكود يكبر ويصغر Private Sub Timer1_Timer() Static i nn: i = i + 10 Label1.FontSize = i If Label1.FontSize > 215 Then i=i-10 label1.fontsize=i if label1.fontsize<15 then goto NN end if Timer1.Enabled = fales End If End Sub هذا تعديل سريع وغير مجرب أتمنى أن…

أخي الكريم أنا جربت برنامجك وهو فعلا يتابع من حيث توقف ولك تحدث أي مشكله في ذلك . على فكرة نظام التشغيل لدي XP

تعيشوا ونعيش ونبارك ونهني بعض بالعيد الجاي إن شاء الله كل عام وأنتم بالف خير

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

أختي بنت نجد أفضل برنامج لادارة المقاهي موجود حتى الان هو على الرابط التالي : http://www.4alarb.com/help/index.htm فيه كل ما يشتهي المرء

الخطوه الاولى هي عبارة عن تغيير أيقونة النموذج الموجود لديك من خلال خصائص النموذج Form Properties تجد خيار Icon وإذا كان لديك أكثر من نموذج فيمكنك إختيار أيقونة النموذج الذي قمت بتغييرها . وأنا جاهز لاي استفسار أخر

تفضل أخي هذا مثال سريع لعملية الخلط يدوي وتلقائي أخيكم Omani NameMixer.zip

أخي الكريم حمل الايقونه الى نموذج من نماذج المشروع /البروجكت ومن ثم أذهب الى Project أختر أخر خيار وهو Project Properties سوف يظهر لك مربع حوار إنتقل الى تبويب Make بالجزء الايمن سوف تجد Application وبها خيارين الاول Titleوالثاني Icon من القائمة أختر النموذج /…

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

السلام عليكم ورحمة الله وبركاته أولا أشكر أخواني الذين وضعوا ثقتهم في وثانيا أود أن أعتذر عن الاشراف على أي منتدى للاسباب التالية 1- عدم التفرغ التام 2- عدم إحتراف التصميم والبرمجه كوني هاوي برمجه فقط 3- لعدم الجدارة 4- لقلة الخبرة وأخيرا رحم الله إمرئ عرف قدر…

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

أين الملف ؟ !

أخي الكريم إذا كنت تقصد متغير رقمي فيمكنك ذلك بالطريقة التالية Public Sub FormEvent (frmName as integer ) 'ضع أجراءاتك هنا End sub عند مناداتها من الشاشة المطلوبه Call FormEvent(ضع المتغيير هنا) في الموديول تعمل Select case case is =1 form1.show case is =2 for…