mrx_ta7ady

Password.rar

للبحث عن التواريخ التي تسبق تاريخ محدد انسخ الكود [color= #993333; font-weight: bold;]SELECT [color= #66cc66;]* [color= #993333; font-weight: bold;]FROM Table1 [color= #993333; font-weight: bold;]WHERE Field1 [color= #66cc66;]< [color= #ff0000;]'2008/12/31' لل…

/index.ph...st&p=935498

السلام عليكم ورحمة الله وبركاته الأخ medofun .. بإمكانك وضع ما تريد في الحدث Error للأداة DataGrid ولعدم إظهار الرسالة الصادرة من الـ DataGrid يتوجب عليك وضع السطر أدناه في الحدث نفسه Response = 0 ولعدم السماح بالتغيير في أي خانة من الأصل يتوجب عليك وضع السطر …

إستبدل الكود في الحدث Click للـ Command2 بالكود أدناه CR1.ReportFileName = App.Path & "\Report1.rpt" If Len(Trim(Label3)) <> 0 Then CR1.SelectionFormula = "{tbl1.nam}='" & Label3 & "'" Else CR1.SelectionFormula = "" End If CR1.Action = 1 CR1.DataFiles(0) = App…

يمكن صنع ما تقول ولكن بالـ Crystal Report وبالتحايل عليه ام الـ Data Report فلا اعمل بهذه الطريقة ولا اريد أن اعمل به ولا اعلم عنها الكثير ولا أعتقد ايضا ومن باب العلم بالشيء مستحيل الدمج بشكل مباشر مع تلك الأداة التي اقل ما تصف به انها عقيمة :) كما ان هذا ليس…

ما اصبت به يقال له Worm وليس Virus .. وهو شيء تافه ولكن أغلب إصداراته إن لم تكن جميعها تعطل الـ Safe Mode وكافة برامج الـ Anti-Virus تمسك به ... ولكن ولا Anti-Virus يصلح من الأضرار الناتجة عنه بالنسبة لنظام التشغيل ومرفق ملف صغير من برمجتي قديما كان يتصدى لكاف…

مرفق مثال لمعرفة الـ Mac Address بالـ API أيضا ولكن بإستخدام الـ SendARP هذه المرة بدلا من الـ NetBios ويزيد هذه المره إمكانية معرفة أي Mac Address من خلال الـ IP Address المحلي .. وبالتوفيق إن شاء الله GetMacAddressFromIP.rar

بالنسبة للـ Mac Address .. فلن ازيد عن المثال أدناه Get your Network Interface Card's MAC Address أما الـ Gateway فعندي طريقة بالـ WMI .. ضع الكود أدناه في الـ Form1 من مشروع جديد Dim i As Integer Dim MYComputer As String Dim WMIService As Object Dim MYAdapter…

ياريتك تاخد بالك ان في فرق بين Users و User .. والمشكلة التانيه تدل على خطأ في إسم احد الحقول المستخدمه في الإستعلام

عمكم :haha: .. الرسالة دي بتقولك ان معندكمش جدول اسمه User في قاعدة البيانات يا ولاد اخويا :haha:

صبح صبح يا عم الحج SQLs = "Select * From [User] Where UserName = '" & Text1 & "' And Password = '" & Text2 & "' "

قولنا السطر اللى انت كاتب فيه SQLs = .. يعني الكلمة دي بتساوي ايه قشطه كده ؟

المتغير SQLs ماذا يحوي ؟؟

بتوحيد القيم وتنفيذ ما سبق وان ذكرته في المثال

Password.rar

المشكلة ان الكود موضوع خارج الإجراء .. أي بعد End Sub .. وهذا لا يجوز إجعل الكود عندك كالتالي End Sub savemsg = MsgBox(" Are You Sure To Create Administrator ?", vbQuestion + vbMsgBoxRight + vbYesNo, " Save Data ") بدلا من : savemsg = MsgBox(" Are You Sure To …

اذا كود الرساله كما هو ادناه MsgBox " Sorry,The Old Password Not Equel New Password ", vbCritical + vbMsgBoxRight, " Error " فأين السؤال ؟؟ .. الكود سليم 100 % برجاء ذكر نص الرسالة الدالة على وجود مشكلة أو خطأ

ملف الـ vbp وحده كان يكفي اي نعم حيث يحوي معلومات الـ Preferences المستخدمه وبما انك توصلت للحل فيجب ان تعلم انك كنت تفقد مكتبة الـ Crystal Reports وهي تابعة لصفوف الـ Preferences اما الإشارة الى التاريخ فلا اعلم سبب منطقي الا انه كالمحموم في تخريفه ويرجى في ا…

اعتقد ان المشكلة ليست في دوال التاريخ .. بل في مكتبة مستخدمه وغير متواجده على جهازك تأكد من الـ Preferences أو ارفق لنا ملف الـ vbp .. إما اعطيك حل واما انفي ما قلته اعلاه