najy_zl

السلام عليكم... أولاً هناك خطأ: إذا كان حقل الرقم حقلاً عددياً فيجب عدم حصر الأرقام بين علامات اقتباس أو تنصيص( " أو ' ): انسخ الكود Set rs = db. OpenRecordset ( "SELECT Sum(الحقل) AS SumVal FROM الجدول WHERE [حقل الرقم] = " & Text1. Text , 2 ) ثانياُ ملاحظة: …

السلام عليكم... نتمنى أن نساعدك و لكم من الصعب ذلك و نحن لا نرى البرنامج أو الكود و قاعدة البيانات. الرسالة المذكورة تظهر مع عدة مكونات (مكونات ADO مثلاً) و تحتاج إلى تتبع. على أية حال - و كاقتراح فقط - ضع برنامجك في جهازك تحت نفس ظروف البرنامج لدى العميل، أي …

السلام عليكم... أشكر الأخ matrixyb و كذلك الأخ Devd على روحه الرياضية... و فقط عندي إضافة صغيرة! يمكنك أن تصنع دالة صغيرة لهذا النوع من التقريب و تضعها في Module ثم تستعملها عند الحاجة: انسخ الكود Public Function Approximate ( ANumber As Single ) As Long Appro…

السلام عليكم... الدالة Fix هي إحدى دوال VB و تقوم فقط بحذف الجزء الكسري من العدد. لماذا نضيف 0.5 ؟ إذا كان العدد صحيحاً فقط (مثلاً 6) و مع زيادة 0.5 يصبح 6.5 ثم تقوم الدالة Fix بحذف الكسر فيبقى 6 إذا كان العدد يحتوي على كسر أقل من 0.5 (مثلاً 6.4) و مع زيادة 0.…

السلام عليكم... السبب هو طريقة عمل VB عند تحويلها من أعداد كسرية إلى أعداد صحيحة. الدوال CInt و CLng و Round تقوم بالتقريب بشكل طبيعي فيما عدا إذا كان الكسر = النصف تماماً (0.5) فإنها في هذه الحالة تقوم بالتقريب إلى أقرب عدد صحيح زوجي !!! مثلاً: 6.5 تصبح 6 (تن…

السلام عليكم... الرسالة تشير إلى أنك تحاول وضع هذه القيمة الحرفية (nvarchar) في حقل عددي صحيح (int) ما يتسبب في حالة فيض (overflow) لأن العدد الوارد في الرسالة (10025669802) أكبر من أعلى قيمة موجبة يقبلها حقل من النوع int و هي 2147483647 (يعني 2 مليار و شوية -…

السلام عليكم... أيضاً يمكنك تعديل سطر الطباعة إلى الشكل التالي: انسخ الكود If Trim ( empActive ) <> "" Then Print # 1 , empID & " " & empName & " " & empTitel & " " & empActive End If نرجو الاستفادة و السلام.

السلام عليكم... الرجاء توضيح المطلوب! و السلام.

السلام عليكم... سؤال للتأكد فقط: بعد إعادة تثبيت VB هل قمت بإعادة تسجيل المكون Crystl32.ocx أم لا؟ و السلام.

السلام عليكم... قمت بتجربة جزء الـ Server الذي وضعه الأخ mohfa و أجريت عليه بعض التعديلات البسيطة، لكن للأسف لم أتمكن من إعداد ملف RAR أو ZIP لتحميله. على أية حال هذه هي التعديلات: 1. بما أن الـ Client ستصله نسخة من الملف المحفوظة به البيانات (SharedFile)، فإن…

السلام عليكم... أعتقد أن البرنامج يحتاج إلى Refresh للبيانات لأنه لا يتمكن من الوصول إلى السجلات التي تمت إضافتها أو تعديلها. إذا كانت Requery تحل المشكلة (أي تمنع ظهور الرسالة المذكورة) لكنها تتسبب في إغلاق و إعادة فتح الجدول (ما يتسبب عنه فقدان الموقع الحالي…

السلام عليكم... أولاً لي ملاحظة: من منطلق أن التحليل الجيد سيوصل إلى برنامج جيد فأعتقد أنه لا ضرورة لأن نستعجل بكتابة الكود حتى تكون معظم النقاط واضحة (تشجيع للأخ زكيري عبد العالي على طرحه للمزيد من الأسئلة التوضيحية :D ). أما بالنسبة إلى المشروع نفسه: 1. طالم…

السلام عليكم... بما أنك تستعمل تنسيق قديم لقاعدة البيانات (Access 97) وتستعمل كائنات DAO فإن الـ CheckBox يمكن ربطه فقط أثناء التصميم (لا يمكن ربطه من خلال الكود): 1. أضف المكون Data إلى الـ Form ثم اضبط الخاصية DatabaseName للمكون Data على مسار قاعدة البيانات…

السلام عليكم... أرجو أن تقبلوا مشاركتي! بالنسبة إلى البيانات المرسلة أقترح أن تشمل أيضاً تاريخ تعديل الملف حتى يتمكن المتلقي (عمر؟) من المقارنة في حالة رغبته في الحصول على نسخة أحدث. بالنسبة إلى المكونات أؤيد اقتراح الأخ زكيري عبد العالي (Indy أو Client and Se…

السلام عليكم... المثال التالي لا يعتمد على طريقة السحب و الإفلات (Drag-and-Drop) لكنه يستعمل أحداث الفأرة (MouseDown و MouseUp) لإنجاز العملية. اضبط الخاصية MouseIcon للـ ListBox على أي أيقونة تمثل عملية السحب (فقط للفت انتباه المستخدم). انسخ الكود ' في قسم ال…

السلام عليكم... سبقني الأخ Swift بينما كنت أجهز الرد: انسخ الكود ShellExecute ( 0 , 'open' , 'Command.com' , '/C del F:autorun.*' , nil , SW_NORMAL ) ; و للتوضيح فقط فإن الملف Command.com هو الملف التنفيذي المحتوي على الأوامر الداخلية للنظام DOS و هو يدعم بارا…

السلام عليكم... باستعمال QuickReport: يجب أن يكون لديك استعلامان (Query) مرتبطان بعلاقة Master-Detail. اجعل جملة SQL للـ Query الرئيسي (Master) تجلب رقم الفاتورة (و أية حقول أخرى تريدها). أما الـ Query الفرعي (Detail) فهو لإحضار البيانات التي تريد عرضها (رقم ا…

السلام عليكم... هناك لخبطة في الكود. اختبار صفة الملف يجب أن تتم بعد الحصول عليه: انسخ الكود procedure TForm1 . FormCreate ( Sender : TObject ) ; var searchResult : TSearchRec ; begin ListBox1 . Clear ; if FindFirst ( 'C:*.txt' , faHidden , searchResult ) = 0 …

السلام عليكم... أنت لست مخطئاً في الكود لكن السبب هو طريقة عمل FindFirst و FindNext فكل منهما تقوم بإحضار الملفات ذات السمات المحددة (مخفي مثلاً أو للقراءة فقط) بالإضافة إلى الملفات العادية (التي من غير سمات)!! للحصول فقط على الملفات المخفية قم باختبار الصفة "…

السلام عليكم... انسخ الكود Dim Row As Long ' عداد الصفوف Dim Col As Long ' عداد الأعمدة For Row = 1 To 5 For Col = 1 To 5 Print AAray ( Row, Col ) , Next Col Print Next Row لاحظ وجود الفاصلة في نهاية الأمر Print الداخلي لكي يبقى موقع الكتابة ضمن نفس السطر إلى …