mrx_ta7ady

صـــبـــــاح الــفــــــــــــــــــــــل :D أكيد إنت تقصد إنه يفتح Recordset بالجملة دي والـ Text1 هيساوي قيمة الحقل الأول .. صح ؟ مثال على ذلك في الـ DAO If RS.RecordCount > 0 Then Text1 = IIf(IsNull(RS(0)), 0, IsNull(RS(0))) Else Text1 = 0 End If Set RS = D…

السلام عليكــم ورحمـة الله وبركاتــه التعديل في المرفقات Mr_VBase.rar

الرد في المرفقات SendMessage.rar

أعتقد أن مشاركتي السابقة واضحه .. ولا رد لك عندي

وعليكــم السـلام ورحمة الله وبركاتـه.. قم بإستخدام أداة الـ WebBrowser وعلى سبيل المثال لفتح مجلد داخلها WebBrowser.Navigate "C:\" وللحصول عليها قم بإضافة Component إلى مشروعك وإسمه Microsoft Internet Controls

في حالة فواتير البيع انصحك بانك تقوم بالترتيب التنازلي أي الجديد في الأعلى والقديم في الأسفل وهذا يتم بإضافة أمر الترتيب في آخر جملة الـ Select انسخ الكود [color= #993333; font-weight: bold;]SELECT [color= #66cc66;]* [color= #993333; font-weight: bold;]FROM MY…

اسال انت عن ما لم يتضح لك .. وان شاء الله تجدني مجيب

الرد في المرفقات Sum_Of_Tables.rar

وانت ازاي بتقدر توصلها كملف ؟؟ قم بالوصول إليها كملف عادي ثم إفتحها بمسارها على الشبكة من داخل الفيجوال بيزك

كل شيء ممكن وكل ممكن (من صنع البشر) وبه ثغرات SubClassing_WebBrowser.rar

لأنك ملأت المتغير الرقمي Sum أولا بالقيمة صفر ومن ثم قمت بعمل تكرار يبدأ من صفر وينتهي بـ 100 ويزيد بمعدل 1 كل مرة تكرار ثم قمت بإضافة مرة التكرار على المتغير الرقمي Sum أي ما حدث كالتالي 0 + 0 = 0 1 + 0 = 1 2 + 1 = 3 3 + 3 = 6 أي sum = sum + counter وبعد كل م…

إقرأ هذه المشاركة

إرفع مثال توضيحي لآخر ما توصلت أنت .. وإنتظر الرد إما بالنجاح أو الفشل مع ذكر السبب

أولا إزاي هتعمل SubClassing لـ Class مالوش Handle ولا تعرف له اسم ولو إفترضنا نجاحنا في الحصول على الإسم الحقيقي للـ Class اللى هو "Shell Embedding" وكمان حصلنا على الـ Handle عن طريقة دالة الـ FindWindowEx .. ماذا بعد الـ Hook يا أخ عبود ؟؟ مرفق لك مثال عمل H…

إقرأ هذا الموضوع أولا أريد المساعدة فيin Vb Excel

إذهب بالـ Focus إلى الـ Grid بعد الكود السابق Flx.SetFocus وإذا أردت ترميز بشكل أفضل قم بإستخدام أي من الأوامر التالية أو جميعها Flx.CellFontBold = True Flx.CellBackColor = vbRed Flx.CellForeColor = vbWhite ولكن يستوجب عليك إسترجاع الألوان إلى أصلها عند الخروج…

أنا استخدم Office 2003 .. وطالما وصلت إلى الـ Look up فلابد وأن تجد الـ Check Box إن شاء الله ولكن من باب العلم بالشيء لن تجد ما تريد إلى إذا حددت نوع الحقل أنه Yes/No وقمت بتظليله أو الوقوف عليه قبل الذهاب إلى الـ Look up كما انى اعتقد انك تستخدم قاعدة بيانات…

قم بعمل مصفوفة لتكوين جملة الـ SELECT مضاف إليها الشروط مجهولة العدد أي لكل كلمة شرط .. الكود التالي سيوضح لك ما اقصد مع العلم أني استخدمت علامة الـ + للتفرقة بين كلمة وأخرى Dim TMP1Str As String Dim TMP2Str As String Dim TMPArr() As String TMP1Str = "المعلم+ا…

فكرة رائعة ومفيدة .. جزاكي الله خيرا عليها وكي نتمكن من مشاركتك ثواب تنفيذ الفكرة فينبغي أن نسألك عن أي النقاط استوقفتك صعوبتها :P ولكن إنتظري .. من الأفضل أن تبحثي عن البرامج المصممه بالفعل والموجوده على الـ Internet وتعرضت لفكرتك هذه حتى تبدأي من حيث إنتهى ا…

اممممممممممممممممم :rolleyes: .. طب شوف المرفق ده كده 55.rar