19-07-18, 07:42 AM
الصفحات : 1 2
21-07-18, 02:47 AM
وين شباب ارجو المساعدة
21-07-18, 03:30 AM
لتسهيل الامر عليك
تخيل انك تعمل تصميم فاتورة لبرنامج ما
فكل ما عليك فعله هو التصميم طبقاً لما تريده ووفقاً للمقاسات المطلوبة
ناتى للبيانات لتسهيل الامر عليك اكثر
قم بعمل قاعدة بيانات تحتوى على جدول مخصص بـ صكوك وبالبيانات المطلوبة
وانشاء زر يقوم بعمل ادخال 50 بيانات بالجدول
وخلال الادخال يقوم بعمل توليد رقم عشوائي او تسلسلي حسب ما تريد
والزر الاخر يقوم بارسال الـ 50 بيانات المدخلة الى التصميم الذى قمت بعمله
والزر الثالث يقوم بحذف / تفريغ جدول الخاص بـ صكوك.
تحياتى لك
وتمنياتى لك التوفيق
21-07-18, 05:16 AM
إقتباس :شكرا اخي [b]elgokr لكن اريد فكرة اسهل عن طريقة حلقة for يتم تغير رقم الصك 50 مرة [/b]
21-07-18, 05:25 AM
فى كلا الحالتين ستحتاج الى For
لتجعل الـ الزر يضيف الـ 50 صفحة التى تحتوى على الرقم مرة واحدة
وليس مع كل ضغطة يقوم باضافة صفحة واحدة فقط
بخصوص الـ For انت الاول تريد ان يكون الرقم تسلسلي مثلاً مثل
6565686568001
6565686568002
6565686568003
ام انه يكون رقم عشوائي
فيفضل تحديد ذلك اولاً حتى اضع لك الكود حسب ما تحدده
تحياتى لك
21-07-18, 05:35 AM
21-07-18, 05:48 AM
تفضل كود الـ For
كل ما عليك هو استخدام هذا الجزء
كود :
For ii As Integer = 1 To 50
MsgBox(Val(6565686568000 + ii))
Next
كل ما عليك هو استخدام هذا الجزء
كود :
Val(6565686568000 + ii)
مع تغيير رقم 6565686568000 للرقم الذى تريد ان يبداء عنده
حيث انه الـ 000 سيقوم عند بداء العد لتحويله الى 001 : 050
تحياتى لك
وتمنياتى لك التوفيق
21-07-18, 05:53 AM
شكرا اخي توي نشوف الكود
21-07-18, 05:55 AM
(21-07-18, 05:53 AM)الزوي كتب : [ -> ]شكرا اخي توي نشوف الكود
الشكر لله
خد وقتك اخى الحبيب
تحياتى لك
وتمنياتى لك التوفيق
الصفحات : 1 2