Abboodd

أنت امرؤ القيس أم تحدي؟؟؟؟؟؟؟؟ :) هل ترى المثال الذي رفعته أنت في مشاركتك الأخيرة؟ افتحه واختر بحث، ثم اكتب في الـTextBox حرف الميم، ستجد أنه بقي لديك مدير ومدبر، تمام؟ الآن أضف حرف الدال، ستجد أن الـGrid أصبحت لا تعرض أي بيانات، صحيح؟ لماذا تحدث هذه المشكلة؟ …

بسم الله ها هو الحل: انسخ الكود Private Sub Multiply ( intNum As Integer ) Static A As Integer If A <= 10 Then Print A * intNum A = A + 1 Call Multiply ( intNum ) Else A = 0 End If End Sub ما الذي حدث هنا؟ عرفنا المتغير A ثم قمنا بالنظر، هل وصلت قيمته إلى 10؟ …

فقط ملاحظة للأخ تحدي، في التديل الذي وضعته جرب إضافة موظف عمله مدبر مثلاً، يعني مثل مدير ولكن بحرف الباء، ثم شغل البرنامج واكتب مد ستلاحظ أن السجلات كلها قد امّحت. جزاك الله خيراً

تفضل (أنا لم أطلع عليه، ولكنه موجود في قسم برامج الأعضاء) : سورس كود الفاتورة الذكية

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

عفواً أخي/أختي يجب كتابة محاولاتك والكود الذي حاولت استعماله. وفقك الله

قسم الإعلانات :)

أرجو أخي أن ترفع الجزء من المشروع الذي يتسبب بالمشكلة، لكي تكون المشكلة واضحة، على كل حال، هذه إعادة صياغة لسؤالك لأنه مكتوب بطريقة خاطئة: المشكلة بكل بساطة أنه عند عمل نسخ (copy) لنص باللغة العربية في حين أن مؤشر الفأرة يكون مجهز ليكتب بالانجليزية فعند استخدا…

الحل الكامل لمشكلة تشغيل فيجوال بيسك 6 على ويندوز فيستا على فكرة، الموضوع موجود في المواضيع المثبتة. وفقك الله

هذا هو الكود بإذن الله، استعملت خاصية Filter فيه، طبعاً يبقى عليك فيه تصحيحه ليناسبك تماماً: انسخ الكود Dim Response As String Response = InputBox ( "Write the name to look for" ) rs . Filter = "nm = '" & Response & "'" LVW . ListItems . Clear Do While Not rs …

جزاك الله خيراً على التوضيح

سؤال صغير له علاقة بالموضوع.... ما فائدة هذه الصورة عند التسجيل؟

هناك وصلة في هذا الموضوع، لكني لم أطلع عليها إذا كانت تجريبية، أو مجانية أو.... تفضل: /index.php?showtopic=147831

أو يمكنك استعمال جمل SQL كالتالي: انسخ الكود Dim Response As String Response = InputBox ( "Write The Name To look with" ) Rs . Close Rs . Open "SELECT * FROM a WHERE nm = '" & Response & "'" , cn هذا مثال، كما يمكن استعمال Filter هكذا: انسخ الكود Rs . Filter =…

تشير رسالة الخطأ إلى وجود خطأ نحوي في جملة SQL، لكن المشكلة غير ظاهرة عندي، أرجو رفع المشروع، أو الجزء الذي يسبب الخطأ منه

هذا مثال: انسخ الكود Private Sub MyLongSub ( A As Integer , B As Integer , _ C As Integer ) End Sub إذاً عندما تريد الانتقال إلى السطر التالي فإنك تضغط Space ثم _ ، ثم تنتقل وتكمل. كالتالي: انسخ الكود Text1 . Text = Text1 . Text + vbNewLine أو: انسخ الكود Text…

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

عذراً أخي، ولكن من الصعب شرح الطريقة بكاملها، ما رأيك أن تحدد الأماكن التي فيها خلل، أو أن ترفع مشروعك ليتم التعديل عليه. طبعاً لا تنس أن تكون متصلاً بالإنترنت عند إرسال البريد :) وفقك الله

بالنسبة للسؤال الأول راجع هذا الموضوع: /index.php?showtopic=183830 بالنسبة للثاني، أضف أداة OLE إلى مشروعك، عندها سيظهر لك مربع حوار، اختر Create from file ثم اضغط الزر Browse واختر ملف الـAcrobat الذي تريده، وفي النهاية ضع علامة (صح) عند Display as icon واضغط…

Dim Response As Integer Response=MsgBox("Are you sure you want to quit?",vbYesNo) If Response=vbYes Then End وبهذا إذا ضغط المستخدم نعم يخرج من البرنامج، وإذا ضغط لا، لا يفعل شيئاً.