مبرمج مبتدا

مشكوووووورين حصلت على اداة جدا مريحة مشكوووووووورين وافرحتموني جدا جدا جدا جدا جدا جدا مشكوورين مرة اخرى

ارجو وضع كوماند يجعل البرنامج عند الساعة و اختفاءه و عند ارجاعه يجب الضظط على الايقونة ليظهر البرنامج مرة ثانية

السلام عليكم ورحمة الله وبركاته كيف اطبع نص ؟ من label ثم اضيف كلام ثم تكست ثم سطر جديد و label و هكذا اذا ما يصير اريد طباعة فورم ارجو الحل باسرع وقت مع شكري الجزيل

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

الاخ عبد العزيز انظر الى تاريخ الرد May 11 2005, 10:20 PM و انت ترد اليوم :)

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

انا مجرب ب shockwaveflash1 الكود شغال بس تقدر تحط قبل الكود الي انا عطيتك اياه shockwaveflash1.top = 0 shockwaveflash1.left = 0 ثم ضع form1.width = shockwaveflash1.width form1.hieght = shockwaveflash1.hieght شغال اقلك كم مرة ومجرب ايضا

soorry man (i was think you use (data

السلام عليكم ورحمة الله وبركاته انا من البحرين وين احصل شركات ؟؟؟ ههه و من في البحرين يهتم بالكمبيوتر ؟ لا يهتمون بالكمبيوتر ولا يعرفون له !!

المهم انا برفق ملف وانتوا شوفوا شنو الخطا

هل هي RUN TIME اذهب الى قاعدة البيانات ثم TOOLS ثم DATABASEUNTITLE ثم CONVERTDATABASE ثم TO ACSSES 97 نسخة 97 هي التي تربطها بالفجوال لان قاعدة المرفقة 2000 و لا يدعمها فجوال 6 تحياتي

والله انا قاعد على الانترنت اسوي رفرش كل دقيقة (F5) وييييين الردودددد ؟؟

form1.width = flash1.width ا اي انك تقول للفجوال : عرض الفورم = form1.width= عرض الفلاش1 flash1.width وهكذا يصبح : عرض فورم 1 = عرض الفلاش1

i will talk english for you more understand look the code form1.width = flash1.width form1.hieght = flash1.hieght

يا شباب ما تحبوا المبرمج يفيد المبرمجين المبتدئين اخي مشكوور على المدوضوع و بانتظار الدروس و لكن اتمنى الشرح المفصل و خصوصا ماذا تعني الدوال و API حتى نستفيد منكم مع خالص شكري الجزيل B) :rolleyes:

xxx = InputBox("ادخل اسم الموظف المراد البحث عنه ") Data1.RecordSource = " select * from emp where name like '" & xxx & "*'" Data1.Refresh end select اخي هل يصح ان اكتب في النهاية end select؟؟ هذا السؤال لان لا احد يجيبني و البحث انا حاطنه في فورم 2 و تكست ولي…

Private Sub Timer1_Timer() Form1.Height = Label1.Height Form1.Width = Label1.Width End Sub الكود شغال 100% وين الغلط ؟؟ تاكد بان interval = 1 و enabled = trou والكود 100% شغال

انشا برنامج جديد ضع تايمر (timer) و ليبل (label) ضع خاصية interval = 1 في التايمر Private Sub Timer1_Timer() Form1.Height = Label1.Height Form1.Width = Label1.Width End Sub

عندما ابحث محرك البحث يقول لي يجب ان تضع اكثر من 3 حروف و انا ابحث بجمل !!!!! يبدو ان المحرك فيه مشكلة او جهازي ؟ اخي sql لا اعرفها و الكود ناجح لكن ذكرت فيه مشكلة اعلاه

مشكوووووور اخي الكود حقا شغال لكن شوف انا غيرته If Option1 = True Then Form1.Data1.RecordSource = " select * from hs where book like '" & Text1.Text & "*'" Form1.Data1.Refresh End If لان انا سويت بحث بواسطة اسم كتاب او اسم المؤلف لكن عندما ينتهي البحث اريد اذه…