omani

هذا مثا ل لتصميم التقرير الخاص بك علما بأنه بالطريقة الموضحة بالمثال لا يمكن عملها لوجود البيانات بجدول واحد تحياتي Rep.zip

استخدم الكريستال وستستطيع بإذن الله تحياتي

بكل بساطة قم بتصميم تقرير كريستال للجدول الرئيسي ثم قم باضافة SubReport لكل جدول من الجداول التالية وستحصل على النتيجة بمنتهى البساطة تحياتي

هذا ممكن اذا كان التقرير عبارة عن صفحة واحدة فقط لانك تستطيع ان تضع PictureBox في قسم Page Header وترسل له الرابط بالطريقة التالية set DataReport1.Sections(4).controls("picturbox").picture=loadpicture(text1.text) هذا لو فرضنا ان المسار موجود في التكست 1 ولكن ذ…

قم بتنزيل السيرفس باك 6 وبعدها في ستجد في الخصائص الاتجاه يمكنك تغييره بعرض الصفحة DataReport1.Orention= LandScape أو انظر المشروع الأول بتوقيعي ستجد به حل كامل أو قم بتغيير خصائص الطابعة لتصبح LandScape تحياتي

View التي قمت بعملها غير صحيحه قم بتغيير بحيث لايقوم باعادة تكرار البيانات وحاول الربط بين جداول التابعة لـ View

أنظر في توقيعي ستجد غايتك تحياتي

استخدم الباكيج ويزرد الذي يأتي مع الفيجوال ولن تحتاج غيره وبالنسبة لقاعدة البيانات تعمل إذا كان الاتصال من داخل برنامجك تحياتي

استخدم جملة الاس كيو ال واسندها الى تقريرك مثلا" في الموديول Public SQL as String في الكوماند Sql = "select * from Table_Name Where ID = " & text1.text & ";" ' اظهر التقرير FrmReport.Show في الفورم ديكريشن Dim Rs as new adodb.recordset في الفورم لود rs.open SQ…

سؤالك غير واضح إطلاقا يرجى التوضيح اكثر او ارفاق مستند وورد يوضح المطلوب تحياتي

السلام عليكم أولا اضف مكتبة الأكسيس من خلال الريفرنس ثانيا أكتب الكود التالي في المكان المناسب ( كزر كوماند مثلا) Dim ACC as New Access.Application Dim Rep as Access.Report acc.openCurrentDataBase "C:\DataBasePath.MDB" 'يجب اختيار المسار المناسب acc.visable=tr…

اخي الكريم اعتقد انه بطريقة Shape و Append لا يمكن عمل ترقيم تلقائي للريبورت ولكن يمكنك عملها باستخدام INNER JOIN وتتلخص الفكرة في عمل فيلد فارغ ضمن الريكوردست SQL = "Select '' as T,Table1.field1,table1.field2,table2.field1,table2.tield2 from Table1 INNER JOIN…

اخي الكريم فقط اصنع عدد 3 أزرار Command وعدد واحد تكست بكس TextBox ثم انسخ الكود كما هو في الفورم بعدها شغل البرنامج ستجد ان الكود يعمل تمام التمام تحياتي

أخي Xacher يبدو إننا كنا نكتب الردود في الوقت ذاته تحياتي لك اختي المتشوقة يمكنك ايضا استخدم طريقة الاخ Xacher وذلك بالاستغناء عن الليبل وطباعة النتائج مباشرة على الفورم تحياتي

تفضلي هذا مثال سريع للمطلوب أتمنى ان يفي بالغرض تحياتي Motashawiqa.zip

اختي المتشوقة لم افهم ما هو المطلوب بالضبط ولكن يمكن استنخدام عبارة Select case فقد تفي بالغرض يعني بالطريقة التالية Select Case val(text1.text) Case Is = 1 Print "******" & vbCr & "****" case is =2 print "****" caese is =3 print "**" case is = 4 print "*****"…

تستطيع ذلك من خلال تعيين رقم عشوائي للتحرك وليكن ' Dim M as Long 'في حالة سجلات عددها قليل استخدم integer 'تعيين رقم عشوائي Randomize ' 'وضع رقم عشوائي من مجموع سجلات الجدول M = Rnd * (Rs.RecordCount - 1) 'إعادة الجدول الى البداية If Rs.BOF = False Then Rs.Mov…

أخي الكريم انت بحاجة لاضافة اللغة العربية للويندوز الذي تعمل عليه حيث انه لا يدعم اللغة العربية قم باضافتها من خلال اضافة اللغات الداعمة لخاصية Right to left تحياتي

اخي اعمل دوراة لاضافة ما في الجريد الى الجدول بالطريقة التالية dim Rs as Adodb.recordset Dim S as integer 'فتح جدول الفواتير Rs.open " Select * from InvoiceTable",con,3,1 'عمل دورارة للسطور الموجودة بالجريد For S = 1 to MSFlex.Rows -1 ' تحميل ما هو موجود في ال…

اعمل له تحزيم بأي برنامج تحزيم وانصحك باستخدام برنامج التحزيم المرفق مع الفيجوال تحياتي