Abboodd

حسناً، لماذا لا تضع كمثال: Text1.Text=IIf(RS![Field] <> "" , RS![Field] , "") فهذا الكود يتحقق من القيمة الموجودة في RS![Field] فإن كانت غير فارغة وضعها كما هي، وإلا وضع بدلاً منها فراغاً في Text1 بالنسبة لكود التقرير، أظن السبب أنك تضع: DataReport1.DataSource…

هذا هو العمل يا أخ تحدي، أنا كنت بدأت بوضع جواب، لكن......... على كل عندي مثال وضعته للبحث في قاعدة البيانات سأرفعه قريباً. وسأعلق على إجابتك قريباً أيضاً. جزاك الله خيراً. هل انتهت إجازتك؟؟

الحل بإذن الله هو استبدال كل AND بـOR بحيث إذا تحققت إحدى القيم أعطاك إياها.

في السطر الأول، يتم التحقق من حالة الكائن RS فإذا كان مفتوحاً مسبقاً وأردت أن تفتحه من جديد، فلا بد أن تغلقه أولاً، أي إذا كان RS مفتوحاً فأغلقه: If RS.State=adStateOpen Then RS.Close وفي السطر الثاني نقوم بعملية الفتح، ما الذي أريد أن أفتحه؟ أريد أن أفتح الجد…

جزاك الله خيراً أخ DreamNet تطبيق جميل، جربته على ويندوز فيستا عندي وعمل بصورة رائعة. لكن للأسف، يبدو أن فيستا عمره قصير....

هذا بسبب عدم وجود الأداة MSDATAGRD.OCX على جهازك أو أنها غير مسجلة، إذا كانت هذه الأداة موجودة في مجلد المشروع فانسخها إلى C:\Windows\System32 ثم افتح Run واكتب: regsvr32 msdatagrd.ocx وبهذا تحل المشكلة بإذن الله. طبعاً يجب أن تكرر هذا على كل الملفات التي تشير…

جزاك الله خيراً. أقرأها غداً وأرد عليك. فقد تأخر الوقت عندنا الآن. السلام عليكم

تم تبليغ المشرف، سيقوم بعمل اللازم بإذن الله. واعذرني أخي، لكن النظام يجب أن يطبق. بالتوفيق.

ما الذي تقصده بالستايلات أخي؟ أرجو التوضيح أكثر.

الحقيقة أنها صعبة، لم أسمع بهذا في لغة فيجوال بيسك من قبل، في غيرها نعم، لكن فيها، فلا أدري. والله أعلم

شكراً لك أخي موضوع رائع. لكن هذا يعني أن رخصة GPL تتيح لغيري بيع البرنامج، وهذا ما لا أريده....

جزاك الله خيراً أخي، أنا لم أحمله بعد ولكن: هذا يعني عدم وجود سورس كود، وبالتالي هو مخالف لقواعد المنتدى. أرجو وضع السورس هنا، أو نقل الموضوع إلى قسم الإعلانات مثلاً. بالتوفيق.

سوف أنظر فيها غداً إن شاء الله، لكن اعذرني الآن فعندي القليل من المشاكل والمشاغل. بالتوفيق

أرجو رفع مثال ليتم التعديل عليه. شكراً

جزاك الله خيراً على هذه المعلومات المفيدة أخ fkugd2003 ، ربما أسجله في SourceFourg (لست متأكداً من الكتابة)، فالمشروع سيكون كبيراً نوعاً ما (على الأقل بالنسبة لي)، ولا أريد لأحد أن يسرق جهدي ويبيعه هكذا بكل بساطة. على كل لا أظن أنني سأحتاج إلى مقاضاة أحد، وجود…

http://support.microsoft.com/kb/176085 http://www.kutub.info/library/open.php?cat=18&book=1813 أخي هذه الموضوعات منتشرة بكثرة على الإنترنت، حاول البحث على Google قبل أن تسأل. بالتوفيق :)

هل أنت من تقوم بإطفاء الجهاز برمجياً أم ماذا؟ أرجو وضع الكود ليتم التعديل عليه.

جزاك الله خيراً. سوف أبحث عنها لكي أرفقها بإذن الله سؤال أخير: هل أضعها كتعليق في الكود مثلاً؟ أم في ملف نصي؟ أم لا فرق؟ شكراً لك.

يمكنك إظهاره مرتين مثلاً، مرة للطول ومرة للعرض. أو يمكنك كتابة التالي مثلاً: Dim MyArray As Variant Dim MyHeight As Double Dim MyWidth As Double MyArray = Split(InputBox("أدخل الطول والعرض مفصولين بفاصلة"), ",") MyHeight = MyArray(0) MyWidth = MyArray(1) MsgBo…

شكراً لك. هل من نبذة صغيرة؟ أنا أريد أن أترك الصلاحية بعمل أي شيء بالبرنامج، (تعديل - نسخ - توزيع.....) بشرط ذكر المبرمج الأصلي، كما أني أريد منع بيع البرنامج، فهل GPL تضمن ذلك؟ وكيف أحصل عليها؟ جزاك الله خيراً