ArabMan قام بنشر يناير 7, 2023 قام بنشر يناير 7, 2023 السلام عليكم ورحمة الله وبركاته .Continuous form أمل المساعدة في حل مشكلة عند محاولة ادخال عدة سجلات في نموذج مستمر المشكلة: 1- عند طباعة التقرير تظهر سجل واحد فقط و قديم 2- لاتظهر في التقرير السجلات التي تم تحديدها في النموذج لكي يتم طباعتها المطلوب: 1- عند طباعة تقرير ان تظهر فقط السجلات التي تم ادخالها الان و شكراً لكم مقدماً
kkhalifa1960 قام بنشر يناير 7, 2023 قام بنشر يناير 7, 2023 (معدل) استخدمت مشاركة لاستاذي ابو خليل ودونت عليها تقريران راجعهم جيدا يمكن يفيدوك ووافني بالرد وذا لم يفيدك ارسل مرفقك !!! البحث بين وقتين معدل .rar تم تعديل يناير 7, 2023 بواسطه kkhalifa1960 1
ArabMan قام بنشر يناير 7, 2023 الكاتب قام بنشر يناير 7, 2023 نفس المشكلة عند الطباعة فقط يظهر سجل واحد فقط بينما المطلوب طباعة عدة سجلات تم ادخالها في نفس الفورم الحالي ارجو الاطلاع على النمودج في المرفق نمودج مثال.rar
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 نفس المشكلة عند الطباعة يظهر سجل واحد فقط بينما المطلوب طباعة عدة سجلات تم ادخالها الان تم اضافة مرفق في الرد السابق ارجو الاطلاع
ابوخليل قام بنشر يناير 8, 2023 قام بنشر يناير 8, 2023 الخلل في تصميمك للتقرير ، حيث انك جعلت ارتفاع التفصيل كبير جدا انظر التعديل Database5.rar
kkhalifa1960 قام بنشر يناير 8, 2023 قام بنشر يناير 8, 2023 (معدل) الحين فهمت قصدك 1- بعد ادخالك البيانات بالنموذج طبعاً عدة ادخالات حالية تريد طباعتها ولكن التقرير لايظهر الا سطر واحد لان مافي تقرير مستمر . 2- كي تنفذ مرادك وانت محدد على الموذج بيسار القاعدة ونفذ مالصورة ( فكرة استاذ جعفر في مشارة سابقة ) ولكن تنبة التقرير سيظهر محتويات النموذج لمرة واحدة أطبع الان لانك لو اغلقت التقرير الجديد وحبيت تفتحه مرة أخرى سيفتح على ريكورد واحد فقط وسيطلب منك تحديده . 3- انظر مافي الصورة ووافني بالرد . تم تعديل يناير 8, 2023 بواسطه kkhalifa1960
kkhalifa1960 قام بنشر يناير 8, 2023 قام بنشر يناير 8, 2023 (معدل) وهذه محاولة أخرى 1- بعد ادخالك البيانات بالنموذج طبعاً عدة ادخالات حالية تريد طباعتها ولكن التقرير لايظهر الا سطر واحد لان مافي تقرير مستمر . 2- كي تنفذ مرادك وانت محدد على النموذج بيسار القاعدة اذهب الى ملف ثم طباعة ثماول اختيار QUICK PRINT ثم أدخل أي اسم ثم حدد مكان الحفظ ثم حفظ ثم اذهب مكان الحفظ بتحصل مرادك . 3-ووافني بالرد . تم تعديل يناير 8, 2023 بواسطه kkhalifa1960
ArabMan قام بنشر يناير 8, 2023 الكاتب قام بنشر يناير 8, 2023 9 hours ago, kkhalifa1960 said: وهذه محاولة أخرى 1- بعد ادخالك البيانات بالنموذج طبعاً عدة ادخالات حالية تريد طباعتها ولكن التقرير لايظهر الا سطر واحد لان مافي تقرير مستمر . 2- كي تنفذ مرادك وانت محدد على النموذج بيسار القاعدة اذهب الى ملف ثم طباعة ثماول اختيار QUICK PRINT ثم أدخل أي اسم ثم حدد مكان الحفظ ثم حفظ ثم اذهب مكان الحفظ بتحصل مرادك . 3-ووافني بالرد . يعطيك العافية اخي ابو خليل بعد المحاولة صار يطبع معاي لكن تظهر جميع السجلات السابقة والحالية التي تم ادخالها ومنها سجلات فارغة وفي عدة صفحات اول سجل تم ادخاله خليط بين سجلات سابقة او اخيرة المطلوب طباعة اخر سجلات تم ادخالها و بعد الطباعة يتم مسح جميع السجلات في النموذج مع العلم تم استخدام الاكواد Me.refresh Me.requary و شكراً مقدماً
ابوخليل قام بنشر يناير 8, 2023 قام بنشر يناير 8, 2023 مثالك غير واضح تماما يوجد نموذج وآخر تمت تسميته على انه فرعي والتقرير مصدر بياناته الجدول اين تكتب البيانات في اي نموذج ياليت ترفع لي صور لما تريد ان يتم عمله
ArabMan قام بنشر يناير 8, 2023 الكاتب قام بنشر يناير 8, 2023 1 hour ago, ابوخليل said: مثالك غير واضح تماما يوجد نموذج وآخر تمت تسميته على انه فرعي والتقرير مصدر بياناته الجدول اين تكتب البيانات في اي نموذج ياليت ترفع لي صور لما تريد ان يتم عمله المطلوب فقط طباعة تقرير السجلان التي تم ادخالها الان في النمودج فقط و ليس كل ما تم ادخاله في الجدول
ابوخليل قام بنشر يناير 8, 2023 قام بنشر يناير 8, 2023 اقرأ ما سألتك عنه جيدا 2 ساعات مضت, ابوخليل said: اين تكتب البيانات في اي نموذج اي نموذج ؟ في المثال نموذجان
ArabMan قام بنشر يناير 8, 2023 الكاتب قام بنشر يناير 8, 2023 24 minutes ago, ابوخليل said: اقرأ ما سألتك عنه جيدا اي نموذج ؟ في المثال نموذجان فورم ١ المطلوب
kkhalifa1960 قام بنشر يناير 8, 2023 قام بنشر يناير 8, 2023 (معدل) أخي الفاضل اذهب للتقرير في وضع التصميم وضع هذا السطر بدلاً من المكتوب (SELECT TOP 2 * FROM Max_slaes; ) في مصدر البيانات (record source) حيث (2) عدد الادخلات الاخيرة وتغيرها حسب عدد الادخالات انا مجربها عندي وتعمل تمام التمام تم تعديل يناير 8, 2023 بواسطه kkhalifa1960
ابوخليل قام بنشر يناير 9, 2023 قام بنشر يناير 9, 2023 8 ساعات مضت, kkhalifa1960 said: أخي الفاضل اذهب للتقرير في وضع التصميم وضع هذا السطر بدلاً من المكتوب (SELECT TOP 2 * FROM Max_slaes; ) في مصدر البيانات (record source) حيث (2) عدد الادخلات الاخيرة وتغيرها حسب عدد الادخالات اتوقع ان الاخ يريد طباعة ما يكتبه في النموذج بدون تحديد عدد السجلات وخاصية ادخال البيانات في النموذج = نعم هذه فيها اشكالية لان البيانات لا تدرج في الجدول الا بعد تحديث النموذج ، وعند التحديث تختفي البيانات من النموذج فأنا عملت في المثال ادناه تحديث للحقل او السجل فقط ، وحتى نتمكن من التصفية من خلال النموذج اضفت حقل لتاريخ اليوم انظر المثال المعدل ووافنا بالنتيجة Database6.rar
متقاعد قام بنشر يناير 9, 2023 قام بنشر يناير 9, 2023 منذ ساعه, ابوخليل said: اتوقع ان الاخ يريد طباعة ما يكتبه في النموذج بدون تحديد عدد السجلات مشاركة مع الاساتذه فكرة اخرى نستخدم جدول مؤقت لادخال البيانات ويكون مصدر للتقرير بعد الطباعة يتم نقل السجلات للجدول الرئيسي تحياتي 1
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
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 شكراً لك اخي جعفر تقريباً هدا هوا المطلوب لكن لو بالامكان عند ادخال رقم المكتب مرة واحدة في النمودج يكون افضل بدلاً من كل مرة ادهب الى خان يطلب مني ادخال المكتب والف شكر لك
jjafferr قام بنشر يناير 10, 2023 قام بنشر يناير 10, 2023 10 ساعات مضت, ArabMan said: لو بالامكان عند ادخال رقم المكتب مرة واحدة في النمودج تفضل 🙂 1543.Print_Form_Records.accdb.zip
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.