[hannileo]

السلام عليكم ورحمة الله وبركاته ,,,
اخواني الكرام 

كيف اقوم بتحويل البيانات من جدول الى جدول او من فورم الى فورم اخر بشكل (بشكل مؤقت ليس للحفظ ) للطباعة 

عندما اقوم بعمل بحث فانه يظهر النتيجة وبعد الضغط على زر Show report 
فانه يقوم بنسخ النتيجة منالجدول في  فورم1 الى جدول في فورم2 


وبعدها اضغط زر طباعة فيقوم بطباعة الفورك كامل مع جميع الادوات والجدول
 
يوجد مثال بالمرفقات للتعديل ان أمكن 

وشكراً لكم 

[الاصيله]

السلام عليك
لطباعة الفورم اكتب الكود التالي

PrintForm

[sendbad100]

(01-11-17, 09:25 AM)hannileo كتب : السلام عليكم ورحمة الله وبركاته ,,,
اخواني الكرام 

كيف اقوم بتحويل البيانات من جدول الى جدول او من فورم الى فورم اخر بشكل (بشكل مؤقت ليس للحفظ ) للطباعة 

عندما اقوم بعمل بحث فانه يظهر النتيجة وبعد الضغط على زر Show report 
فانه يقوم بنسخ النتيجة منالجدول في  فورم1 الى جدول في فورم2 


وبعدها اضغط زر طباعة فيقوم بطباعة الفورك كامل مع جميع الادوات والجدول
 
يوجد مثال بالمرفقات للتعديل ان أمكن 

وشكراً لكم 

وعليكم السلام 

في الفورم1

PHP كود :

Private Sub Command2_Click()

Set Form2.DataGrid1.DataSource = Me.Adodc1.Recordset
Form2.Show

End Sub 


وفي الفورم2

PHP كود :

Private Sub Command1_Click()
Me.PrintForm
End Sub 


بالتوفيق

[الاصيله]

اما بالنسبة لنقل معلومات جدول الى اخر فالكود كالتالي

كود :

If RS.State = adStateOpen Then RS.Close
RS.Open "Insert Into Table2 In'" & App.Path & "\db1.mdb" & "'" & _
" Select * From Table1 Where Name Not IN (Select Name From Table2 IN'" & App.Path & _
"\db1.mdb" & "')", DB, adOpenDynamic, adLockOptimistic
MsgBox "تمت العملية بنجاح", vbInformation

---

وهذا طلبك في المثال

[hannileo]

(01-11-17, 02:03 PM)الاصيله كتب : اما بالنسبة لنقل معلومات جدول الى اخر فالكود كالتالي

كود :

If RS.State = adStateOpen Then RS.Close
RS.Open "Insert Into Table2 In'" & App.Path & "\db1.mdb" & "'" & _
" Select * From Table1 Where Name Not IN (Select Name From Table2 IN'" & App.Path & _
"\db1.mdb" & "')", DB, adOpenDynamic, adLockOptimistic
MsgBox "تمت العملية بنجاح", vbInformation

---

وهذا طلبك في المثال

شكرا لكم الاخت الأصيلة والاخ سندباد عل المساعدة
بارك الله بكم 
ولكن يوجد عندي مشكلة صغيرة ظهرت بعد الطباعة
هي حجم datagrid بعد الطباعة اذا كانت تحتوي عىل عدد كبير من الحقول فانه يجب ان تاخذ الحجم المناسب للطباعة لكي تظهر الحقول المخفية واخفاء السكرول 
وهل هناك اداة افضل من DATA GRID للطباعة مثل هذه الطريقة  


وشكراً جزيلاً لكم

[hannileo]

(01-11-17, 03:42 PM)Amir_alzubidy كتب : السلام عليكم و رحمة الله

انا لدّي اقتراح اخر هو ارسال ناتج الاستعلام الى الاداة الداتا قريد في الفورم الثاني
و بعد ذلك يتم طباعة الناتج مباشرة الى التقرير سواء داتا ريبورت او اكتيف ريبورت .

اهلا استاذ أمير اشكرك عل الرد 
ولكن المشكلة انا لم اجرب مطلقا طريقة الداتا ريبورت او الاكتف ريبورت 
وخاصة انني اعمل بهذا الاداة Adodc 

هل يمكنك مساعدتي بعمل المثال بسيط لكي اتعلمها  
وشكرا جزيلا لك

[hannileo]

(01-11-17, 04:33 PM)Amir_alzubidy كتب : السلام عليكم ورحمة الله 
اهلا بك اخي هاني 
هذا تعديل باضافة التقرير الى المشروع  : 

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


ولكن هل يمكن وضع كل رقم باص في صفحة طباعة يعني عندما وضعت الارقام 10 الى 15 مثلا اريده ان يظهر كل list للباص في صفحة لطباعته بدل اظهارها جميعاً 
ان كان هذا الامر صعباً فلا مشكلة بكل الاحوال 

شكرا لك  و جعلها الله في ميزان حسناتك 

[hannileo]

(03-11-17, 04:10 PM)Amir_alzubidy كتب : السلام عليكم ورحمة الله وبركاته 
هذا مثال لكيفية انشاء Grouping 

المثال : 



ملاحظة : تم انشاء التقرير على الاكتيف ريبورت 
يمكنكم تنزيل النسخة من ActiveReportsv2.5.rar
بالاضافة الى الربط بتقنية ADO Active X

اشكرك من قلبي يوم الاحد ان شاء الله انا متحمس لتجربتها على برنامجي ولكن السؤال هل يجب عند تحزيم البرنامج ان اقوم بتنصيب الاكتيف ريبورت ايضاً على الكمبيوتر الذي اقوم بتنصيب البرنامج عليه ام انه يقوم بنسخه الياً

شكراً لك وبارك الله بك و بجهودك

[hannileo]

(04-11-17, 01:39 AM)Amir_alzubidy كتب : الشكر لله اخي هاني
نقول ان شاء الله
لا لن تحتاج الى تنصيب نسخة
الاكتيف ريبورت على جهاز المستفيد
بعد انشاء التحزيم ،
فقط على نسخة الويندوز التي تقوم بتشغيل المشروع عليها .
بارك الله في الجميع

بارك الله بك الطريقة عملت ولكن ليس بشكل جيد فظهرت عندي بعض المشاكل 

المشكلة الاولى انني لااستطيع عمل قاعدة بيانات اخرى بارقام الباصات لانها بالاحرى موجودة ولكن بملف قاعدة بيانات  اخر وليست معها  كما مبين بالصور  المرفقة
والموضوع الاخر الانصال بقاعدة البيانات لانني كما تعلم برنامجي متصل بقاعدة البيانات عن طريق Adodc
هل يجب الانصال بطريقتك ام ابقى على طريقتي

وهل يوجد طريقة بدون قاعدة بيانات اخرى بارقام الباصات لان بعض الباصات لاتحتوي على طلاب بالاساس 

والله انا اعتذر منك على كثر طلباتي ولكن انت دائماً تعطيني الحل الامثل وبتفاصيل اجمل 
شكرا  لك على كل حال وجعلها في ميزان حسناتك

[hannileo]

(05-11-17, 11:54 AM)Amir_alzubidy كتب : السلام عليكم و رحمة الله 
انا ما فهمت ايش الحكاية بالضبط 
لكن تم تعديل المرفق بناءً على قاعدة البيانات التي تم ارفاقها في المشاركات السابقة 
هذا تعديل الربط بالادوات 

وعليكم السلام ورحمة الله وبركاته ,,,

نعم هذا جزء كبير من الذي اريده 
ولكن المشكلة عندي انت قمت بعمل قاعدة بيانات بارقام الباصات بالاضافة لقاعدة البيانات الاولى 
لذلك انني لا استطيع ان اعمل هذا الجدول لان الارقام متغيرة ومربوطة بجداول اخرى لذلك سوف تاخذ جهد كبير لاعادة صياغتها بطريقتك  


انت لديك قاعدتين بيانات بنفس الملف 


 انا عندي قاعدة باسم ارقام الطلاب مع ارقام الباصات تشبه  Students 
والثانية هي عبارة عن معلومات الباصات التي تشبه BusNo ولكن كل واحدة بمجلد مختلف 

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

وشكرا لك من قلبي