ArabMan قام بنشر يناير 7, 2023 مشاركة قام بنشر يناير 7, 2023 السلام عليكم ورحمة الله وبركاته .Continuous form أمل المساعدة في حل مشكلة عند محاولة ادخال عدة سجلات في نموذج مستمر المشكلة: 1- عند طباعة التقرير تظهر سجل واحد فقط و قديم 2- لاتظهر في التقرير السجلات التي تم تحديدها في النموذج لكي يتم طباعتها المطلوب: 1- عند طباعة تقرير ان تظهر فقط السجلات التي تم ادخالها الان و شكراً لكم مقدماً رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يناير 7, 2023 مشاركة قام بنشر يناير 7, 2023 اين المرفق ؟ رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر يناير 7, 2023 مشاركة قام بنشر يناير 7, 2023 (معدل) استخدمت مشاركة لاستاذي ابو خليل ودونت عليها تقريران راجعهم جيدا يمكن يفيدوك ووافني بالرد وذا لم يفيدك ارسل مرفقك !!! البحث بين وقتين معدل .rar تم تعديل يناير 7, 2023 بواسطه kkhalifa1960 1 رابط هذا التعليق شارك More sharing options...
ArabMan قام بنشر يناير 7, 2023 الكاتب مشاركة قام بنشر يناير 7, 2023 نفس المشكلة عند الطباعة فقط يظهر سجل واحد فقط بينما المطلوب طباعة عدة سجلات تم ادخالها في نفس الفورم الحالي ارجو الاطلاع على النمودج في المرفق نمودج مثال.rar رابط هذا التعليق شارك More sharing options...
ArabMan قام بنشر يناير 8, 2023 الكاتب مشاركة قام بنشر يناير 8, 2023 On 1/7/2023 at 7:00 AM, عمر ضاحى said: اين المرفق ؟ تم اضافة المرفق في الرد اعلاه 15 hours ago, ArabMan said: نفس المشكلة عند الطباعة فقط يظهر سجل واحد فقط بينما المطلوب طباعة عدة سجلات تم ادخالها في نفس الفورم الحالي ارجو الاطلاع على النمودج في المرفق نمودج مثال.rar 41.94 kB · 3 downloads نفس المشكلة عند الطباعة يظهر سجل واحد فقط بينما المطلوب طباعة عدة سجلات تم ادخالها الان تم اضافة مرفق في الرد السابق ارجو الاطلاع رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يناير 8, 2023 مشاركة قام بنشر يناير 8, 2023 الخلل في تصميمك للتقرير ، حيث انك جعلت ارتفاع التفصيل كبير جدا انظر التعديل Database5.rar رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر يناير 8, 2023 مشاركة قام بنشر يناير 8, 2023 (معدل) الحين فهمت قصدك 1- بعد ادخالك البيانات بالنموذج طبعاً عدة ادخالات حالية تريد طباعتها ولكن التقرير لايظهر الا سطر واحد لان مافي تقرير مستمر . 2- كي تنفذ مرادك وانت محدد على الموذج بيسار القاعدة ونفذ مالصورة ( فكرة استاذ جعفر في مشارة سابقة ) ولكن تنبة التقرير سيظهر محتويات النموذج لمرة واحدة أطبع الان لانك لو اغلقت التقرير الجديد وحبيت تفتحه مرة أخرى سيفتح على ريكورد واحد فقط وسيطلب منك تحديده . 3- انظر مافي الصورة ووافني بالرد . تم تعديل يناير 8, 2023 بواسطه kkhalifa1960 رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر يناير 8, 2023 مشاركة قام بنشر يناير 8, 2023 (معدل) وهذه محاولة أخرى 1- بعد ادخالك البيانات بالنموذج طبعاً عدة ادخالات حالية تريد طباعتها ولكن التقرير لايظهر الا سطر واحد لان مافي تقرير مستمر . 2- كي تنفذ مرادك وانت محدد على النموذج بيسار القاعدة اذهب الى ملف ثم طباعة ثماول اختيار QUICK PRINT ثم أدخل أي اسم ثم حدد مكان الحفظ ثم حفظ ثم اذهب مكان الحفظ بتحصل مرادك . 3-ووافني بالرد . تم تعديل يناير 8, 2023 بواسطه kkhalifa1960 رابط هذا التعليق شارك More sharing options...
ArabMan قام بنشر يناير 8, 2023 الكاتب مشاركة قام بنشر يناير 8, 2023 9 hours ago, kkhalifa1960 said: وهذه محاولة أخرى 1- بعد ادخالك البيانات بالنموذج طبعاً عدة ادخالات حالية تريد طباعتها ولكن التقرير لايظهر الا سطر واحد لان مافي تقرير مستمر . 2- كي تنفذ مرادك وانت محدد على النموذج بيسار القاعدة اذهب الى ملف ثم طباعة ثماول اختيار QUICK PRINT ثم أدخل أي اسم ثم حدد مكان الحفظ ثم حفظ ثم اذهب مكان الحفظ بتحصل مرادك . 3-ووافني بالرد . يعطيك العافية اخي ابو خليل بعد المحاولة صار يطبع معاي لكن تظهر جميع السجلات السابقة والحالية التي تم ادخالها ومنها سجلات فارغة وفي عدة صفحات اول سجل تم ادخاله خليط بين سجلات سابقة او اخيرة المطلوب طباعة اخر سجلات تم ادخالها و بعد الطباعة يتم مسح جميع السجلات في النموذج مع العلم تم استخدام الاكواد Me.refresh Me.requary و شكراً مقدماً رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يناير 8, 2023 مشاركة قام بنشر يناير 8, 2023 مثالك غير واضح تماما يوجد نموذج وآخر تمت تسميته على انه فرعي والتقرير مصدر بياناته الجدول اين تكتب البيانات في اي نموذج ياليت ترفع لي صور لما تريد ان يتم عمله رابط هذا التعليق شارك More sharing options...
ArabMan قام بنشر يناير 8, 2023 الكاتب مشاركة قام بنشر يناير 8, 2023 1 hour ago, ابوخليل said: مثالك غير واضح تماما يوجد نموذج وآخر تمت تسميته على انه فرعي والتقرير مصدر بياناته الجدول اين تكتب البيانات في اي نموذج ياليت ترفع لي صور لما تريد ان يتم عمله المطلوب فقط طباعة تقرير السجلان التي تم ادخالها الان في النمودج فقط و ليس كل ما تم ادخاله في الجدول رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يناير 8, 2023 مشاركة قام بنشر يناير 8, 2023 اقرأ ما سألتك عنه جيدا 2 ساعات مضت, ابوخليل said: اين تكتب البيانات في اي نموذج اي نموذج ؟ في المثال نموذجان رابط هذا التعليق شارك More sharing options...
ArabMan قام بنشر يناير 8, 2023 الكاتب مشاركة قام بنشر يناير 8, 2023 24 minutes ago, ابوخليل said: اقرأ ما سألتك عنه جيدا اي نموذج ؟ في المثال نموذجان فورم ١ المطلوب رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر يناير 8, 2023 مشاركة قام بنشر يناير 8, 2023 (معدل) أخي الفاضل اذهب للتقرير في وضع التصميم وضع هذا السطر بدلاً من المكتوب (SELECT TOP 2 * FROM Max_slaes; ) في مصدر البيانات (record source) حيث (2) عدد الادخلات الاخيرة وتغيرها حسب عدد الادخالات انا مجربها عندي وتعمل تمام التمام تم تعديل يناير 8, 2023 بواسطه kkhalifa1960 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يناير 9, 2023 مشاركة قام بنشر يناير 9, 2023 8 ساعات مضت, kkhalifa1960 said: أخي الفاضل اذهب للتقرير في وضع التصميم وضع هذا السطر بدلاً من المكتوب (SELECT TOP 2 * FROM Max_slaes; ) في مصدر البيانات (record source) حيث (2) عدد الادخلات الاخيرة وتغيرها حسب عدد الادخالات اتوقع ان الاخ يريد طباعة ما يكتبه في النموذج بدون تحديد عدد السجلات وخاصية ادخال البيانات في النموذج = نعم هذه فيها اشكالية لان البيانات لا تدرج في الجدول الا بعد تحديث النموذج ، وعند التحديث تختفي البيانات من النموذج فأنا عملت في المثال ادناه تحديث للحقل او السجل فقط ، وحتى نتمكن من التصفية من خلال النموذج اضفت حقل لتاريخ اليوم انظر المثال المعدل ووافنا بالنتيجة Database6.rar رابط هذا التعليق شارك More sharing options...
متقاعد قام بنشر يناير 9, 2023 مشاركة قام بنشر يناير 9, 2023 منذ ساعه, ابوخليل said: اتوقع ان الاخ يريد طباعة ما يكتبه في النموذج بدون تحديد عدد السجلات مشاركة مع الاساتذه فكرة اخرى نستخدم جدول مؤقت لادخال البيانات ويكون مصدر للتقرير بعد الطباعة يتم نقل السجلات للجدول الرئيسي تحياتي 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 9, 2023 مشاركة قام بنشر يناير 9, 2023 السلام عليكم 🙂 ممكن نستخدم اول رقم وآخر رقم 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 1 رابط هذا التعليق شارك More sharing options...
ArabMan قام بنشر يناير 9, 2023 الكاتب مشاركة قام بنشر يناير 9, 2023 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 شكراً لك اخي جعفر تقريباً هدا هوا المطلوب لكن لو بالامكان عند ادخال رقم المكتب مرة واحدة في النمودج يكون افضل بدلاً من كل مرة ادهب الى خان يطلب مني ادخال المكتب والف شكر لك رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 10, 2023 مشاركة قام بنشر يناير 10, 2023 10 ساعات مضت, ArabMan said: لو بالامكان عند ادخال رقم المكتب مرة واحدة في النمودج تفضل 🙂 1543.Print_Form_Records.accdb.zip رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان