mrx_ta7ady

على فكرة الفيروسات اللى انت بتتكلم عنها دي كلها اي كلام ومعظمها Worm والمكان اللى انت بتقول عليه صعب ده مبتغيرش عن Window و System32 ولو دخلت سيادتك جوه الـ Registry عند CurrentVersion و Run هتلاقي مساره منور وعلى فكره من يوم ما دخل الفيروس ده عندنا في إسكندري…

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

وعليكــم السـلام ورحمة الله وبركاتـه.. هناك العديد من الطرق لتنفيذ الفكرة المذكورة أفضلهم من وجهة نظري هي المرفقة .. ولكن تستوجب عليك معرفة قليل من الـ Html Linked_VB_With_Html.rar

قم بإضافة هذا الـ Code إلى Module جديد Private Const HKEY_LOCAL_MACHINE = &H80000002 Private Const REG_SZ = 1 Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long P…

الجدول المضاف Temp ومالوش اي لازمه أكتر من اللى انت شفته .. وبتنتهي مهمته بعد العرض بالإضافة إلى وجود Comment بالعربي فوق كل Statement أضفته

الأداة المشار إليها بالسهم هي الـ CommandButton .. بالرجاء توضيح المطلب هل تريد إضافته إلى مشروعك ؟؟ أم تريد تصميم زر جيد ؟؟ أم تريد معرفة كيف التأثير على الـ ProgressBar من خلاله ؟؟

أولا .. الـ ByVal لإعطاء قيمة أو متغير يحمل قيمة لـ Procedure معين .. ومثال على ذلك : If IsDate(MYDate) Then GetDate = Format(MYDate, "YYYY/MM/DD") Else GetDate = Format(0, "YYYY/MM/DD") End If End Function Private Function GetDate(ByVal MYDate As Variant) As …

أين الأداة VSFlexGrid7Lite أي ( Vsflex7L.ocx )??

التعديل المرفق إستوجب إضافة جدول جديد بإسم TMPBalance كما انه لا شيء في المحاسبة إسمه (كشف حساب إسم) و(كشف حساب عميل) ولكن هناك كشف حساب عميل أي كشف بمعاملات عميل ( خلال فترة ) التعديل تم بناء على التاريخ أي سجل لكل يوم به حركات اذا أردت لكل فاتورة سجل فعليك ت…

لاحظ الفرق بين التاريخين 01/02/2009 و 02/01/2009 جرب عكس التاريخ المطلوب إستخراج السجلات بدلالته وإن كانت هي المشكلة فأرجو منك إستخدام Control مخصص للتواريخ وأرجو أيضا عند إدخال التاريخ مراعاة الـ Format ألمناسب .. على سبيل المثال : RS("Date") = Format(MYDate,…

وعليكم السلام ورحمة الله وبركاته حصل خير واشكرك على ذوقك :) وحسن تصرفك وتقبل تحياتي واسأل الله لك التوفيق الدائم

لا أملك الأدوات المستخدمه في مشروعك لغير Microsoft وياحبذا أن تحدد مطلبك بوضوح

بسم الله الرحمن الرحيم والسلام عليكم ورحمة الله وبركاته في Property موجوده في الـ Data1 إسمها RecordSource ووظيفتها إن بيكون فيها مصدر السجلات .. أي إسم الجدول أو جملة الـ SELECT والمطلوب وقت البحث انك تضع جملة الـ SELECT للسجلات المطلوبة وفقا للتاريخ المحدد s…

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

أنا كنت هارد واطلب مثال يحوي فقط الفواتير للتعديل عليه لكن تذكرت مشاركة سابقة لك طلبت فيها مثالا اعطيتني المشروع وبعدها لم تعطيني ما اريد من معلومات .. ونام الموضوع وخشيت ان يحدث الآن كما حدث سابقا .. وعلى كل ارفع مثال ليتم التعديل عليه على ان لا يزيد ولا يقل …

ممكن تقفل برنامج الرسام النسخه المقصوده وتفتح الصورة في نافذه جديدة وبإمكانك أيضا الدخول إلى الرابط أدناه عسى ان تجد ما يفيدك http://www.vbforums.com/archive/index.php/t-304160.html

Private Enum hKey HKEY_CLASSES_ROOT = &H80000000 HKEY_CURRENT_USER = &H80000001 HKEY_LOCAL_MACHINE = &H80000002 HKEY_USERS = &H80000003 HKEY_CURRENT_CONFIG = &H80000005 End Enum Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal …

Private Function EditWithPaint(ByVal PhotoPath As String) As Boolean On Error GoTo Err: Dim PaintPath As String PaintPath = Environ("SystemRoot") & "\system32\mspaint.exe" If Dir(PhotoPath, 0 Or 1 Or 2 Or 4 Or 32) = "" Then GoTo Err: If Dir(PaintPath, 0 Or 1 O…

من الواضح أنك لم تنتبه لما ختمت به مشاركتي السابقة هل الـ VSFlexGrid تفصيل لشخص بعينه ؟؟ أم Standard لفئة كاملة ؟؟ تقصد مش لكل الناس .. هناك أناس النباهة عنوانهم حسبتك منهم حين وضعت الرد الأول ;) وأتمنى أن لا يخيب حسن ظني الثلاث نقاط الأولى هي الموضحة في الرد …

هذا الإمتداد لا يعني شيئا من تنفيذ الـ Procedures أو عدم تنفيذه .. ما يهم إرسال المسار صحيحا أي أني عندما قلت طريقة إستدعاء الـ Procedure الـ DAO تكون كالتالي : Call DAOCompactANDRepair("D:\pro2009\data.mdb") أو إستدعاء Procedure الـ ADO كالتالي : Call ADOComp…