ahmad kalil

السلام عليكــم ورحمـة الله وبركاتــه ،، Dim m, i, str1 k = Trim(Me.Text7) m = Len(k) For i = 1 To m str1 = Mid(k, i, 1) Print str1 Next i حيث استخدمت الدالة Trim لحذف الفراغات من النص المدخل والدالة Len تعيد طول السلسلة المدخلة واستخدمت loop لقراة السلسلة والد…

السلام عليكــم ورحمـة الله وبركاتــه ،، احذف Val من الكود

السلام عليكــم ورحمـة الله وبركاتــه ،، نعم افضل شيء هي مكتبة ADO اما بالنسبة لنوع الحقل في قاعدة البيانات وText الموجود في الفورم فتسطيع تحديدة بالكود مثلا تريد من خلال Text ادخال ارقام ويخزن في قاعدة البيانات ارقام فتضع شرط كالاتي If Not IsNumeric(Text10.Tex…

السلام عليكــم ورحمـة الله وبركاتــه ،، يفضل بناء الجداول في قاعدة البيانات وتحديد نوع الحقول ومن ثم كتابة الكود داخل فجوال بيسك ولكن في النهاية كلها حلقة مترابطة فاي تغير في قاعدة البيانات بنوع الحقول يجب تغير الكود البرمجي في VB والعكس صحيح

السلام عليكــم ورحمـة الله وبركاتــه ،، ماتفضل به اخي ashkenas صحيح نوع الحقول في قاعدة البيانات هي التي تتحكم بما يظهر بالتقارير ولكن الخلل في التقرير هو حقل Data Field قمت بتعديل البرنامج report.rar

السلام عليكــم ورحمـة الله وبركاتــه ،، المرفق حول التاريخ فقط حيث اذا تم ادخال تاريخ اكبر من 01/07/2009 يتوقف العمل وتم استخدام اداة التاريخ DTPicker ومن الله التوفيق ppt.rar

السلام عليكــم ورحمـة الله وبركاتــه ،، اخي الكريم ساتكلم عن فكرة نطبقها عندنا في الشركة كنا في موقع عمل واحد قسم الحسابات والادارة وفيما بعد تم نقل قسم الادارة الى موقع اخر علما بان البرنامج واحد ويعمل على قاعدة بيانات sqlserver فبحثنا عن طريقة لربط البرنامج …

السلام عليكــم ورحمـة الله وبركاتــه ،، في عملية البحث اذا كان الادخال من خلال Combo وفي حدث Click فان البحث يتم بالمطابقة يعني اين يجد مايطابق المدخل 100% ولكن ممكن عمل بحث من خلال Text وباستخدام Like فهنا ياتي بكل المدخلات التي تبدأ بحرف a مثلا ويستمر بالفرز…

السلام عليكــم ورحمـة الله وبركاتــه ،، تاكد من وجود المكتبة ADO من خلال Project - References - Microsoft Ative Data Objects Library

السلام عليكــم ورحمـة الله وبركاتــه ،، حياك الله اخي الكريم ولكن عند تنفيذ البرنامج ظهر الخطأ التالي

السلام عليكــم ورحمـة الله وبركاتــه ،، ماهي الاداة المستخدمة في برنامجكم للتاريخ وهل ممكن ارفاق البرنامج لتحديد المكان المناسب لوضع تاريخ الانتهاء مع الشكر

السلام عليكم اعذرني الامثلة في البرامج التي عندي كبيرة لااستطيع ارفاقها ولكن جرب وانت ارفق مثال ومن الله التوفيق

السلام عليكــم ورحمـة الله وبركاتــه ،، وهو الاصح ان تستخدم الاداة DTPicker اضبط الخصائص التالية للاداة DTPicker1.Format = dtpCustom DTPicker1.CustomFormat = "yyyy/MM/dd" واذا اردت التحكم باضهار صيغة التاريخ على الفورم تضغط باليمين على اداة التاريخ ومن الخصائص…

السلام عليكــم ورحمـة الله وبركاتــه ،، اخي العزيز التقارير بصورة عامية تقسم الى ثلاثة اجزاء 1- Page Header ويكتب فية عنوان التقرير مثلا حيث يكون ثابت فاذا كان التقرير خمس صفحات فهاذا العنوان يتكرر مع كل صفحة 2- Detail وهذا هو المهم حيث الحقول هنا ترتبط بنتائج…

السلام عليكم اذا كان المقصود لتاريخ معين ويقف Dim date1 As Date date1 = Date If DTPicker1.Value > date1 Then MsgBox "date end" Exit Sub End If

السلام عليكم لازال نفس الخطأ اذا كنت قد ارفقت مع البرنامج قاعدة بيانات فضعها في نفس مسار البرنامج

السلام عليكم بعد تحميل البرنامج ظهر خطأ Path Not Found

السلام عليكــم ورحمـة الله وبركاتــه ،، ارفقت مثال وهو معدل على برنامجك يبن كيفية خصم الكمية علما اني اضفت قاعدة بيانات check وفورم6 للبرنامج ارجو ان يقرب اليك كيفية الخصم من الكمية الاساسية بالتوفيق checkqty.rar

السلام عليكــم ورحمـة الله وبركاتــه ،، هذه الدالة اذا كنت تستخدم التاريخ من خلال Text Me.Text5 = Format(Date, "yyyy/mm/dd")

السلام عليكــم ورحمـة الله وبركاتــه ،، ان استعمال اداة في غير محلها يسبب مشاكل وتحتاج وضع كود اضافي لمنع الخطا في المثال اخي Black_Drag0n نفذ البرنامج وضع التاريخ الاتي 31/02/2009 سيحدث خطأ لان شهر 2 هو 28 يوم فقط اما في استخدام اداة تخص التاريخ مثل DTPicker …