islambase@yahoo.com

هذه هى المرفقات وأود من أى منكم أن يقوم بعمل Run للبرنامج وسيجد فى فورم المصايف 4 مصايف مرتبة حسب تاريخ السفر فاذا اضاف أى منكم مصيف جديد بتاريخ 27 / 6 مثلآ وقام البرنامج طبقآ للكود باعادة التسلسل فتغير تسلسل بعض المصايف فصار الجدول كالآتى 5 4 3 2 1 المسلسل(re…

ألف شكر و هذه هى المرفقات frm________.zip frm_________.zip _______acces.zip _______acces.zip _______project.zip

Dim db As DAO.Database Dim rst2 As DAO.Recordset Dim q2 As QueryDef Set db = OpenDatabase("F:\vb98\SCHOOL.mdb") شكرآ يا أخى ولكن هذا ما حدث بعد أن لصقت الكود PASTE ثم حددته ثم ظغطت على زر كود (الأيكونة الموجودة على اليسار أسفل كلمة (الخط)

ألف ألف شكر يا أستاذى العزيز فعلآ انتهت المشكلة واشتغل البرنامج يبقى الآن فقط التعليق الذى ذكره الأخ ALAA VB بخصوص الصورة الملخبطة التى تظهر بها أى رسالة أكتبها فى المنتدى بعد نسخها copy من أى برنامج وعمل PASTE لها وياليتك تفهمنى كيف أتخلص منها؟

شكرآ أخى العزيز ولكن أوضح لك نقطتين أولآ: أنا أعلم أن هناك نوعان من البيانات (dao , ado) أنا أتعامل مع dao وهذا الكود أنا قد نقلته من برنامج قديم لى ويعمل سليمآ دون اظهار هذه الرسالة ثانيآ: وضع الكود داخل تنسيقه الصحيح فعلآ الكود أنا واضعه فى البرنامج بهذا الت…

أقوم بعمل برنامج VB6 و أرجوكم ما الخطأ فى هذا الكود؟ Dim db As DAO.Database Dim rst2 As DAO.Recordset Dim q2 As QueryDef Set db = OpenDatabase("F:\vb98\SCHOOL.mdb") Set q2 = db.CreateQueryDef("", "SELECT STUDENT.ARABDEG , STUDENT.ENGDEG FROM STUDENT ORDER BY S…

كلما حاولت ارفاق قاعد البيانات التى أتحدث عنها فى سؤالى أو ارفاق برنامجى يالvb (الform والproject ) تظهر لى من المنتدى هذه الرسالة فشل رفع المرفق , ليس مسموح من قبل الإدارة برفع هذا النوع من المرفقات فكيف أتصرف؟

كلما حاولت ارفاق قاعد البيانات التى أتحدث عنها فى سؤالى أو ارفاق برنامجى يالvb (الform والproject ) تظهر لى من المنتدى هذه الرسالة فشل رفع المرفق , ليس مسموح من قبل الإدارة برفع هذا النوع من المرفقات

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

أخى العزيز هذا الكود المذكور سابقآ [ (X = int(N] لايصلح الا مع الأعداد الموجبة فلو كانت X=-15.25 فان قيمة int(N) ستكون -16 وليس-15 وبالتالى فان قيمة X1 ستكون .75 وليس .25 أما الكود الذى يصلح مع جميع الأعداد (سواء الموجبة أم السالبة) فهوكما ذكرت لك (X = FIX(N

أخى العزيز/msayed2004اخوانى الأعزاء أجمعينهل كتبت هذا الكود الذى كتبته لك سابقآ وهل عرفت ما أريد ؟ان كان كذلك فمن فضلك أجبنىأخى العزيز/msayed2004اخوانى الأعزاء أجمعينهل كتبت هذا الكود الذى كتبته لك سابقآ وهل عرفت ما أريد ؟ان كان كذلك فمن فضلك أجبنى

هذا كود بسيط يا أخى IF X=FIX(X)) THEN PRINT"IT IS FRACTION NUMBER": GOTO 100 PRINT"IT IS VALID NUMBER 100 END SUB

ألا يوجد أى حل لهذا الموضوع ألا يوجد منكم أحد يذكر حل لهذا الموضوع أو حتى يذكر الموقع المخصص للأحداثيات خاص بالقطيف .. الذى تحدث عنه الأخ / ماجددج ولكم ألف شكر

أداة البيانات التى أتعامل معها هى ال datPrimaryRS وهى تنتج تلقائيآ عندما اضفت فورم من النوع VB data form wizard أما اصدار الaccess فلا أعلمه(كيف يمكن لى معرفته؟؟) ملحوظة: لم تحدث معى هذه المشكلة الا قريبآ بعد أن حملت على الجهاز ال office2007 ولكنى حاولت محاولة…

كلما بدأت فى عمل RUN لأى برنامج من برامجى الخاصة بقواعد البيانات ظهرت رسالة الخطأ هذه التى لا أفهم معناها Data error event hit err : Unrecognized database format 'F:\VB98\OMMAL.mdb لا أفهم منها الا أن OMMAL هو اسم قاعدة البيانات التى أتعامل معها فى برنامجى أرج…

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

أخى العزيز أنا لا أريدتشكيل الـ Form لتبدو كـ MsgBox ولكن أريد ال MsgBox نفسها ان الMSGBOX لبست FORM ولكنها مجهزة بمجموعة CommandS ولها صفات خاصة من فضلك اكتب هذا الكود ثم قم بعمل ال RUN حتى تفهم ما أريد Private Sub Command1_CliCK Z=MSGBOX("X^4",VBYESNO)O IF Z…

أين عمالقة المنتدى؟ أين حريفو البرمجة؟ أوضح سؤالى بأسلوب أفضل لدى قاعدة بيانات للمصايف بالشركة تحتوى على جدولين الجدول الأول هو جدول الموظفين وحقوله كالآتى المسلسل : 1 - 2 - 3 - 4 - 5 - 6 - 7 الاسم : اسماعيل - محمد - صالح - ابراهيم - خالد - كمال - محسن الوظيفة…

لقدقلت فى كلامك (و ممكن تستعمل 2 Label فوق بعص لرسم علامة اﻷس.) فما علاقة ذلك بال msgbox ؟ (أى ما علاقة ذلك بمثالى السابق؟) وان كان كلامك صحيح ، وأنا اللى مش فاهم ، فكيف يمكن تطبيق كلامك على مثالى؟

أخى العزيز يبدو أنك لا تعرف ما هو ال MsgBox أو أنك لم تفهم سؤالى من فضلك اكتب هذا الكود ثم قم بعمل ال RUN حتى تفهم ما أريد Private Sub Command7_Click() k MsgBox "Y=X^4 ", vbYesNo, "PLEASE" S" End SuB