رسم جدول في التقرير يحوي بيانات الجدول

[maya]

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

الى خبراء اكسس 

اريد تقرير يظهر كجدول كما في الصورة المرفقة

1- يحتوي على عشرة اسطر سواء كانت ممتلئة بالبيانات او جزء منها .

2- اريد ان يظهر التقرير مكرر مرتين على نفس الورقة اثناء الطباعة 

3- بالنموذج : اريد زر يبحث عن فاتورة محددة مثلا 1451

                  وزر يحذف فاتورة محددة 1400

                 وزر يطبع فاتورة محددة 1451

شاكرة حسن تعاونكم معي 

ارجو الرد السريع 

 

تم تعديل مارس 1, 2018 بواسطه maya

[عبدالرحمن هاشم]

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

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

[maya]

الرجاء الرد السريع للضرورة

[طاهر الوليدي]

هل هذا ماتقصده 

تقرير نسختين في ورقه.rar

[maya]

الاخ طاهر الوليدي المحترم 

نعم هذا هو المطلوب ... لكن هل يمكنك ان تشرح لي الطريقة المتبعة جزاك الله خيرا 

وهل يمكن ارسال صفحة التقرير   عن طريق الايميل للشركة المطلوبة ؟؟

[طاهر الوليدي]

 

كود ارسال تقرير اكسس الى الاميل
Docmd.Sendobject ObjectType,ObjectName,OutputFormat,To,Cc,Bcc,Subject,Message Text,Edit Text

امثلة ممكن تجد طلبك

Email.rar

[maya]

الاخ طاهر الوليدي المحترم 

نعم هذا هو المطلوب ... لكن هل يمكنك ان تشرح لي الطريقة المتبعة جزاك الله خيرا 

وهل يمكن ارسال صفحة التقرير   عن طريق الايميل للشركة المطلوبة ؟؟

جزيل الشكر اخي الكريم طاهر 

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

[طاهر الوليدي]

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

[maya]

الاخ طاهر المحترم 

ممكن تزودني بكود التفقيط لو سمحت مع مثال عليه 

 

[maya]

الأخ طاهر المحترم  بتقرير الفاتورة  نسختين 

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

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

ارجو التعديل في النموذج وافادتي مشكورا 

[طاهر الوليدي]

كود تفقيط عربي انجليز  ممتاز جدا فقط غير اسماء الحقول حسب قاعدة البيانات تبعك

ممتاز التفقيط عربي انجلزي.rar

4 ساعات مضت, maya said:

 

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

 

ارسل قاعدتك نعدل عليها

[maya]

الاخ طاهر الوليدي المحترم 

جزاك الله خيرا 

لو سمحت اريد التالي :

1- الترقيم التلقائي بجدول الفواتير اريده فردي(1,3,5,7,9,11 .......ect) او زوجي (2,4,6,8,10,12,.............)

2-اريد ان يظهر في التقرير المطبوع 10 سجلات 

3- ارسال التقرير كرسالة ايميل - اتبعت الخطوات التي فرسلتها لي بالفيديو لكن الشرح مشروط بأن لا يكون هناك كود - انا استخدم كود هو ادخال رقم الفاتورة  - كيف يمكنني حل ذلك ؟؟

4- التفقيط على التقرير 

ارسلت لك الملف للتعديل 

TEKT.mdb

[ابو جودي]

11 ساعات مضت, maya said:

الاخ طاهر الوليدي المحترم 

جزاك الله خيرا 

لو سمحت اريد التالي :

1- الترقيم التلقائي بجدول الفواتير اريده فردي(1,3,5,7,9,11 .......ect) او زوجي (2,4,6,8,10,12,.............)

2-اريد ان يظهر في التقرير المطبوع 10 سجلات 

3- ارسال التقرير كرسالة ايميل - اتبعت الخطوات التي فرسلتها لي بالفيديو لكن الشرح مشروط بأن لا يكون هناك كود - انا استخدم كود هو ادخال رقم الفاتورة  - كيف يمكنني حل ذلك ؟؟

4- التفقيط على التقرير 

ارسلت لك الملف للتعديل 

TEKT.mdb

TEKT.zip

[maya]

الاخ طاهر الوليدي المحترم 

جزاك الله خيرا 

لو سمحت اريد التالي :

1- الترقيم التلقائي بجدول الفواتير اريده فردي(1,3,5,7,9,11 .......ect) او زوجي (2,4,6,8,10,12,.............)

2-اريد ان يظهر في التقرير المطبوع 10 سجلات 

3- ارسال التقرير كرسالة ايميل - اتبعت الخطوات التي فرسلتها لي بالفيديو لكن الشرح مشروط بأن لا يكون هناك كود - انا استخدم كود هو ادخال رقم الفاتورة  - كيف يمكنني حل ذلك ؟؟

4- التفقيط على التقرير 

ارسلت لك الملف للتعديل 

اشكر لكم اهتمامكم وجزاكم الله خيرا 

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

تحياتي الحارة

 

[ابو جودي]

2 ساعات مضت, maya said:

الاخ طاهر الوليدي المحترم 

جزاك الله خيرا 

لو سمحت اريد التالي :

1- الترقيم التلقائي بجدول الفواتير اريده فردي(1,3,5,7,9,11 .......ect) او زوجي (2,4,6,8,10,12,.............)

2-اريد ان يظهر في التقرير المطبوع 10 سجلات 

3- ارسال التقرير كرسالة ايميل - اتبعت الخطوات التي فرسلتها لي بالفيديو لكن الشرح مشروط بأن لا يكون هناك كود - انا استخدم كود هو ادخال رقم الفاتورة  - كيف يمكنني حل ذلك ؟؟

4- التفقيط على التقرير 

ارسلت لك الملف للتعديل 

اشكر لكم اهتمامكم وجزاكم الله خيرا 

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

تحياتي الحارة

 

تم عمل الاتى فى المرفق الاتى 

1- الترقيم التلقائي بجدول الفواتير اريده فردي(1,3,5,7,9,11 .......ect) او زوجي (2,4,6,8,10,12,.............)
توجد قاعدتين احدهما ترقم الفواتير فرديا والاخرى زوجيا 

 

4- التفقيط على التقرير 
تم اضافة التفقيط

TEKT.zip

[maya]

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

مشكورين

[ابو جودي]

9 ساعات مضت, maya said:

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

مشكورين

اتفضلى

من الخصائص اذهب الى خاصية الجمع التراكمي وضع "على المجموعة" ....

اولا انشاء مربع نص غير منضم على التقرير ثم من الخصائص نجعل عنصر التحكم = 1

من الخصائص نجعل خاصية الجمع التراكمى =مجموعة ( Over Group )

الكود المستخدم كالاتى

فى جزء التفصيل فى التقرير حدث على التسيق 

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
  If [txtcounter] Mod 10 = 0 Then
    Me.Detail.ForceNewPage = 10
  Else
    Me.Detail.ForceNewPage = 0
  End If
End Sub

الرقم  10 فى الكود هو عدد السجلات المراد اظهارها لكل صفحة فقط 

TEKT 1-3-5 .mdb

[maya]

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

الاخ ابا جودي الكريم مشكور على حسن اهتمامكم 

انا قمت بنفس العمل الذي قمت به 

لكن ما اريده تحديدا هو انه بحال وجود سجلات فارغة وليكن عددها مثلا 4 سجلات ان تظهر مع السجلات ال 6 الممتلئة بالبيانات 

ادعو الله ان تكون قد فهمت قصدي 

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

بانتظار الرد 

[maya]

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

الاخ ابا جودي الكريم مشكور على حسن اهتمامكم 

انا قمت بنفس العمل الذي قمت به 

لكن ما اريده تحديدا هو انه بحال وجود سجلات فارغة وليكن عددها مثلا 4 سجلات ان تظهر مع السجلات ال 6 الممتلئة بالبيانات 

ادعو الله ان تكون قد فهمت قصدي 

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

بانتظار الرد 

[kaser906]

بعد أذن الاخ محمد

انظري للمرفق  وطبقي نفس الكود

Dim x As Integer
Dim n As Long
x = DCount("id", "table1")
rsrce = Me.RecordSource
If x >= 10 Then
Me.RecordSource = "Table1"
Exit Sub
End If
n = Nz(DMax("id", "table1"))
If n = 0 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO Table1 ( id ) SELECT 1 AS Expr1"
DoCmd.SetWarnings True
End If
For i = 1 To 10 - x
n = n + 1
   rsrce = rsrce & " Union SELECT " & n & " as a, null as b, null as c FROM Table1"
   Next i
Me.RecordSource = rsrce & " ORDER BY Table1.id"

بالتوفيق :::

item2.mdb

[maya]

شكرا اخ وليد شكرا اخ ابا جودي شكرا اخ كاسر لحسن اهتمامكم وتعاونكم معي ومع المنتدى 

جزاكم الله خيرا 

ولا غنى لنا عن خدماتكم ومساعدتكم 

زادكم الله من علمه ونفعنا بكم 

[maya]

الاخ الكريم كاسر 

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

هذه نسخة عن البرنامج 

ارجو اعلامي عن السبب لو سمحت - اي ما الخطأ في الكود 

وارجو ارسال المرفق بعد التعديل 

مشكورر جدا 

 

test2.mdb

[kaser906]

4 ساعات مضت, maya said:

ارجو اعلامي عن السبب لو سمحت - اي ما الخطأ في الكود

أختي الكريمة

حاولت فهم تقريرك دون جدوى

حاولي ان تشرحي بالصور

بالتوفيق :::،،،

 

[maya]

اخي الكريم كاسر

اعتذر لازعاجك لكن سأبقى الاحق الحل معك 

التقرير لدي مبني على جدولين ( tbl_inv  &  tbl_inv_sub)  بينهما حقل مشترك هو invid

فهل تقصد عند كتابة الكود يجب ان اعرف كافة الحقول بالجدولين والتي يبلغ عددها سبعة حقول بينها حقل مشترك invid ؟؟؟؟

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

ارجو ان تتحملني لكثرة اسئلتي لكن اريدان اصل الى حل 

شاكرة حسن تعاونك معي 

 

تم تعديل مارس 18, 2018 بواسطه maya

[maya]

اخي الكريم كاسر انتظر الرد لو سمحت مشكورا