najy_zl

السلام عليكم... ربما يسهل عليك الأمر استعمال الـ DTPicker (مجموعة Microsoft Windows Common Controls 6) و ضبط الخاصية Format على dtpTime، ثم استعمال الخاصية Value للحصول على الوقت دون الحاجة للتأكد من صحة الوقت. و يمكنك استعمال الخاصية CustomFormat لتحديد صيغة …

السلام عليكم... حاول تحويل قاعدة البيانات من تنسيق Access 97 إلى تنسيق Access 2000 كالتالي بعد فتح قاعدة البيانات: القائمة "أدوات" > "أدوات مساعدة لقواعد البيانات" > "تحويل قاعدة بيانات" > "لتنسيق Access 2000". سيطلب منك اسماً لقاعدة البيانات. اكتب اسماً مختلف…

السلام عليكم... أنا شخصياً أستعمل نافذة معاينة مخصصة باستعمال المكون QRPreview. و كهدية فإني أرفقت ملفات النافذة حيث يمكن ضمها إلى مشروعك و استخدامها. تحتوي المرفقات على ملف باسم How_To_Use.txt يحتوي على شرح كامل لكيفية استعمال تلك النافذة. نرجو الاستفادة و ال…

السلام عليكم... إذا كنت تريد التعامل مع Word كتطبيق مستقل و تقوم بفتح مستنداتك فيه فإليك هذه الطريقة: أولا: افتح القائمة Project و اختر منها References. ثانياً: ابحث عن Microsoft Word xx.x Object Library و قم بتحديده (حيث xx.x رقم يدل على نسخة مكتبة Word. أنا …

السلام عليكم... ثلاث خطوات بسيطة لإخفاء التطبيق من شريط المهام (TaskBar) و Task Manager و تعطيل Alt+Tab لمنع التبديل إلى برامج أخرى: 1. في الوحدة الرئيسية للمشروع أضف السطر المبين في الكود التالي: Application.Initialize; Application.Title := ''; // << أضف هذا …

السلام عليكم... الموضوع بسيط (قمت بتنزيل المرفقات و تجربتها). أولاً: الخاصية CommandType للمكون Adodc3 كانت مضبوطة على adCmdTable ما يعني أن قيمة الخاصية RecordSource يجب أن تكون اسم جدول و لا يمكن أن تكون جملة استعلام. و هذا أثناء التصميم صحيح لأن الخاصية Rec…

السلام عليكم... طريقة استعمال الـ MsgBox للحصول على استجابة المستخدم خاطئة. الطريقة الصحيحة كالتالي: If MsgBox("Do u want to del......?", vbYesNo, "My project") = vbYes The Data1.Recordset.Delete Data1.Refresh End If بالإضافة إلى أنك لست في حاجة إلى Else أو Ca…

السلام عليكم... إذا كان الكود الذي تستعمله مطابقاً تماماً للكود المكتوب في السؤال فلن يتم فتح الجدول يالتأكيد !!!!!!!! لكن المشكلة بسيطة! السطر الثالث يجب أن يكون هكذا: Rs3.Open SQL3, cn, adOpenKeyset, adLockPessimistic, adCmdText لاحظ أن أول بارامتر للمنهج Op…

السلام عليكم... بالنسبة إلى الـ Data Controls فإني أعتقد أن المشكلة ليست مشكلة BiDiMode بل مشكلة Alignment، فمثلاً المكون DBEdit لا يملك الخاصية Alignment وبالتالي فإن محاذاة النص فيه تعتمد على الخاصية Alignment للحقل المرتبط به (حسب الخاصية DataField). لذلك ق…

السلام عليكم... لا يوجد بخصوص الـ Timer كلام كثير. فكما يدل اسمه هو أداة توقيت (مؤقت) يستعمل لتنفيذ مجموعة من الأوامر كل قترة زمنية محددة مسبقاً (أثناء التصميم) أو يتم تحديدها و تغييرها أثناء التشغيل. للـ Timer خاصيتان أساسيتان هما Enabled و Interval. الخاصية …

السلام عليكم... الخطأ مضاعف!! أولا: الحقل MDate هو حقل Date/Time و تريد مقارنته بقيمة Date (المتغير x) و لذلك لا داعي لتحويله إلى String داخل جملة SELECT. إن مقارنة التواريخ تختلف كلياً عن مقارنة النصوص، مثلاً إذا عاملنا القيمتين "2008/05/30" و "2008/06/10" كـ…

السلام عليكم... إذا كنت تستعمل أداة الـ ADO (مثلاً Adodc1) فالكود يكون كالتالي (طبعاً تكون الخاصية ConnectionString مضبوطة سابقاً): Adodc1.RecordSource = "SELECT * FROM date WHERE name = '" & X & "'" Adodc1.Refresh نصيحة: عند تسمية حقول جدول في قاعدة البيانات …

السلام عليكم... يجب تحويل الرقم (قيمة اللون) إلى النظام Hexadecimal باستعمال الدالة Hex مع معالجته قليلاً ليكون في عدد محدد من الخانات (إذا كنت ستستعمله مع HTML فسيكون في 6 خانات): ' دالة لإنشاء المقابل الستعشري للون - لأي رقم. إذا لم تحدد الطول فإن الطول الاف…

السلام عليكم... أصبح الأمر مختلفاً قليلاً لأن الـ Common Dialog لا يسمح باختيار مجلدات، و لذلك فأنت بحاجة لاستدعاء نافذة "اختيار مجلد" الخاصة بـ Windows، و هي تحتاج لاستعمال بعض دوال API. على أية حال أنا شخصياً قمت خلال عملي كمبرمج بتجميع مثل هذه المواضيع (الت…

السلام عليكم... أعتقد أنه من الصعب معرفة السبب دون النظر إلى البرنامج أثناء تنفيذه. لكن ربما يساعدك أن تضع نقاط قطع (Break Points) في الكود الذي تعتقد أنه يصدر الرسالة، ثم تقوم بتتبعه خطوة خطوة (F8). والسلام.

السلام عليكم... وجدت في برامجي القديمة هذا البرنامج و هو عبارة عن حاسبة (كاملة تقريباً) يمكن أن تجد فيه ما تريد. Calculator.rar نرجو الاستفادة و السلام.

السلام عليكم... إذا كنت تريد إظهار الكسر دائماً حتى و إن كان صفراً (مثلاً 12.00): Edit3.Text := FormatFloat('0.00', c); نرجو الاستفادة و السلام.

السلام عليكم... السؤال غير واضح! هل المطلوب التأكد من وجود الملف base1.dll قبل فتحه أم ماذا؟ (المفترض أنه ملف قاعدة بيانات تم تغيير امتداده من MDB إلى DLL). نرجو التوضيح أكثر.

السلام عليكم... على افتراض أن اسم الجدول هو Customers و أن حقل العداد اسمه CustID: Private Function GetNewCustID() As Long Dim RS As New ADODB.Recordset RS.Open "SELECT Max(CustID) AS MaxID FROM Customers", DbCnnString, adOpenStatic, adLockOptimistic, adCmdTex…

السلام عليكم... طبعاً سيعترض لأن جملة UPDATE و ما بعدها هي جملة استعلام (Query) يجب إرسالها كنص عبر ADODB.Command كالتالي: Private Sub Command1_Click() Dim Cmd As New ADODB.Command Cmd.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Pe…