طباعة سجلات النموذج (معدل)

[ArabMan]

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

 .Continuous form أمل المساعدة في حل مشكلة عند محاولة ادخال عدة سجلات في نموذج مستمر

المشكلة:

1- عند طباعة التقرير تظهر سجل واحد فقط و قديم

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

 

المطلوب:

1- عند طباعة تقرير ان تظهر فقط السجلات التي تم ادخالها الان

 

و شكراً لكم مقدماً

 

 

[عمر ضاحى]

اين المرفق ؟

[kkhalifa1960]

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

وذا لم يفيدك ارسل مرفقك !!!

البحث بين وقتين معدل .rar

تم تعديل يناير 7, 2023 بواسطه kkhalifa1960

[ArabMan]

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

ارجو الاطلاع على النمودج في المرفق 

 

نمودج مثال.rar

[ArabMan]

On 1/7/2023 at 7:00 AM, عمر ضاحى said:

اين المرفق ؟

تم اضافة المرفق في الرد اعلاه 

15 hours ago, ArabMan said:

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

ارجو الاطلاع على النمودج في المرفق 

 

نمودج مثال.rar 41.94 kB · 3 downloads

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

بينما المطلوب طباعة عدة سجلات تم ادخالها الان

تم اضافة مرفق في الرد السابق

ارجو الاطلاع

[ابوخليل]

الخلل في تصميمك للتقرير ، حيث انك جعلت ارتفاع التفصيل كبير جدا 

انظر التعديل

Database5.rar

[kkhalifa1960]

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

1- بعد ادخالك البيانات بالنموذج طبعاً عدة ادخالات حالية تريد طباعتها ولكن التقرير لايظهر الا سطر واحد لان مافي تقرير مستمر .

2- كي تنفذ مرادك وانت محدد على الموذج بيسار القاعدة ونفذ مالصورة ( فكرة استاذ جعفر في مشارة سابقة ) ولكن تنبة التقرير سيظهر محتويات النموذج لمرة واحدة أطبع الان لانك لو اغلقت التقرير الجديد وحبيت تفتحه مرة أخرى سيفتح على ريكورد واحد فقط وسيطلب منك تحديده .

3- انظر مافي الصورة ووافني بالرد . 

تم تعديل يناير 8, 2023 بواسطه kkhalifa1960

[kkhalifa1960]

وهذه محاولة أخرى

 

• 
   

1- بعد ادخالك البيانات بالنموذج طبعاً عدة ادخالات حالية تريد طباعتها ولكن التقرير لايظهر الا سطر واحد لان مافي تقرير مستمر .

2- كي تنفذ مرادك وانت محدد على النموذج بيسار القاعدة  اذهب الى ملف ثم طباعة ثماول اختيار  QUICK PRINT ثم أدخل أي اسم ثم حدد مكان الحفظ ثم حفظ ثم اذهب مكان الحفظ بتحصل مرادك  .

3-ووافني بالرد . 

تم تعديل يناير 8, 2023 بواسطه kkhalifa1960

[ArabMan]

9 hours ago, kkhalifa1960 said:

وهذه محاولة أخرى

 

• 
   

1- بعد ادخالك البيانات بالنموذج طبعاً عدة ادخالات حالية تريد طباعتها ولكن التقرير لايظهر الا سطر واحد لان مافي تقرير مستمر .

2- كي تنفذ مرادك وانت محدد على النموذج بيسار القاعدة  اذهب الى ملف ثم طباعة ثماول اختيار  QUICK PRINT ثم أدخل أي اسم ثم حدد مكان الحفظ ثم حفظ ثم اذهب مكان الحفظ بتحصل مرادك  .

3-ووافني بالرد . 

 

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

 

 

اول سجل تم ادخاله

 

 

 

 

خليط بين سجلات سابقة او اخيرة

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

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

Me.refresh

Me.requary

 

و شكراً مقدماً

[ابوخليل]

مثالك غير واضح تماما

يوجد نموذج وآخر تمت تسميته على انه فرعي

والتقرير مصدر بياناته الجدول

اين تكتب البيانات في اي نموذج

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

[ArabMan]

1 hour ago, ابوخليل said:

مثالك غير واضح تماما

يوجد نموذج وآخر تمت تسميته على انه فرعي

والتقرير مصدر بياناته الجدول

اين تكتب البيانات في اي نموذج

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

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

و ليس كل ما تم ادخاله في الجدول 

[ابوخليل]

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

2 ساعات مضت, ابوخليل said:

اين تكتب البيانات في اي نموذج

اي نموذج ؟

في المثال نموذجان 

[ArabMan]

24 minutes ago, ابوخليل said:

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

اي نموذج ؟

في المثال نموذجان 

فورم ١ المطلوب

[kkhalifa1960]

أخي الفاضل اذهب للتقرير في وضع التصميم وضع هذا السطر بدلاً من المكتوب (SELECT TOP 2 * FROM Max_slaes; ) في مصدر البيانات (record source)  حيث (2) عدد الادخلات الاخيرة وتغيرها حسب عدد الادخالات

انا مجربها عندي وتعمل تمام التمام 

تم تعديل يناير 8, 2023 بواسطه kkhalifa1960

[ابوخليل]

8 ساعات مضت, kkhalifa1960 said:

أخي الفاضل اذهب للتقرير في وضع التصميم وضع هذا السطر بدلاً من المكتوب (SELECT TOP 2 * FROM Max_slaes; ) في مصدر البيانات (record source)  حيث (2) عدد الادخلات الاخيرة وتغيرها حسب عدد الادخالات

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

وخاصية ادخال البيانات في النموذج = نعم  هذه فيها اشكالية لان البيانات لا تدرج في الجدول الا بعد تحديث النموذج ، وعند التحديث تختفي البيانات من النموذج

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

انظر المثال المعدل ووافنا بالنتيجة

 

Database6.rar

[متقاعد]

منذ ساعه, ابوخليل said:

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

مشاركة مع الاساتذه

فكرة اخرى

نستخدم جدول مؤقت لادخال البيانات ويكون مصدر للتقرير

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

تحياتي

[jjafferr]

السلام عليكم 🙂

 

ممكن نستخدم اول رقم وآخر رقم ID ، والتقرير يكون بين هذين الرقمين ،

او نستخدم حقل vDate اللي عمله اخوي ابوخليل ، بتغيير بسيط ، فبدل ان تكون قيمته الافتراضبة =Date ، نجعلها =Now حتى نحصل على الوقت بالثواني (حتى يتمكن المستخدم من طباعة مرات اخرى في اليوم) ، والتقرير يكون بين هذين التاريخين 🙂

 

هذا كود زر المعاينة ، واستخدمت متغير بمعرف Variant ، حتى اقدر استخدمه لأي نوع ، سواء رقم او نص او تاريخ :

Private Sub Command37_Click()
    
    'save the last Record
    If Me.Dirty = True Then Me.Dirty = False
    
    Dim rst As DAO.Recordset
    Dim rFirst As Variant, rLast As Variant
    Dim myWhere As String
    
    Set rst = Me.RecordsetClone

    'ID:
    rst.MoveFirst: rFirst = rst!ID
    rst.MoveLast: rLast = rst!ID
    
    '1
    'myWhere = myWhere & " ID>=" & rFirst
    'myWhere = myWhere & " And "
    'myWhere = myWhere & " ID<=" & rLast
    
    '2
    myWhere = "ID Between " & rFirst & " And " & rLast
    
    
    
    'vDate:
    'rst.MoveFirst: rFirst = rst!vdate
    'rst.MoveLast: rLast = rst!vdate
    
    '3
    'myWhere = myWhere & " vDate>=#" & rFirst & "#"
    'myWhere = myWhere & " And "
    'myWhere = myWhere & " vDate<=#" & rLast & "#"
    
    '4
    'myWhere = "vDate Between #" & rFirst & "# And #" & rLast & "#"
    
    DoCmd.OpenReport "Report1", acViewPreview, , myWhere
    
End Sub

 

جعفر

1543.Print_Form_Records.accdb.zip

[ArabMan]

15 hours ago, ابوخليل said:

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

وخاصية ادخال البيانات في النموذج = نعم  هذه فيها اشكالية لان البيانات لا تدرج في الجدول الا بعد تحديث النموذج ، وعند التحديث تختفي البيانات من النموذج

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

انظر المثال المعدل ووافنا بالنتيجة

 

Database6.rar 26.16 kB · 7 downloads

 

شكراً جزيلاً اخي ابو خليل الحمدلله الفكرة وصلت 

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

والشي الاخر عند الطباعة تظهر لي جميع سجلات تاريخ اليوم بيما المطلوب 

كما دكرت انت ما اكتبه الان يطبع الان 

 

 

 

ملاحظة:

تمت ازالة الكود

 Private Sub ItemNo_GotFocus()
If OfficeCode = 0 Then
MsgBox "ÇÏÎá ÑÞã ÇáãßÊÈ"
OfficeCode.SetFocus
Exit Sub
End If
End Sub

ليتم ادخال المواد بحرية لكن التقرير لا يفتح 

 

و تحياتي لك

10 hours ago, jjafferr said:

السلام عليكم 🙂

 

ممكن نستخدم اول رقم وآخر رقم ID ، والتقرير يكون بين هذين الرقمين ،

او نستخدم حقل vDate اللي عمله اخوي ابوخليل ، بتغيير بسيط ، فبدل ان تكون قيمته الافتراضبة =Date ، نجعلها =Now حتى نحصل على الوقت بالثواني (حتى يتمكن المستخدم من طباعة مرات اخرى في اليوم) ، والتقرير يكون بين هذين التاريخين 🙂

 

هذا كود زر المعاينة ، واستخدمت متغير بمعرف Variant ، حتى اقدر استخدمه لأي نوع ، سواء رقم او نص او تاريخ :

Private Sub Command37_Click()
    
    'save the last Record
    If Me.Dirty = True Then Me.Dirty = False
    
    Dim rst As DAO.Recordset
    Dim rFirst As Variant, rLast As Variant
    Dim myWhere As String
    
    Set rst = Me.RecordsetClone

    'ID:
    rst.MoveFirst: rFirst = rst!ID
    rst.MoveLast: rLast = rst!ID
    
    '1
    'myWhere = myWhere & " ID>=" & rFirst
    'myWhere = myWhere & " And "
    'myWhere = myWhere & " ID<=" & rLast
    
    '2
    myWhere = "ID Between " & rFirst & " And " & rLast
    
    
    
    'vDate:
    'rst.MoveFirst: rFirst = rst!vdate
    'rst.MoveLast: rLast = rst!vdate
    
    '3
    'myWhere = myWhere & " vDate>=#" & rFirst & "#"
    'myWhere = myWhere & " And "
    'myWhere = myWhere & " vDate<=#" & rLast & "#"
    
    '4
    'myWhere = "vDate Between #" & rFirst & "# And #" & rLast & "#"
    
    DoCmd.OpenReport "Report1", acViewPreview, , myWhere
    
End Sub

 

جعفر

1543.Print_Form_Records.accdb.zip 30.25 kB · 5 downloads

 

10 hours ago, jjafferr said:

السلام عليكم 🙂

 

ممكن نستخدم اول رقم وآخر رقم ID ، والتقرير يكون بين هذين الرقمين ،

او نستخدم حقل vDate اللي عمله اخوي ابوخليل ، بتغيير بسيط ، فبدل ان تكون قيمته الافتراضبة =Date ، نجعلها =Now حتى نحصل على الوقت بالثواني (حتى يتمكن المستخدم من طباعة مرات اخرى في اليوم) ، والتقرير يكون بين هذين التاريخين 🙂

 

هذا كود زر المعاينة ، واستخدمت متغير بمعرف Variant ، حتى اقدر استخدمه لأي نوع ، سواء رقم او نص او تاريخ :

Private Sub Command37_Click()
    
    'save the last Record
    If Me.Dirty = True Then Me.Dirty = False
    
    Dim rst As DAO.Recordset
    Dim rFirst As Variant, rLast As Variant
    Dim myWhere As String
    
    Set rst = Me.RecordsetClone

    'ID:
    rst.MoveFirst: rFirst = rst!ID
    rst.MoveLast: rLast = rst!ID
    
    '1
    'myWhere = myWhere & " ID>=" & rFirst
    'myWhere = myWhere & " And "
    'myWhere = myWhere & " ID<=" & rLast
    
    '2
    myWhere = "ID Between " & rFirst & " And " & rLast
    
    
    
    'vDate:
    'rst.MoveFirst: rFirst = rst!vdate
    'rst.MoveLast: rLast = rst!vdate
    
    '3
    'myWhere = myWhere & " vDate>=#" & rFirst & "#"
    'myWhere = myWhere & " And "
    'myWhere = myWhere & " vDate<=#" & rLast & "#"
    
    '4
    'myWhere = "vDate Between #" & rFirst & "# And #" & rLast & "#"
    
    DoCmd.OpenReport "Report1", acViewPreview, , myWhere
    
End Sub

 

جعفر

1543.Print_Form_Records.accdb.zip 30.25 kB · 5 downloads

شكراً لك اخي جعفر تقريباً هدا هوا المطلوب 

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

 

والف شكر لك

[jjafferr]

10 ساعات مضت, ArabMan said:

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

تفضل 🙂

 

1543.Print_Form_Records.accdb.zip