• 0
مندوب

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

سؤال

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

db1.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

8 إجابة على هذا السؤال .

  • 0

تفضل اخي مندوب

كلفك بعد التعديل

اطلع على الاكواد الخاصة بمعاينة او طباعة السجل الحالي

print.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
تفضل اخي مندوب

كلفك بعد التعديل

اطلع على الاكواد الخاصة بمعاينة او طباعة السجل الحالي

print.rar

اختى العزيزة واجهتنى مشكلتين

الاولي انه فى مكان وضع الكود عندك كلة فاضي وثانيا عندي مشكلة مثل مهى الصور

post-89290-1161548049_thumb.jpg

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
اختى العزيزة واجهتنى مشكلتين

الاولي انه فى مكان وضع الكود عندك كلة فاضي وثانيا عندي مشكلة مثل مهى الصور

اخي الفاضل مندوب

تأكد بارك الله فيك من البرنامج الذي قمت بتعديله لك

الاكواد الجديده في البرنامج هي

'كود معاينة السجل الحالي
Private Sub أمر13_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[الاسم]=" & "'" & Me![الاسم] & "'"
DoCmd.OpenReport "جدول1", acViewPreview, , stLinkCriteria
End Sub

'كود طباعة السجل الحالي
Private Sub أمر12_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[الاسم]=" & "'" & Me![الاسم] & "'"
DoCmd.OpenReport "جدول1", acViewNormal, , stLinkCriteria
End Sub

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
اخي الفاضل مندوب

تأكد بارك الله فيك من البرنامج الذي قمت بتعديله لك

الاكواد الجديده في البرنامج هي

'كود معاينة السجل الحالي
Private Sub أمر13_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[الاسم]=" & "'" & Me![الاسم] & "'"
DoCmd.OpenReport "جدول1", acViewPreview, , stLinkCriteria
End Sub

'كود طباعة السجل الحالي
Private Sub أمر12_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[الاسم]=" & "'" & Me![الاسم] & "'"
DoCmd.OpenReport "جدول1", acViewNormal, , stLinkCriteria
End Sub

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

اختى العزيزة هذا كان مثال وانا اريد ان اطبق هذه الاكواد على ملفات ثانية مع العلم باننى قمت بتعديل اسم الجدول بدال ( جدول 1) وكذلك "م" بدل الاسم و/ معنها مسلسل

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الفاضل مندوب

لم تذكر هذا من قبل

ان ما قمت به لك هو خاص بالاسم وكما تعرف ان الاسم يجب ان يكون حقله نص

وانت تريد التغيير الى حقل يكون تسلسل اي ارقام وهنا يكون الاختلاف

لهذا سأقوم بالتعديل لك على المثال لكي يتناسب مع الارقام بدل النصوص

'كود معاينة السجل الحالي
Private Sub أمر13_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[م] =" & Me![م]
DoCmd.OpenReport "جدول1", acViewPreview, , stLinkCriteria
End Sub

'كود طباعة السجل الحالي
Private Sub أمر12_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[م] =" & Me![م]
DoCmd.OpenReport "جدول1", acViewNormal, , stLinkCriteria
End Sub

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

وهذا الملف بعد التعديل

print_up.rar

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا اختى العزيز كان الخطاء عندى

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

سؤالى هل هناك كود يقوم باصلاك تلك المشكلة الفنية

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الفاضل مندوب

لم افهم ماذا تقصد بقولك

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

سؤالى هل هناك كود يقوم باصلاك تلك المشكلة الفنية

هل من الممكن تضع مثال مصغر لما تريده بالضبط وتشرح عليه المشكله

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .